--- a/PopUpView.st	Sun May 12 22:02:04 1996 +0200
+++ b/PopUpView.st	Sun May 12 22:05:21 1996 +0200
@@ -100,7 +100,13 @@
 !PopUpView methodsFor:'accessing'!
 
 exclusivePointer:aBoolean
+    "set/clear the exclusive pointer flag;
+     DANGER: if set, no interaction with other views is possible,
+     while the popUp is active"
+
     exclusivePointer := aBoolean
+
+    "Modified: 12.5.1996 / 22:02:52 / cg"
 !
 
 noShadow
@@ -169,12 +175,17 @@
 !PopUpView methodsFor:'dispatching'!
 
 modalLoop
+    "obsolete support for small configuration without threads.
+     This is no longer used"
+
     haveControl := true.
 
-    "this is a kludge - we do not have multiple processes, therefore
+    "this is a kludge - if we do not have multiple processes, therefore
      we start another dispatch loop, which exits when control is lost"
 
     device dispatchFor:nil while:[haveControl]
+
+    "Modified: 12.5.1996 / 22:03:52 / cg"
 ! !
 
 !PopUpView methodsFor:'initialize / release'!
@@ -229,41 +240,38 @@
 !
 
 releasePointer 
+    "release the mouse pointer"
+
     device activePointerGrab == self ifTrue:[
-	device ungrabPointer.
+        device ungrabPointer.
     ].
+
+    "Modified: 12.5.1996 / 22:04:09 / cg"
 ! !
 
 !PopUpView methodsFor:'private'!
 
-leaveControl
-    haveControl := false
-!
+regainControl
+    "get exclusive access to pointer and keyboard"
 
-regainControl
     shown ifTrue:[
         device grabPointerInView:self. 
         device grabKeyboardInView:self.
     ].
 
-    "Modified: 1.3.1996 / 13:18:22 / cg"
     "Modified: 6.5.1996 / 22:33:39 / stefan"
-!
-
-takeControl
-^ self.
-    haveControl := true.
-
-    "this is a kludge - we do not have multiple processes, therefore
-     we start another dispatch loop, which exits when control is lost"
-
-    device dispatchFor:drawableId while:[haveControl]
+    "Modified: 12.5.1996 / 22:04:42 / cg"
 ! !
 
 !PopUpView methodsFor:'queries'!
 
 isPopUpView
+    "return true, since I want to come up without decoration 
+     and popUp to top immediately."
+
     ^ true
+
+    "Modified: 12.5.1996 / 21:57:51 / cg"
 ! !
 
 !PopUpView methodsFor:'realize / unrealize'!
@@ -325,5 +333,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.29 1996-05-06 21:33:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.30 1996-05-12 20:05:21 cg Exp $'
 ! !