cmderror.tcl

这是一个Linux下的集成开发环境

# cmderror.tcl --
#
#	This program tests whether command handler errors are processed
#	properly by the Tix toolkit.
#
# 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 command handler errors are processed properly"
}

proc Test {} {
    global cmdHandlerCalled

    if {![string compare [info command tixCmdErrorHandler] ""]} {
	if ![auto_load tixCmdErrorHandler] {
	    TestAbort "toolkit error: procedure \"tixCmdErrorHandler\" not implemented"
	}
    }
    rename tixCmdErrorHandler _default_tixCmdErrorHandler
    proc tixCmdErrorHandler {msg} {
	global cmdHandlerCalled
	set cmdHandlerCalled 1
    }

    # We cause an error to occur in the -command handler of the combobox
    # widget. Such an error shouldn't cause the operation to fail.
    # See the programmer's documentation of tixCmdErrorHandler for details.
    #
    catch {
	tixComboBox .c -command CmdNotFound
	.c invoke
	set cmdNotFailed 1
    }
    Assert {[info exists cmdNotFailed]}
    Assert {[info exists cmdHandlerCalled]}

    # Clean up
    #
    destroy .c
    rename tixCmdErrorHandler ""
    rename _default_tixCmdErrorHandler tixCmdErrorHandler
    unset cmdHandlerCalled

}