# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 901790411 -7200
# Node ID 7be532d91b87c80adde83d209df36affa194763d
# Parent  89bd2304da33588627e183a4e08478a43b727421
help spec.
added grab-from-screen (not yet complete)

diff -r 89bd2304da33 -r 7be532d91b87 ImageEditor.st
--- a/ImageEditor.st	Wed Jul 29 19:36:07 1998 +0200
+++ b/ImageEditor.st	Thu Jul 30 11:20:11 1998 +0200
@@ -11,10 +11,10 @@
 "
 
 ToolApplicationModel subclass:#ImageEditor
-        instanceVariableNames:'imageEditView colorMapMode selectedColorIndex postOpenAction'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Interface-UIPainter'
+	instanceVariableNames:'imageEditView colorMapMode selectedColorIndex postOpenAction'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-UIPainter'
 !
 
 !ImageEditor class methodsFor:'documentation'!
@@ -181,7 +181,34 @@
     ^super helpSpec addPairsFrom:#(
 
 #colorMap
-'Increases or reduces size of color map of the image.'
+'ColorMap functions.'
+
+#colorMap1
+'Convert to depth-1 image.'
+
+#colorMap2
+'Convert to depth-2 image.'
+
+#colorMap4
+'Convert to depth-4 image.'
+
+#colorMap8
+'Convert to depth-8 image.'
+
+#colorMap1M
+'Convert to depth-1 image plus mask.'
+
+#colorMap2M
+'Convert to depth-2 image plus mask.'
+
+#colorMap4M
+'Convert to depth-4 image plus mask.'
+
+#colorMap8M
+'Convert to depth-8 image plus mask.'
+
+#compressColormap
+'Remove unneeded entries from the colorMap.'
 
 #colorMapTable
 'Shows a list of used colors of the image.'
@@ -225,11 +252,14 @@
 #editRotate
 'Rotate the image.'
 
+#fileGrabImage
+'Pick an image from the screen.'
+
 #fileLoadFromClass
-'Selecting and load an image from a resource method.'
+'Select and load an image from a resource method.'
 
 #fileLoadFromFile
-'Selecting and load an image from a file.'
+'Select and load an image from a file.'
 
 #fileNewImage
 'Create a new image'
@@ -272,7 +302,7 @@
 
 )
 
-    "Modified: / 29.7.1998 / 18:42:52 / cg"
+    "Modified: / 29.7.1998 / 22:27:36 / cg"
 ! !
 
 !ImageEditor class methodsFor:'image specs'!
@@ -670,6 +700,12 @@
                           #activeHelpKey: #fileLoadFromFile
                       )
                        #(#MenuItem
+                          #label: 'Grab From Screen'
+                          #translateLabel: true
+                          #value: #grabScreenImage
+                          #activeHelpKey: #fileGrabImage
+                      )
+                       #(#MenuItem
                           #label: '-'
                       )
                        #(#MenuItem
@@ -804,28 +840,28 @@
                        #(#MenuItem
                           #label: '8-Plane'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap8
                           #argument: '8-plane'
                           #indication: #colorMapMode:value:
                       )
                        #(#MenuItem
                           #label: '4-Plane'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap4
                           #argument: '4-plane'
                           #indication: #colorMapMode:value:
                       )
                        #(#MenuItem
                           #label: '2-Plane'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap2
                           #argument: '2-plane'
                           #indication: #colorMapMode:value:
                       )
                        #(#MenuItem
                           #label: '1-Plane'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap1
                           #argument: '1-plane'
                           #indication: #colorMapMode:value:
                       )
@@ -835,28 +871,28 @@
                        #(#MenuItem
                           #label: '8-Plane + Mask'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap8M
                           #argument: '8-plane + mask'
                           #indication: #colorMapMode:value:
                       )
                        #(#MenuItem
                           #label: '4-Plane + Mask'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap4M
                           #argument: '4-plane + mask'
                           #indication: #colorMapMode:value:
                       )
                        #(#MenuItem
                           #label: '2-Plane + Mask'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap2M
                           #argument: '2-plane + mask'
                           #indication: #colorMapMode:value:
                       )
                        #(#MenuItem
                           #label: '1-Plane + Mask'
                           #translateLabel: true
-                          #activeHelpKey: #colorMap
+                          #activeHelpKey: #colorMap1M
                           #argument: '1-plane + mask'
                           #indication: #colorMapMode:value:
                       )
@@ -866,6 +902,7 @@
                        #(#MenuItem
                           #label: 'Compress colormap'
                           #translateLabel: true
+                          #activeHelpKey: #compressColormap
                           #value: #compressColorMap
                       )
                     ) nil
@@ -914,7 +951,7 @@
           nil
       )
 
-    "Modified: / 28.7.1998 / 20:03:52 / cg"
+    "Modified: / 29.7.1998 / 22:26:55 / cg"
 !
 
 menuMouseButtonColors
@@ -1901,6 +1938,27 @@
             self updateLabelsAndHistory
         ]
     ]
+!
+
+grabScreenImage
+    "let user choose an area and grab that are for editing"
+
+    |image img|
+
+    image := Image fromUser.
+
+    image depth > 8 ifTrue:[
+        image := Depth8Image fromImage:image.
+    ].
+    (imageEditView image: image) notNil
+    ifTrue:
+    [
+        self listOfColors contents:(image colorMap).
+        self findColorMapMode.
+        self updateLabelsAndHistory
+    ]
+
+    "Created: / 29.7.1998 / 21:24:42 / cg"
 ! !
 
 !ImageEditor methodsFor:'user actions - saving'!