Attachment "tepam_demo_tcl.diff" to
ticket [3425269fff]
added by
stwo
2011-10-18 20:23:09.
--- examples/tepam/tepam_demo.tcl.orig Tue Jan 25 00:38:02 2011
+++ examples/tepam/tepam_demo.tcl Tue Oct 18 09:15:23 2011
@@ -1,6 +1,7 @@
-#!/bin/sh
-# Evaluating the wish origin \
-exec `which wish` "$0" "$@"
+#! /bin/sh
+# the next line restarts with tclsh \
+exec tclsh "$0" ${1+"$@"}
+
##########################################################################
# TEPAM - Tcl's Enhanced Procedure and Argument Manager
##########################################################################
@@ -161,6 +162,7 @@
set OPT(slaveexit) "close"
}
# Search inside the *n.x envirement for TkCon ...
+ set TkConPath ""
catch {set TkConPath [exec csh -f -c {which tkcon.tcl}]}
# Search inide the Windows envirement for TkCon ...
catch {
@@ -183,7 +185,7 @@
}
tkcon show
} else {
- if {$tcl_platform(platform)=={windows}} {
+ if {$::tcl_platform(platform)=={windows}} {
console show
} else {
error "Cannot source tkcon.tcl."
@@ -191,7 +193,7 @@
}
} else {
if {[catch {wm deiconify $::tkcon::PRIV(root)}]} {
- if {$tcl_platform(platform)=={windows}} {
+ if {$::tcl_platform(platform)=={windows}} {
console show
} else {
error "Cannot deiconify tkcon!"
