filemorph

Check-in [88faec51c7]
Login

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

Overview
Comment:Update main script
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 88faec51c7b147d37dc7dea9e920b84ce2470bf5
User & Date: kevin 2016-05-03 02:34:33
Context
2016-08-25
03:21
Tweak version info check-in: ee00fb9b6c user: kevin tags: trunk
2016-05-03
02:34
Update main script check-in: 88faec51c7 user: kevin tags: trunk
02:26
Update to 2.7 check-in: 8ad87fe272 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to filemorph.pl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
# FileMorph: Rename files, edit attributes

#Copyright (C) 2015 WordTech Communications LLC

#MIT license

#let's get started

use FindBin qw($Bin);
use Config;
use File::Spec::Functions;
use File::Copy::Recursive qw(dircopy );
use Env qw(HOME);
use File::Path qw(remove_tree);
use File::Copy::Recursive qw (rmove);
our $DOS;

print "FileMorph is starting up...\n";

BEGIN {

    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);
        my $frameworkpath = "$Bin/Tcl/bin/tcl86.dll";
        $ENV{'PERL_TCL_DL_PATH'} = $frameworkpath;

    }

}

#use strict;
use warnings;



|












<
<
<








<
<
<
<


<







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15



16
17
18
19
20
21
22
23




24
25

26
27
28
29
30
31
32
# FileMorph: Rename files, edit attributes

#Copyright (C) 2016 WordTech Communications LLC

#MIT license

#let's get started

use FindBin qw($Bin);
use Config;
use File::Spec::Functions;
use File::Copy::Recursive qw(dircopy );
use Env qw(HOME);
use File::Path qw(remove_tree);
use File::Copy::Recursive qw (rmove);




BEGIN {

    if ($Config{osname} eq "darwin") {
        my $frameworkpath = "$Bin/Contents/Frameworks/Tcl.framework/Tcl";
        $ENV{'PERL_TCL_DL_PATH'} = $frameworkpath;
    }
    if ($Config{osname} eq "MSWin32") {




        my $frameworkpath = "$Bin/Tcl/bin/tcl86.dll";
        $ENV{'PERL_TCL_DL_PATH'} = $frameworkpath;

    }

}

#use strict;
use warnings;

534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550

Tkx::MainLoop();
exit;

###----subroutines

sub shutdown {
    if (IS_WINDOWS) {
        Win32::GUI::Show($DOS);
    }
    &Tkx::exit;
}

sub makeImage {

    my $data = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xh
BQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA







<
<
<







526
527
528
529
530
531
532



533
534
535
536
537
538
539

Tkx::MainLoop();
exit;

###----subroutines

sub shutdown {



    &Tkx::exit;
}

sub makeImage {

    my $data = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xh
BQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
    $label2->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",
    );

    my $label3 = $aboutframe->new_label(
        -text => "Copyright (c) 2015 WordTech Communications LLC",
        -pady => "5",
    );

    $label3->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",







|







707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
    $label2->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",
    );

    my $label3 = $aboutframe->new_label(
        -text => "Copyright (c) 2016 WordTech Communications LLC",
        -pady => "5",
    );

    $label3->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
    &Tkx::machelp__userhelp;
}

#initialize the app
sub startUp {

    $appname    = 'FileMorph';
    $appversion = '2.6';
    &Tkx::machelp__setAppName($appname, $appversion);
    &Tkx::softwareupdate__setAppName($appname);
    &Tkx::softwareupdate__setVersion($appname, $appversion);

    #check for app support directory
    our $prefdir = Tkx::xplat__appconfig("FileMorph");
    mkdir $prefdir unless (-d $prefdir);







|







1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
    &Tkx::machelp__userhelp;
}

#initialize the app
sub startUp {

    $appname    = 'FileMorph';
    $appversion = '2.7';
    &Tkx::machelp__setAppName($appname, $appversion);
    &Tkx::softwareupdate__setAppName($appname);
    &Tkx::softwareupdate__setVersion($appname, $appversion);

    #check for app support directory
    our $prefdir = Tkx::xplat__appconfig("FileMorph");
    mkdir $prefdir unless (-d $prefdir);