Initial commit

1 files changed, 36 insertions, 0 deletions

diff --git a/vendor/x11iraf/ximtool/gui.bak/tcl.tcl b/vendor/x11iraf/ximtool/gui.bak/tcl.tcl
new file mode 100644
index 00000000..44d5e04e
--- /dev/null
+++ b/vendor/x11iraf/ximtool/gui.bak/tcl.tcl
@@ -0,0 +1,36 @@
+
+################################################
+# Define some TCL debug procedures.
+################################################
+
+set tcl_up 0
+
+proc tclCommandClear {widget args}   { send tclEntry set string "" }
+proc tclCommandExecute {widget args} { send server [send tclEntry {get string}]
+}
+proc tclCommand {widget mode command args} { send server $command }
+proc tclClose {widget args}                { send tcl_panel unmap }
+proc tclOpen args \
+{ 
+    global tcl_up
+    send tcl_panel map 
+    set tcl_up 1
+}
+
+proc tclPanel args \
+{
+    global tcl_up
+    if {$tcl_up} {
+	send tcl_panel unmap
+	set tcl_up 0
+    } else {
+	send tcl_panel map
+	set tcl_up 1
+    }
+}
+
+send tclClear   addCallback tclCommandClear
+send tclExecute addCallback tclCommandExecute
+send tclEntry   addCallback tclCommand
+send tclDismiss addCallback tclClose
+