+spray and circle
authorClaus Gittinger <cg@exept.de>
Mon, 14 Jul 2008 22:23:26 +0200
changeset 2375 c775c95566b9
parent 2374 09f112698a15
child 2376 3bf786f18f5d
+spray and circle
ImageEditor.st
--- a/ImageEditor.st	Fri Jul 11 21:45:29 2008 +0200
+++ b/ImageEditor.st	Mon Jul 14 22:23:26 2008 +0200
@@ -346,6 +346,9 @@
 #drawModeBox
 'Rectangle Drawing Mode.'
 
+#drawModeCircle
+'Circle Drawing Mode.'
+
 #drawModeCopy
 'Area Copy Mode.'
 
@@ -367,6 +370,9 @@
 #drawModePoint
 'Point Drawing Mode.'
 
+#drawModeSpray
+'Spray Drawing Mode.'
+
 #drawModeSpecial
 'Special Operations'
 
@@ -690,6 +696,27 @@
     ^Icon
         constantNamed:'ImageEditor class specialIcon'
         ifAbsentPut:[(Depth1Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@L@@@@B@@@@@0@@@@@@@@@@@@@@@P@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 0 0]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@0@G @^@A8@G @L@@0@@@@L@@0@@@@@a') ; yourself); yourself]
+!
+
+sprayIcon
+    "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 sprayIcon inspect
+     ImageEditor openOnClass:self andSelector:#sprayIcon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'ImageEditor class sprayIcon'
+        ifAbsentPut:[(Depth4Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@D@@@@@@@DA@@@@@@D@D@@@@@@A@PD@@@@@@A@P@@@@@@@A@P@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 84 84 84 170 170 170 255 255 255 255 0 0]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@B@@(A)@F*@IPA2 H$@"@BH@H @"@BH@O @@a') ; yourself); yourself]
 ! !
 
 !ImageEditor class methodsFor:'interface specs'!
@@ -2000,6 +2027,41 @@
                     nil
                   )
                 )
+               (MenuItem
+                  label: 'Spray'
+                  translateLabel: true
+                  submenu: 
+                 (Menu
+                    (
+                     (MenuItem
+                        label: '4'
+                        itemValue: spraySpot:
+                        translateLabel: true
+                        argument: 4
+                      )
+                     (MenuItem
+                        label: '8'
+                        itemValue: spraySpot:
+                        translateLabel: true
+                        argument: 8
+                      )
+                     (MenuItem
+                        label: '16'
+                        itemValue: spraySpot:
+                        translateLabel: true
+                        argument: 16
+                      )
+                     (MenuItem
+                        label: '32'
+                        itemValue: spraySpot:
+                        translateLabel: true
+                        argument: 32
+                      )
+                     )
+                    nil
+                    nil
+                  )
+                )
                )
               nil
               nil
@@ -2718,6 +2780,16 @@
             #choiceValue: #point
           )
          #(#MenuItem
+            #activeHelpKey: #drawModeSpray
+            #enabled: #imageIsLoaded
+            #label: 'Spray'
+            #translateLabel: true
+            #isButton: true
+            #labelImage: #(#ResourceRetriever #ImageEditor #sprayIcon)
+            #choice: #editMode
+            #choiceValue: #spray
+          )
+         #(#MenuItem
             #activeHelpKey: #drawModeBox
             #enabled: #imageIsLoaded
             #label: 'Rect'
@@ -2738,6 +2810,16 @@
             #choiceValue: #filledBox
           )
          #(#MenuItem
+            #activeHelpKey: #drawModeCircle
+            #enabled: #imageIsLoaded
+            #label: 'Circle'
+            #translateLabel: true
+            #isButton: true
+            #labelImage: #(#ResourceRetriever #ImageEditor #circleIcon)
+            #choice: #editMode
+            #choiceValue: #circle
+          )
+         #(#MenuItem
             #activeHelpKey: #drawModeFill
             #enabled: #imageIsLoaded
             #label: 'Fill'
@@ -5708,6 +5790,12 @@
     imageEditView penWidth:n
 
     "Created: / 01-11-2007 / 23:47:48 / cg"
+!
+
+spraySpot:n
+    imageEditView spraySpot:n
+
+    "Created: / 01-11-2007 / 23:47:48 / cg"
 ! !
 
 !ImageEditor class methodsFor:'documentation'!