--- 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