File: console.tcl

package info (click to toggle)
qrouter 1.3.3-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 1,296 kB
  • ctags: 991
  • sloc: ansic: 11,638; sh: 7,448; makefile: 105; tcl: 3
file content (11 lines) | stat: -rw-r--r-- 431 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
# 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 .

# NOTE:  This is not recommended for qrouter, where everything runs
# off of the console.  If the console is closed, then the program
# should exit.
#
# wm protocol . WM_DELETE_WINDOW {tkcon slave slave qrouter::lowerconsole}