FontPanel.st
changeset 2933 c530f9283d0e
parent 2932 c99bbf55b147
child 2935 a710dcaf4651
--- a/FontPanel.st	Fri Mar 05 20:19:15 2004 +0100
+++ b/FontPanel.st	Fri Mar 05 20:26:43 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -152,13 +154,13 @@
 'The quick brown fox
 jumps over the lazy dog.
 
-,'
+日本語'
 !
 
 defaultLatin1SampleString
     "return the sample latin1 preview text"
 
-    ^ (self defaultAsciiSampleString) , 'ũ'.
+    ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
 !
 
 defaultSampleStringForEncoding:enc
@@ -198,12 +200,19 @@
     |t|
 
     t := (self defaultAsciiSampleString) , '
-diaresis:  
-accent: 
-cyrillic:  CAA:>
-greek: 
-japanese: ,'.
+diaresis: äöüÄÖÜß
+accent: éèêåÅ
+cyrillic: Русско' , '
+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])) ,
+'
+'.
     ^ t
+
+    "Modified: 29.4.1996 / 09:46:19 / cg"
 !
 
 sampleStringWithAllLetters
@@ -929,5 +938,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.77 2004-03-05 19:19:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.78 2004-03-05 19:26:43 cg Exp $'
 ! !