GraphicsContext.st
branchjv
changeset 7036 530b3e1c64c3
parent 6729 d4608914dc99
parent 7015 09828e08bc73
child 7244 9c77b73e65d8
--- a/GraphicsContext.st	Sun Oct 11 08:27:36 2015 +0100
+++ b/GraphicsContext.st	Sun Oct 11 10:26:49 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -754,7 +756,7 @@
 !
 
 clipRect
-    "return the clip-rectangle for drawing.
+    "return the clip-rectangle for drawing (in logical coordinates).
      If there is currently no active clip, return the underlying
      displaySurfaces (i.e. views) bounds. Added for ST-80 compatibility."
 
@@ -767,7 +769,7 @@
 !
 
 clipRect:aRectangle
-    "set the drawing clip-rectangle"
+    "set the drawing clip-rectangle (in logical coordinates)"
 
     <resource:#obsolete>
 
@@ -778,7 +780,7 @@
 !
 
 clippingBounds
-    "return the clip-rectangle for drawing.
+    "return the clip-rectangle for drawing (in logical coordinates).
      If there is currently no active clip, return the underlying
      medium (i.e. device) bounds. Added for ST-80 compatibility."
 
@@ -814,7 +816,8 @@
 !
 
 clippingBoundsOrNil
-    "return the clipping bounds (a Rectangle) for drawing in logical coordinates, nil if there is none."
+    "return the clipping bounds (a Rectangle) for drawing, nil if there is none.
+     The rectangle is in logical coordinates"
 
     clipRect isNil ifTrue:[
         ^ nil
@@ -841,7 +844,7 @@
 
 clippingRectangleOrNil
     <resource: #obsolete>
-    "return the clipping rectangle for drawing, nil if there is none."
+    "return the clipping rectangle for drawing in logical coordinates, nil if there is none."
 
     ^ clipRect
 
@@ -2584,11 +2587,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.137 2014-07-08 21:21:04 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.137 2014-07-08 21:21:04 cg Exp $'
+    ^ '$Header$'
 !
 
 version_HG