filemorph

Check-in [d0287b1faa]
Login

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:d0287b1faa0b61ee584ceb02f416d15ff60c2024
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to filemorph-version.tcl.

1
2.8.0
|
1
2.8

Changes to scriptlibs/softwareupdate/softwareupdate.tcl.

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 {$currentversion < $versionnumber} {
	    softwareupdate::updatePitch
	} else {
	    softwareupdate::upToDate
	}
    }

    #define the current version of the software







|







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