Status: Accepted
Owner:
[hidden email]
CC:
[hidden email]
New issue 5659 by
[hidden email]: Text does not understand style:
http://code.google.com/p/pharo/issues/detail?id=5659changeStyle
"Let user change styles for the current text pane."
| names reply style current menuList |
current := TextStyle default copy.
names := TextStyle actualTextStyles keys.
menuList := names collect: [ :styleName |
styleName = current name
ifTrue: [ '<on>', styleName ]
ifFalse: [ '<off>', styleName ]].
reply := UIManager default chooseFrom: menuList values: names.
reply ifNotNil: [
(style := TextStyle named: reply) ifNil: [Beeper beep. ^ true].
self text style: style.
self paragraph textStyle: style.
self paragraph composeAll.
self recomputeSelection].
^ true
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker