null.tcl 536 Bytes
Newer Older
Leigh B. Stoller's avatar
Leigh B. Stoller committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
######################################################################
# null.tcl
#
# This defines the NullClass.  The NullClass is used for all classes
# created that we don't know about.  The NullClass will accept any
# method invocation with any arguments.  It will display an
# unsupported message in all such cases.
######################################################################

Class NullClass

NullClass instproc init {mytype} {
    $self set type $mytype
}

NullClass instproc unknown {m args} {
17
    punsup "$type $m"
Leigh B. Stoller's avatar
Leigh B. Stoller committed
18
}