File: console.tcl

package info (click to toggle)
qrouter 1.3.108-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 1,440 kB
  • sloc: ansic: 15,489; sh: 7,504; makefile: 137; 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}