FontPanel.st
changeset 5001 3bccbd160c18
parent 4983 739bda141e09
child 5007 dc3587ec2444
--- a/FontPanel.st	Fri Apr 18 01:22:05 2014 +0200
+++ b/FontPanel.st	Tue Apr 22 17:06:41 2014 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -156,7 +158,7 @@
 defaultLatin1SampleString
     "return the sample latin1 preview text"
 
-    ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
+    ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
 !
 
 defaultSampleStringForEncoding:enc
@@ -200,8 +202,8 @@
     |t|
 
     t := (self defaultAsciiSampleString) , '
-diaresis: äöüÄÖÜß
-accent: éèêåÅ
+diaresis: äöüÄÖÜß
+accent: éèêåÅ
 special: ' , 
 #(16r20AC) asUnicodeString , '
 math: ' , 
@@ -216,6 +218,8 @@
 chinese: ' ,
 #(16r4F60 16r597D 16r3002) asUnicodeString , ' ' ,
 #(16r6211 16r4E0D 16r8BF4 16r4E2D 16r6587) asUnicodeString , '
+korean: ' ,
+#( 50504 45397 54616 49464 50836 ) asUnicodeString , '
 '.
     ^ t
 
@@ -1291,10 +1295,10 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.123 2014-04-03 19:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.124 2014-04-22 15:06:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.123 2014-04-03 19:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.124 2014-04-22 15:06:41 cg Exp $'
 ! !