QuickWho

Check-in [ec447b616e]
Login

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

Overview
Comment:Fix error in softwareupdate package
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ec447b616e6b4e79a16b088a2d1b214c3c0f6b64
User & Date: kevin 2018-04-26 03:12:43
Context
2018-04-27
12:17
Change build parameters on macOS check-in: 162b239e51 user: kevin tags: trunk
2018-04-26
03:12
Fix error in softwareupdate package check-in: ec447b616e user: kevin tags: trunk
2018-04-24
02:38
Fix typos in license check-in: 41a3123a7e user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to buildapp.

147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166

hdiutil create  -srcfolder dist -fs HFS+ -volname QuickWho QuickWho.dmg

codesign  --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2  QuickWho.dmg

echo "Uploading DMG..."

#upload QuickWho.dmg updates

#upload quickwho-changes.tcl

#upload quickwho-version.tcl


cd ../

#create archive of entire source tree
tar cvfz QuickWho-$1.tgz QuickWho

echo "Done."







|

|

|








147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166

hdiutil create  -srcfolder dist -fs HFS+ -volname QuickWho QuickWho.dmg

codesign  --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2  QuickWho.dmg

echo "Uploading DMG..."

upload QuickWho.dmg updates

upload quickwho-changes.tcl

upload quickwho-version.tcl


cd ../

#create archive of entire source tree
tar cvfz QuickWho-$1.tgz QuickWho

echo "Done."

Changes to scriptlibs/softwareupdate/softwareupdate.tcl.

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

	softwareupdate::progressDialog
	set status "Downloading update for $appname"
	
	switch [tk windowingsystem] {

	    "aqua" {



		http::geturl https://www.codebykevin.com/updates/[list $appname].dmg -channel [open $tmpdir/[list $appname].dmg w] 
		update
		after 1000
		cd $tmpdir
		set status "Attaching [list $appname].dmg"
		update
		exec hdiutil attach [list $appname].dmg
	    }
	    
	    "win32" {
		
		http::geturl https://www.codebykevin.com/updates/[list $appname]_Setup.exe -channel [open $tmpdir/[list $appname]_Setup.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
	    }







>
>
>
|










|







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
298
299
300

	softwareupdate::progressDialog
	set status "Downloading update for $appname"
	
	switch [tk windowingsystem] {

	    "aqua" {
		update
		after 1000
		#http package causes file corruption of the DMG for some reason
		exec curl -s https://www.codebykevin.com/updates/[list $appname].dmg -o  $tmpdir/[list $appname].dmg
		update
		after 1000
		cd $tmpdir
		set status "Attaching [list $appname].dmg"
		update
		exec hdiutil attach [list $appname].dmg
	    }
	    
	    "win32" {
		
		http::geturl https://www.codebykevin.com/updates/[list $appname]_Setup.exe -binary 1 -channel [open $tmpdir/[list $appname]_Setup.exe wb]

	    }
	    
	    "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
	    }