--- a/ModalBox.st	Mon Aug 22 15:15:31 1994 +0200
+++ b/ModalBox.st	Mon Aug 22 15:17:30 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.10 1994-08-11 23:43:20 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.11 1994-08-22 13:17:08 claus Exp $
 '!
 
 !ModalBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.10 1994-08-11 23:43:20 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.11 1994-08-22 13:17:08 claus Exp $
 "
 !
 
@@ -220,16 +220,19 @@
     "make myself visible at the screen center."
 
     self fixSize.
-    self showAt:(device center - (self extent / 2))
+    self fixPosition:(device center - (self extent / 2)).
+    self openModal
 !
 
 showAtPointer
     "make myself visible at mouse pointer shifted to have
-     convenient button under cursor.
-     Fix position to make box fully visible"
+     convenient button under cursor. self positionOffset should
+     return that offset (usually redefined, since we dont know here,
+     which button should be under cursor)."
 
     self fixSize.
-    self showAt:(device pointerPosition - self positionOffset).
+    self fixPosition:(device pointerPosition - self positionOffset).
+    self openModal
 !
 
 showAtPointerNotCovering:aView