filemorph

 <key>NSPrincipalClass</key>
        <string>NSApplication</string>
<key>NSHighResolutionCapable</key>
	<true/>
	<key>LSMinimumSystemVersionByArchitecture</key>
	<dict>
	<key>x86_64</key>
	<string>10.11</string>
	</dict>
	<key>LSArchitecturePriority</key>
<array>
<string>x86_64</string>
</array>
	<key>LSApplicationCategoryType</key>
	<string>public.app-category.utilities</string>

	<key>CFBundlePackageType</key>
	<string>APPL</string>
	<key>CFBundleShortVersionString</key>
	<string>$1</string>
	<key>CFBundleVersion</key>
	<string>$1</string>
	<key>LSMinimumSystemVersion</key>
	<string>10.11</string>
	<key>LSRequiresCarbon</key>
	<true/>	
	<key>NSSupportsAutomaticTermination</key>
	<string>YES</string>
	<key>NSSupportsSuddenTermination</key>
	<string>YES</string>
  <key>SUFeedURL</key>

   [application]
    name=FileMorph
    dependencies=myapp_dependencies
    main=filemorph.pl

    [myapp_default]
    language=default
    name=FileMorph
    version=2.5.0

    [myapp_dependencies]
    scandeps=myapp_scandeps

    [myapp_scandeps]
    script=filemorph.pl
    compile=true

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

}

#use strict;
use warnings;

use Time::Local;
use POSIX qw( strftime );
use File::Basename qw(fileparse basename dirname);
use LWP::Simple;
use Config::IniFiles;
use File::Temp qw(tempfile);

Tkx::set( '::argv0', $ARGV[0] || "" );
Tkx::catch('console hide');

Tkx::package_require('tkdnd');
Tkx::package_require('Img');
Tkx::package_require('regproc');
Tkx::package_require('machelp');
Tkx::package_require('softwareupdate');

our $clocktime;
our $modtime;
our $timeofday;
our $icon;
our $fileimage;
our $folderimage;

$datetime = strftime( "% m/%d/ % Y", localtime );

#initialize the app
&startUp;
&makeImage;

@filelist = ();

if ($IS_AQUA) {
    Tkx::interp_alias( "", "::tk::mac::OpenDocument", "", [ \&openDoc ] );
    Tkx::interp_alias( "", "::tk::mac::ShowHelp",     "", [ \&showHelp ] );
    Tkx::interp_alias( "", "bgerror",                 "", [ \&errlog ] );
}

if ($IS_WINDOWS) {
    Tkx::package_require("twapi");
}

#draw the GUI
our $mw = Tkx::widget->new(".");
Tkx::wm_title( $mw, "FileMorph" );
$mw->g_wm_withdraw;
if ($IS_WINDOWS) {
    $mw->g_wm_protocol( WM_DELETE_WINDOW => \&shutdown );
    $mw->g_wm_iconphoto( -default => $icon );
}

#menubar code
my $menubar = $mw->new_menu();
Tkx::option_add( "*tearOff", 0 );
our $applemenu;
if ($IS_AQUA) {
    $applemenu = $menubar->new_menu( -name => "apple" );
}
my $searchmenu = $menubar->new_menu();
my $helpmenu = $menubar->new_menu( -name => "help" );

if ($IS_AQUA) {
    $menubar->add_cascade(
        -label => "FileMorph",
        -menu  => $applemenu,
    );

    );
    $helpmenu->add_command(
        -label   => "Check for Updates",
        -command => \&checkUpdate,
    );
}

$mw->configure( -menu => $menubar );

#bindings
if ($IS_AQUA) {
    $mw->g_bind( "<Command-W>", sub { $mw->g_wm_state("withdrawn"); } );
    $mw->g_bind( "<Command-w>", sub { $mw->g_wm_state("withdrawn"); } );
}

#main window frame, listbox and notebook

my $toolbar = $mw->new_ttk__frame( -padding => 5 );
$toolbar->g_pack(
    -fill   => "both",
    -expand => "no",
    -side   => "top",
);

my $folderbutton = $toolbar->new_ttk__button(
    -image     => $folderimage,
    -style     => "Toolbutton",
    -takefocus => 0,
    -command   => \&setDir,
);
$folderbutton->g_pack(
    -expand => "no",
    -fill   => "both",
    -side   => "left"
);

