equal
deleted
inserted
replaced
874 ! ! |
874 ! ! |
875 |
875 |
876 !Text methodsFor:'emphasis'! |
876 !Text methodsFor:'emphasis'! |
877 |
877 |
878 actionForAll:aBlock |
878 actionForAll:aBlock |
879 "change the color of all characters" |
879 "change the actionBlock of all characters. |
|
880 Some widgets use this like a href if clicked onto the text." |
880 |
881 |
881 self emphasisAllAdd:(#actionBlock -> aBlock). |
882 self emphasisAllAdd:(#actionBlock -> aBlock). |
882 |
883 |
883 " |
884 "transcript ignores this... |
884 Transcript showCR: |
885 Transcript showCR: |
885 ((Text string:'hello') actionForAll:[Transcript flash]) |
886 ((Text string:'hello - click on me') actionForAll:[Transcript flash]) |
|
887 " |
|
888 |
|
889 "labels also... |
|
890 Label new |
|
891 label: ((Text string:'hello - click on me') actionForAll:[Transcript flash]); |
|
892 open |
886 " |
893 " |
887 ! |
894 ! |
888 |
895 |
889 allBold |
896 allBold |
890 "make all characters bold" |
897 "make all characters bold" |
1673 ! ! |
1680 ! ! |
1674 |
1681 |
1675 !Text class methodsFor:'documentation'! |
1682 !Text class methodsFor:'documentation'! |
1676 |
1683 |
1677 version |
1684 version |
1678 ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.102 2009-10-10 12:06:33 cg Exp $' |
1685 ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.103 2009-10-22 12:38:58 cg Exp $' |
1679 ! |
1686 ! |
1680 |
1687 |
1681 version_CVS |
1688 version_CVS |
1682 ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.102 2009-10-10 12:06:33 cg Exp $' |
1689 ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.103 2009-10-22 12:38:58 cg Exp $' |
1683 ! ! |
1690 ! ! |
1684 |
1691 |
1685 Text initialize! |
1692 Text initialize! |