--- a/TopView.st	Fri Feb 28 22:55:58 1997 +0100
+++ b/TopView.st	Fri Feb 28 22:56:48 1997 +0100
@@ -303,6 +303,18 @@
     self makeFullyVisible
 
     "Created: 28.2.1997 / 16:39:31 / cg"
+!
+
+positionOffset
+    "return the delta, by which the box should be
+     displaced from the mouse pointer.
+     Here, the boxes center is returned as a default.
+     Usually redefined in subclasses to have the most convenient
+     ok-button appear under the pointer."
+
+    ^ self extent // 2
+
+    "Created: 28.2.1997 / 22:56:34 / cg"
 ! !
 
 !TopView methodsFor:'startup'!
@@ -499,5 +511,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.39 1997-02-28 21:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.40 1997-02-28 21:56:48 cg Exp $'
 ! !