Rectangle.st
changeset 1314 18fabbc0e0a6
parent 1290 15ba3221b89b
child 1349 275388fd5271
--- a/Rectangle.st	Sat Apr 27 19:48:54 1996 +0200
+++ b/Rectangle.st	Sat Apr 27 19:51:06 1996 +0200
@@ -58,6 +58,10 @@
     [author:]
         Claus Gittinger
 
+    [see also:]
+        Point Polygon
+        LayoutOrigin LayoutFrame AlignmentOrigin Layout 
+        View
 "
 ! !
 
@@ -754,6 +758,9 @@
 !Rectangle methodsFor:'displaying'!
 
 displayFilledOn:aGC
+    "display a filled rectangle as represented by the receiver in 
+     the graphicsContext, aGC"
+
     aGC fillRectangleX:left y:top width:width height:height
 
     "
@@ -764,9 +771,14 @@
 
      (Rectangle origin:10@10 corner:50@50) displayFilledOn:v
     "
+
+    "Modified: 27.4.1996 / 14:52:38 / cg"
 !
 
 displayStrokedOn:aGC
+    "display an unfilled rectangle as represented by the receiver in 
+     the graphicsContext, aGC"
+
     aGC displayRectangleX:left y:top width:width height:height
 
     "
@@ -777,6 +789,8 @@
 
      (Rectangle origin:10@10 corner:50@50) displayStrokedOn:v
     "
+
+    "Modified: 27.4.1996 / 14:52:45 / cg"
 ! !
 
 !Rectangle methodsFor:'printing & storing'!
@@ -1303,5 +1317,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.37 1996-04-25 16:20:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.38 1996-04-27 17:51:06 cg Exp $'
 ! !