Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix software update library on Windows |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 2cb9e503cc38a6bcb5a1a1442f1ca1bd07a07865 |
| User & Date: | admin 2017-01-16 20:51:12 |
Context
|
2017-01-18
| ||
| 02:52 | More tweaks to softwareupdate check-in: a1bcc5e76e user: admin tags: trunk | |
|
2017-01-16
| ||
| 20:51 | Fix software update library on Windows check-in: 2cb9e503cc user: admin tags: trunk | |
| 03:29 | Tweak update mechanism check-in: 827a357b43 user: admin tags: trunk | |
Changes
Changes to softwareupdate/softwareupdate.tcl.
154 154 return 155 155 } 156 156 157 157 } 158 158 159 159 } 160 160 161 - proc winPitch {name newversion oldversion} { 162 - 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 163 - ] 164 - 165 - switch -- $answer { 166 - yes { 167 - 168 - xplat::launch https://www.codebykevin.com/$name.html 169 - } 170 - no { 171 - return 172 - } 173 - } 174 - } 175 161 #"busy" dialog 176 162 proc checkingForUpdates {} { 177 163 178 164 variable appname 179 165 variable icon 180 166 181 167 catch {destroy .updateprogress} ................................................................................ 340 326 exec hdiutil detach /Volumes/[list $appname] 341 327 342 328 exit 343 329 } 344 330 345 331 "win32" { 346 332 347 - eval exec [auto_execok start] $tmpdir/[list $appname]_Setup.exe & 333 + eval exec [auto_execok start] [file normalize $tmpdir/[list $appname]_Setup.exe] & 348 334 exit 349 335 } 350 336 351 337 "x11" { 352 338 tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version." 353 339 return 354 340 } 355 341 } 356 342 357 343 catch {destroy .downloadprogress} 358 344 359 - 360 - 361 345 } 362 346 363 347 364 348 365 349 366 350 namespace export * 367 351 368 352 }