--- a/ImageEditor.st Wed Jun 04 14:33:40 2008 +0200
+++ b/ImageEditor.st Thu Jun 05 14:03:15 2008 +0200
@@ -2075,6 +2075,13 @@
translateLabel: true
)
(MenuItem
+ activeHelpKey: edit3DProjection
+ label: '3D Projection...'
+ itemValue: do3DProjection
+ translateLabel: true
+ )
+
+ (MenuItem
label: 'Flip'
translateLabel: true
submenu:
@@ -4930,6 +4937,34 @@
!ImageEditor methodsFor:'user actions-editing'!
+do3DProjection
+ |box dx1 dx2 image|
+
+ image := imageEditView image.
+
+ box := EnterBox new.
+ box title:(resources string:'dX1 (0 < dx < 0.5):').
+ box okText:(resources string:'OK').
+ box abortText:(resources string:'Cancel').
+ box initialText:'0.1'.
+ box showAtPointer.
+
+ (box accepted
+ and: [(dx1 := Number readFrom:(box contents) onError:nil) notNil])
+ ifTrue:[
+ box title:(resources string:'dX2 (0 < dx < 0.5):').
+ box initialText:(dx1 printString).
+ box showAtPointer.
+ (box accepted
+ and: [(dx2 := Number readFrom:(box contents) onError:nil) notNil])
+ ifTrue:[
+ imageEditView threeDProjection:dx1 and:dx2.
+ ]
+ ].
+
+ self updateInfoLabel
+!
+
doBrightenImage
imageEditView brightenImage.
self listOfColors removeAll.