equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 'From Smalltalk/X, Version:7.1.0.0 on 19-07-2016 at 15:53:05' ! |
|
13 |
|
14 "{ Package: 'stx:libview' }" |
12 "{ Package: 'stx:libview' }" |
15 |
13 |
16 "{ NameSpace: Smalltalk }" |
14 "{ NameSpace: Smalltalk }" |
17 |
15 |
18 Object subclass:#GraphicsContext |
16 Object subclass:#GraphicsContext |
671 |
669 |
672 oldPaint := paint. |
670 oldPaint := paint. |
673 self paint:aColor. |
671 self paint:aColor. |
674 self fillRectangle:aRectangle. |
672 self fillRectangle:aRectangle. |
675 self paint:oldPaint. |
673 self paint:oldPaint. |
676 ! |
|
677 |
|
678 fillWhite |
|
679 "fill all of the receiver with the white color" |
|
680 |
|
681 self fill:Color white |
|
682 ! ! |
674 ! ! |
683 |
675 |
684 !GraphicsContext methodsFor:'accessing'! |
676 !GraphicsContext methodsFor:'accessing'! |
685 |
677 |
686 backgroundPaint |
678 backgroundPaint |