"
By the way...here's a cute goody that might be of some use...you can use it
to put in watch points or modify parameters and returned values of already
existing methods for particular objects.  The file is Monitor.st...the test
program is m.st
"

Object subclass: #Monitor
       instanceVariableNames: 'object'
       classVariableNames: ''
       poolDictionaries: ''
       category: 'Monitoring' !

Monitor comment:
'I am not a part of the normal Smalltalk kernel class system.  I provide the
ability to monitor message sends to any object.  My ancestor is the Autoload
class.  Subclasses of me define what to do when messages are sent' !

!Monitor class methodsFor: 'instance creation'!

onObject: anObject
    ^self new init: anObject
!!


!Monitor methodsFor: 'accessing'!

doesNotUnderstand: aMessage
    | s |
    ^aMessage reinvokeFor: object
!!



!Monitor methodsFor: 'private'!

init: anObject
    object _ self.
    anObject become: self.
!!

Monitor superclass: nil!	"force undefined methods"