Initial commit at Tue Sep 16 10:20:18 EDT 2014 by tim on stravinsky.tim.linglan.net

1 files changed, 7 insertions, 0 deletions

diff --git a/console.tcl b/console.tcl
new file mode 100644
index 0000000..2cf4da1
--- /dev/null
+++ b/console.tcl
@@ -0,0 +1,7 @@
+# Tcl commands to run in the console before qrouter is initialized
+ 
+slave alias qrouter::consoledown wm withdraw .
+slave alias qrouter::consoleup wm deiconify .
+slave alias qrouter::consoleontop raise .
+
+wm protocol . WM_DELETE_WINDOW {tkcon slave slave qrouter::lowerconsole}