ImageEditor.st
changeset 1884 2c4d13ecd7ed
parent 1883 577a267a87cb
child 1885 a09ede39c43f
equal deleted inserted replaced
1883:577a267a87cb 1884:2c4d13ecd7ed
   252 
   252 
   253 #fileGrabImage
   253 #fileGrabImage
   254 'Pick from Screen'
   254 'Pick from Screen'
   255 
   255 
   256 #fileLoadFromClass
   256 #fileLoadFromClass
   257 'Load from Method'
   257 'Load from Method...'
   258 
   258 
   259 #fileLoadFromFile
   259 #fileLoadFromFile
   260 'Load from File'
   260 'Load from File...'
   261 
   261 
   262 #fileNewImage
   262 #fileNewImage
   263 'New Image'
   263 'New Image'
   264 
   264 
   265 #filePrint
   265 #filePrint
   266 'Print'
   266 'Print'
   267 
   267 
   268 #fileSaveAs
   268 #fileSaveAs
   269 'Save to File'
   269 'Save to File...'
   270 
   270 
   271 #fileSaveMaskAs
   271 #fileSaveMaskAs
   272 'Save to File'
   272 'Save Mask to File...'
   273 
   273 
   274 #fileSaveMethod
   274 #fileSaveMethod
   275 'Save as Method'
   275 'Save as Method'
   276 
   276 
   277 #fileSaveMethodAs
   277 #fileSaveMethodAs
   278 'Save as Method'
   278 'Save as Method...'
   279 
   279 
   280 )
   280 )
   281 !
   281 !
   282 
   282 
   283 helpSpec
   283 helpSpec
  1647             itemValue: makeSelectedColorDarker
  1647             itemValue: makeSelectedColorDarker
  1648             translateLabel: true
  1648             translateLabel: true
  1649           )
  1649           )
  1650          (MenuItem
  1650          (MenuItem
  1651             enabled: hasColormap
  1651             enabled: hasColormap
       
  1652             label: 'Make Gray'
       
  1653             itemValue: makeSelectedColorGray
       
  1654             translateLabel: true
       
  1655           )
       
  1656          (MenuItem
       
  1657             enabled: hasColormap
  1652             label: 'Edit Color'
  1658             label: 'Edit Color'
  1653             itemValue: editSelectedColor
  1659             itemValue: editSelectedColor
  1654             translateLabel: true
  1660             translateLabel: true
  1655           )
  1661           )
  1656          (MenuItem
  1662          (MenuItem
  2279             activeHelpKey: fileLoadFromFile
  2285             activeHelpKey: fileLoadFromFile
  2280             label: 'loadFromFile'
  2286             label: 'loadFromFile'
  2281             itemValue: doLoadFromFile
  2287             itemValue: doLoadFromFile
  2282             translateLabel: true
  2288             translateLabel: true
  2283             isButton: true
  2289             isButton: true
  2284             labelImage: (ResourceRetriever ToolbarIconLibrary loadFromFileIcon)
  2290             labelImage: (ResourceRetriever ToolbarIconLibrary loadImageFromFileIcon)
  2285           )
  2291           )
  2286          (MenuItem
  2292          (MenuItem
  2287             activeHelpKey: fileSaveAs
  2293             activeHelpKey: fileSaveAs
  2288             enabled: imageIsLoaded
  2294             enabled: imageIsLoaded
  2289             label: 'saveAsFile'
  2295             label: 'saveAsFile'
  2290             itemValue: doSaveImageFileAs
  2296             itemValue: doSaveImageFileAs
  2291             translateLabel: true
  2297             translateLabel: true
  2292             isButton: true
  2298             isButton: true
  2293             labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
  2299             labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
  2294           )
  2300           )
  2295          (MenuItem
  2301          (MenuItem
  2296             label: ''
  2302             label: ''
  2297           )
  2303           )
  2298          (MenuItem
  2304          (MenuItem
  4080 
  4086 
  4081 makeSelectedColorDarker
  4087 makeSelectedColorDarker
  4082     self processSelectedColorWith:[:clr | clr darkened]
  4088     self processSelectedColorWith:[:clr | clr darkened]
  4083 !
  4089 !
  4084 
  4090 
       
  4091 makeSelectedColorGray
       
  4092     self processSelectedColorWith:[:clr | Color brightness:(clr brightness)]
       
  4093 !
       
  4094 
  4085 pasteColorIntoColormap
  4095 pasteColorIntoColormap
  4086     |copyBufferColor|
  4096     |copyBufferColor|
  4087 
  4097 
  4088     copyBufferColor := imageEditView getClipboardObject.
  4098     copyBufferColor := imageEditView getClipboardObject.
  4089     copyBufferColor isColor ifFalse:[
  4099     copyBufferColor isColor ifFalse:[