ImageEditor.st
changeset 2354 15be12f5e320
parent 2339 a06d19fe7b32
child 2375 c775c95566b9
equal deleted inserted replaced
2353:13774605a1a7 2354:15be12f5e320
  2073             label: 'Rotate...'
  2073             label: 'Rotate...'
  2074             itemValue: doRotateImage
  2074             itemValue: doRotateImage
  2075             translateLabel: true
  2075             translateLabel: true
  2076           )
  2076           )
  2077          (MenuItem
  2077          (MenuItem
       
  2078             activeHelpKey: edit3DProjection
       
  2079             label: '3D Projection...'
       
  2080             itemValue: do3DProjection
       
  2081             translateLabel: true
       
  2082           )
       
  2083 
       
  2084          (MenuItem
  2078             label: 'Flip'
  2085             label: 'Flip'
  2079             translateLabel: true
  2086             translateLabel: true
  2080             submenu: 
  2087             submenu: 
  2081            (Menu
  2088            (Menu
  2082               (
  2089               (
  4928     "Created: / 30.9.1998 / 23:51:23 / cg"
  4935     "Created: / 30.9.1998 / 23:51:23 / cg"
  4929 ! !
  4936 ! !
  4930 
  4937 
  4931 !ImageEditor methodsFor:'user actions-editing'!
  4938 !ImageEditor methodsFor:'user actions-editing'!
  4932 
  4939 
       
  4940 do3DProjection
       
  4941     |box dx1 dx2 image|
       
  4942 
       
  4943     image := imageEditView image.
       
  4944 
       
  4945     box := EnterBox new.
       
  4946     box title:(resources string:'dX1 (0 < dx < 0.5):').
       
  4947     box okText:(resources string:'OK').
       
  4948     box abortText:(resources string:'Cancel').
       
  4949     box initialText:'0.1'.
       
  4950     box showAtPointer.
       
  4951 
       
  4952     (box accepted 
       
  4953     and: [(dx1 := Number readFrom:(box contents) onError:nil) notNil])
       
  4954     ifTrue:[
       
  4955         box title:(resources string:'dX2 (0 < dx < 0.5):').
       
  4956         box initialText:(dx1 printString).
       
  4957         box showAtPointer.
       
  4958         (box accepted 
       
  4959         and: [(dx2 := Number readFrom:(box contents) onError:nil) notNil])
       
  4960         ifTrue:[
       
  4961             imageEditView threeDProjection:dx1 and:dx2.
       
  4962         ]
       
  4963     ].
       
  4964 
       
  4965     self updateInfoLabel
       
  4966 !
       
  4967 
  4933 doBrightenImage
  4968 doBrightenImage
  4934     imageEditView brightenImage.
  4969     imageEditView brightenImage.
  4935     self listOfColors removeAll.
  4970     self listOfColors removeAll.
  4936     self findColorMapMode.     
  4971     self findColorMapMode.     
  4937     imageEditView removelastUndo
  4972     imageEditView removelastUndo