ProtoObject subclass: #ClassProxy
	instanceVariableNames: 'className'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Class proxy example'!
!ClassProxy commentStamp: 'NouryBouraqadi 8/30/2010 11:15' prior: 0!
Evaluate the following. The last line causes the image to crash.

o := MyObject new.
o foo: 123.
p := ClassProxy new.
p become: MyObject.
o == nil.
o foo.
!
]style[(155)f1!


!ClassProxy methodsFor: 'messagehandling' stamp: 'NouryBouraqadi 8/30/2010 11:13'!
doesNotUnderstand: aMessage
	| reloadedClass |
	(FileStream fileNamed: className, '.st') fileIn.
	reloadedClass := Smalltalk at: className. 
	self becomeForward: reloadedClass.
	^aMessage sendTo: reloadedClass!
]style[(27 182)f2cblack;b,f2cblack;! !


!ClassProxy methodsFor: 'accessing' stamp: 'NouryBouraqadi 8/30/2010 10:53'!
become: aClass
	className := aClass name.
	aClass fileOut.
	super become: aClass! !


Object subclass: #MyObject
	instanceVariableNames: 'foo'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Class proxy example'!

!MyObject methodsFor: 'accessing' stamp: 'NouryBouraqadi 8/30/2010 10:59'!
foo
	^foo! !

!MyObject methodsFor: 'accessing' stamp: 'NouryBouraqadi 8/30/2010 10:59'!
foo: anObject
	foo := anObject!
]style[(13 17)f2cblack;b,f2cblack;! !