This command is part of the [TclX] package.
    :   '''edprocs''' ?''proc ...''?
This procedure writes the named procedures, or all currently defined procedures, to a temporary file, then calls an editor on it (as specified by the `EDITOR` [env]ironment variable, or [vi] if none is specified), then [source]s the file back in if it was changed.


----

[TS] Use patch_edprocs_for_windows to make it working with WinXP.


 #
 # patches tclx edprocs for use with windows (XP) 
 #
 # todo: check for existence of /tmp/ and env(SystemRoot) 
 #
 # ts 030713 ($Id: 1997,v 1.7 2003-07-14 08:00:18 jcw Exp $)
 #
 proc patch_edprocs_for_windows {} {
    
    set edprocs [showproc edprocs]
    
    # default editor for windows is notepad instead of vi
    set newlines {
        if {[string compare $::tcl_platform(platform) "windows"] == 0} {
            set editor [file join $env(SystemRoot) notepad.exe]
        } else {
            set editor vi
        }
    }
    
    # do patch, insert new lines 
    regsub {set editor vi} $edprocs $newlines edprocs
    # use exec instead of system
    regsub {system "\$editor \$tmpFilename"} $edprocs {exec $editor $tmpFilename} edprocs
    
    # replace proc 
    eval $edprocs
    
    # create alias proc without ...s
    proc edproc {args} { eval edprocs $args }
    
 }


----
!!!!!!
%| [Category Command] | [Category TclX] |%
!!!!!!