FontPanel.st
changeset 5001 3bccbd160c18
parent 4983 739bda141e09
child 5007 dc3587ec2444
equal deleted inserted replaced
4998:000a0752dd25 5001:3bccbd160c18
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1991 by Claus Gittinger
     4  COPYRIGHT (c) 1991 by Claus Gittinger
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   154 !
   156 !
   155 
   157 
   156 defaultLatin1SampleString
   158 defaultLatin1SampleString
   157     "return the sample latin1 preview text"
   159     "return the sample latin1 preview text"
   158 
   160 
   159     ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
   161     ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
   160 !
   162 !
   161 
   163 
   162 defaultSampleStringForEncoding:enc
   164 defaultSampleStringForEncoding:enc
   163     |string lines|
   165     |string lines|
   164 
   166 
   198     "return the sample unicode preview text"
   200     "return the sample unicode preview text"
   199 
   201 
   200     |t|
   202     |t|
   201 
   203 
   202     t := (self defaultAsciiSampleString) , '
   204     t := (self defaultAsciiSampleString) , '
   203 diaresis: äöüÄÖÜß
   205 diaresis: äöüÄÖÜß
   204 accent: éèêåÅ
   206 accent: éèêåÅ
   205 special: ' , 
   207 special: ' , 
   206 #(16r20AC) asUnicodeString , '
   208 #(16r20AC) asUnicodeString , '
   207 math: ' , 
   209 math: ' , 
   208 #(16r2200 16r2203 16r221E 16r2208 16r2209) asUnicodeString , '
   210 #(16r2200 16r2203 16r221E 16r2208 16r2209) asUnicodeString , '
   209 cyrillic: ' , 
   211 cyrillic: ' , 
   214 japanese: ' ,
   216 japanese: ' ,
   215 #(16r65E5 16r672C 16r8A9E) asUnicodeString , '
   217 #(16r65E5 16r672C 16r8A9E) asUnicodeString , '
   216 chinese: ' ,
   218 chinese: ' ,
   217 #(16r4F60 16r597D 16r3002) asUnicodeString , ' ' ,
   219 #(16r4F60 16r597D 16r3002) asUnicodeString , ' ' ,
   218 #(16r6211 16r4E0D 16r8BF4 16r4E2D 16r6587) asUnicodeString , '
   220 #(16r6211 16r4E0D 16r8BF4 16r4E2D 16r6587) asUnicodeString , '
       
   221 korean: ' ,
       
   222 #( 50504 45397 54616 49464 50836 ) asUnicodeString , '
   219 '.
   223 '.
   220     ^ t
   224     ^ t
   221 
   225 
   222     "Modified: / 10-08-2010 / 16:05:16 / cg"
   226     "Modified: / 10-08-2010 / 16:05:16 / cg"
   223 !
   227 !
  1289 ! !
  1293 ! !
  1290 
  1294 
  1291 !FontPanel class methodsFor:'documentation'!
  1295 !FontPanel class methodsFor:'documentation'!
  1292 
  1296 
  1293 version
  1297 version
  1294     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.123 2014-04-03 19:36:31 cg Exp $'
  1298     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.124 2014-04-22 15:06:41 cg Exp $'
  1295 !
  1299 !
  1296 
  1300 
  1297 version_CVS
  1301 version_CVS
  1298     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.123 2014-04-03 19:36:31 cg Exp $'
  1302     ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.124 2014-04-22 15:06:41 cg Exp $'
  1299 ! !
  1303 ! !
  1300 
  1304