*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 01 Jun 2005 15:08:27 +0200
changeset 2823 201bf0929edb
parent 2822 3538a17ef98c
child 2824 dcff817ccd59
*** empty log message ***
ImageEditView.st
--- a/ImageEditView.st	Mon May 30 17:45:13 2005 +0200
+++ b/ImageEditView.st	Wed Jun 01 15:08:27 2005 +0200
@@ -1388,19 +1388,15 @@
     |imagePoint clr pix|
 
     imagePoint := aPoint // magnification.
-    (clr := self selectedColor) isNil ifTrue:[
-        pix := self selectedColorIndex
+    image colorMap isNil ifTrue:[
+        clr := self selectedColor.
+        image atImageAndMask:imagePoint put:clr.
+    ] ifFalse:[
+        pix := self selectedColorIndex.
+        image atImageAndMask:imagePoint putValue:pix.
     ].
 
-    pix notNil ifTrue:[
-        image colorMap atImageAndMask:imagePoint putValue:pix.
-        self setModified.
-    ] ifFalse:[     
-        "/ clr notNil ifTrue:[
-            image atImageAndMask:imagePoint put:clr.
-            self setModified.
-        "/ ]
-    ].
+    self setModified.
     self invalidate:((imagePoint * magnification extent: magnification) expandedBy: 1).
 
     "Modified: / 5.9.1998 / 13:25:29 / cg"
@@ -2299,7 +2295,7 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.203 2005-05-11 09:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.204 2005-06-01 13:08:27 cg Exp $'
 ! !
 
 ImageEditView initialize!