--- 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.