cbklib

Check-in [2cb9e503cc]
Login

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

Overview
Comment:Fix software update library on Windows
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2cb9e503cc38a6bcb5a1a1442f1ca1bd07a07865
User & Date: admin 2017-01-16 20:51:12
Context
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
03:29
Tweak update mechanism check-in: 827a357b43 user: admin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to softwareupdate/softwareupdate.tcl.

   154    154   		return
   155    155   	    }
   156    156   	    
   157    157   	}
   158    158   
   159    159       }
   160    160   
   161         -    proc winPitch {name newversion oldversion} {
   162         -	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
   163         -		   ]
   164         -
   165         -	switch -- $answer {
   166         -	    yes {
   167         -
   168         -		xplat::launch https://www.codebykevin.com/$name.html
   169         -	    }
   170         -	    no {
   171         -		return
   172         -	    }
   173         -	}
   174         -    }
   175    161       #"busy" dialog
   176    162       proc checkingForUpdates {} {
   177    163   
   178    164   	variable appname
   179    165   	variable icon
   180    166   
   181    167   	catch {destroy .updateprogress}
................................................................................
   340    326   		exec hdiutil detach /Volumes/[list $appname]
   341    327   
   342    328   		exit
   343    329   	    }
   344    330   	    
   345    331   	    "win32" {
   346    332   		
   347         -		eval exec [auto_execok start] $tmpdir/[list $appname]_Setup.exe &
          333  +		eval exec [auto_execok start] [file normalize $tmpdir/[list $appname]_Setup.exe] &
   348    334   		exit
   349    335   	    }
   350    336   	    
   351    337   	    "x11" {
   352    338   		tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
   353    339   		return
   354    340   	    }
   355    341   	}
   356    342   
   357    343   	catch {destroy .downloadprogress}
   358    344   
   359         -	
   360         -
   361    345       }
   362    346   
   363    347   
   364    348   
   365    349   
   366    350       namespace export *
   367    351   
   368    352   }