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