filemorph

Check-in [48fe7eaa15]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add command line scripts
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:48fe7eaa15f84aab7816671cea4ff2801ed16c8a
User & Date: kevin 2020-04-10 13:46:42
Context
2020-04-17
02:03
Add update user help check-in: aa83c60991 user: kevin tags: trunk
2020-04-10
13:46
Add command line scripts check-in: 48fe7eaa15 user: kevin tags: trunk
2020-03-28
01:48
More tweaks check-in: 92c1d79950 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added filemorph-add-to-name.bat.





































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
:::FileMorph-add-to-name   -- batch interface to FileMorph.  2020 Kevin Walzer/WordTech Communications LLC.

::check to see if FileMorph is running

call ddecmd servers | findstr "FileMorph" 
If %ERRORLEVEL% EQU 1  start FileMorph.lnk
 
::check to see if run with or without args

if "%~1"=="" (
  exit
) else (
timeout 5
call DDECmd execute --server TclEval --topic FileMorph --command "set_directory_path %1"
call ddecmd execute --server TclEval --topic FileMorph --command "set_added_text %2"
call ddecmd execute --server TclEval --topic FileMorph --command "set_prefix_or_suffix %3"
call ddecmd execute --server TclEval --topic FileMorph --command "add_text"
)

Added filemorph-change-extension.bat.







































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
:::filemorph-change-extension   -- batch interface to FileMorph.  2020 Kevin Walzer/WordTech Communications LLC.

::check to see if FileMorph is running

call ddecmd servers | findstr "FileMorph" 
If %ERRORLEVEL% EQU 1  start FileMorph.lnk
 
::check to see if run with or without args

if "%~1"=="" (
  exit
) else (
timeout 5
call DDECmd execute --server TclEval --topic FileMorph --command "set_directory_path %1"
call ddecmd execute --server TclEval --topic FileMorph --command "set_old_extension %2"
call ddecmd execute --server TclEval --topic FileMorph --command "set_new_extension %3"
call ddecmd execute --server TclEval --topic FileMorph --command "change_extension"
)
)

Added filemorph-change-text.bat.





































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
:::FileMorph-change-text  -- batch interface to FileMorph.  2020 Kevin Walzer/WordTech Communications LLC.

::check to see if FileMorph is running

call ddecmd servers | findstr "FileMorph" 
If %ERRORLEVEL% EQU 1  start FileMorph.lnk
 
::check to see if run with or without args

if "%~1"=="" (
  exit
) else (
timeout 5
call DDECmd execute --server TclEval --topic FileMorph --command "set_directory_path %1"
call ddecmd execute --server TclEval --topic FileMorph --command "set_old_text %2"
call ddecmd execute --server TclEval --topic FileMorph --command "set_new_text %3"
call ddecmd execute --server TclEval --topic FileMorph --command "change_text"
)

Changes to filemorph.pl.

484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
        -side   => "top",
    );
}

$textframe->add($listframe);
$textframe->add($noteframe);

#$mw->g_wm_geometry("900x800");
$mw->g_wm_deiconify;

Tkx::after(50);

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








<







484
485
486
487
488
489
490

491
492
493
494
495
496
497
        -side   => "top",
    );
}

$textframe->add($listframe);
$textframe->add($noteframe);


$mw->g_wm_deiconify;

Tkx::after(50);

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