--- a/PopUpView.st	Fri Mar 02 18:12:41 2007 +0100
+++ b/PopUpView.st	Mon Mar 12 09:24:24 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 TopView subclass:#PopUpView
@@ -127,6 +126,13 @@
     "Modified: 12.5.1996 / 22:02:52 / cg"
 !
 
+haveControl:aBoolean
+    "set the flag which decides whether the pointers canbe grab
+     during mapped.
+    "
+    haveControl := aBoolean.
+!
+
 noShadow
     "turn off the shadow"
 
@@ -454,5 +460,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.56 2005-03-31 09:26:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.57 2007-03-12 08:24:24 ca Exp $'
 ! !