--- a/PopUpView.st	Tue Jan 25 14:00:46 2000 +0100
+++ b/PopUpView.st	Wed Jan 26 15:15:34 2000 +0100
@@ -133,11 +133,17 @@
 
 !PopUpView methodsFor:'activation'!
 
+open
+    "default for popUpViews is to come up modal"
+
+    self openModal
+!
+
 show
     "realize the view at its last position"
 
     self fixSize.
-    self openModal:[true] "realize     "
+    self open
 !
 
 showAt:aPoint
@@ -154,7 +160,7 @@
     ].
     self origin:aPoint.
     self makeFullyVisible.
-    self openModal:[true] "realize     "
+    self open 
 !
 
 showAtPointer
@@ -329,6 +335,15 @@
 
 !PopUpView methodsFor:'queries'!
 
+grabWhenMapped
+    "return true, if I should perform a grab when mapped. 
+     Redefinable for subclasses."
+
+    ^ true
+
+    "Modified: 12.5.1996 / 21:57:51 / cg"
+!
+
 isPopUpView
     "return true, since I want to come up without decoration 
      and popUp to top immediately."
@@ -384,7 +399,8 @@
 
     (haveControl 
     and:[true "/ exclusivePointer
-    and:[realized]]) ifTrue:[
+    and:[realized
+    and:[self grabWhenMapped]]]) ifTrue:[
         (self grabPointer) ifFalse:[
             "wait a little bit and try again"
 "/            'grab pointer failed' errorPrintNL.
@@ -430,5 +446,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.43 1999-12-08 20:39:03 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.44 2000-01-26 14:15:34 cg Exp $'
 ! !