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
...
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
...
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
....
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
# 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;

................................................................................

Tkx::MainLoop();
exit;

###----subroutines

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

sub makeImage {

    my $data = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xh
BQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA
................................................................................
    $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",
................................................................................
    &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);


|












<
<
<








<
<
<
<


<







 







<
<
<







 







|







 







|







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
...
526
527
528
529
530
531
532



533
534
535
536
537
538
539
...
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
....
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
# 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;

................................................................................

Tkx::MainLoop();
exit;

###----subroutines

sub shutdown {



    &Tkx::exit;
}

sub makeImage {

    my $data = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xh
BQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA
................................................................................
    $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",
................................................................................
    &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);