Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tweak for software update on win32 |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
553c1fc7d5f441760be6aa44c11f5015 |
| User & Date: | kevin 2018-03-21 03:22:20 |
Context
|
2018-04-04
| ||
| 02:21 | Reinstate services from view field check-in: 9a1b47f93c user: kevin tags: trunk | |
|
2018-03-21
| ||
| 03:22 | Tweak for software update on win32 check-in: 553c1fc7d5 user: kevin tags: trunk | |
|
2018-03-19
| ||
| 02:32 | Update bits for Windows build check-in: c9fdf8509d user: kevin tags: trunk | |
Changes
Changes to scriptlibs/softwareupdate/softwareupdate.tcl.
| ︙ | ︙ | |||
65 66 67 68 69 70 71 |
softwareupdate::checkingForUpdates
set versionurl [string tolower https://www.codebykevin.com/$appname-version.tcl]
http::config -useragent "$appname Update Check"
if [catch {http::geturl $versionurl} msg] {
| | | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
softwareupdate::checkingForUpdates
set versionurl [string tolower https://www.codebykevin.com/$appname-version.tcl]
http::config -useragent "$appname Update Check"
if [catch {http::geturl $versionurl} msg] {
if {[tk windowingsystem] ne "win32"} { 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] {
|
| ︙ | ︙ | |||
133 134 135 136 137 138 139 |
catch {destroy .update}
variable appname
set changeurl [string tolower https://www.codebykevin.com/$appname-changes.tcl]
if [catch {http::geturl $changeurl} msg] {
| | | 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 |
catch {destroy .update}
variable appname
set changeurl [string tolower https://www.codebykevin.com/$appname-changes.tcl]
if [catch {http::geturl $changeurl} msg] {
if {[tk windowingsystem] ne "win32"} { 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]]
|
| ︙ | ︙ |