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: Geek.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 Geek {

        #

        #  Constructor/destructor add their name to a global var for

        #  tracking implicit constructors/destructors

        #

        constructor {config} {

                global WATCH

                lappend WATCH [namespace current]

        }

        destructor {

                global WATCH

                lappend WATCH [namespace current]

        }

        method do {cmds} {

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

        }

        method config {config} {

                return $config

        }

        #

        #  Define variables that will be shadowed by another class.

        #

        public blat

        protected _blat

}