[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
|