Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More tweaks to softwareupdate |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a1bcc5e76e0b1756ff5c40768c57b41b |
| User & Date: | admin 2017-01-18 02:52:08 |
Context
|
2017-04-08
| ||
| 02:02 | Fixes for tls in softwareupdate check-in: aec1fd578c user: admin tags: trunk | |
|
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 | |
Changes
Changes to 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 *
}
|