Tkx::DynamicHelp__register( $folderbutton, "balloon", "Select the directory" );

my $filebutton = $toolbar->new_ttk__button(
    -image     => $fileimage,
    -style     => "Toolbutton",
    -takefocus => 0,
    -command   => \&setFile,
);

$filebutton->g_pack(
    -expand => "no",
    -fill   => "both",
    -side   => "left"
);

Tkx::DynamicHelp__register( $filebutton, "balloon", "Select the file" );

my $sep = $toolbar->new_ttk__separator( -orient => "vertical" );
$sep->g_pack(
    -fill   => "both",
    -expand => "no",
    -side   => "top",
);

my $frame = $mw->new_ttk__frame;

$frame->g_pack(
    -fill   => "both",
    -expand => "yes",
    -side   => "bottom",
);

my $topsep = $frame->new_ttk__separator( -orient => "vertical" );
$topsep->g_pack(
    -fill   => "both",
    -expand => "no",
    -side   => "top",
);

my $textframe = $frame->new_ttk__panedwindow( -orient => "horizontal", );

$textframe->g_pack(
    -fill   => "both",
    -expand => "yes",
    -side   => "top",
);

);
$listbox->g_pack(
    -fill   => "both",
    -expand => "yes",
    -side   => "left",
);

Tkx::tkdnd__drop___target_register( $listbox, "*" );
Tkx::bind( $listbox, "<<Drop:DND_Files>>",
    [ sub { &selectFileSystem; }, Tkx::Ev("%D") ] );

my $noteframe = $textframe->new_ttk__frame;
$noteframe->g_pack(
    -fill   => "both",
    -expand => "yes",
    -side   => "right",
);

my $scrollhouse = $boxframe->new_ttk__frame;
$scrollhouse->g_pack(
    -fill   => "y",
    -expand => "no",
    -side   => "right",
);

my $scrollbar = $scrollhouse->new_ttk__scrollbar( -orient => 'vertical' );
$scrollbar->configure( -command => [ $listbox, "yview" ] );
$scrollbar->g_pack(
    -fill   => "y",
    -expand => "no",
    -side   => "right",
);

$listbox->configure( -yscrollcommand => [ $scrollbar, "set" ] );

#notebook components
my $extension   = $notebook->new_ttk__frame;
my $replacement = $notebook->new_ttk__frame;
my $text        = $notebook->new_ttk__frame;
my $date        = $notebook->new_ttk__frame;
my $case        = $notebook->new_ttk__frame;
my $attributes  = $notebook->new_ttk__frame;

#UI to modify file extensions
$notebook->add( $extension, -text => "Extension" );
my $exsrclabel = $extension->new_ttk__label( -text => "Extension:" );
my $exsrcentry = $extension->new_ttk__entry( -textvar => \$sourceext );
my $extargetlabel =
  $extension->new_ttk__label( -text => "New Extension Name:" );
my $extargetentry = $extension->new_ttk__entry( -textvar => \$targetext );
my $extchange = $extension->new_ttk__button(
    -text    => "Change",
    -command => \&changeExtension
);
my $extundo = $extension->new_ttk__button(
    -text    => "Undo",
    -command => \&undoExtension
);
my $extclear = $extension->new_ttk__button(
    -text    => "Clear",
    -command => sub { $sourceext = ""; $targetext = ""; }
);

our @extarray = (
    $exsrclabel, $exsrcentry, $extargetlabel, $extargetentry,
    $extchange, $extundo, $extclear
);

foreach (@extarray) {
    $_->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",
    );
}

#UI to replace text in file name
$notebook->add( $replacement, -text => "Replace Text" );
my $repsrclabel = $replacement->new_ttk__label( -text => "Text:" );
my $repsrcentry = $replacement->new_ttk__entry( -textvar => \$srcstring );
my $reptargetlabel =
  $replacement->new_ttk__label( -text => "Replacement Text:" );
my $reptargetentry = $replacement->new_ttk__entry( -textvar => \$targetstring );
my $repbutton = $replacement->new_ttk__button(
    -text    => "Change",
    -command => \&replaceString
);
my $repundo = $replacement->new_ttk__button(
    -text    => "Undo",
    -command => \&undoReplaceString
);
my $repclear = $replacement->new_ttk__button(
    -text    => "Clear",
    -command => sub { $srcstring = ""; $targetstring = ""; },
);

