#FEATURE by exept draft
authorClaus Gittinger <cg@exept.de>
Mon, 16 Sep 2019 16:12:44 +0200
changeset 3765 4443157a398a
parent 3764 e140f846dccf
child 3766 b1c31e1707b2
#FEATURE by exept class: ImageEditor class added: #pointBlendIcon changed: #helpSpec #modeMenu
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