cbklib

Check-in [49a6b6157d]
Login

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

Overview
Comment:Update software update package
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:49a6b6157d2c07fc94657c3d105c5934f44246b3
User & Date: admin 2015-11-14 04:47:30
Context
2015-11-15
22:29
Update softwareupdate code check-in: 95ea150de6 user: admin tags: trunk
2015-11-14
04:47
Update software update package check-in: 49a6b6157d user: admin tags: trunk
2015-10-13
10:52
Final tweaks of registration, xplat check-in: 7dd496bd2c user: admin tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to softwareupdate/softwareupdate.tcl.

270
271
272
273
274
275
276


277











278
279
280
281
282
283
284
    wm resizable .update 0 0
    wm deiconify .update
    raise .update
    wm transient .update .

}















#"busy" dialog
proc checkingForUpdates {} {

    variable appname
    variable icon

    catch {destroy .updateprogress}







>
>
|
>
>
>
>
>
>
>
>
>
>
>







270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
    wm resizable .update 0 0
    wm deiconify .update
    raise .update
    wm transient .update .

}

proc winPitch {name newversion oldversion} {
    set answer [tk_messageBox  -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $currentapp. 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 {} {

    variable appname
    variable icon

    catch {destroy .updateprogress}