#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 11 Oct 2018 15:39:36 +0200
changeset 5921 452bdfc2db29
parent 5920 bf761a3591fd
child 5922 25b4077842e2
#REFACTORING by cg class: ImageEditView comment/format in: #pointAt:width:
ImageEditView.st
--- a/ImageEditView.st	Thu Oct 11 13:28:28 2018 +0200
+++ b/ImageEditView.st	Thu Oct 11 15:39:36 2018 +0200
@@ -2528,7 +2528,7 @@
     "called from button-press/button motion while in point-drawing mode:
      draw a single pixel (or dot of width pw) with the currently selected color"
 
-    |draw imagePoint clr pix oldColor newColor|
+    |draw imagePoint clr pix newColor|
 
     imagePoint := aPoint // magnification.
     (imagePoint x between:0 and:image width-1) ifFalse:[^ self].
@@ -2542,6 +2542,7 @@
                     newColor := (image colorAt:point) alpha:clr alpha.
                 ] ifFalse:[    
                     newColor := clr.
+                    "/ newColor alpha:clr alpha.
 "/                    clr alpha = 1 ifTrue:[
 "/                        newColor := clr.
 "/                    ] ifFalse:[