blob: ef48e2968ef169978ca69f4451208d808edefd73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#
# 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$
# ----------------------------------------------------------------------
# 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 Mongrel {
inherit FooBar 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]
}
public blit nonnull
public tag
}
|