5 # Copyright (c) 1996, Expert Interface Technologies
7 # See the file "license.terms" for information on usage and redistribution
8 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12 return "Testing tixMwm command"
16 if ![string compare [info command tixMwm] ""] {
17 puts "(OK) The tixMwm command is not available."
20 if ![tixMwm ismwmrunning .] {
21 puts "(OK) Mwm is not running on this display."
28 test {tixMwm protocol .d add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}}
29 wm protocol .d MY_PRINT_HELLO {puts Hello}
31 test {tixMwm protocol .e add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}}
32 wm protocol .e MY_PRINT_HELLO {puts Hello}
36 test {tixMwm protocol .e add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}}
37 wm protocol .e MY_PRINT_HELLO {puts Hello}
39 test {tixMwm protocol . delete MY_PRINT_HELLO}
40 wm protocol . MY_PRINT_HELLO {}
42 test {tixMwm protocol .e add MY_PRINT_HELLO {"Print Hello" _H Ctrl<Key>H}}
43 wm protocol .e MY_PRINT_HELLO {puts Hello}