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

frank at crystal-objects.com frank at crystal-objects.com
Sat Feb 7 07:51:15 UTC 2004


StringMorph>>changeEmphasis
	| reply aList |
	aList _ #(normal bold italic narrow underlined struckOut).
	aList _ #(plain bold italic narrow underlined struckOut).
	reply _ (SelectionMenu labelList: aList selections: aList) startUp.
	reply ifNotNil:[
		self emphasis: (TextEmphasis perform: reply) emphasisCode.
	].



More information about the Squeak-dev mailing list