[BUG]TextEmphasis class(Object)>>doesNotUnderstand: #plain

caggiano at crystal-objects.com caggiano at crystal-objects.com
Thu Jan 29 16:33:59 UTC 2004


In a workspace do:
(StringMorph contents: 'a string') openInWorld.
Open the stringMorph Menu and select change emphasis>>plain

The Problem is that TextEmphasis's method for non-empasized text is
'normal'

To fix in StringMorph>>changeEmphasis change
aList #(#plain #bold #italic .... 
to
aList #(#normal #bold #italic ....

29 January 2004 11:20:04 am

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

TextEmphasis class(Object)>>doesNotUnderstand: #plain
	Receiver: TextEmphasis
	Arguments and temporary variables: 
		aMessage: 	plain
	Receiver's instance variables: 
		superclass: 	TextAttribute
		methodDict: 	a MethodDictionary(#=->a CompiledMethod (3882)
#dominatedByCmd0->a ...etc...
		format: 	134
		instanceVariables: 	#('emphasisCode' 'setMode')
		organization: 	('as yet unclassified' = dominatedByCmd0 dominates:
emphasisCode ...etc...
		subclasses: 	nil
		name: 	#TextEmphasis
		classPool: 	nil
		sharedPools: 	nil
		environment: 	nil
		category: 	nil

StringMorph>>changeEmphasis
	Receiver: a StringMorph(330)'a string'
	Arguments and temporary variables: 
		reply: 	#plain
		aList: 	#(#plain #bold #italic #narrow #underlined #struckOut)
	Receiver's instance variables: 
		bounds: 	42 at 216 corner: 88 at 228
		owner: 	a PasteUpMorph(1622) [world]
		submorphs: 	#()
		fullBounds: 	42 at 216 corner: 88 at 228
		color: 	Color black
		extension: 	a MorphExtension (219)
		font: 	nil
		emphasis: 	0
		contents: 	'a string'
		hasFocus: 	false

[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector
numArgs) = 0   ifTrue: [target perform: selector] ...]}
	Arguments and temporary variables: 
		evt: 	[105 at 440 mouseUp 16814872]
		selArgCount: 	0
		w: 	a PasteUpMorph(1622) [world]

BlockContext>>ensure:
	Receiver: [] in MenuItemMorph>>invokeWithEvent: {[(selArgCount :=
selector numArgs) = 0   ifTrue: [target perform: selector]
...]}...etc...
	Arguments and temporary variables: 
		aBlock: 	[] in CursorWithMask(Cursor)>>showWhile: {[oldcursor show]}
		returnValue: 	nil
	Receiver's instance variables: 
		sender: 	BlockContext>>ensure:
		pc: 	134
		stackp: 	0
		nargs: 	0
		startpc: 	124
		home: 	MenuItemMorph>>invokeWithEvent:


--- The full stack ---
TextEmphasis class(Object)>>doesNotUnderstand: #plain
StringMorph>>changeEmphasis
[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector
numArgs) = 0   ifTrue: [target perform: selector] ...]}
BlockContext>>ensure:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CursorWithMask(Cursor)>>showWhile:
MenuItemMorph>>invokeWithEvent:
MenuItemMorph>>mouseUp:
MenuItemMorph>>handleMouseUp:
MouseButtonEvent>>sentTo:
MenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuItemMorph(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...]}
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]}



More information about the Squeak-dev mailing list