[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 }
    
 }