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: Geek.tcl,v 1.1 1998/07/27 18:41:23 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 Geek { 17 18 # 19 # Constructor/destructor add their name to a global var for 20 # tracking implicit constructors/destructors 21 # 22 constructor {config} { 23 global WATCH 24 lappend WATCH [namespace current] 25 } 26 destructor { 27 global WATCH 28 lappend WATCH [namespace current] 29 } 30 31 method do {cmds} { 32 return "Geek says '[eval $cmds]'" 33 } 34 35 method config {config} { 36 return $config 37 } 38 39 # 40 # Define variables that will be shadowed by another class. 41 # 42 public blat 43 protected _blat 44} 45