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: | 553c1fc7d5f441760be6aa44c11f5015ae388933 |
| 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
72
73
74
75
76
77
78
79
...
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
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] {
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] {
................................................................................
catch {destroy .update}
variable appname
set changeurl [string tolower 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]]
|
|
|
|
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
...
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
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] {
................................................................................
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]]
|