cbklib

Check-in [0e2fc70f7b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:update softwareupdate
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:0e2fc70f7be75095ff00351e87a12108b9167c79
User & Date: admin 2016-04-08 04:25:55
Context
2017-01-14
03:04
Update softwareupdate to support SSL check-in: 399827c684 user: admin tags: trunk
2016-04-08
04:25
update softwareupdate check-in: 0e2fc70f7b user: admin tags: trunk
04:06
Cleanup of software update check-in: b9d5d09cd4 user: admin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to softwareupdate/softwareupdate.tcl.

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
...
291
292
293
294
295
296
297

298
299

300
301
302
303
304
305
306
...
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
	    switch [tk windowingsystem] {
		"aqua" {
		    softwareupdate::updatePitch

		}
		
		"win32" {
		    softwareupdate::winPitch $appname $currentversion $oldversion
		}
		
		"x11" {
		    
		}
	    }
	    
................................................................................
	set answer [tk_messageBox  -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $oldversion. Would you like to download it now?" -type yesno
		   ]

	switch -- $answer {
	    yes {

		xplat::launch http://www.codebykevin.com/$name.html

	    }
	    no {

		return
	    }
	}
    }
    #"busy" dialog
    proc checkingForUpdates {} {

................................................................................
		set status "Unpacking update for $appname"
		update
		after 1000
		catch {exec tar xvfz [list $appname].tgz}
	    }
	    
	    "win32" {
		
		http::geturl http://www.codebykevin.com/updates/[list $appname].exe -channel [open $tmpdir/[list $appname].exe w] 

	    }
	    
	    "x11" {
		tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
		return
	    }
	}
	
	
	set status "Ready to install"
	.downloadprogress.frame.bar configure -mode determinate
	.downloadprogress.frame.bar configure -value 100







|







 







>


>







 







|
<
<



|
<







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
...
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
...
426
427
428
429
430
431
432
433


434
435
436
437

438
439
440
441
442
443
444
	    switch [tk windowingsystem] {
		"aqua" {
		    softwareupdate::updatePitch

		}
		
		"win32" {
		    softwareupdate::winPitch $appname $currentversion $versionnumber
		}
		
		"x11" {
		    
		}
	    }
	    
................................................................................
	set answer [tk_messageBox  -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $oldversion. Would you like to download it now?" -type yesno
		   ]

	switch -- $answer {
	    yes {

		xplat::launch http://www.codebykevin.com/$name.html
		destroy .updateprogress
	    }
	    no {
		destroy .updateprogress
		return
	    }
	}
    }
    #"busy" dialog
    proc checkingForUpdates {} {

................................................................................
		set status "Unpacking update for $appname"
		update
		after 1000
		catch {exec tar xvfz [list $appname].tgz}
	    }
	    
	    "win32" {
	


	    }
	    
	    "x11" {
		

	    }
	}
	
	
	set status "Ready to install"
	.downloadprogress.frame.bar configure -mode determinate
	.downloadprogress.frame.bar configure -value 100