[BUG] BFAV Fails to draw SystemWindow TextMorph

[tomkoenig at mindspring.com]

RunningPatchArchiveClientTest
The error report: 3 October 2004 3:07:35 pm

VM: Win32 - a SmalltalkImage
Image: Squeak3.8alpha [latest update: #6394]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Documents and Settings\Thomas Koenig\Desktop\Squeak
Trusted Dir C:\Documents and Settings\Thomas
Koenig\Desktop\Squeak\Thomas Koenig
Untrusted Dir C:\My Squeak\Thomas Koenig

UndefinedObject(Object)>>error:
	Receiver: nil
	Arguments and temporary variables: 
		aString: 	'MessageNotUnderstood:
UndefinedObject>>adaptToPoint:andSend:'
	Receiver's instance variables: 
nil

[] in WorldState>>displayWorldSafely: {[:err :rcvr |  errCtx :=
thisContext.  [errCtx := errCtx sender.  [errCtx no...]}
	Arguments and temporary variables: 
		aWorld: 	a PasteUpMorph(3838) [world]
		err: 	'MessageNotUnderstood: UndefinedObject>>adaptToPoint:andSend:'
		rcvr: 	nil
		errCtx: 	TextMorphForEditView(TextMorph)>>drawOn:
		errMorph: 	a TextMorphForEditView(3049)

BlockContext>>valueWithPossibleArgs:
	Receiver: [] in WorldState>>displayWorldSafely: {[:err :rcvr |  errCtx
:= thisContext.  [errCtx := e...etc...
	Arguments and temporary variables: 
		anArray: 	#('MessageNotUnderstood:
UndefinedObject>>adaptToPoint:andSend:' nil)
	Receiver's instance variables: 
		sender: 	BlockContext>>valueWithPossibleArgs:
		pc: 	113
		stackp: 	0
		nargs: 	2
		startpc: 	66
		home: 	WorldState>>displayWorldSafely:

[] in BlockContext>>ifError: {[:ex | errorHandlerBlock
valueWithPossibleArgs: {ex description. ex receiver}]}
	Arguments and temporary variables: 
		errorHandlerBlock: 	[] in WorldState>>displayWorldSafely: {[:err :rcvr
|  errCtx...etc...
		ex: 	MessageNotUnderstood: UndefinedObject>>adaptToPoint:andSend:


--- The full stack ---
UndefinedObject(Object)>>error:
[] in WorldState>>displayWorldSafely: {[:err :rcvr |  errCtx :=
thisContext.  [errCtx := errCtx sender.  [errCtx no...]}
BlockContext>>valueWithPossibleArgs:
[] in BlockContext>>ifError: {[:ex | errorHandlerBlock
valueWithPossibleArgs: {ex description. ex receiver}]}
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
BlockContext>>valueWithPossibleArgs:
[] in MethodContext(ContextPart)>>handleSignal: {[(self tempAt: 2)  
valueWithPossibleArgs: {exception}]}
BlockContext>>ensure:
MethodContext(ContextPart)>>handleSignal:
MessageNotUnderstood(Exception)>>signal
UndefinedObject(Object)>>doesNotUnderstand: #adaptToPoint:andSend:
Point>>-
MultiNewParagraph>>displayOn:using:at:
FormCanvas>>paragraph:bounds:color:
TextMorphForEditView(TextMorph)>>drawOn:
FormCanvas(Canvas)>>draw:
FormCanvas(Canvas)>>drawMorph:
[] in TextMorphForEditView(Morph)>>fullDrawOn: {[(aCanvas isVisible:
self bounds)   ifTrue: [aCanvas drawMorph: self].  self...]}
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
TextMorphForEditView(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in TransformMorph>>drawSubmorphsOn: {[:m | myCanvas fullDrawMorph:
m]}
Array(SequenceableCollection)>>reverseDo:
[] in TransformMorph>>drawSubmorphsOn: {[:myCanvas | submorphs  
reverseDo: [:m | myCanvas fullDrawMorph: m]]}
FormCanvas>>transformBy:clippingTo:during:smoothing:
TransformMorph>>drawSubmorphsOn:
[] in TransformMorph(Morph)>>fullDrawOn: {[(aCanvas isVisible: self
bounds)   ifTrue: [aCanvas drawMorph: self].  self...]}
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
TransformMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in PluggableTextMorph(Morph)>>drawSubmorphsOn: {[:m | canvas
fullDrawMorph: m]}
Array(SequenceableCollection)>>reverseDo:
[] in PluggableTextMorph(Morph)>>drawSubmorphsOn: {[:canvas | submorphs 
 reverseDo: [:m | canvas fullDrawMorph: m]]}
PluggableTextMorph(Morph)>>drawSubmorphsOn:
[] in PluggableTextMorph(Morph)>>fullDrawOn: {[(aCanvas isVisible: self
bounds)   ifTrue: [aCanvas drawMorph: self].  self...]}
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
PluggableTextMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in SystemWindow(Morph)>>drawSubmorphsOn: {[:m | canvas fullDrawMorph:
m]}
Array(SequenceableCollection)>>reverseDo:
[] in SystemWindow(Morph)>>drawSubmorphsOn: {[:canvas | submorphs  
reverseDo: [:m | canvas fullDrawMorph: m]]}
SystemWindow(Morph)>>drawSubmorphsOn:
...etc...