KeyboardForwarder.st
changeset 385 15fd1c806d2a
parent 251 915de9a65169
child 400 47fa508fd78b
--- a/KeyboardForwarder.st	Sat Jan 27 16:03:24 1996 +0100
+++ b/KeyboardForwarder.st	Sat Jan 27 16:35:09 1996 +0100
@@ -316,6 +316,20 @@
     ]
 ! !
 
+!KeyboardForwarder methodsFor:'focus forwarding'!
+
+showFocus:explicit
+    destinationView notNil ifTrue:[destinationView showFocus:explicit]
+
+    "Created: 27.1.1996 / 13:06:53 / cg"
+!
+
+showNoFocus:explicit
+    destinationView notNil ifTrue:[destinationView showNoFocus:explicit]
+
+    "Created: 27.1.1996 / 13:07:52 / cg"
+! !
+
 !KeyboardForwarder methodsFor:'queries'!
 
 checkCondition:type key:key view:aView
@@ -358,5 +372,5 @@
 !KeyboardForwarder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.9 1995-11-23 17:45:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.10 1996-01-27 15:34:55 cg Exp $'
 ! !