Patch for ezsdx.tcl

--- ezsdxv98b.vfs/lib/app-ezsdx/ezsdx.tcl	2013-10-09 18:20:49.000000000 +0200
+++ ezsdx.tcl	2013-10-25 19:48:31.173293760 +0200
@@ -1,4 +1,5 @@
     package provide app-ezsdx 1.0
+    package require Tk
 
     #  Load included code to copy required files to starkit's folder
     package require included
@@ -285,7 +286,7 @@
 
 proc run  { } {
 	global _EZS
-	set kit [f2b [pwd]\\$_EZS(kitname)]
+	set kit [file join [pwd] $_EZS(kitname)]
 #	puts -nonewline "\n--- executing run $kit using: \n"
 #	puts "exec $_EZS(nameexecutable) $kit &"
 	set msg  "exec $_EZS(nameexecutable)"
@@ -303,7 +304,7 @@
 		msgbox "File $_EZS(kitname) is not a .kit file!"
 		return
 	} 
-	set kit [f2b [pwd]\\$_EZS(kitname)]
+	set kit [file join [pwd] $_EZS(kitname)]
 #	set msg "--- $verb $kitname using:"
 #	puts_log $msg
 #	sdx.kit wrap helloWorld.exe -runtime tclkitsh-win32.upx.exe
@@ -318,7 +319,7 @@
 
 proc runexe  { } {
 	global _EZS
-	set exe [f2b [pwd]\\$_EZS(kitnameonly).exe]
+	set exe [file join [pwd] $_EZS(kitnameonly).exe]
 	if  {[file exists $exe]} {
 #		set msg  "file does    exist"
 #		puts_log $msg
@@ -357,7 +358,7 @@
 
 	set _EZS(kitname)						[file tail $file]
 	set _EZS(kitnamedir)						[file dirname $file]
-	set _EZS(kitnamedirb)						[f2b $_EZS(kitnamedir)]
+	set _EZS(kitnamedirb)						$_EZS(kitnamedir)
 	set _EZS(kitnameext)						[file extension  $file]
 	set _EZS(kitnameonly)						[file rootname $_EZS(kitname) ]
 	set _EZS(kitnamevfs)						"$_EZS(kitnameonly).vfs"
@@ -600,10 +601,6 @@
 	
   }
 
-proc f2b  { v } { return [regsub -all {/}  $v {\\}] };# END-PROC
-
-proc b2f  { v } { return [regsub -all {\\} $v {/}] };# END-PROC
-
 proc plist {varname {channel stdout}} {
   #=================================================================
   # plist - Print a List
@@ -756,7 +753,7 @@
 } ;# END-proc
 
 proc mapwin { {item .ftxt.ftxt0.fn} } {
-	console eval { wm deiconify .}
+#	console eval { wm deiconify .}
 	update idletasks
 	raise .ftxt.ftxt0
 #	focus .
@@ -776,6 +773,9 @@
 #	plist h
 	if {[llength $h] == 0 } { return }
 
+	# Remove any menu attached to the window
+	$window configure -menu ""
+
 	puts_log "Yup! found kids of . to kill"
 	puts_log "Destroying .." nr
 	foreach w $h {
@@ -1056,9 +1056,9 @@
 	puts_log "$_EZS(executed)"
 
 
-#	set _EZS(nameexecutable)    [f2b [info nameofexecutable]]
-# 	set _EZS(nameexecutable)    "[f2b [pwd]/tclkit-8.5.8-runwin32.upx.exe]"
- 	set _EZS(nameexecutable)    "[f2b [pwd]/tclkit-8.6.0-runwin32.upx.exe]"
+#	set _EZS(nameexecutable)    [info nameofexecutable]
+# 	set _EZS(nameexecutable)    "[file join [pwd] tclkit-8.5.8-runwin32.upx.exe]"
+ 	set _EZS(nameexecutable)    "[file join [pwd] tclkit-8.6.0-runwin32.upx.exe]"
 	puts_log "_EZS(nameexecutable) will be used to run programs"
 	puts_log "$_EZS(nameexecutable)"
 
@@ -1071,8 +1071,8 @@
 #	  under the Edit menu.
 #   You can see a discussion of this on "console -font?" at
 #	  http://wiki.tcl.tk/36843
-	console eval {font configure TkConsoleFont -size 10 }
-	console eval {wm geometry . 93x11 }
+#	console eval {font configure TkConsoleFont -size 10 }
+#	console eval {wm geometry . 93x11 }
 #	console eval {.console config -font {{Courier New} 9} }
 #	toplevel .console
 #	console eval { puts "winfo id .console [winfo id .console ]"}