GraphicsContext.st
changeset 7015 09828e08bc73
parent 6535 163c6d470624
child 7036 530b3e1c64c3
child 7240 a89267cf99b4
--- a/GraphicsContext.st	Fri Oct 09 14:14:44 2015 +0200
+++ b/GraphicsContext.st	Fri Oct 09 15:31:44 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#GraphicsContext
 	instanceVariableNames:'device paint bgPaint function font lineStyle lineWidth joinStyle
 		capStyle mask maskOrigin transformation clipRect
@@ -752,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."
 
@@ -765,7 +769,7 @@
 !
 
 clipRect:aRectangle
-    "set the drawing clip-rectangle"
+    "set the drawing clip-rectangle (in logical coordinates)"
 
     <resource:#obsolete>
 
@@ -776,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."
 
@@ -805,7 +809,8 @@
 !
 
 clippingBoundsOrNil
-    "return the clipping bounds (a Rectangle) for drawing, 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
 
@@ -826,7 +831,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
 
@@ -2524,11 +2529,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$'
 ! !