Posted to tcl by schelte at Fri Oct 25 17:53:41 GMT 2013view raw
- --- 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 ]"}