Index: softwareupdate/softwareupdate.tcl ================================================================== --- softwareupdate/softwareupdate.tcl +++ softwareupdate/softwareupdate.tcl @@ -156,24 +156,10 @@ } } - 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 @@ -342,11 +328,11 @@ exit } "win32" { - eval exec [auto_execok start] $tmpdir/[list $appname]_Setup.exe & + 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." @@ -354,15 +340,13 @@ } } catch {destroy .downloadprogress} - - } namespace export * }