--- 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