#
|
#
|
# Old test suite for [incr Tcl] v1.5
|
# Old test suite for [incr Tcl] v1.5
|
# ----------------------------------------------------------------------
|
# ----------------------------------------------------------------------
|
# AUTHOR: Michael J. McLennan
|
# AUTHOR: Michael J. McLennan
|
# Bell Labs Innovations for Lucent Technologies
|
# Bell Labs Innovations for Lucent Technologies
|
# mmclennan@lucent.com
|
# mmclennan@lucent.com
|
# http://www.tcltk.com/itcl
|
# http://www.tcltk.com/itcl
|
#
|
#
|
# RCS: $Id: BarFoo.tcl,v 1.1.1.1 2002-01-16 10:24:47 markom Exp $
|
# RCS: $Id: BarFoo.tcl,v 1.1.1.1 2002-01-16 10:24:47 markom Exp $
|
# ----------------------------------------------------------------------
|
# ----------------------------------------------------------------------
|
# Copyright (c) 1993-1998 Lucent Technologies, Inc.
|
# Copyright (c) 1993-1998 Lucent Technologies, Inc.
|
# ======================================================================
|
# ======================================================================
|
# See the file "license.terms" for information on usage and
|
# See the file "license.terms" for information on usage and
|
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
|
itcl_class BarFoo {
|
itcl_class BarFoo {
|
inherit Bar Foo
|
inherit Bar Foo
|
|
|
#
|
#
|
# Constructor/destructor add their name to a global var for
|
# Constructor/destructor add their name to a global var for
|
# tracking implicit constructors/destructors
|
# tracking implicit constructors/destructors
|
#
|
#
|
constructor {config} {
|
constructor {config} {
|
global WATCH
|
global WATCH
|
lappend WATCH [namespace current]
|
lappend WATCH [namespace current]
|
}
|
}
|
destructor {
|
destructor {
|
global WATCH
|
global WATCH
|
lappend WATCH [namespace current]
|
lappend WATCH [namespace current]
|
}
|
}
|
}
|
}
|
|
|
