I dragged a curve, embedded a text into it and selected the textWrap to 
bounds item of the text and boum....

Stef

5 July 2004 11:13:12 pm

VM: unix - a SmalltalkImage
Image: Squeak3.7beta [latest update: #5967]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /Volumes/Data/Users/ducasse/Workspace/FirstCircle/SqDemoes
Trusted Dir 
/Volumes/Data/Users/ducasse/Workspace/FirstCircle/SqDemoes/secure
Untrusted Dir 
/Volumes/Data/Users/ducasse/Workspace/FirstCircle/SqDemoes/untrusted

TextContainer(Object)>>doesNotUnderstand: #right
	Receiver: a TextContainer
	Arguments and temporary variables:
		aMessage: 	right
	Receiver's instance variables:
		textMorph: 	a TextMorph<Text>(3561)
		shadowForm: 	Form(257x175x1)
		vertProfile: 	#(42 52 59 61 67 74 79 85 90 96 101 106 111 114 118 122 
126 133 13...etc...
		minWidth: 	28
		rectangleCache: 	a Dictionary(#(316 14)->an OrderedCollection(279 at 316 
corner: 30...etc...
		fillsOwner: 	true
		avoidsOcclusions: 	false

NewParagraph>>adjustRightX
	Receiver: a NewParagraph
	Arguments and temporary variables:
		shrink: 	nil
		line: 	nil
	Receiver's instance variables:
		text: 	a Text for 'http://www.squeak.org/. squeak is somehow quite 
cooooool. The...etc...
		textStyle: 	a TextStyle Accuny12
		firstCharacterIndex: 	1
		container: 	a TextContainer
		lines: 	#(a TextLine 1 to: 5 a TextLine 6 to: 22 a TextLine 23 to: 48 
a TextLine...etc...
		positionWhenComposed: 	nil
		offsetToEnd: 	259
		maxRightX: 	356
		selectionStart: 	nil
		selectionStop: 	nil
		wantsColumnBreaks: 	false
		focused: 	nil

TextMorph>>paragraph
	Receiver: a TextMorph<Text>(3561)
	Arguments and temporary variables:

	Receiver's instance variables:
		bounds: 	107 at 316 corner: 364 at 491
		owner: 	a CurveMorph<Curve>(1892)
		submorphs: 	#()
		fullBounds: 	107 at 316 corner: 364 at 491
		color: 	Color black
		extension: 	a MorphExtension (3028) [externalName = Text ]  [other:  
(autoFitCon...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Accuny12
		text: 	a Text for 'http://www.squeak.org/. squeak is somehow quite 
cooooool. The...etc...
		wrapFlag: 	true
		paragraph: 	a NewParagraph
		editor: 	nil
		container: 	a TextContainer
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil

TextMorph>>composeToBounds
	Receiver: a TextMorph<Text>(3561)
	Arguments and temporary variables:

	Receiver's instance variables:
		bounds: 	107 at 316 corner: 364 at 491
		owner: 	a CurveMorph<Curve>(1892)
		submorphs: 	#()
		fullBounds: 	107 at 316 corner: 364 at 491
		color: 	Color black
		extension: 	a MorphExtension (3028) [externalName = Text ]  [other:  
(autoFitCon...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Accuny12
		text: 	a Text for 'http://www.squeak.org/. squeak is somehow quite 
cooooool. The...etc...
		wrapFlag: 	true
		paragraph: 	a NewParagraph
		editor: 	nil
		container: 	a TextContainer
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil


--- The full stack ---
TextContainer(Object)>>doesNotUnderstand: #right
NewParagraph>>adjustRightX
TextMorph>>paragraph
TextMorph>>composeToBounds
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
TextMorph>>wrapFlag:
TextMorph>>wrapOnOff
[] in UpdatingMenuItemMorph(MenuItemMorph)>>invokeWithEvent: 
{[(selArgCount := selector numArgs) = 0   ifTrue: [target perform: 
selector] ...]}
BlockContext>>ensure:
CursorWithMask(Cursor)>>showWhile:
UpdatingMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
UpdatingMenuItemMorph(MenuItemMorph)>>mouseUp:
UpdatingMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
UpdatingMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
UpdatingMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.  
ActiveEvent := anEvent.  result := focusHolder     han...]}
[] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]}
BlockContext>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h 
processEvents.  capturingGesture := capturingGest...]}
...etc...