changed #pointAt:
authorClaus Gittinger <cg@exept.de>
Fri, 02 Nov 2007 00:23:11 +0100
changeset 3266 7b8c5b21fca3
parent 3265 f22de2c4383d
child 3267 ee55a3b2f6fc
changed #pointAt:
ImageEditView.st
--- a/ImageEditView.st	Thu Nov 01 23:46:52 2007 +0100
+++ b/ImageEditView.st	Fri Nov 02 00:23:11 2007 +0100
@@ -1435,15 +1435,18 @@
     draw value:imagePoint.
 
     w := self penWidth.
-    (w//2) negated to:(w-(w//2)) do:[:xOffs |
-        (w//2) negated to:(w-(w//2)) do:[:yOffs |
-            draw value:(imagePoint + (xOffs@yOffs)).
+    w == 1 ifTrue:[
+        draw value:imagePoint.
+    ] ifFalse:[
+        (w//2) negated to:(w-(w//2)) do:[:xOffs |
+            (w//2) negated to:(w-(w//2)) do:[:yOffs |
+                draw value:(imagePoint + (xOffs@yOffs)).
+            ].
         ].
     ].
-
     self setModified.
 
-    "Modified: / 01-11-2007 / 23:43:07 / cg"
+    "Modified: / 02-11-2007 / 00:07:13 / cg"
 !
 
 shiftImageHorizontal:shiftH vertical:shiftV
@@ -2402,7 +2405,7 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.219 2007-11-01 22:46:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.220 2007-11-01 23:23:11 cg Exp $'
 ! !
 
 ImageEditView initialize!