# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1238761386 -7200
# Node ID 416116f4deacece1c600bb7001130a5bb88ade85
# Parent  fb88be5a3deaeed329b8263a0d58c8b24600bc68
#fcousInView:.. and #focusOutView:...
Ignore NoitfyGrab-mode events

diff -r fb88be5a3dea -r 416116f4deac XWorkstation.st
--- 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!