FontPanel.st
changeset 2932 c99bbf55b147
parent 2930 576e73803b46
child 2933 c530f9283d0e
--- 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 $'
 ! !