our @reparray = (
    $repsrclabel, $repsrcentry, $reptargetlabel, $reptargetentry,
    $repbutton, $repundo, $repclear
);

foreach (@reparray) {
    $_->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",
    );
}

#UI to add text to file name
$notebook->add( $text, -text => "Add Text" );
my $txtsrclabel = $text->new_ttk__label( -text => "Text:" );
my $txtsrcentry = $text->new_ttk__entry( -textvar => \$prependstring );
my $txtbefore = $text->new_ttk__radiobutton(
    -text     => "Before",
    -variable => \$prepend,
    -value    => 0
);
my $txtafter = $text->new_ttk__radiobutton(
    -text     => "After",
    -variable => \$prepend,
    -value    => 1
);
my $txtbutton =
  $text->new_ttk__button( -text => "Change", -command => \&addString );
my $txtundo = $text->new_ttk__button(
    -text    => "Undo",
    -command => \&undoAddString
);
my $txtclear = $text->new_ttk__button(
    -text    => "Clear",
    -command => sub { $prependstring = ""; }
);

$prepend = 1;

our @txtarray = (
    $txtsrclabel, $txtsrcentry, $txtbefore, $txtafter,
    $txtbutton,   $txtundo,     $txtclear
);

foreach (@txtarray) {
    $_->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",
    );
}

#UI to modify file attributes
$notebook->add( $attributes, -text => "Date" );

my $todaylabel = $attributes->new_ttk__label( -text => "Date:", );
my $today = $attributes->new_widget__dateentry(
    -textvariable => \$datetime,
    -font         => \&Tkx::TkDefaultFont
);
my $timelabel = $attributes->new_ttk__label(
    -text => "Time (enter HH:MM, military-style, i.e. 23:00 for 11:00 PM)", );

my $timeentry = $attributes->new_ttk__entry( -textvariable => \$clocktime, );
my $attbutton = $attributes->new_ttk__button(
    -text    => "Change",
    -command => \&changeTime
);

our @attarray = ( $todaylabel, $today, $timelabel, $timeentry, $attbutton );

foreach (@attarray) {
    $_->g_pack(
        -fill   => "both",
        -expand => "no",
        -side   => "top",
    );

if ($IS_AQUA) {
    Tkx::fullscreen__fullscreen($mw);
}

Tkx::after(50);

Tkx::regproc__readLic( $appname, $appversion );

#This is necessary to get the listbox to draw; sometimes it does not render until the mouse hovers over it
Tkx::focus( -force => $listbox );

if ($IS_AQUA) {
    &createAppleScriptCommands;
}

Tkx::MainLoop();
exit;

LPn+DvFm3yEO1npKvqflTPvelmAHwH8AtJzPuEp4NAYnVANOnPZumzGjcr1ZO0/y
XSdBwFlx+1vFy0ID8NPX1dmx50yw85lDcigCT6nHgReJoM3TBHjQD4w7OeMR2WFe
w6c9HzQ/0nLBeuDObzRqZvaMONzMzHYFtpXt6/ONT9/8qPvl7Xu7CJ4ptvks8vzn
Rh7MMzQfd+eHMVWayECoHnd4B5/gLNmx+X7r++u+1tnW2X/6VEv3/46cOHdi/9Hm
5s/Odl9CG36qy3+n7cNBwLT/cZc0xhw2TSQBG/FY/qKh68eX3Db72Nybao/vOdDc
iv8jJFiCpmSL1XvYCU504f8ByyY/CIX5bZoAAAAASUVORK5CYII=
";
    $icon = Tkx::image_create_photo( -data => $data );

    my $folderdata = "
                R0lGODlhGAAYAPABAAAAAP///yH5BAEKAAEAIf4aQ3JlYXRlZCB3aXRoIEdJTVAg
b24gYSBNYWMALAAAAAAYABgAAAI1hI8Wy70JgZshJurOtFzmHm0ghJXVZVJkKo7u
C8cr28z0g944ojP2/aMFWcNU0SRLxk5KSQEAOw==
";
    $folderimage = Tkx::image_create_photo( -data => $folderdata );

    my $filedata = "
                R0lGODlhEgAYAPABAAAAAP///yH5BAEKAAEAIf4aQ3JlYXRlZCB3aXRoIEdJTVAg
b24gYSBNYWMALAAAAAASABgAAAI1hI8Qy5GvmoNJHjkv0+1tg0EL93nkSJ1ZioVV
270wisyl6tb2Cu6eL5v9bENhEJZKKpdMQwEAOw==
                ";
    $fileimage = Tkx::image_create_photo( -data => $filedata );

}

