Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Update softare update for win |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8fb3ef5f8a26f6cbb3b87dd8106fafe0 |
User & Date: | kevin 2016-04-08 04:22:20 |
Context
2016-04-08
| ||
23:45 | Add universal CRT to build check-in: 1c5a477319 user: kevin tags: trunk | |
04:22 | Update softare update for win check-in: 8fb3ef5f8a user: kevin tags: trunk | |
04:10 | Minor adjustments of XML file check-in: 9aaae89d46 user: kevin tags: trunk | |
Changes
Changes to mit.txt.
| 1 2 3 4 5 6 7 8 9 | - + - + |
|
Changes to scriptlibs/softwareupdate/softwareupdate.tcl.
︙ | |||
101 102 103 104 105 106 107 | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | - + | switch [tk windowingsystem] { "aqua" { softwareupdate::updatePitch } "win32" { |
︙ | |||
291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 | 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 | + + | 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 destroy .updateprogress } no { destroy .updateprogress return } } } #"busy" dialog proc checkingForUpdates {} { |
︙ | |||
424 425 426 427 428 429 430 | 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 | - + - - - + - | set status "Unpacking update for $appname" update after 1000 catch {exec tar xvfz [list $appname].tgz} } "win32" { |
︙ |