--- a/PopUpView.st	Mon Oct 30 12:51:41 2000 +0100
+++ b/PopUpView.st	Mon Oct 30 15:26:55 2000 +0100
@@ -198,22 +198,16 @@
 !PopUpView methodsFor:'grabbing'!
 
 forceUngrabKeyboard
-'PopUpView [warning]: forceUngrabKeyboard should no longer be invoked' errorPrint.
+    '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' errorPrint.
+    '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.
@@ -455,5 +449,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.47 2000-09-22 11:43:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.48 2000-10-30 14:26:55 cg Exp $'
 ! !