Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tweak version check |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d0287b1faa0b61ee584ceb02f416d15f |
| User & Date: | kevin 2017-01-16 03:01:38 |
Context
|
2017-01-16
| ||
| 16:15 | Update build script check-in: 5a0c23d92e user: kevin tags: trunk | |
| 03:01 | Tweak version check check-in: d0287b1faa user: kevin tags: trunk | |
| 02:30 | Tweak version check check-in: 679025187c user: kevin tags: trunk | |
Changes
Changes to filemorph-version.tcl.
|
| | | 1 | 2.8 |
Changes to scriptlibs/softwareupdate/softwareupdate.tcl.
| ︙ | ︙ | |||
71 72 73 74 75 76 77 |
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]]]
| | | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 |
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 {
softwareupdate::upToDate
}
}
#define the current version of the software
|
| ︙ | ︙ |