# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1568643164 -7200
# Node ID 4443157a398a8b662675d2d9502ad05ab747c247
# Parent  e140f846dccf80d2c320ef35cb22d4946d15212e
#FEATURE by exept
class: ImageEditor class
added: #pointBlendIcon
changed:
	#helpSpec
	#modeMenu

diff -r e140f846dccf -r 4443157a398a ImageEditor.st
--- a/ImageEditor.st	Fri Sep 13 09:54:55 2019 +0200
+++ b/ImageEditor.st	Mon Sep 16 16:12:44 2019 +0200
@@ -442,6 +442,9 @@
 #drawModePoint
 'Point Drawing Mode'
 
+#drawModePointBlend
+'Point Drawing Mode (Blend Colors)'
+
 #drawModeSpecial
 'Special operations (select rectangle, then choose operation)'
 
@@ -1263,6 +1266,28 @@
             mask:((ImageMask width:14 height:14) bits:(ByteArray fromPackedString:'C0A?8O?0??C?<O?0??C?>O?8??#?>O?8_? G>@@a'); yourself); yourself]
 !
 
+pointBlendIcon
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self pointBlendIcon inspect
+     ImageEditor openOnClass:self andSelector:#pointBlendIcon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'ImageEditor class pointBlendIcon'
+        ifAbsentPut:[(Depth1Image width:14 height:14) bits:(ByteArray fromPackedString:'@@@@@@@A@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@a')
+            colorMapFromArray:#[0 0 0 255 255 255]
+            mask:((ImageMask width:14 height:14) bits:(ByteArray fromPackedString:'@@@@@@@0@G@@8@G@@8@G@@8PGA@X_@@P@A@@@@@a'); yourself); yourself]
+!
+
 pointIcon
     <resource: #image>
     "This resource specification was automatically generated
@@ -3996,6 +4021,14 @@
             choiceValue: point
           )
          (MenuItem
+            activeHelpKey: drawModePointBlend
+            enabled: imageIsLoadedHolder
+            label: 'Point Blend'
+            labelImage: (ResourceRetriever ImageEditor pointBlendIcon 'Point')
+            choice: editMode
+            choiceValue: pointBlend
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem