--- a/FontPanel.st Fri Mar 05 20:05:27 2004 +0100
+++ b/FontPanel.st Fri Mar 05 20:19:15 2004 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
@@ -154,32 +152,13 @@
'The quick brown fox
jumps over the lazy dog.
-' , (self defaultAsciiSampleString) ,
-(UnicodeString fromString:(#(16r65E5 16r672C 16r8A9E) collect:[:c | Character value:c]))
+å,ž'
!
defaultLatin1SampleString
"return the sample latin1 preview text"
- |t|
-
- t := (self defaultAsciiSampleString) ,
-(Character value:16rE4) asString , "/ umlaut a
-(Character value:16rF6) asString , "/ umlaut o
-(Character value:16rFC) asString , "/ umlaut u
-(Character value:16rC4) asString , "/ umlaut A
-(Character value:16rD6) asString , "/ umlaut O
-(Character value:16rDC) asString , "/ umlaut U
-(Character value:16rDF) asString , "/ sz
-(Character value:233) asString , "/ e-degu
-(Character value:232) asString , "/ e-grave
-(Character value:234) asString , "/ e-circonflex
-(Character value:197) asString , "/ A
-(Character value:169) asString , "/ copyright
-(Character value:164) asString. "/ euro
- ^ t
-
- "Modified: 29.4.1996 / 09:46:19 / cg"
+ ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêÅ©'.
!
defaultSampleStringForEncoding:enc
@@ -219,35 +198,12 @@
|t|
t := (self defaultAsciiSampleString) , '
-diaresis: ' ,
-(Character value:16rE4) asString , "/ umlaut a
-(Character value:16rF6) asString , "/ umlaut o
-(Character value:16rFC) asString , "/ umlaut u
-(Character value:16rC4) asString , "/ umlaut A
-(Character value:16rD6) asString , "/ umlaut O
-(Character value:16rDC) asString , "/ umlaut U
-(Character value:16rDF) asString , "/ sz
-'
-accent: ' ,
-(Character value:233) asString , "/ e-degu
-(Character value:232) asString , "/ e-grave
-(Character value:234) asString , "/ e-circonflex
-(Character value:197) asString , "/ A
-(Character value:169) asString , "/ copyright
-'
-cyrillic: ' ,
-(UnicodeString fromString:(#(16r420 16r443 16r441 16r441 16r43A 16r43E) collect:[:c | Character value:c])) ,
-'
-greek: ' ,
-(UnicodeString fromString:(#(16r395 16r3BB 16r3BB 16r3B7 16r3BD 16r3B9 16r3BA 16r3AC) collect:[:c | Character value:c])) ,
-'
-japanese: ' ,
-(UnicodeString fromString:(#(16r65E5 16r672C 16r8A9E) collect:[:c | Character value:c])) ,
-'
-'.
+diaresis: äöüÄÖÜß
+accent: éèêåÅñÑ
+cyrillic: CAA:>
+greek: •»»·½¹º¬
+japanese: å,ž'.
^ t
-
- "Modified: 29.4.1996 / 09:46:19 / cg"
!
sampleStringWithAllLetters
@@ -973,5 +929,5 @@
!FontPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.76 2004-03-05 17:51:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.77 2004-03-05 19:19:15 cg Exp $'
! !