added paste-under;
help texts.
--- a/ImageEditor.st Thu Jul 23 18:37:31 1998 +0200
+++ b/ImageEditor.st Sat Jul 25 19:21:03 1998 +0200
@@ -187,82 +187,85 @@
'Shows a list of used colors of the image.'
#drawModeBox
-'Switches to mode drawing boxes.'
+'Switches to box-drawing mode.'
#drawModeCopy
-'Switches to mode copying areas.'
+'Switches to area-copy mode.'
#drawModeFill
-'Switches to mode filling areas around selected point.'
+'Switches to flood-fill mode.'
#drawModeFilledBox
-'Switches to mode drawing filled boxes.'
+'Switches to filled-box drawing mode.'
#drawModePaste
-'Switches to mode pasting areas at selected point.'
+'Switches to paste mode.'
+
+#drawModePasteUnder
+'Switches to paste under mode.'
#drawModePoint
-'Switches to mode drawing points.'
+'Switches to point-drawing mode.'
#editFlipHorizontal
-'Flips horizontally the image.'
+'Flips the image horizontally.'
#editFlipVertical
-'Flips vertically the image.'
+'Flips the image vertically.'
#editMagnifyImage
-'Opens a dialog to magnify the image.'
+'Magnify the image.'
#editNegate
-'Convertes colors of image by negating them.'
+'Invert the images colors.'
#editResize
-'Opens a dialog to resize the image with preserving the old image.'
+'Resize the image (preserving the old image).'
#editRotate
-'Opens a dialog to rotate the image in degrees.'
+'Rotate the image.'
#fileLoadFromClass
-'Opens a dialog for selecting and loading an image from resource method of a class.'
+'Selecting and load an image from a resource method.'
#fileLoadFromFile
-'Opens a dialog for selecting and loading an image from a file.'
+'Selecting and load an image from a file.'
#fileNewImage
-'Opens a dialog with choices of size and color depth to create an new image.'
+'Create a new image'
#filePrint
'Print the image on a postscript printer.'
#fileSaveAs
-'Opens a dialog to save the image to a file.'
+'Save the image to a file.'
#fileSaveMaskAs
-'Opens a dialog to save the mask of the image to a file.'
+'Save the mask of the image to a file.'
#fileSaveMethod
-'Saves the image on current class and selector.'
+'Save the image as resource method in the current class and selector.'
#fileSaveMethodAs
-'Opens a dialog for selecting and saving the image in a resource method of a class.'
+'Save the image as resource method in a class.'
#magnificationNumber
-'Shows current number of magnification.'
+'Shows the current magnification.'
#magnifyImageDown
-'Magnifies down the image.'
+'Decrease magnification.'
#magnifyImageUp
-'Magnifies up the image.'
+'Increase magnification.'
#mouseKeyColorMode
-'Switches between left and right mouse button color.'
+'Toggles between left and right mouse button color.'
#previewView
-'Shows preview of the image.'
+'Shows a preview of the image.'
#settingsGridMagnification
-'Opens a dialog to change the grid magnification of the edit view.'
+'Change the grid magnification of the edit view.'
)
! !
@@ -1031,6 +1034,13 @@
#argument: 'paste'
#indication: #editMode:value:
)
+ #(#MenuItem
+ #label: 'Paste Under'
+ #activeHelpKey: #drawModePasteUnder
+ #enabled: #imageIsLoaded
+ #argument: 'pasteUnder'
+ #indication: #editMode:value:
+ )
) nil
nil
)