equal
deleted
inserted
replaced
533 |
533 |
534 initialize |
534 initialize |
535 "sigh: hand-crafted box creation; TODO: rewrite using UI painter" |
535 "sigh: hand-crafted box creation; TODO: rewrite using UI painter" |
536 |
536 |
537 |familyLabel faceLabel sizeLabel panel panel2 fontBrowserView fp v1 v2 v3 |
537 |familyLabel faceLabel sizeLabel panel panel2 fontBrowserView fp v1 v2 v3 |
538 mm fH l box1 box2 showFontNameLabel xftCheckBox vPanel changeInAllCheckBox| |
538 mm fH l box1 box2 showFontNameLabel xftCheckBox vPanel changeInAllCheckBox |
|
539 xftFlushFontList| |
539 |
540 |
540 super initialize. |
541 super initialize. |
541 |
542 |
542 showFontNameLabel := self graphicsDevice isWindowsPlatform not. |
543 showFontNameLabel := self graphicsDevice isWindowsPlatform not. |
543 sizeUnit := #pt. |
544 sizeUnit := #pt. |
611 Screen current supportsXFTFonts ifTrue:[ |
612 Screen current supportsXFTFonts ifTrue:[ |
612 self xftFontsOnlyHolder value: (UserPreferences current useXftFontsOnly). |
613 self xftFontsOnlyHolder value: (UserPreferences current useXftFontsOnly). |
613 xftCheckBox := CheckBox label:(resources string:'XFT Fonts Only') in:box1. |
614 xftCheckBox := CheckBox label:(resources string:'XFT Fonts Only') in:box1. |
614 xftCheckBox model:xftFontsOnlyHolder. |
615 xftCheckBox model:xftFontsOnlyHolder. |
615 xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ]. |
616 xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ]. |
|
617 |
|
618 xftFlushFontList := Button label:(resources string:'Flush Cached List of Fonts') in:box1. |
|
619 xftFlushFontList action:[ self flushListOfAvailableFonts]. |
616 ]. |
620 ]. |
617 |
621 |
618 "/ sep := View in:box1. |
622 "/ sep := View in:box1. |
619 "/ sep width:10 height:10. |
623 "/ sep width:10 height:10. |
620 |
624 |
1555 self clearPreview. |
1559 self clearPreview. |
1556 |
1560 |
1557 "Modified: 26.5.1996 / 15:04:29 / cg" |
1561 "Modified: 26.5.1996 / 15:04:29 / cg" |
1558 ! |
1562 ! |
1559 |
1563 |
|
1564 flushListOfAvailableFonts |
|
1565 XftFontDescription flushListOfAvailableFonts. |
|
1566 self updateFamilyList |
|
1567 ! |
|
1568 |
1560 okPressed |
1569 okPressed |
1561 "ok was pressed; hide myself and evaluate the okAction, passing |
1570 "ok was pressed; hide myself and evaluate the okAction, passing |
1562 family, face, style and size as arguments" |
1571 family, face, style and size as arguments" |
1563 |
1572 |
1564 |sz szUnitUsed| |
1573 |sz szUnitUsed| |