--- a/KeyboardForwarder.st	Fri Aug 02 13:56:18 2002 +0200
+++ b/KeyboardForwarder.st	Fri Aug 02 13:57:28 2002 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libview' }"
+
 Object subclass:#KeyboardForwarder
 	instanceVariableNames:'sourceView destinationView destination condition filter'
 	classVariableNames:''
@@ -342,10 +344,7 @@
         destination keyPress:key x:nil y:nil view:aView.
     ] ifFalse:[
         destinationView notNil ifTrue:[
-            forwardedEvent := WindowEvent inputEvent
-                                for:destinationView
-                                type:#keyPress:x:y:
-                                arguments:(Array with:key with:xDel with:yDel).
+            forwardedEvent := WindowEvent keyPress:key x:xDel y:yDel view:destinationView.
             destinationView
                 dispatchEvent:forwardedEvent
                 withFocusOn:nil 
@@ -378,14 +377,8 @@
         destination keyRelease:key x:-1 y:-1 view:aView
     ] ifFalse:[
         destinationView notNil ifTrue:[
-            forwardedEvent := WindowEvent inputEvent
-                                for:destinationView
-                                type:#keyRelease:x:y:
-                                arguments:(Array with:key with:-1 with:-1).
-            destinationView
-                dispatchEvent:forwardedEvent
-                withFocusOn:nil 
-                delegate:false
+            forwardedEvent := WindowEvent keyRelease:key x:-1 y:-1 view:destinationView.
+            destinationView dispatchEvent:forwardedEvent withFocusOn:nil delegate:false
         ]
     ]
 
@@ -492,5 +485,5 @@
 !KeyboardForwarder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.25 1999-12-08 20:49:59 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.26 2002-08-02 11:57:28 ca Exp $'
 ! !