#
|
#
|
# 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: Baz.tcl,v 1.1.1.1 2002-01-16 10:24:47 markom Exp $
|
# RCS: $Id: Baz.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 Baz {
|
itcl_class Baz {
|
#
|
#
|
# Avoid defining constructor/destructor
|
# Avoid defining constructor/destructor
|
#
|
#
|
|
|
#
|
#
|
# Generic method for doing something in "Baz" interp
|
# Generic method for doing something in "Baz" interp
|
#
|
#
|
method do {cmds} {
|
method do {cmds} {
|
return "Baz says '[eval $cmds]'"
|
return "Baz says '[eval $cmds]'"
|
}
|
}
|
}
|
}
|
|
|