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: |
88faec51c7b147d37dc7dea9e920b84c |
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 | # FileMorph: Rename files, edit attributes | | < < < < < < < < | 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 | Tkx::MainLoop(); exit; ###----subroutines sub shutdown { | < < < | 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 | $label2->g_pack( -fill => "both", -expand => "no", -side => "top", ); my $label3 = $aboutframe->new_label( | | | 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 | &Tkx::machelp__userhelp; } #initialize the app sub startUp { $appname = 'FileMorph'; | | | 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); |
︙ | ︙ |