QuickWho

Check-in [8fb3ef5f8a]
Login

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

Overview
Comment:Update softare update for win
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:8fb3ef5f8a26f6cbb3b87dd8106fafe07541c5f1
User & Date: kevin 2016-04-08 04:22:20
Context
2016-04-08
23:45
Add universal CRT to build check-in: 1c5a477319 user: kevin tags: trunk
04:22
Update softare update for win check-in: 8fb3ef5f8a user: kevin tags: trunk
04:10
Minor adjustments of XML file check-in: 9aaae89d46 user: kevin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to mit.txt.

     1         -The MIT License (MIT)
            1  +sThe MIT License (MIT)
     2      2   
     3      3   Copyright (c) 2016 WordTech Communications LLC
     4      4   
     5         -Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sellcopies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
            5  +Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
     6      6   
     7      7   The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
     8      8   
     9      9   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ORIMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THEAUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHERLIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS INTHE SOFTWARE.

Changes to scriptlibs/softwareupdate/softwareupdate.tcl.

   101    101   	    switch [tk windowingsystem] {
   102    102   		"aqua" {
   103    103   		    softwareupdate::updatePitch
   104    104   
   105    105   		}
   106    106   		
   107    107   		"win32" {
   108         -		    softwareupdate::winPitch $appname $currentversion $oldversion
          108  +		    softwareupdate::winPitch $appname $currentversion $versionnumber
   109    109   		}
   110    110   		
   111    111   		"x11" {
   112    112   		    
   113    113   		}
   114    114   	    }
   115    115   	    
................................................................................
   291    291   	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
   292    292   		   ]
   293    293   
   294    294   	switch -- $answer {
   295    295   	    yes {
   296    296   
   297    297   		xplat::launch http://www.codebykevin.com/$name.html
          298  +		destroy .updateprogress
   298    299   	    }
   299    300   	    no {
          301  +		destroy .updateprogress
   300    302   		return
   301    303   	    }
   302    304   	}
   303    305       }
   304    306       #"busy" dialog
   305    307       proc checkingForUpdates {} {
   306    308   
................................................................................
   424    426   		set status "Unpacking update for $appname"
   425    427   		update
   426    428   		after 1000
   427    429   		catch {exec tar xvfz [list $appname].tgz}
   428    430   	    }
   429    431   	    
   430    432   	    "win32" {
   431         -		
   432         -		http::geturl http://www.codebykevin.com/updates/[list $appname].exe -channel [open $tmpdir/[list $appname].exe w] 
   433         -
          433  +	
   434    434   	    }
   435    435   	    
   436    436   	    "x11" {
   437         -		tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."
   438         -		return
          437  +		
   439    438   	    }
   440    439   	}
   441    440   	
   442    441   	
   443    442   	set status "Ready to install"
   444    443   	.downloadprogress.frame.bar configure -mode determinate
   445    444   	.downloadprogress.frame.bar configure -value 100