filemorph

Tkx::focus(-force => $listbox);

if ($IS_AQUA) {
    &createAppleScriptCommands;
}

if ($IS_WINDOWS) {
    &createDDECommands;
}

Tkx::MainLoop();
exit;

###----subroutines

sub errlog {
    my $msg = shift;
    Tkx::tk___messageBox(
        -parent  => $mw,
        -title   => "Error",
        -icon    => "error",
        -message => $msg,
      )

}

#error message for selected file
sub fileErrMsg {

    errlog(

        Tkx::aem__installeventhandler("CoKv", "adTx", \&scriptAddText);
        Tkx::aem__installeventhandler("CoKv", "tmDa", \&scriptSetTime);
        Tkx::aem__installeventhandler("CoKv", "cTme", \&scriptFileTime);
    }
}

if ($IS_WINDOWS) {

    sub createDDECommands {
        Tkx::interp_alias("", "set_directory_path", "", [\&scriptSetDir]);
        Tkx::interp_alias("", "set_file_path", "", [\&scriptSetFile]);
        Tkx::interp_alias("", "set_old_extension",  "", [\&scriptOldExt]);
        Tkx::interp_alias("", "set_new_extension", "", [\&scriptNewExt]);
        Tkx::interp_alias("", "change_extension", "", [\&scriptChangeExt]);
        Tkx::interp_alias("", "set_old_text", "", [\&scriptOldText]);
        Tkx::interp_alias("", "set_new_text", "", [\&scriptNewText]);
        Tkx::interp_alias("", "change_text", "", [\&scriptChangeText]);
        Tkx::interp_alias("", "set_added_text",  "", [\&scriptAddedText]);
        Tkx::interp_alias("", "set_prefix_or_suffix", "",
            [\&scriptPrefixOrSuffix]);
        Tkx::interp_alias("", "add_text",  "", [\&scriptAddText]);
        Tkx::interp_alias("", "set_time",  "", [\&scriptSetTime]);
        Tkx::interp_alias("", "change_file_time", "", [\&scriptFileTime]);
    }
}

sub scriptSetDir {
    my $path = shift;

    #join with spaces
    foreach (@_) {

   end tell


'''Windows Scripting'''
 
Automating the application on Windows can be done using the Dynamic Data Exchange (DDE) protocol. The DDE protocol has several components, including a "Service," "Topic," and "Items." In FileMorph, the Service name is always TclEval (because that is the underlying name that the Tcl interpreter supports), the Topic name is FileMorph, and Items (data or return values) are not currently required. 

There are various programming languages on Windows in which one can write a DDE client to automate a DDE application, including Tcl, Python, VBA, C/C++, and others. An easy way to automate FileMorph from the command line is to install Chris Oldwood's free DDE Command tool from [http://www.chrisoldwood.com/win32.htm]. The tool can then be incorporated into a batch script such as the following: 

   @echo off
   set testdir  "C:/Users/kevin/Desktop/unitfiles"
   if exist %testdir% (
   rmdir %testdir%
   )
   xcopy "testsource" %testdir%