#fcousInView:.. and #focusOutView:...
Ignore NoitfyGrab-mode events
--- a/XWorkstation.st Thu Apr 02 23:51:51 2009 +0200
+++ b/XWorkstation.st Fri Apr 03 14:23:06 2009 +0200
@@ -4567,15 +4567,21 @@
!
focusIn:view mode:mode detail:detail
- "forward a key-press event for some view"
-
- self focusInView:view
+ "a view got the keyboard focus"
+
+ mode ~~ 1 "NotifyGrab" ifTrue:[
+ "mode NotifyGrab is set for pseudo-focus-changes, when a view grabs the keyboard"
+ self focusInView:view
+ ].
!
focusOut:view mode:mode detail:detail
- "forward a key-press event for some view"
-
- self focusOutView:view
+ "a view lost the keyboard focus"
+
+ mode ~~ 1 "NotifyGrab" ifTrue:[
+ "mode NotifyGrab is set for pseudo-focus-changes, when a view grabs the keyboard"
+ self focusOutView:view
+ ].
!
graphicsExpose:view x:x y:y width:w height:h count:count
@@ -12031,7 +12037,7 @@
!XWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.506 2009-03-20 17:13:30 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.507 2009-04-03 12:23:06 stefan Exp $'
! !
XWorkstation initialize!