lib/tcl/console.tcl

   1 # Commands to run in the console prior to launching the
   2 # slave interpreter for XCircuit
   3 #
   4 # Since the TkCon window is not a necessity in XCircuit, we withdraw it
   5 # but set up commands which can be executed from the slave interpreter
   6 # that can be used to reinstate the console when necessary (such as
   7 # when the "%" key macro is typed).
   8 # (suggested by Joel Kuusk)
   9 #
  10 slave alias xcircuit::consoledown wm withdraw .
  11 slave alias xcircuit::consoleup wm deiconify .
  12 slave alias xcircuit::consoleontop raise .
  13 #
  14 # The setup is that tkcon is the master interpreter and the layout window
  15 # is the slave interpreter.  However, the end-user has the impression that
  16 # tkcon is a subsidiary window of the layout.  Thus, closing the console
  17 # window should pop down the console rather than forcing an immediate and
  18 # irrevocable exit from xcircuit.
  19
  20 wm protocol . WM_DELETE_WINDOW {tkcon slave slave xcircuit::lowerconsole}