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: Bar.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 Bar { 17 # 18 # Constructor/destructor add their name to a global var for 19 # tracking implicit constructors/destructors 20 # 21 constructor {config} { 22 global WATCH 23 lappend WATCH [namespace current] 24 } 25 destructor { 26 global WATCH 27 lappend WATCH [namespace current] 28 } 29 30 method config {config} { 31 return $config 32 } 33 34 # 35 # Define variables that will be shadowed by another class. 36 # 37 public blit 38 protected _blit 39} 40