--- a/KeyboardForwarder.st	Sat Mar 13 14:10:51 1999 +0100
+++ b/KeyboardForwarder.st	Sun Mar 14 14:01:00 1999 +0100
@@ -398,6 +398,16 @@
 
 !KeyboardForwarder methodsFor:'focus forwarding'!
 
+hasKeyboardFocus:aBoolean
+    "forward focus information to my destination"
+
+    destinationView notNil ifTrue:[
+        destinationView hasKeyboardFocus:aBoolean
+    ].
+
+    "Modified: 25.2.1997 / 23:16:35 / cg"
+!
+
 showFocus:explicit
     "forward focus information to my destination"
 
@@ -486,5 +496,5 @@
 !KeyboardForwarder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.23 1998-05-20 23:56:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.24 1999-03-14 13:00:11 cg Exp $'
 ! !