Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update softwareupdate code |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
95ea150de68b37bfe58dbc0d94b40a0f |
| User & Date: | admin 2015-11-15 22:29:40 |
Context
|
2016-04-08
| ||
| 04:06 | Cleanup of software update check-in: b9d5d09cd4 user: admin tags: trunk | |
|
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 | |
Changes
Changes to softwareupdate/softwareupdate.tcl.
| ︙ | ︙ | |||
271 272 273 274 275 276 277 |
wm deiconify .update
raise .update
wm transient .update .
}
proc winPitch {name newversion oldversion} {
| | | 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 |
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 $oldversion. Would you like to download it now?" -type yesno
]
switch -- $answer {
yes {
xplat::launch http://www.codebykevin.com/$name.html
}
|
| ︙ | ︙ |