equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
649 |
647 |
650 font |
648 font |
651 "return the font for drawing - here, a device font is returned if |
649 "return the font for drawing - here, a device font is returned if |
652 the GC is realized." |
650 the GC is realized." |
653 |
651 |
654 device notNil ifTrue:[ |
652 (device notNil and:[font notNil]) ifTrue:[ |
655 font := font onDevice:device |
653 font := font onDevice:device |
656 ]. |
654 ]. |
657 ^ font |
655 ^ font |
658 ! |
656 ! |
659 |
657 |
660 font:aFont |
658 font:aFont |