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