equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1991 by Claus Gittinger |
2 COPYRIGHT (c) 1991 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 |
774 "redraw my logo if it overlaps the edge" |
772 "redraw my logo if it overlaps the edge" |
775 |
773 |
776 LabelOverMargin ifTrue:[ |
774 LabelOverMargin ifTrue:[ |
777 (logo notNil and:[logo isImageOrForm]) ifTrue:[ |
775 (logo notNil and:[logo isImageOrForm]) ifTrue:[ |
778 self paint:fgColor on:bgColor. |
776 self paint:fgColor on:bgColor. |
779 self clippingRectangle:nil. |
777 self clippingBounds:nil. |
780 self displayForm:logo x:labelOriginX y:labelOriginY. |
778 self displayForm:logo x:labelOriginX y:labelOriginY. |
781 self deviceClippingRectangle:innerClipRect |
779 self deviceClippingBounds:innerClipRect |
782 ] |
780 ] |
783 ]. |
781 ]. |
784 |
782 |
785 "Modified: / 25.5.1999 / 16:10:10 / cg" |
783 "Modified: / 25.5.1999 / 16:10:10 / cg" |
786 ! |
784 ! |