home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / itcl1_31.z / itcl1_31 / tcldev / itcl-1.3 / tests / FooBar.tcl < prev    next >
Encoding:
Text File  |  1993-09-23  |  776 b   |  28 lines
  1. #
  2. # Test class for [incr Tcl] test suite
  3. # ----------------------------------------------------------------------
  4. #   AUTHOR:  Michael J. McLennan       Phone: (215)770-2842
  5. #            AT&T Bell Laboratories   E-mail: aluxpo!mmc@att.com
  6. #
  7. #     SCCS:  @(#)FooBar.tcl    1.1 (7/15/93)
  8. # ----------------------------------------------------------------------
  9. #            Copyright (c) 1993  AT&T  All Rights Reserved
  10. # ======================================================================
  11.  
  12. itcl_class FooBar {
  13.     inherit Foo Bar
  14.  
  15.     #
  16.     #  Constructor/destructor add their name to a global var for
  17.     #  tracking implicit constructors/destructors
  18.     #
  19.     constructor {config} {
  20.         global WATCH
  21.         lappend WATCH [info class]
  22.     }
  23.     destructor {
  24.         global WATCH
  25.         lappend WATCH [info class]
  26.     }
  27. }
  28.