equal
deleted
inserted
replaced
511 ] |
511 ] |
512 ! |
512 ! |
513 |
513 |
514 initialize |
514 initialize |
515 |familyLabel faceLabel sizeLabel panel fontBrowserView v1 v2 v3 |
515 |familyLabel faceLabel sizeLabel panel fontBrowserView v1 v2 v3 |
516 mm fH eH l box1 box2 showFontNameLabel sep xftCheckBox| |
516 mm fH eH l box1 box2 showFontNameLabel xftCheckBox| |
517 |
517 |
518 super initialize. |
518 super initialize. |
519 |
519 |
520 showFontNameLabel := device platformName ~= #WIN32. |
520 showFontNameLabel := device platformName ~= #WIN32. |
521 sizeUnit := #pt. |
521 sizeUnit := #pt. |
578 self showEncodingFilter ifFalse:[ |
578 self showEncodingFilter ifFalse:[ |
579 encodingLabel beInvisible |
579 encodingLabel beInvisible |
580 ]. |
580 ]. |
581 |
581 |
582 XftFontDescription notNil ifTrue:[ |
582 XftFontDescription notNil ifTrue:[ |
583 xftFontsOnlyHolder := false asValue. |
583 UserPreferences current useXftFontsOnly ifTrue:[ |
584 xftCheckBox := CheckBox label:'XFT Fonts Only' in:box1. |
584 xftFontsOnlyHolder := true asValue. |
585 xftCheckBox model:xftFontsOnlyHolder. |
585 ] ifFalse:[ |
586 xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ]. |
586 xftFontsOnlyHolder := false asValue. |
|
587 xftCheckBox := CheckBox label:'XFT Fonts Only' in:box1. |
|
588 xftCheckBox model:xftFontsOnlyHolder. |
|
589 xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ]. |
|
590 ]. |
587 ]. |
591 ]. |
588 |
592 |
589 "/ sep := View in:box1. |
593 "/ sep := View in:box1. |
590 "/ sep width:10 height:10. |
594 "/ sep width:10 height:10. |
591 |
595 |
1278 ! ! |
1282 ! ! |
1279 |
1283 |
1280 !FontPanel class methodsFor:'documentation'! |
1284 !FontPanel class methodsFor:'documentation'! |
1281 |
1285 |
1282 version |
1286 version |
1283 ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.119 2014-03-17 17:01:13 cg Exp $' |
1287 ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.120 2014-03-18 10:11:21 cg Exp $' |
1284 ! |
1288 ! |
1285 |
1289 |
1286 version_CVS |
1290 version_CVS |
1287 ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.119 2014-03-17 17:01:13 cg Exp $' |
1291 ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.120 2014-03-18 10:11:21 cg Exp $' |
1288 ! ! |
1292 ! ! |
1289 |
1293 |