Subversion Repositories or1k

#

# Old test suite for [incr Tcl] v1.5

# ----------------------------------------------------------------------

#   AUTHOR:  Michael J. McLennan

#            Bell Labs Innovations for Lucent Technologies

#            mmclennan@lucent.com

#            http://www.tcltk.com/itcl

#

#      RCS:  $Id: Baz.tcl,v 1.1.1.1 2002-01-16 10:24:47 markom Exp $

# ----------------------------------------------------------------------

#            Copyright (c) 1993-1998  Lucent Technologies, Inc.

# ======================================================================

# See the file "license.terms" for information on usage and

# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.

itcl_class Baz {

        #

        #  Avoid defining constructor/destructor

        #

        #

        #  Generic method for doing something in "Baz" interp

        #

        method do {cmds} {

                return "Baz says '[eval $cmds]'"

        }

}