Posted to tcl by schelte at Fri Oct 25 17:53:41 GMT 2013view raw

  1. --- ezsdxv98b.vfs/lib/app-ezsdx/ezsdx.tcl 2013-10-09 18:20:49.000000000 +0200
  2. +++ ezsdx.tcl 2013-10-25 19:48:31.173293760 +0200
  3. @@ -1,4 +1,5 @@
  4. package provide app-ezsdx 1.0
  5. + package require Tk
  6.  
  7. # Load included code to copy required files to starkit's folder
  8. package require included
  9. @@ -285,7 +286,7 @@
  10.  
  11. proc run { } {
  12. global _EZS
  13. - set kit [f2b [pwd]\\$_EZS(kitname)]
  14. + set kit [file join [pwd] $_EZS(kitname)]
  15. # puts -nonewline "\n--- executing run $kit using: \n"
  16. # puts "exec $_EZS(nameexecutable) $kit &"
  17. set msg "exec $_EZS(nameexecutable)"
  18. @@ -303,7 +304,7 @@
  19. msgbox "File $_EZS(kitname) is not a .kit file!"
  20. return
  21. }
  22. - set kit [f2b [pwd]\\$_EZS(kitname)]
  23. + set kit [file join [pwd] $_EZS(kitname)]
  24. # set msg "--- $verb $kitname using:"
  25. # puts_log $msg
  26. # sdx.kit wrap helloWorld.exe -runtime tclkitsh-win32.upx.exe
  27. @@ -318,7 +319,7 @@
  28.  
  29. proc runexe { } {
  30. global _EZS
  31. - set exe [f2b [pwd]\\$_EZS(kitnameonly).exe]
  32. + set exe [file join [pwd] $_EZS(kitnameonly).exe]
  33. if {[file exists $exe]} {
  34. # set msg "file does exist"
  35. # puts_log $msg
  36. @@ -357,7 +358,7 @@
  37.  
  38. set _EZS(kitname) [file tail $file]
  39. set _EZS(kitnamedir) [file dirname $file]
  40. - set _EZS(kitnamedirb) [f2b $_EZS(kitnamedir)]
  41. + set _EZS(kitnamedirb) $_EZS(kitnamedir)
  42. set _EZS(kitnameext) [file extension $file]
  43. set _EZS(kitnameonly) [file rootname $_EZS(kitname) ]
  44. set _EZS(kitnamevfs) "$_EZS(kitnameonly).vfs"
  45. @@ -600,10 +601,6 @@
  46.  
  47. }
  48.  
  49. -proc f2b { v } { return [regsub -all {/} $v {\\}] };# END-PROC
  50. -
  51. -proc b2f { v } { return [regsub -all {\\} $v {/}] };# END-PROC
  52. -
  53. proc plist {varname {channel stdout}} {
  54. #=================================================================
  55. # plist - Print a List
  56. @@ -756,7 +753,7 @@
  57. } ;# END-proc
  58.  
  59. proc mapwin { {item .ftxt.ftxt0.fn} } {
  60. - console eval { wm deiconify .}
  61. +# console eval { wm deiconify .}
  62. update idletasks
  63. raise .ftxt.ftxt0
  64. # focus .
  65. @@ -776,6 +773,9 @@
  66. # plist h
  67. if {[llength $h] == 0 } { return }
  68.  
  69. + # Remove any menu attached to the window
  70. + $window configure -menu ""
  71. +
  72. puts_log "Yup! found kids of . to kill"
  73. puts_log "Destroying .." nr
  74. foreach w $h {
  75. @@ -1056,9 +1056,9 @@
  76. puts_log "$_EZS(executed)"
  77.  
  78.  
  79. -# set _EZS(nameexecutable) [f2b [info nameofexecutable]]
  80. -# set _EZS(nameexecutable) "[f2b [pwd]/tclkit-8.5.8-runwin32.upx.exe]"
  81. - set _EZS(nameexecutable) "[f2b [pwd]/tclkit-8.6.0-runwin32.upx.exe]"
  82. +# set _EZS(nameexecutable) [info nameofexecutable]
  83. +# set _EZS(nameexecutable) "[file join [pwd] tclkit-8.5.8-runwin32.upx.exe]"
  84. + set _EZS(nameexecutable) "[file join [pwd] tclkit-8.6.0-runwin32.upx.exe]"
  85. puts_log "_EZS(nameexecutable) will be used to run programs"
  86. puts_log "$_EZS(nameexecutable)"
  87.  
  88. @@ -1071,8 +1071,8 @@
  89. # under the Edit menu.
  90. # You can see a discussion of this on "console -font?" at
  91. # http://wiki.tcl.tk/36843
  92. - console eval {font configure TkConsoleFont -size 10 }
  93. - console eval {wm geometry . 93x11 }
  94. +# console eval {font configure TkConsoleFont -size 10 }
  95. +# console eval {wm geometry . 93x11 }
  96. # console eval {.console config -font {{Courier New} 9} }
  97. # toplevel .console
  98. # console eval { puts "winfo id .console [winfo id .console ]"}