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: Baz.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 Baz { 17 # 18 # Avoid defining constructor/destructor 19 # 20 21 # 22 # Generic method for doing something in "Baz" interp 23 # 24 method do {cmds} { 25 return "Baz says '[eval $cmds]'" 26 } 27} 28