1# 2# Old test suite for [incr Tcl] v1.5 3# ---------------------------------------------------------------------- 4# AUTHOR: Michael J. McLennan 5# Bell Labs Innovations for Lucent Technologies 6# mmclennan@lucent.com 7# http://www.tcltk.com/itcl 8# 9# RCS: $Id: BarFoo.tcl,v 1.1 1998/07/27 18:41:21 stanton Exp $ 10# ---------------------------------------------------------------------- 11# Copyright (c) 1993-1998 Lucent Technologies, Inc. 12# ====================================================================== 13# See the file "license.terms" for information on usage and 14# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. 15 16itcl_class BarFoo { 17 inherit Bar Foo 18 19 # 20 # Constructor/destructor add their name to a global var for 21 # tracking implicit constructors/destructors 22 # 23 constructor {config} { 24 global WATCH 25 lappend WATCH [namespace current] 26 } 27 destructor { 28 global WATCH 29 lappend WATCH [namespace current] 30 } 31} 32