Index: filemorph-changes.tcl ================================================================== --- filemorph-changes.tcl +++ filemorph-changes.tcl @@ -1,2 +1,4 @@ -* Improved scrolling performance, security support on macOS. -* Improved security support on Windows. +* New scripting API for Windows. +* Removal of console on Windows. +* Migration to new source code server. +* UI improvements. Index: filemorph-version.tcl ================================================================== --- filemorph-version.tcl +++ filemorph-version.tcl @@ -1,1 +1,1 @@ -2.9 +3.0 Index: filemorph.pl ================================================================== --- filemorph.pl +++ filemorph.pl @@ -61,19 +61,16 @@ if ($IS_AQUA) { Tkx::package_require('fullscreen'); Tkx::package_require('aem'); Tkx::package_require('cocoaprint'); Tkx::package_require('windowlist'); - } +} if ($IS_WINDOWS) { - Tkx::package_require('dde'); - Tkx::dde_servername('FileMorph'); + Tkx::package_require('dde'); + Tkx::dde_servername('FileMorph'); } - - - #initialize variables our $folder; our $sourceext; our $targetext; @@ -1085,11 +1082,11 @@ #initialize the app sub startUp { $appname = 'FileMorph'; - $appversion = '2.9'; + $appversion = '3.0'; &Tkx::machelp__setAppName( $appname, $appversion ); &Tkx::softwareupdate__setAppName($appname); &Tkx::softwareupdate__setVersion( $appname, $appversion ); #check for app support directory Index: scriptlibs/softwareupdate/softwareupdate.tcl ================================================================== --- scriptlibs/softwareupdate/softwareupdate.tcl +++ scriptlibs/softwareupdate/softwareupdate.tcl @@ -63,15 +63,15 @@ set appname $app softwareupdate::checkingForUpdates - set versionurl https://www.codebykevin.com/$appname-version.tcl + set versionurl [string tolower https://www.codebykevin.com/$appname-version.tcl] http::config -useragent "$appname Update Check" if [catch {http::geturl $versionurl} msg] { - puts "error: $msg" + if {[tk windowingsystem] ne "win32"} { puts "error: $msg"} tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent . catch {destroy .updateprogress} return } @@ -132,14 +132,14 @@ catch {destroy .update} variable appname - set changeurl https://www.codebykevin.com/$appname-changes.tcl + set changeurl [string tolower https://www.codebykevin.com/$appname-changes.tcl] if [catch {http::geturl $changeurl} msg] { - puts "error: $msg" + if {[tk windowingsystem] ne "win32"} { puts "error: $msg"} tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent . catch {destroy .updateprogress} return } @@ -274,11 +274,14 @@ set status "Downloading update for $appname" switch [tk windowingsystem] { "aqua" { - http::geturl https://www.codebykevin.com/updates/[list $appname].dmg -channel [open $tmpdir/[list $appname].dmg w] + update + after 1000 + #http package causes file corruption of the DMG for some reason + exec curl -s https://www.codebykevin.com/updates/[list $appname].dmg -o $tmpdir/[list $appname].dmg update after 1000 cd $tmpdir set status "Attaching [list $appname].dmg" update @@ -285,11 +288,11 @@ exec hdiutil attach [list $appname].dmg } "win32" { - http::geturl https://www.codebykevin.com/updates/[list $appname]_Setup.exe -channel [open $tmpdir/[list $appname]_Setup.exe w] + http::geturl https://www.codebykevin.com/updates/[list $appname]_Setup.exe -binary 1 -channel [open $tmpdir/[list $appname]_Setup.exe wb] } "x11" { tk_messageBox -icon info -parent . -message "Please ask the maintainer of $appname on your platform to prepare a release of the latest version."