--- a/PopUpMenu.st	Thu May 21 01:29:03 1998 +0200
+++ b/PopUpMenu.st	Thu May 21 02:00:55 1998 +0200
@@ -889,7 +889,7 @@
     ].
 
     aPoint isNil ifTrue:[
-        self showAtPointer
+        self showAt:(device pointerPosition) resizing:true
     ] ifFalse:[
         self showAt:aPoint.
     ].
@@ -913,8 +913,8 @@
                                   values:#(foo bar baz)) startUp
     "
 
-    "Created: 10.1.1996 / 20:11:42 / cg"
-    "Modified: 17.10.1997 / 02:34:52 / cg"
+    "Created: / 10.1.1996 / 20:11:42 / cg"
+    "Modified: / 20.5.1998 / 22:39:03 / cg"
 !
 
 startUpWithHeading:aString
@@ -1451,5 +1451,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.73 1998-04-25 13:42:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.74 1998-05-21 00:00:55 cg Exp $'
 ! !