--- a/ModalBox.st	Mon Oct 11 11:07:07 2010 +0200
+++ b/ModalBox.st	Mon Oct 11 13:24:09 2010 +0200
@@ -793,8 +793,8 @@
     pos := pointerPosition - positionOffset.
 
     alignedPos := Point
-	x:(pos x max:monitorBounds left)
-	y:(pos y max:monitorBounds top).
+        x:(pos x max:monitorBounds left)
+        y:(pos y max:monitorBounds top).
 
     positionOffset := pointerPosition - alignedPos.
 
@@ -802,21 +802,21 @@
     pos := self origin.
 
     "We have got a problem here:
-	X11 adds some window decoration. The size of the decoration is only known
-	after the view is visible!!
+        X11 adds some window decoration. The size of the decoration is only known
+        after the view is visible!!
 
-	So there is a (hopefully) small offset from the pointer to the requested
-	position. The only way to resolve this, is to move the pointer to
-	the requested position after the view is visible"
+        So there is a (hopefully) small offset from the pointer to the requested
+        position. The only way to resolve this, is to move the pointer to
+        the requested position after the view is visible"
 
     first := true.
     self openModal:[
-	(first and:[shown]) ifTrue:[
-	    self origin:pos.
-	    first := false.
-	    self setPointerPosition:positionOffset.
-	].
-	true
+        (first and:[shown]) ifTrue:[
+"/            self origin:pos.
+            first := false.
+            self setPointerPosition:positionOffset.
+        ].
+        true
     ].
 
     "/ cannot use:
@@ -910,11 +910,11 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.104 2010-10-11 09:05:37 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.105 2010-10-11 11:24:09 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.104 2010-10-11 09:05:37 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.105 2010-10-11 11:24:09 mb Exp $'
 ! !
 
 ModalBox initialize!