--- a/ImageEditor.st Thu Sep 30 21:16:54 2004 +0200
+++ b/ImageEditor.st Thu Oct 14 15:16:44 2004 +0200
@@ -1683,476 +1683,486 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: '&File'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #fileNewImage
- #label: 'New...'
- #itemValue: #doNewImage
- #translateLabel: true
+ #(Menu
+ (
+ (MenuItem
+ label: '&File'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: fileNewImage
+ label: 'New...'
+ itemValue: doNewImage
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileNewImage
- #label: 'New from ClipBoard'
- #itemValue: #doNewImageFromClipboard
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileNewImage
+ label: 'New from ClipBoard'
+ itemValue: doNewImageFromClipboard
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #fileLoadFromClass
- #label: 'Load...'
- #itemValue: #doLoadFromClass
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileLoadFromClass
+ label: 'Load...'
+ itemValue: doLoadFromClass
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileLoadFromFile
- #label: 'Load from File...'
- #itemValue: #doLoadFromFile
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileLoadFromFile
+ label: 'Load from File...'
+ itemValue: doLoadFromFile
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileGrabImage
- #label: 'Grab from Screen...'
- #itemValue: #grabScreenImage
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileGrabImage
+ label: 'Grab from Screen...'
+ itemValue: grabScreenImage
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #imageHasNextImage
- #label: 'Next in Sequence'
- #itemValue: #nextImageInSequence
- #translateLabel: true
+ (MenuItem
+ enabled: imageHasNextImage
+ label: 'Next in Sequence'
+ itemValue: nextImageInSequence
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #fileSaveMethod
- #enabled: #imageIsLoadedAndClassDefined
- #label: 'Save'
- #itemValue: #doSaveMethod
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileSaveMethod
+ enabled: imageIsLoadedAndClassDefined
+ label: 'Save'
+ itemValue: doSaveMethod
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileSaveMethodAs
- #enabled: #imageIsLoaded
- #label: 'Save As...'
- #itemValue: #doSaveMethodAs
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileSaveMethodAs
+ enabled: imageIsLoaded
+ label: 'Save As...'
+ itemValue: doSaveMethodAs
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileSaveAs
- #enabled: #imageIsLoaded
- #label: 'Save to File...'
- #itemValue: #doSaveImageFileAs
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileSaveAs
+ enabled: imageIsLoaded
+ label: 'Save to File...'
+ itemValue: doSaveImageFileAs
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileSaveMaskAs
- #enabled: #imageIsLoaded
- #label: 'Save Mask to File...'
- #itemValue: #doSaveImageMaskFileAs
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileSaveMaskAs
+ enabled: imageIsLoaded
+ label: 'Save Mask to File...'
+ itemValue: doSaveImageMaskFileAs
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileSaveButtonImageAs
- #enabled: #imageIsLoaded
- #label: 'Save as Button to File...'
- #itemValue: #doSaveButtonImageToFileAs
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileSaveButtonImageAs
+ enabled: imageIsLoaded
+ label: 'Save as Button to File...'
+ itemValue: doSaveButtonImageToFileAs
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #imageIsLoaded
- #label: 'Copy to Clipboard'
- #itemValue: #doCopyImageToClipboard
- #translateLabel: true
+ (MenuItem
+ enabled: imageIsLoaded
+ label: 'Copy to Clipboard'
+ itemValue: doCopyImageToClipboard
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #fileShowStoreString
- #enabled: #imageIsLoaded
- #label: 'Show storeString'
- #itemValue: #doShowStoreString
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileShowStoreString
+ enabled: imageIsLoaded
+ label: 'Show storeString'
+ itemValue: doShowStoreString
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #fileEditMask
- #enabled: #imageIsLoaded
- #label: 'Edit Mask'
- #itemValue: #doEditMask
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileEditMask
+ enabled: imageIsLoaded
+ label: 'Edit Mask'
+ itemValue: doEditMask
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #filePrint
- #enabled: #imageIsLoaded
- #label: 'Print'
- #itemValue: #doPrint
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: filePrint
+ enabled: imageIsLoaded
+ label: 'Print'
+ itemValue: doPrint
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #fileBrowseClass
- #enabled: #hasClassDefined
- #label: 'Browse Class'
- #itemValue: #doBrowseClass
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileBrowseClass
+ enabled: hasClassDefined
+ label: 'Browse Class'
+ itemValue: doBrowseClass
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #fileExit
- #label: 'Exit'
- #itemValue: #closeRequest
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: fileExit
+ label: 'Exit'
+ itemValue: closeRequest
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #enabled: #imageIsLoaded
- #label: 'Edit'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #editUndo
- #enabled: #valueOfCanUndo
- #label: 'Undo'
- #itemValue: #doUndo
- #translateLabel: true
+ (MenuItem
+ enabled: imageIsLoaded
+ label: 'Edit'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: editUndo
+ enabled: valueOfCanUndo
+ label: 'Undo'
+ itemValue: doUndo
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #editFlipVertical
- #label: 'Flip - Vertical'
- #itemValue: #doFlipVertical
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: editFlipVertical
+ label: 'Flip - Vertical'
+ itemValue: doFlipVertical
+ translateLabel: true
+ )
+ (MenuItem
+ activeHelpKey: editFlipHorizontal
+ label: 'Flip - Horizontal'
+ itemValue: doFlipHorizontal
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #editFlipHorizontal
- #label: 'Flip - Horizontal'
- #itemValue: #doFlipHorizontal
- #translateLabel: true
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ activeHelpKey: editResize
+ label: 'Resize...'
+ itemValue: doResizeImage
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #editResize
- #label: 'Resize...'
- #itemValue: #doResizeImage
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: editMagnifyImage
+ label: 'Magnify...'
+ itemValue: doMagnifyImage
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #editMagnifyImage
- #label: 'Magnify...'
- #itemValue: #doMagnifyImage
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: editMagnifyImage
+ label: 'Magnify By...'
+ itemValue: doMagnifyImageBy
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #editMagnifyImage
- #label: 'Magnify By...'
- #itemValue: #doMagnifyImageBy
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: editRotate
+ label: 'Rotate...'
+ itemValue: doRotateImage
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #editRotate
- #label: 'Rotate...'
- #itemValue: #doRotateImage
- #translateLabel: true
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: 'Invert'
+ itemValue: doNegativeImage
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Invert'
- #itemValue: #doNegativeImage
- #translateLabel: true
+ (MenuItem
+ label: 'Brighten'
+ itemValue: doBrightenImage
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: 'Darken'
+ itemValue: doDarkenImage
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Crop'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #cropAll
- #label: 'All'
- #itemValue: #doCropAll
- #translateLabel: true
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Crop'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: cropAll
+ label: 'All'
+ itemValue: doCropAll
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #cropLeft
- #label: 'Left'
- #itemValue: #doCropLeft
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: cropLeft
+ label: 'Left'
+ itemValue: doCropLeft
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #cropRight
- #label: 'Right'
- #itemValue: #doCropRight
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: cropRight
+ label: 'Right'
+ itemValue: doCropRight
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #cropTop
- #label: 'Top'
- #itemValue: #doCropTop
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: cropTop
+ label: 'Top'
+ itemValue: doCropTop
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #cropBottom
- #label: 'Bottom'
- #itemValue: #doCropBottom
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: cropBottom
+ label: 'Bottom'
+ itemValue: doCropBottom
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #cropManual
- #label: 'Manual...'
- #itemValue: #doCropManual
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: cropManual
+ label: 'Manual...'
+ itemValue: doCropManual
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #activeHelpKey: #uncropManual
- #label: 'Uncrop (Add Border)...'
- #itemValue: #doUnCropManual
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: uncropManual
+ label: 'Uncrop (Add Border)...'
+ itemValue: doUnCropManual
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #shiftManual
- #label: 'Shift...'
- #itemValue: #doShiftManual
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: shiftManual
+ label: 'Shift...'
+ itemValue: doShiftManual
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #enabled: #imageIsLoaded
- #label: 'Mode'
- #translateLabel: true
- #submenuChannel: #modeMenu
+ (MenuItem
+ enabled: imageIsLoaded
+ label: 'Mode'
+ translateLabel: true
+ submenuChannel: modeMenu
)
- #(#MenuItem
- #enabled: #imageIsLoaded
- #label: 'ColorMap'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Depth'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #colorMap8
- #label: '8-Plane'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #depth8
- #choice: #colorMapMode
- #choiceValue: #depth8
+ (MenuItem
+ enabled: imageIsLoaded
+ label: 'ColorMap'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Depth'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: colorMap8
+ label: '8-Plane'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: depth8
+ choice: colorMapMode
+ choiceValue: depth8
)
- #(#MenuItem
- #activeHelpKey: #colorMap4
- #label: '4-Plane'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #depth4
- #choice: #colorMapMode
- #choiceValue: #depth4
+ (MenuItem
+ activeHelpKey: colorMap4
+ label: '4-Plane'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: depth4
+ choice: colorMapMode
+ choiceValue: depth4
)
- #(#MenuItem
- #activeHelpKey: #colorMap2
- #label: '2-Plane'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #depth2
- #choice: #colorMapMode
- #choiceValue: #depth2
+ (MenuItem
+ activeHelpKey: colorMap2
+ label: '2-Plane'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: depth2
+ choice: colorMapMode
+ choiceValue: depth2
)
- #(#MenuItem
- #activeHelpKey: #colorMap1
- #label: '1-Plane'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #depth1
- #choice: #colorMapMode
- #choiceValue: #depth1
+ (MenuItem
+ activeHelpKey: colorMap1
+ label: '1-Plane'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: depth1
+ choice: colorMapMode
+ choiceValue: depth1
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #colorMap8M
- #label: '8-Plane + Mask'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #masked8
- #choice: #colorMapMode
- #choiceValue: #masked8
+ (MenuItem
+ activeHelpKey: colorMap8M
+ label: '8-Plane + Mask'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: masked8
+ choice: colorMapMode
+ choiceValue: masked8
)
- #(#MenuItem
- #activeHelpKey: #colorMap4M
- #label: '4-Plane + Mask'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #masked4
- #choice: #colorMapMode
- #choiceValue: #masked4
+ (MenuItem
+ activeHelpKey: colorMap4M
+ label: '4-Plane + Mask'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: masked4
+ choice: colorMapMode
+ choiceValue: masked4
)
- #(#MenuItem
- #activeHelpKey: #colorMap2M
- #label: '2-Plane + Mask'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #masked2
- #choice: #colorMapMode
- #choiceValue: #masked2
+ (MenuItem
+ activeHelpKey: colorMap2M
+ label: '2-Plane + Mask'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: masked2
+ choice: colorMapMode
+ choiceValue: masked2
)
- #(#MenuItem
- #activeHelpKey: #colorMap1M
- #label: '1-Plane + Mask'
- #itemValue: #colorMapMode:
- #translateLabel: true
- #argument: #masked1
- #choice: #colorMapMode
- #choiceValue: #masked1
+ (MenuItem
+ activeHelpKey: colorMap1M
+ label: '1-Plane + Mask'
+ itemValue: colorMapMode:
+ translateLabel: true
+ argument: masked1
+ choice: colorMapMode
+ choiceValue: masked1
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Colors'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #compressColormap
- #enabled: #hasColormap
- #label: 'Compress Colormap'
- #itemValue: #compressColorMap
- #translateLabel: true
+ (MenuItem
+ label: 'Colors'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: compressColormap
+ enabled: hasColormap
+ label: 'Compress Colormap'
+ itemValue: compressColorMap
+ translateLabel: true
)
- #(#MenuItem
- #enabled: #hasColormap
- #label: 'Sort Colormap'
- #itemValue: #sortColorMap
- #translateLabel: true
+ (MenuItem
+ enabled: hasColormap
+ label: 'Sort Colormap'
+ itemValue: sortColorMap
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Reduce Number of Colors...'
- #itemValue: #reduceNumberOfColors
- #translateLabel: true
+ (MenuItem
+ label: 'Reduce Number of Colors...'
+ itemValue: reduceNumberOfColors
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Process'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Make GrayScale'
- #itemValue: #makeGrayScale
- #translateLabel: true
+ (MenuItem
+ label: 'Process'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Make GrayScale'
+ itemValue: makeGrayScale
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Make Brighter'
- #itemValue: #makeBrighter
- #translateLabel: true
+ (MenuItem
+ label: 'Make Brighter'
+ itemValue: makeBrighter
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Make Darker'
- #itemValue: #makeDarker
- #translateLabel: true
+ (MenuItem
+ label: 'Make Darker'
+ itemValue: makeDarker
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Make Inverse'
- #itemValue: #makeInverse
- #translateLabel: true
+ (MenuItem
+ label: 'Make Inverse'
+ itemValue: makeInverse
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Change HLS...'
- #itemValue: #changeHLS
- #translateLabel: true
+ (MenuItem
+ label: 'Change HLS...'
+ itemValue: changeHLS
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Mask'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #copyMask
- #enabled: #hasMask
- #label: 'Copy Mask'
- #itemValue: #copyMask
- #translateLabel: true
+ (MenuItem
+ label: 'Mask'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: copyMask
+ enabled: hasMask
+ label: 'Copy Mask'
+ itemValue: copyMask
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #pasteMask
- #enabled: #hasMask
- #label: 'Paste Mask'
- #itemValue: #pasteMask
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: pasteMask
+ enabled: hasMask
+ label: 'Paste Mask'
+ itemValue: pasteMask
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Clear Masked Pixels'
- #itemValue: #clearMaskedPixels
- #translateLabel: true
+ (MenuItem
+ label: 'Clear Masked Pixels'
+ itemValue: clearMaskedPixels
+ translateLabel: true
)
)
nil
@@ -2164,33 +2174,33 @@
nil
)
)
- #(#MenuItem
- #label: 'Settings'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #settingsGridMagnification
- #label: 'Grid Magnification Limit...'
- #itemValue: #doChangeGridMagnification
- #translateLabel: true
+ (MenuItem
+ label: 'Settings'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: settingsGridMagnification
+ label: 'Grid Magnification Limit...'
+ itemValue: doChangeGridMagnification
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'History'
- #translateLabel: true
- #submenuChannel: #menuHistory
+ (MenuItem
+ label: 'History'
+ translateLabel: true
+ submenuChannel: menuHistory
)
- #(#MenuItem
- #label: 'Help'
- #translateLabel: true
- #startGroup: #right
- #submenuChannel: #menuHelp
+ (MenuItem
+ label: 'Help'
+ translateLabel: true
+ startGroup: right
+ submenuChannel: menuHelp
)
)
nil
@@ -4318,6 +4328,13 @@
!ImageEditor methodsFor:'user actions-editing'!
+doBrightenImage
+ imageEditView brightenImage.
+ self listOfColors removeAll.
+ self findColorMapMode.
+ imageEditView undoImages removeLast
+!
+
doBrowseClass
"opens a System Browser on the resourceClass and the resourceSelector"
@@ -4445,6 +4462,13 @@
"Modified: / 7.9.1998 / 14:26:52 / cg"
!
+doDarkenImage
+ imageEditView darkenImage.
+ self listOfColors removeAll.
+ self findColorMapMode.
+ imageEditView undoImages removeLast
+!
+
doEditMask
""