# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1089841331 -7200
# Node ID 947a5a5620d32098383d9e0e589b65c741cfe7f0
# Parent  b306a11339461c2d8dc2976b2921c909ba4c4b63
comments

diff -r b306a1133946 -r 947a5a5620d3 DeviceGraphicsContext.st
--- a/DeviceGraphicsContext.st	Wed Jul 14 22:32:42 2004 +0200
+++ b/DeviceGraphicsContext.st	Wed Jul 14 23:42:11 2004 +0200
@@ -195,12 +195,19 @@
     "Modified: / 29.1.2000 / 12:17:42 / cg"
 !
 
-at:aPoint put:aPixel
+at:aPoint put:aPixelColor
     "set a pixel"
 
-    ^ self atX:aPoint x y:aPoint y put:aPixel
-
-    "Modified: / 29.1.2000 / 12:17:29 / cg"
+    ^ self atX:aPoint x y:aPoint y put:aPixelColor
+
+    "
+     Display rootView at:(0@0) put:(Color red).
+     Display rootView at:(1@1) put:(Color red).
+     Display rootView at:(2@2) put:(Color red).
+     Display rootView at:(3@3) put:(Color red).
+     Display rootView at:(4@4) put:(Color red).
+     Display rootView at:(5@5) put:(Color red).
+    "
 !
 
 atX:x y:y
@@ -211,13 +218,13 @@
     "Modified: / 22.5.1999 / 01:40:23 / cg"
 !
 
-atX:x y:y put:aPixel
+atX:x y:y put:aPixelColor
     "set a pixel"
 
     |oldFg|
 
     oldFg := foreground.
-    self foreground:aPixel.
+    self foreground:aPixelColor.
     self displayPointX:x y:y.
     self foreground:oldFg
 !
@@ -3852,7 +3859,7 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.101 2004-07-12 14:04:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.102 2004-07-14 21:42:11 cg Exp $'
 ! !
 
 DeviceGraphicsContext initialize!