filemorph

Check-in [6210bf3a29]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tweak Windows build
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:6210bf3a29e22b6d3be7093c616f77d4220d9791
User & Date: kevin 2015-10-11 22:34:38
Context
2015-10-29
02:34
Update release to 2.5.0 check-in: 9e08133552 user: kevin tags: trunk
2015-10-11
22:34
Tweak Windows build check-in: 6210bf3a29 user: kevin tags: trunk
22:31
Fix for registration bug check-in: 1c19e9c194 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to filemorph.pl.

24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
        $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);







|







24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
        $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);