--- 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 $'
! !
+