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
Changes to mit.txt.
1 2 3 4 5 6 7 8 9 |
The MIT License (MIT) Copyright (c) 2016 WordTech Communications LLC 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: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. 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. |
| | |
1 2 3 4 5 6 7 8 9 |
sThe MIT License (MIT) Copyright (c) 2016 WordTech Communications LLC 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: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. 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 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
|