Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update software update package |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
49a6b6157d2c07fc94657c3d105c5934 |
| User & Date: | admin 2015-11-14 04:47:30 |
Context
|
2015-11-15
| ||
| 22:29 | Update softwareupdate code check-in: 95ea150de6 user: admin tags: trunk | |
|
2015-11-14
| ||
| 04:47 | Update software update package check-in: 49a6b6157d user: admin tags: trunk | |
|
2015-10-13
| ||
| 10:52 | Final tweaks of registration, xplat check-in: 7dd496bd2c user: admin tags: trunk | |
Changes
Changes to softwareupdate/softwareupdate.tcl.
| ︙ | ︙ | |||
270 271 272 273 274 275 276 |
wm resizable .update 0 0
wm deiconify .update
raise .update
wm transient .update .
}
| > > | > > > > > > > > > > > | 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 |
wm resizable .update 0 0
wm deiconify .update
raise .update
wm transient .update .
}
proc winPitch {name newversion oldversion} {
set answer [tk_messageBox -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $currentapp. Would you like to download it now?" -type yesno
]
switch -- $answer {
yes {
xplat::launch http://www.codebykevin.com/$name.html
}
no {
return
}
}
}
#"busy" dialog
proc checkingForUpdates {} {
variable appname
variable icon
catch {destroy .updateprogress}
|
| ︙ | ︙ |