--- a/ModalBox.st	Fri Feb 28 22:55:40 1997 +0100
+++ b/ModalBox.st	Fri Feb 28 22:55:58 1997 +0100
@@ -491,15 +491,6 @@
     "
 !
 
-fixPosition:aPoint
-    "set origin to aPoint, but make sure, that the box is fully visible 
-     by shifting it into the visible screen area if nescessary.
-     This prevents invisible modalBoxes (which you could never close)."
-
-    self origin:aPoint.
-    self makeFullyVisible
-!
-
 fixSize
     "this is sent right before the modalBox is made visible;
      If the size is not fixed, adjust my size."
@@ -809,6 +800,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.53 1997-02-28 21:34:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.54 1997-02-28 21:55:58 cg Exp $'
 ! !
 ModalBox initialize!