ImageEditor.st
changeset 1949 00defdb89630
parent 1943 ecc231b19955
child 1951 9ad40a628278
equal deleted inserted replaced
1948:d1da9181f848 1949:00defdb89630
  2345             translateLabel: true
  2345             translateLabel: true
  2346             isButton: true
  2346             isButton: true
  2347             labelImage: (ResourceRetriever ToolbarIconLibrary newImageIcon)
  2347             labelImage: (ResourceRetriever ToolbarIconLibrary newImageIcon)
  2348           )
  2348           )
  2349          (MenuItem
  2349          (MenuItem
       
  2350             label: '-'
       
  2351           )
       
  2352          (MenuItem
  2350             activeHelpKey: fileLoadFromFile
  2353             activeHelpKey: fileLoadFromFile
  2351             label: 'loadFromFile'
  2354             label: 'loadFromFile'
  2352             itemValue: doLoadFromFile
  2355             itemValue: doLoadFromFile
  2353             translateLabel: true
  2356             translateLabel: true
  2354             isButton: true
  2357             isButton: true
  2362             translateLabel: true
  2365             translateLabel: true
  2363             isButton: true
  2366             isButton: true
  2364             labelImage: (ResourceRetriever ToolbarIconLibrary saveImageToFileAsIcon)
  2367             labelImage: (ResourceRetriever ToolbarIconLibrary saveImageToFileAsIcon)
  2365           )
  2368           )
  2366          (MenuItem
  2369          (MenuItem
  2367             label: ''
  2370             label: '-'
  2368           )
  2371           )
  2369          (MenuItem
  2372          (MenuItem
  2370             activeHelpKey: fileLoadFromClass
  2373             activeHelpKey: fileLoadFromClass
  2371             label: 'loadFromClass'
  2374             label: 'loadFromClass'
  2372             itemValue: doLoadFromClass
  2375             itemValue: doLoadFromClass
  2373             translateLabel: true
  2376             translateLabel: true
  2374             isButton: true
  2377             isButton: true
  2375             submenuChannel: menuHistory                             
  2378             submenuChannel: menuHistory
  2376             labelImage: (ResourceRetriever ToolbarIconLibrary loadImageFromMethodIcon)
  2379             labelImage: (ResourceRetriever ToolbarIconLibrary loadImageFromMethodIcon)
  2377             keepLinkedMenu: true
  2380             keepLinkedMenu: true
  2378           )
  2381           )
  2379          (MenuItem
  2382          (MenuItem
  2380             activeHelpKey: fileSaveMethodAs
  2383             activeHelpKey: fileSaveMethodAs
  2384             translateLabel: true
  2387             translateLabel: true
  2385             isButton: true
  2388             isButton: true
  2386             labelImage: (ResourceRetriever ToolbarIconLibrary saveImageAsMethodAsIcon)
  2389             labelImage: (ResourceRetriever ToolbarIconLibrary saveImageAsMethodAsIcon)
  2387           )
  2390           )
  2388          (MenuItem
  2391          (MenuItem
  2389             label: ''
  2392             label: '-'
  2390           )
       
  2391          (MenuItem
       
  2392             label: ''
       
  2393           )
  2393           )
  2394          (MenuItem
  2394          (MenuItem
  2395             activeHelpKey: editUndo
  2395             activeHelpKey: editUndo
  2396             enabled: valueOfCanUndo
  2396             enabled: valueOfCanUndo
  2397             label: 'Undo'
  2397             label: 'Undo'
  3984             image := newImage fromImage:oldImage
  3984             image := newImage fromImage:oldImage
  3985         ].
  3985         ].
  3986 
  3986 
  3987         (aMode asString startsWith:'mask') ifTrue:[
  3987         (aMode asString startsWith:'mask') ifTrue:[
  3988             image mask isNil ifTrue:[
  3988             image mask isNil ifTrue:[
  3989                 (Dialog confirm:'Generate mask from black ?' default:false) ifTrue:[
  3989                 false "(Dialog confirm:'Generate mask from black ?' default:false)" ifTrue:[
  3990                     maskThreshold := 0.1.
  3990                     maskThreshold := 0.1.
  3991                     maskImage := Depth1Image fromImage:(image asThresholdMonochromeImage:maskThreshold). 
  3991                     maskImage := Depth1Image fromImage:(image asThresholdMonochromeImage:maskThreshold). 
  3992                 ] ifFalse:[
  3992                 ] ifFalse:[
  3993                     maskImage := Depth1Image extent:image extent.
  3993                     maskImage := Depth1Image extent:image extent.
  3994                     maskImage bits:(ByteArray 
  3994                     maskImage bits:(ByteArray 
  4050         ^ self
  4050         ^ self
  4051     ].
  4051     ].
  4052 
  4052 
  4053     imageEditView makeUndo.
  4053     imageEditView makeUndo.
  4054 
  4054 
  4055     self information:('Compress colorMap: %1 colors used.' bindWith:usedColors size).
  4055 "/    self information:('Compress colorMap: %1 colors used.' bindWith:usedColors size).
  4056 
  4056 
  4057     self withExecuteCursorDo:[
  4057     self withExecuteCursorDo:[
  4058 "/        newColorMap := Array new:usedColors size.
  4058 "/        newColorMap := Array new:usedColors size.
  4059 
  4059 
  4060         "/ translation table
  4060         "/ translation table