changeset 6701 | a6021a918f97 |
parent 6604 | 89a0c07bbba9 |
child 6714 | 136b3a63926a |
6700:47dc0c6fb70d | 6701:a6021a918f97 |
---|---|
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1991 by Claus Gittinger |
2 COPYRIGHT (c) 1991 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
162 ! |
160 ! |
163 |
161 |
164 defaultLatin1SampleString |
162 defaultLatin1SampleString |
165 "return the sample latin1 preview text" |
163 "return the sample latin1 preview text" |
166 |
164 |
167 ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©' |
165 ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©' |
168 ! |
166 ! |
169 |
167 |
170 defaultSampleStringForEncoding:enc |
168 defaultSampleStringForEncoding:enc |
171 |string lines| |
169 |string lines| |
172 |
170 |
206 "return the sample unicode preview text" |
204 "return the sample unicode preview text" |
207 |
205 |
208 |t| |
206 |t| |
209 |
207 |
210 t := (self defaultAsciiSampleString) , ' |
208 t := (self defaultAsciiSampleString) , ' |
211 diaresis: äöüÄÖÜß accents: éèêåÅ |
209 diaresis: äöüÄÖÜß accents: éèêåÅ |
212 special: ' , #(16r20AC) asUnicodeString , ' ', |
210 special: ' , #(16r20AC) asUnicodeString , ' ', |
213 'math: ' , #(16r2200 16r2203 16r221E 16r2208 16r2209) asUnicodeString , ' |
211 'math: ' , #(16r2200 16r2203 16r221E 16r2208 16r2209) asUnicodeString , ' |
214 cyrillic: ' , #(16r440 16r443 16r441 16r441 16r43A 16r438 16r439 16r20 16r44F 16r437 16r44B 16r43A) asUnicodeString , ' |
212 cyrillic: ' , #(16r440 16r443 16r441 16r441 16r43A 16r438 16r439 16r20 16r44F 16r437 16r44B 16r43A) asUnicodeString , ' |
215 greek: ' , #(16r395 16r3BB 16r3BB 16r3B7 16r3BD 16r3B9 16r3BA 16r3AC) asUnicodeString , ' |
213 greek: ' , #(16r395 16r3BB 16r3BB 16r3B7 16r3BD 16r3B9 16r3BA 16r3AC) asUnicodeString , ' |
216 hebrew: ' , #(16r5E9 16r5DC 16r5D5 16r5DD) reversed asUnicodeString , ' |
214 hebrew: ' , #(16r5E9 16r5DC 16r5D5 16r5DD) reversed asUnicodeString , ' |
887 changeInAllCheckBox helpKey:#changeInAllTextViews. |
885 changeInAllCheckBox helpKey:#changeInAllTextViews. |
888 |
886 |
889 updateHeight := |
887 updateHeight := |
890 [ |
888 [ |
891 self sensor |
889 self sensor |
892 pushUserEvent:#value |
890 pushAction:[ |
893 for:[ |
|
894 |filterBoxHeight| |
891 |filterBoxHeight| |
895 |
892 |
896 filterBoxHeight := filterBox preferredHeight. |
893 filterBoxHeight := filterBox preferredHeight. |
897 previewAndFontSelectionPanel layout bottomOffset:(filterBoxHeight negated - 10). |
894 previewAndFontSelectionPanel layout bottomOffset:(filterBoxHeight negated - 10). |
898 filterBox layout topOffset:(filterBoxHeight negated). |
895 filterBox layout topOffset:(filterBoxHeight negated). |