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