equal
deleted
inserted
replaced
728 ]. |
728 ]. |
729 |
729 |
730 font notNil ifTrue:[ |
730 font notNil ifTrue:[ |
731 deviceFont := font onDevice:device. |
731 deviceFont := font onDevice:device. |
732 enc := deviceFont encoding. |
732 enc := deviceFont encoding. |
733 enc isNil ifTrue:[enc := 'fontspecific']. |
733 enc isNil ifTrue:[enc := #'fontspecific']. |
734 |
734 |
735 previewField font:deviceFont. |
735 previewField font:deviceFont. |
736 previewField characterEncoding:enc. |
736 previewField characterEncoding:enc. |
737 |
737 |
738 encodingLabel label:enc. |
738 encodingLabel label:enc. |
986 ! ! |
986 ! ! |
987 |
987 |
988 !FontPanel class methodsFor:'documentation'! |
988 !FontPanel class methodsFor:'documentation'! |
989 |
989 |
990 version |
990 version |
991 ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.72 2004-02-22 15:40:11 cg Exp $' |
991 ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.73 2004-02-28 12:57:39 cg Exp $' |
992 ! ! |
992 ! ! |