#check filelist for error handling
sub checkfilelist {

    if ( scalar(@filelist) == 0 ) {

        errlog("Please select a file or directory to run this operation.");

    }
}

#"about application"command
sub Tkx::tkAboutDialog {

    our $about = $mw->new_toplevel;
    Tkx::wm_title( $about, "About FileMorph" );

    my $aboutframe  = $about->new_frame;
    my $buttonframe = $about->new_frame;

    $aboutframe->g_pack(
        -fill   => "both",
        -expand => "yes",

"Cannot run operation without text.Please enter text into the appropriate entry field to run this operation."
    );
}

#update display of files
sub updateFileDisplay {

    $listbox->delete( 0, "end" );
    if ( scalar(@filelist) > 1 ) {
        @filelist = <"$folder/*">;
    }
    foreach (@filelist) {
        $listbox->insert( "end", "$_" );
    }
}

#set search directory
sub setDir {
    $listbox->delete( 0, "end" );
    $folder = Tkx::tk___chooseDirectory( -parent => $mw );
    return unless $folder;
    @filelist = <"$folder/*">;
    foreach (@filelist) {
        $listbox->insert( "end", "$_" );
    }
    return "$folder";
}

#set file to change
sub setFile {

    $listbox->delete( 0, "end" );
    my $filename = Tkx::tk___getOpenFile( -parent => $mw );
    return unless $filename;
    @filelist = ();
    push( @filelist, $filename );
    foreach (@filelist) {
        $listbox->insert( "end", "$_" );
    }
    return @filelist;
}

#change all file extensions in a directory
sub changeExtension {

    &checkfilelist;

    return if ( scalar(@filelist) == 0 );

    if ( scalar(@filelist) == 1 ) {

        &fileErrMsg;
        return;
    }

    if ( $exsrcentry->get() eq "" || $extargetentry->get() eq "" ) {
        &dataErrMsg;
        return;
    }

    $sourceext = $exsrcentry->get();
    $targetext = $extargetentry->get();

}

#undo operation of change file extension
sub undoExtension {

    &checkfilelist;

    return if ( scalar(@filelist) == 0 );

    if ( scalar(@filelist) == 1 ) {

        &fileErrMsg;
        return;
    }

    if ( $exsrcentry->get() eq "" || $extargetentry->get() eq "" ) {
        &dataErrMsg;
        return;
    }

    $sourceext = $exsrcentry->get();
    $targetext = $extargetentry->get();

}

#replace string in file name
sub replaceString {

    &checkfilelist;

    return if ( scalar(@filelist) == 0 );

    if ( scalar(@filelist) == 1 ) {

        &fileErrMsg;
        return;
    }

    if ( $repsrcentry->get() eq "" ) {
        &dataErrMsg;
        return;
    }

    $srcstring    = $repsrcentry->get();
    $targetstring = $reptargetentry->get();

    if ( $reptargetentry->get() eq "" ) {
        my $changeQuestion;
        $changeQuestion = Tkx::tk___messageBox(
            -parent => $mw,
            -title  => "Confirm Removal of Text",
            -type   => "yesno",
            -icon   => "info",
            -message =>
              "Do you want to strip out \"$srcstring\"with no replacement?",
            -detail => "This operation cannot be undone.",
        );

        if ( $changeQuestion eq "no" ) {
            return;
        }
    }

    foreach (@filelist) {
        next unless -f $_;
        my $filename    = $_;
        my $newfilename = $filename;
        $newfilename =~ s/$srcstring/$targetstring/ig;
        move $filename, $newfilename;
    }
    &updateFileDisplay;
}

