hg/stx-libwidg: comparison FontPanel.st

equal deleted inserted replaced

-:749e8e120788
+:16356c6f37c0
-"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 This software is furnished under a license and may be used
 !
 defaultLatin1SampleString
 "return the sample latin1 preview text"
-^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
+^ (self defaultAsciiSampleString) , '�����������'
 !
 defaultSampleStringForEncoding:enc
 |string lines|
 "return the sample unicode preview text"
 |t|
 t := (self defaultAsciiSampleString) , '
-diaresis: äöüÄÖÜß
+diaresis: �������
-accent: éèêåÅ
+accent: �����
 special: ' ,  #(16r20AC) asUnicodeString , '
 math: ' ,  #(16r2200 16r2203 16r221E 16r2208 16r2209) asUnicodeString , '
 cyrillic: ' ,  #(16r440 16r443 16r441 16r441 16r43A 16r438 16r439 16r20 16r44F 16r437 16r44B 16r43A) asUnicodeString , '
 greek: ' , #(16r395 16r3BB 16r3BB 16r3B7 16r3BD 16r3B9 16r3BA 16r3AC) asUnicodeString , '
 japanese: ' , #(16r65E5 16r672C 16r8A9E) asUnicodeString , '
 ].
 fonts isEmpty ifTrue:[
 ^ nil
 ].
+fontShown := fonts detect:[:eachFont| eachFont encoding = #'iso10646-1'] ifNone:[fonts first].
-fonts size > 1 ifTrue:[
-'FontPanel [info]: huh - multiple entries: ' infoPrint. fonts infoPrintCR.
-"/ self halt.
-].
-fontShown := fonts first.
 fontShown isScaledFont ifTrue:[
 szUnitUsed == #px ifTrue:[
 fontShown := fontShown asPixelSize:sz
 ] ifFalse:[
 fontShown := fontShown asSize:sz
 "/                      sizeUnit:sizeUnit
 "/                      encoding:(fonts anElement encoding).
 "/        ]
 "/    ].
 "/    ^ fontShown
+"Modified: / 29-12-2017 / 12:04:12 / stefan"
 !
 getFacesForFamily:aFamilyName filtering:filter
 "the list of font faces for a given family"

changeset 6246	16356c6f37c0
parent 6151	16206c642558
child 6258	a75c92a4819f