branch | jv |
changeset 7223 | bce4cd6c45cd |
parent 7165 | 730622084e88 |
parent 7218 | 4c15124a9431 |
child 7244 | 9c77b73e65d8 |
7217:6acdcbd90773 | 7223:bce4cd6c45cd |
---|---|
637 |
637 |
638 font |
638 font |
639 "return the font for drawing - here, a device font is returned if |
639 "return the font for drawing - here, a device font is returned if |
640 the GC is realized." |
640 the GC is realized." |
641 |
641 |
642 device notNil ifTrue:[ |
642 (device notNil and:[font notNil]) ifTrue:[ |
643 font := font onDevice:device |
643 font := font onDevice:device |
644 ]. |
644 ]. |
645 ^ font |
645 ^ font |
646 ! |
646 ! |
647 |
647 |
648 font:aFont |
648 font:aFont |