--- a/FontPanel.st	Wed Mar 10 17:36:19 2004 +0100
+++ b/FontPanel.st	Thu Mar 11 10:53:20 2004 +0100
@@ -152,7 +152,7 @@
 'The quick brown fox
 jumps over the lazy dog.
 
-' , (UnicodeString fromString:(#(16r65E5 16r672C 16r8A9E) collect:[:c | Character value:c]))
+' , #(16r65E5 16r672C 16r8A9E) asUnicodeString
 !
 
 defaultLatin1SampleString
@@ -200,12 +200,13 @@
     t := (self defaultAsciiSampleString) , '
 diaresis: äöüÄÖÜß
 accent: éèêåÅ
-cyrillic: ' , (UnicodeString fromString:(#(16r420 16r443 16r441 16r441 16r43A 16r43E) collect:[:c | Character value:c])) , '
+cyrillic: ' , 
+#(16r440 16r443 16r441 16r441 16r43A 16r438 16r439 16r20 16r44F 16r437 16r44B 16r43A) asUnicodeString , '
 greek: ' ,
-(UnicodeString fromString:(#(16r395 16r3BB 16r3BB 16r3B7 16r3BD 16r3B9 16r3BA 16r3AC) collect:[:c | Character value:c])) ,
+#(16r395 16r3BB 16r3BB 16r3B7 16r3BD 16r3B9 16r3BA 16r3AC) asUnicodeString ,
 '
 japanese: ' ,
-(UnicodeString fromString:(#(16r65E5 16r672C 16r8A9E) collect:[:c | Character value:c])) ,
+#(16r65E5 16r672C 16r8A9E) asUnicodeString ,
 '
 '.
     ^ t
@@ -951,5 +952,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.82 2004-03-10 16:36:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.83 2004-03-11 09:53:20 stefan Exp $'
 ! !