DisplaySurface.st
changeset 2525 eb86ba35aafc
parent 2512 f7c7f082e65b
child 2632 e18b55db3e1e
--- a/DisplaySurface.st	Sat Mar 20 00:09:34 1999 +0100
+++ b/DisplaySurface.st	Sun Mar 21 18:55:06 1999 +0100
@@ -1118,10 +1118,11 @@
      the focusView (0 @ 0) is passed as x/y coordinates.
     "
     (focusView notNil 
-    and:[isKeyEvent]) ifTrue:[
+    and:[isKeyEvent
+    and:[self ~~ focusView]]) ifTrue:[
         focusView 
             dispatchEvent:type 
-            arguments:(Array with:(argArray at:1) with:0 with:0)
+            arguments:(Array with:(argArray at:1) with:-1 with:-1)
             withFocusOn:nil
             delegate:doDelegate.
         ^ self
@@ -2117,5 +2118,5 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.56 1999-03-15 10:56:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.57 1999-03-21 17:54:38 cg Exp $'
 ! !