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
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); |