filemorph

 int main( int argc , char **argv , char **env ) 
{    
	// Get current module's full path

   TCHAR exedir [MAX_PATH] = "";
   GetModuleFileName( 0, exedir, MAX_PATH );

   // Remove file part for e.g. SomeExe.exe from C:/SomeProgram/SomeExe.exe
   // Remove file part 

   // include shlwapi.h and link to shlwapi.lib
   PathRemoveFileSpec(exedir);

  // char appdir = (char)exedir;
   //Change working directory to where exe is installed 

 //  chdir(appdir);

 SetCurrentDirectory(exedir);
   SetCurrentDirectory(exedir);

    // shift argv and force parameters

    int num_forced_parameters = 4;

    argc += num_forced_parameters;

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

    }

}

Tkx::MainLoop();
exit;

###----subroutines

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

sub makeImage {

    my $data = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xh
BQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA

    if ($appversion < $versionnumber) {
        if ($IS_AQUA) {
            &Tkx::softwareupdate__updatePitchPerl($appname,
                $versionnumber, $appversion, $changelog);
        }
        if ($IS_WINDOWS) {
            &Tkx::softwareupdate_winPitch($appname, $versionnumber,$appversion);
            &Tkx::softwareupdate__winPitch($appname, $versionnumber,
                $appversion);
        }

    }
    else {
        &Tkx::softwareupdate__upToDate();
    }
}

    wm deiconify .update
    raise .update
    wm transient .update .

}

proc winPitch {name newversion oldversion} {
    set answer [tk_messageBox  -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $currentapp. Would you like to download it now?" -type yesno
    set answer [tk_messageBox  -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $oldversion. Would you like to download it now?" -type yesno
	       ]

    switch -- $answer {
	yes {

	    xplat::launch http://www.codebykevin.com/$name.html
	}