equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 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 |
1059 ^ (self left + width - 1) @ (self top + (height // 2) - 1) |
1057 ^ (self left + width - 1) @ (self top + (height // 2) - 1) |
1060 ! |
1058 ! |
1061 |
1059 |
1062 setClippingBounds:aRectangleOrNil |
1060 setClippingBounds:aRectangleOrNil |
1063 gc setClippingBounds:aRectangleOrNil |
1061 gc setClippingBounds:aRectangleOrNil |
|
1062 ! |
|
1063 |
|
1064 setDevice:aDevice |
|
1065 "set the device" |
|
1066 |
|
1067 device := aDevice. |
|
1068 gc setDevice:aDevice |
1064 ! |
1069 ! |
1065 |
1070 |
1066 setGraphicsExposures:aBoolean |
1071 setGraphicsExposures:aBoolean |
1067 "want to if aBoolean is true - or don't want to be notified |
1072 "want to if aBoolean is true - or don't want to be notified |
1068 of graphics exposures" |
1073 of graphics exposures" |