📄 mwm.tcl
字号:
# mwm.tcl --## Test tixMwm command.## Copyright (c) 1996, Expert Interface Technologies## See the file "license.terms" for information on usage and redistribution# of this file, and for a DISCLAIMER OF ALL WARRANTIES.#proc About {} { return "Testing tixMwm command"}proc Test {} { if ![string compare [info command tixMwm] ""] { puts "(OK) The tixMwm command is not available." return } if ![tixMwm ismwmrunning .] { puts "(OK) Mwm is not running on this display." return } toplevel .d toplevel .e test {tixMwm protocol .d add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}} wm protocol .d MY_PRINT_HELLO {puts Hello} test {tixMwm protocol .e add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}} wm protocol .e MY_PRINT_HELLO {puts Hello} test {destroy .d} test {tixMwm protocol .e add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}} wm protocol .e MY_PRINT_HELLO {puts Hello} test {tixMwm protocol . delete MY_PRINT_HELLO} wm protocol . MY_PRINT_HELLO {} test {tixMwm protocol .e add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}} wm protocol .e MY_PRINT_HELLO {puts Hello} test {destroy .e}}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -