[Etoys] [BUG]TextMorph avoid occlusions

[karl]

When a TextMorph accepts drops and you try to select avoid occlusions in 
the handle menu it give a walkback.
When you select avoid occlusions in a text morph with no dropped morph 
it disappears.

Karl
-------------- next part --------------
Error: subscript is out of bounds: 0
1 November 2007 1:31:55 pm

VM: Win32 - a SmalltalkImage
Image: etoys2.2 [latest update: #1737]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Documents and Settings\Karl\Skrivbord\Ny mapp (2)
Trusted Dir C:\Documents and Settings\Karl\Skrivbord\Ny mapp (2)\Karl
Untrusted Dir C:\My Squeak\Karl

ByteString(Object)>>error:
	Receiver: 'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...
	Arguments and temporary variables: 
		aString: 	'subscript is out of bounds: 0'
	Receiver's instance variables: 
'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...
ByteString(Object)>>errorSubscriptBounds:
	Receiver: 'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...
	Arguments and temporary variables: 
		index: 	0
	Receiver's instance variables: 
'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...
ByteString(Object)>>at:
	Receiver: 'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...
	Arguments and temporary variables: 
		index: 	0
	Receiver's instance variables: 
'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...
ByteString>>at:
	Receiver: 'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...
	Arguments and temporary variables: 
		index: 	0
	Receiver's instance variables: 
'TTextMorphs support display of text with emphasis.  They also support reasonable text-edi...etc...

--- The full stack ---
ByteString(Object)>>error:
ByteString(Object)>>errorSubscriptBounds:
ByteString(Object)>>at:
ByteString>>at:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Text>>at:
CharacterBlockScanner>>characterBlockAtPoint:index:in:
MultiNewParagraph(NewParagraph)>>characterBlockAtPoint:
TextMorph>>enterClickableRegion:
TextMorph>>mouseMove:
TextMorph>>handleMouseMove:
MouseMoveEvent>>sentTo:
TextMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
TextMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
PasteUpMorph(Morph)>>processEvent:using:
PasteUpMorph>>processEvent:using:
PasteUpMorph(Morph)>>processEvent:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h processEvents.  capturingGesture := capturingGest...]}
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor yield.  false] whileFalse.  nil]}
[] in BlockContext>>newProcess {[self value.  Processor terminateActive]}