#undo replace string in filename
sub undoReplaceString {

    &checkfilelist;

    return if ( scalar(@filelist) == 0 );

    if ( scalar(@filelist) == 1 ) {

        &fileErrMsg;
        return;
    }

    if ( $repsrcentry->get() eq "" ) {
        &dataErrMsg;
        return;
    }

    if ( $reptargetentry->get() eq "" ) {
        my $sorryQuestion;
        $sorryQuestion = Tkx::tk___messageBox(
            -parent  => $mw,
            -title   => "Removal Operation Cannot Be Undone",
            -icon    => "info",
            -message => "You confirmed removing the string \"$srcstring.\"",
            -detail  => "This operation cannot be undone.",

}

#replace string in file name
sub addString {

    &checkfilelist;

    return if ( scalar(@filelist) == 0 );

    if ( scalar(@filelist) == 1 ) {

        &fileErrMsg;
        return;
    }

    if ( $txtsrcentry->get() eq "" ) {
        &dataErrMsg;
        return;
    }

    $prependstring = $txtsrcentry->get();

    foreach (@filelist) {
        next unless -f $_;
        if ( $prepend == 0 ) {

            my $filename    = $_;
            my $newname     = $filename;
            my $basename    = basename($filename);
            my $dirname     = dirname($filename);
            my $newbasename = $basename;
            $newbasename = $prependstring . $basename;
            $newname =~ s/$basename/$newbasename/i;
            move $filename, $newname;
        }

        if ( $prepend == 1 ) {
            my $filename = $_;

            my @components = split( /\./, $filename );
            my $newname =
              $components[0] . $prependstring . "\." . $components[1];
            move $filename, $newname;
        }
    }
    &updateFileDisplay;
}

#replace string in file name
sub undoAddString {

    &checkfilelist;

    return if ( scalar(@filelist) == 0 );

    if ( scalar(@filelist) == 1 ) {

        &fileErrMsg;
        return;
    }

    if ( $txtsrcentry->get() eq "" ) {
        &dataErrMsg;
        return;
    }

    $prependstring = $txtsrcentry->get();

    foreach (@filelist) {

}

#change modification time of files
sub changeTime {

    &checkfilelist;
    my $validation = &validateTime;
    return if ( $validation == 0 );
    return if ( scalar(@filelist) == 0 );

    my $changeQuestion;
    $changeQuestion = Tkx::tk___messageBox(
        -parent  => $mw,
        -title   => "Change Modification Time",
        -type    => "yesno",
        -icon    => "info",
        -message => "Do you want to change the file modification time?",
        -detail  => "This operation cannot be undone.",
    );

    if ( $changeQuestion eq "no" ) {
        return;
    }
    if ( $changeQuestion eq "yes" ) {
        my @datearray  = split( /\//, $datetime );
        my @clockarray = split( /\:/, $clocktime );
        my $hour;
        my $second = "00";
        if ( $timeofday == 1 ) {
            $hour = $clockarray[0] + 12;
        }
        else {
            $hour = $clockarray[0];
        }

        $modtime =
          timelocal( $second, $clockarray[1], $hour,
            $datearray[1], ( $datearray[0] - 1 ),
            $datearray[2] );
        print $modtime;

        foreach (@filelist) {

            utime $modtime, $modtime, $_;
        }

    }
}

#make sure time is formatted properly
sub validateTime {

    my $time = $timeentry->get();
    if ( $time =~ (/\d\d:\d\d/) ) {
        return 1;
    }
    else {
        $timeentry->delete( 0, "end" );

        Tkx::tk___messageBox(
            -parent  => $mw,
            -title   => "Incorrect Time Format",
            -icon    => "info",
            -message => "Incorrect Time Format",
            -detail  => "Please enter the time in HH:MM format, i.e. 12:30.",

sub selectFileSystem {

    my $fname = shift;
    my @name  = Tkx::SplitList($fname);
    my $path  = join "", @name;
    $folder = $path;

    if ( -f $folder ) {
        $listbox->delete( 0, "end" );
        @filelist = ();
        push( @filelist, $folder );
        foreach (@filelist) {
            $listbox->insert( "end", "$_" );
        }
    }

    if ( -d $folder ) {

        $listbox->delete( 0, "end" );
        @filelist = <"$folder/*">;
        foreach (@filelist) {
            $listbox->insert( "end", "$_" );
        }

        return $folder;
    }

    return $folder;
}

    &Tkx::machelp__userhelp;
}

#initialize the app
sub startUp {

    $appname    = 'FileMorph';
    $appversion = '2.5';
    &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 );
}

#check version of installed software
sub checkUpdate {

    &Tkx::softwareupdate__setIcon($icon);
    &Tkx::softwareupdate__checkingForUpdates;

    my $url    = "http://www.codebykevin.com/filemorph.ini";
    my $tmp    = new File::Temp( UNLINK => 1, SUFFIX => ".ini" );
    my $parser = get($url);
    print $tmp $parser;
    close $tmp;

    my $cfg = Config::IniFiles->new(
        -file          => $tmp,
        -allowcontinue => 1

            -detail =>
"An error occurred in retrieving update information.\nPlease try again later",
        );
        return;

      };

    my $versionnumber = $cfg->val( 'application', 'version' );
    $versionnumber = substr( $versionnumber, 0, -2 );
    my $minOS     = $cfg->val( 'application', 'osversion' );
    my $changelog = $cfg->val( 'application', 'changelog' );

    if ($IS_AQUA) {

        my $hostOS = `sw_vers -productVersion`;

        if ( $hostOS < $minOS ) {
            Tkx::tk___messageBox(
                -parent  => $mw,
                -title   => "Error",
                -type    => "ok",
                -icon    => "warning",
                -message => "Error!",
                -detail =>
"FileMorph is not supported on Mac OS X $hostOS. The minimum supported OS version is $minOS.",
            );
        }
    }

    if ( $appversion < $versionnumber ) {
        &Tkx::softwareupdate__updatePitchPerl( $appname,
            $versionnumber, $appversion, $changelog );
    }
    else {
        &Tkx::softwareupdate__upToDate();
    }
}

#-----AppleScript handlers------$

if ($IS_AQUA) {

    sub createAppleScriptCommands {
        Tkx::aem__installeventhandler( "CoKv", "fMdr", \&scriptSetDir );
        Tkx::aem__installeventhandler( "CoKv", "fMfl", \&scriptSetFile );
        Tkx::aem__installeventhandler( "CoKv", "oExt", \&scriptOldExt );
        Tkx::aem__installeventhandler( "CoKv", "nExt", \&scriptNewExt );
        Tkx::aem__installeventhandler( "CoKv", "rExt", \&scriptChangeExt );
        Tkx::aem__installeventhandler( "CoKv", "oTxt", \&scriptOldText );
        Tkx::aem__installeventhandler( "CoKv", "nTxt", \&scriptNewText );
        Tkx::aem__installeventhandler( "CoKv", "cTxt", \&scriptChangeText );
        Tkx::aem__installeventhandler( "CoKv", "beTx", \&scriptAddedText );
        Tkx::aem__installeventhandler( "CoKv", "afTx", \&scriptPrefixOrSuffix );
        Tkx::aem__installeventhandler( "CoKv", "adTx", \&scriptAddText );
        Tkx::aem__installeventhandler( "CoKv", "tmDa", \&scriptSetTime );
        Tkx::aem__installeventhandler( "CoKv", "cTme", \&scriptFileTime );
    }
}

sub scriptSetDir {
    my $path = shift;

    #join with spaces
    foreach (@_) {
        $path = $_ . ' ';
    }

    $folder = $path;

    if ( -f $folder ) {
        $listbox->delete( 0, "end" );
        @filelist = ();
        push( @filelist, $folder );
        foreach (@filelist) {
            $listbox->insert( "end", "$_" );
        }
    }

    if ( -d $folder ) {

        $listbox->delete( 0, "end" );
        @filelist = <"$folder/*">;
        foreach (@filelist) {
            $listbox->insert( "end", "$_" );
        }

        return $folder;
    }

    return $folder;
}

sub scriptAddText {
    &addString;
}

sub scriptSetTime {
    my $time;
    $time = shift;
    my @datearray = split( /\//, $time );
    $modtime =
      timelocal( "00", "00", "00", $datearray[1], ( $datearray[0] - 1 ),
        $datearray[2] );
}

sub scriptFileTime {
    return if ( scalar(@filelist) == 0 );
    foreach (@filelist) {
        utime $modtime, $modtime, $_;
    }
}

#------end of subroutines---------

 * Resource Hacker for final modification of Windows executable. [http://angusj.com/resourcehacker/]
 

-------------------
title: FileMorph Version History
alias: History

'''2.5 (October 30, 2015):'''
 * Improvements in Windows installer. 
 * Fix bug in image display on OS X.

'''2.4 (October 10, 2015):'''
 * Initial release for Windows.
 * Improvement in modification of file dates.
 
'''2.3 (August 16, 2015):'''
 * Bug fixes in serial registration process.
 * Cleanup of startup and shutdown functions.