mwm.tcl

来自「这是一个Linux下的集成开发环境」· TCL 代码 · 共 47 行

# 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}
}