--- a/PopUpView.st	Tue Jun 25 23:37:44 2013 +0200
+++ b/PopUpView.st	Wed Jun 26 01:04:06 2013 +0200
@@ -205,20 +205,6 @@
 
 !PopUpView methodsFor:'grabbing'!
 
-forceUngrabKeyboard
-"/    '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.
-!
-
-forceUngrabPointer
-"/    '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.
-!
-
 grabKeyboard
     previousKeyboardGrab := device activeKeyboardGrab.
 "/ Transcript show:'k-ggg by '; show:self; show:'[',self identityHash printString,']'; showCR:' - previous is ' , previousKeyboardGrab printString.
@@ -460,9 +446,10 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.59 2009-10-24 14:02:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.60 2013-06-25 23:04:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.59 2009-10-24 14:02:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.60 2013-06-25 23:04:06 cg Exp $'
 ! !
+