cbklib

Check-in [a1bcc5e76e]
Login

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

Changes to softwareupdate/softwareupdate.tcl.

67
68
69
70
71
72
73

74
75
76
77
78
79
80
...
134
135
136
137
138
139
140

141
142
143
144
145
146
147
...
339
340
341
342
343
344
345
346
347
348
349
350
351
352

	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 {
................................................................................
	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 .]
................................................................................
		return
	    }
	}

	catch {destroy .downloadprogress}

    }




    namespace export *

}







>







 







>







 







<
<
<




67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
...
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
...
341
342
343
344
345
346
347



348
349
350
351

	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 {
................................................................................
	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 .]
................................................................................
		return
	    }
	}

	catch {destroy .downloadprogress}

    }




    namespace export *

}