ImageEditor.st
changeset 3765 4443157a398a
parent 3750 bf5d920267cc
child 3811 1c02ea1990b5
--- 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