nsobject.tcl 677 Bytes
Newer Older
1
# -*- tcl -*-
Leigh Stoller's avatar
Leigh Stoller committed
2 3 4 5 6 7
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2002 University of Utah and the Flux Group.
# All rights reserved.
#

Leigh Stoller's avatar
Leigh Stoller committed
8 9 10 11 12 13 14 15 16 17 18 19 20
######################################################################
# nsobject.tcl
#
# This defines the class NSObject which most other classes derive from.
# Base defines the unknown procedure which deals with unknown 
# method calls.
######################################################################
Class NSObject

# unknown 
# This is invoked whenever any method is called on the object that is
# not defined.  We display a warning message and otherwise ignore it.
NSObject instproc unknown {m args} {
21
    punsup "[$self info class] $m"
22
}