Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Better error handling in software update |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
08da26dfc2da670f5c1956be3cb0acb3 |
| User & Date: | kevin 2017-01-18 02:44:36 |
Context
|
2017-04-03
| ||
| 02:45 | Upgrade tls for macOS check-in: 40831fc0c1 user: kevin tags: trunk | |
|
2017-01-18
| ||
| 02:44 | Better error handling in software update check-in: 08da26dfc2 user: kevin tags: trunk | |
|
2017-01-16
| ||
| 19:18 | Tweak dialog check-in: 9e4adcf94d user: kevin tags: trunk | |
Changes
Changes to scriptlibs/softwareupdate/softwareupdate.tcl.
| ︙ | ︙ | |||
67 68 69 70 71 72 73 74 75 76 77 78 79 80 |
set versionurl https://www.codebykevin.com/$appname-version.tcl
http::config -useragent "$appname Update Check"
if [catch {http::geturl $versionurl} msg] {
puts "error: $msg"
tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
return
}
set versionnumber [string trim [http::data [http::geturl $versionurl]]]
if [expr $currentversion < $versionnumber] {
softwareupdate::updatePitch
} else {
| > | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
set versionurl https://www.codebykevin.com/$appname-version.tcl
http::config -useragent "$appname Update Check"
if [catch {http::geturl $versionurl} msg] {
puts "error: $msg"
tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
catch {destroy .updateprogress}
return
}
set versionnumber [string trim [http::data [http::geturl $versionurl]]]
if [expr $currentversion < $versionnumber] {
softwareupdate::updatePitch
} else {
|
| ︙ | ︙ | |||
134 135 136 137 138 139 140 141 142 143 144 145 146 147 |
variable appname
set changeurl https://www.codebykevin.com/$appname-changes.tcl
if [catch {http::geturl $changeurl} msg] {
puts "error: $msg"
tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
return
}
set changelist [http::data [http::geturl $changeurl]]
set updateanswer [tk_messageBox -title "Update" -icon info -message "Update Available" -detail "A new version ($softwareupdate::versionnumber) of $appname is available.\n\nThis new version features the following updates and changes:\n\n$changelist\n\nWould you like to install it? " -type yesno -parent .]
| > | 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 |
variable appname
set changeurl https://www.codebykevin.com/$appname-changes.tcl
if [catch {http::geturl $changeurl} msg] {
puts "error: $msg"
tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
catch {destroy .updateprogress}
return
}
set changelist [http::data [http::geturl $changeurl]]
set updateanswer [tk_messageBox -title "Update" -icon info -message "Update Available" -detail "A new version ($softwareupdate::versionnumber) of $appname is available.\n\nThis new version features the following updates and changes:\n\n$changelist\n\nWould you like to install it? " -type yesno -parent .]
|
| ︙ | ︙ | |||
339 340 341 342 343 344 345 |
return
}
}
catch {destroy .downloadprogress}
}
| < < < | 341 342 343 344 345 346 347 348 349 350 351 |
return
}
}
catch {destroy .downloadprogress}
}
namespace export *
}
|