Index: build.bat ================================================================== --- build.bat +++ build.bat @@ -2,19 +2,42 @@ if exist FileMorph.exe ( del FileMorph.exe ) +if exist build\ ( +rmdir build\ +) +mkdir build\ +mkdir build\filemorph\ + +call xcopy C:\Strawberry\c\bin\*.dll build\filemorph\ /s /i /y +call xcopy C:\Strawberry\perl\bin\*.dll build\filemorph\ /s /i /y +call xcopy C:\Tcl\bin\*.dll build\filemorph\ /s /i /y +call xcopy C:\Strawberry\perl\lib build\filemorph\lib /s /i /y +call xcopy C:\Strawberry\perl\site build\filemorph\site /s /i /y +call xcopy C:\Strawberry\perl\vendor build\filemorph\vendor /s /i /y +call xcopy C:\Tcl\lib build\lib /s /i /y +call xcopy C:\Tcl\bin build\bin /s /i /y + call perltidy --pt=2 --bbt=2 --sbt=2 --naws filemorph.pl -call move /y filemorph.pl.tdy filemorph.pl +call move /y filemorph.pl.tdy filemorph.pl +call xcopy filemorph.pl build\filemorph\filemorph.pl /y + +call windres icons.rc -o coff -o icons.o +call windres versioninfo.rc -o coff -o versioninfo.o +call perl build.pl + +call xcopy FileMorph.exe build\filemorph\ + +::call xcopy scriptlibs C:\Tcl\lib\ /s /i /y + +::call xcopy winlibs C:\Tcl\lib\ /s /i /y + +::call pp -C -M Encode::Byte -l zlib1.dll -l tcl86.dll -l tk86.dll -a "C:/Tcl;script/Tcl" filemorph.pl -o FileMorph.exe -call xcopy scriptlibs C:\Tcl\lib\ /s /i /y +::call "C:\Program Files (x86)\Resource Hacker\ResourceHacker.exe" -modify "FileMorph.exe", "FileMorph.exe", "filemorph-exe-par.ico", ICONGROUP, WINEXE, 0 -call xcopy winlibs C:\Tcl\lib\ /s /i /y - -call pp -C -M Encode::Byte -l zlib1.dll -l tcl86.dll -l tk86.dll -a "C:/Tcl;script/Tcl" filemorph.pl -o FileMorph.exe +::call ie4uinit.exe -ClearIconCache -call "C:\Program Files (x86)\Resource Hacker\ResourceHacker.exe" -modify "FileMorph.exe", "FileMorph.exe", "filemorph-exe-par.ico", ICONGROUP, WINEXE, 0 - -call ie4uinit.exe -ClearIconCache Index: filemorph.pl ================================================================== --- filemorph.pl +++ filemorph.pl @@ -22,23 +22,13 @@ if ($Config{osname} eq "darwin") { my $frameworkpath = "$Bin/Contents/Frameworks/Tcl.framework/Tcl"; $ENV{'PERL_TCL_DL_PATH'} = $frameworkpath; } if ($Config{osname} eq "MSWin32") { - require Win32::GUI; - Win32::GUI->import(); - $DOS = Win32::GUI::GetPerlWindow(); - - Win32::GUI::Hide($DOS); - if (exists $ENV{PAR_PROGNAME}) { - my $libtarget = "$ENV{TMP}/lib"; - my $libsrc = "$ENV{PAR_TEMP}/inc/script/Tcl/lib"; - rmove($libsrc, $libtarget); - my $bintarget = "$ENV{TMP}/bin"; - my $binsrc = "$ENV{PAR_TEMP}/inc/script/Tcl/bin"; - rmove($binsrc, $bintarget); - } + my $frameworkpath = "$Bin/Tcl/bin/tcl86.dll"; + $ENV{'PERL_TCL_DL_PATH'} = $frameworkpath; + } } #use strict; @@ -542,14 +532,10 @@ exit; ###----subroutines sub shutdown { - - if (IS_WINDOWS) { - Win32::GUI::Show($DOS); - } &Tkx::exit; } sub makeImage { Index: versioninfo.rc ================================================================== --- versioninfo.rc +++ versioninfo.rc @@ -1,21 +1,21 @@ 1 VERSIONINFO -FILEVERSION 2, 5, 0, 0 -PRODUCTVERSION 2, 5, 0, 0 +FILEVERSION 2, 6, 0, 0 +PRODUCTVERSION 2, 6, 0, 0 FILEOS 4 FILETYPE 1 { BLOCK "StringFileInfo" { BLOCK "040904E4" { VALUE "FileDescription", "File modification tool" VALUE "OriginalFilename", "FileMorph" VALUE "CompanyName", "WordTech Communications LLC" - VALUE "FileVersion", "2.5.0" + VALUE "FileVersion", "2.6.0" VALUE "LegalCopyright", "(c) 2015 WordTech Communications LLc" VALUE "ProductName", "FileMorph" - VALUE "ProductVersion", "2.5.0" + VALUE "ProductVersion", "2.6.0" } } BLOCK "VarFileInfo" { VALUE "Translation", 0x409, 1252 } }