--- a/GMedium.st Tue May 28 19:43:28 1996 +0200
+++ b/GMedium.st Tue May 28 19:44:30 1996 +0200
@@ -341,42 +341,27 @@
"Modified: 8.5.1996 / 08:40:14 / cg"
!
-fillPolygon:aPolygon with:aPattern
- "fill a polygon in the receiver with aPattern,
+fillRectangleX:x y:y width:w height:h with:aColor
+ "fill the rectangular area in the receiver with aColor,
which may be a Form or Color"
- self withPattern:aPattern do:[
- self fillPolygon:aPolygon
- ]
-!
-
-fillRectangle:aRectangle with:something
- "fill the rectangular area in the receiver with something;
- something may be a Form, Color or colorIndex"
+ |oldPaint|
- self fillRectangleX:(aRectangle left)
- y:(aRectangle top)
- width:(aRectangle width)
- height:(aRectangle height)
- with:something
-!
-
-fillRectangleX:x y:y width:w height:h with:aPattern
- "fill the rectangular area in the receiver with aPattern,
- which may be a Form or Color"
-
- self withPattern:aPattern do:[
- self fillRectangleX:x y:y width:w height:h
- ]
+ oldPaint := paint.
+ self paint:aColor.
+ self fillRectangleX:x y:y width:w height:h.
+ self paint:oldPaint.
"
- Display rootView
- fillRectangleX:0
- y:0
- width:50
- height:50
- with:(Color grey:50)
+ Screen current rootView
+ fillRectangleX:0
+ y:0
+ width:50
+ height:50
+ with:(Color grey:50)
"
+
+ "Modified: 28.5.1996 / 19:37:50 / cg"
!
invertRectangle:aRectangle
@@ -416,5 +401,5 @@
!GraphicsMedium class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/GMedium.st,v 1.3 1996-05-28 17:27:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/GMedium.st,v 1.4 1996-05-28 17:44:30 cg Exp $'
! !
--- a/GraphicsMedium.st Tue May 28 19:43:28 1996 +0200
+++ b/GraphicsMedium.st Tue May 28 19:44:30 1996 +0200
@@ -341,42 +341,27 @@
"Modified: 8.5.1996 / 08:40:14 / cg"
!
-fillPolygon:aPolygon with:aPattern
- "fill a polygon in the receiver with aPattern,
+fillRectangleX:x y:y width:w height:h with:aColor
+ "fill the rectangular area in the receiver with aColor,
which may be a Form or Color"
- self withPattern:aPattern do:[
- self fillPolygon:aPolygon
- ]
-!
-
-fillRectangle:aRectangle with:something
- "fill the rectangular area in the receiver with something;
- something may be a Form, Color or colorIndex"
+ |oldPaint|
- self fillRectangleX:(aRectangle left)
- y:(aRectangle top)
- width:(aRectangle width)
- height:(aRectangle height)
- with:something
-!
-
-fillRectangleX:x y:y width:w height:h with:aPattern
- "fill the rectangular area in the receiver with aPattern,
- which may be a Form or Color"
-
- self withPattern:aPattern do:[
- self fillRectangleX:x y:y width:w height:h
- ]
+ oldPaint := paint.
+ self paint:aColor.
+ self fillRectangleX:x y:y width:w height:h.
+ self paint:oldPaint.
"
- Display rootView
- fillRectangleX:0
- y:0
- width:50
- height:50
- with:(Color grey:50)
+ Screen current rootView
+ fillRectangleX:0
+ y:0
+ width:50
+ height:50
+ with:(Color grey:50)
"
+
+ "Modified: 28.5.1996 / 19:37:50 / cg"
!
invertRectangle:aRectangle
@@ -416,5 +401,5 @@
!GraphicsMedium class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.3 1996-05-28 17:27:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.4 1996-05-28 17:44:30 cg Exp $'
! !