--- a/PopUpView.st	Wed Jan 17 16:20:54 2001 +0100
+++ b/PopUpView.st	Tue Jan 23 17:32:26 2001 +0100
@@ -198,16 +198,18 @@
 !PopUpView methodsFor:'grabbing'!
 
 forceUngrabKeyboard
-    'PopUpView [warning]: forceUngrabKeyboard should no longer be invoked' errorPrintCR.
+"/    'PopUpView [warning]: forceUngrabKeyboard should no longer be invoked' errorPrintCR.
 "/ Transcript show:'k-uuu forced by '; show:self; show:'[',self identityHash printString,']'; showCR:' - previous is ' , previousKeyboardGrab printString.
 "/ self halt.
-    super forceUngrabKeyboard.!
+    super forceUngrabKeyboard.
+!
 
 forceUngrabPointer
-    'PopUpView [warning]: forceUngrabPointer should no longer be invoked' errorPrintCR.
+"/    'PopUpView [warning]: forceUngrabPointer should no longer be invoked' errorPrintCR.
 "/ Transcript show:'uuu forced by '; show:self; show:'[',self identityHash printString,']'; showCR:' - previous is ' , previousPointerGrab printString.
 "/ self halt.
-    super forceUngrabPointer.!
+    super forceUngrabPointer.
+!
 
 grabKeyboard
     previousKeyboardGrab := device activeKeyboardGrab.
@@ -449,5 +451,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.48 2000-10-30 14:26:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.49 2001-01-23 16:32:26 cg Exp $'
 ! !