Drag out a text from the supplies flap. Bring up the morphic menu select
'text color...'
press 'style' select ComicSansMS, press size button the walkback occurs.
Only occurs with ComicSansMS not with the other listed fonts.

10 February 2004 2:39:21 pm

VM: Win32 - a SmalltalkImage
Image: Squeak3.7alpha [latest update: #5657]

TTCFont(Object)>>doesNotUnderstand: #fontNameWithPointSize
	Receiver: TTCFont(ComicSansMS 12 Regular)
	Arguments and temporary variables: 
		aMessage: 	fontNameWithPointSize
	Receiver's instance variables: 
		ttcDescription: 	a TTFontDescription
		pointSize: 	12
		foregroundColor: 	Color black
		cache: 	#(nil)
		derivatives: 	nil

[] in TextStyle>>fontNamesWithPointSizes {[:x | x
fontNameWithPointSize]}
	Arguments and temporary variables: 
		x: 	TTCFont(ComicSansMS 12 Regular)

Array(SequenceableCollection)>>collect:
	Receiver: #(TTCFont(ComicSansMS 9 Regular) TTCFont(ComicSansMS 12
Regular) TTCFont(ComicSansMS 15 Regular) TTCFont(ComicSansMS 24
Regular...etc...
	Arguments and temporary variables: 
		aBlock: 	[] in TextStyle>>fontNamesWithPointSizes {[:x | x
fontNameWithPointSize]}...etc...
		newCollection: 	#(MessageNotUnderstood: TTCFont>>fontNameWithPointSize
nil nil nil nil)...etc...
		index: 	2
		indexLimiT: 	5
	Receiver's instance variables: 
#(TTCFont(ComicSansMS 9 Regular) TTCFont(ComicSansMS 12 Regular)
TTCFont(ComicSansMS 15 Regular) TTCFont(ComicSansMS 24 Regular...etc...

TextStyle>>fontNamesWithPointSizes
	Receiver: a TextStyle ComicSansMS
	Arguments and temporary variables: 
		x: 	TTCFont(ComicSansMS 12 Regular)
	Receiver's instance variables: 
		fontArray: 	#(TTCFont(ComicSansMS 9 Regular) TTCFont(ComicSansMS 12
Regular) TTCFont(ComicSansMS 15 Regular) TTCFont(ComicSansMS 24 Regular)
TTCFont(ComicSansMS 36 Regular))...etc...
		fontFamilySize: 	nil
		lineGrid: 	14
		baseline: 	11
		alignment: 	0
		firstIndent: 	0
		restIndent: 	0
		rightIndent: 	0
		tabsArray: 	#(24 48 72 96 120 144 168 192 216 240 264 288 312 336 360
384 408 432 456 480 504 528 552 576 600 624 648 672 696 720)...etc...
		marginTabsArray: 	#(#(24 24) #(48 48) #(72 72) #(96 96) #(120 120)
#(144 144) #(168 168) #(192 192) #(216 216) #(240 240) #(264 264) #(288
288) #(312...etc...
		leading: 	2
		defaultFontIndex: 	1


--- The full stack ---
TTCFont(Object)>>doesNotUnderstand: #fontNameWithPointSize
[] in TextStyle>>fontNamesWithPointSizes {[:x | x
fontNameWithPointSize]}
Array(SequenceableCollection)>>collect:
TextStyle>>fontNamesWithPointSizes
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
TextPropertiesMorph>>offerFontMenu
[] in SimpleButtonMorph>>doButtonAction {[target perform: actionSelector
withArguments: arguments]}
BlockContext>>ensure:
CursorWithMask(Cursor)>>showWhile:
SimpleButtonMorph>>doButtonAction
SimpleButtonMorph>>mouseUp:
SimpleButtonMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
SimpleButtonMorph(Morph)>>handleEvent:
SimpleButtonMorph(Morph)>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self. 
ActiveEvent := anEvent.  result := focusHolder     han...]}
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h
processEvents.  h isGenieRecognizing   ifTrue: [r...]}
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]}