--- a/JavaView.st	Mon Jan 12 13:51:13 1998 +0000
+++ b/JavaView.st	Mon Jan 12 14:24:47 1998 +0000
@@ -1,4 +1,4 @@
-'From Smalltalk/X, Version:3.1.9 on 23-aug-1997 at 4:27:17 pm'                  !
+'From Smalltalk/X, Version:3.3.1 on 8-jan-1998 at 9:38:55 pm'                   !
 
 View subclass:#JavaView
 	instanceVariableNames:'eventReceiver updateRegions javaPeer'
@@ -51,6 +51,8 @@
 buttonMotion:state x:x y:y
     |ev|
 
+'JavaView buttonMotion' printCR.
+
     eventReceiver notNil ifTrue:[
         ev := WindowEvent buttonEvent
                  for:self
@@ -59,13 +61,15 @@
         eventReceiver processEvent:ev.
     ].
 
-    "Modified: 21.8.1997 / 19:40:40 / cg"
-    "Created: 23.8.1997 / 03:13:38 / cg"
+    "Created: / 23.8.1997 / 03:13:38 / cg"
+    "Modified: / 8.1.1998 / 17:59:42 / cg"
 !
 
 buttonPress:button x:x y:y
     |ev|
 
+'JavaView buttonPress' printCR.
+
     eventReceiver notNil ifTrue:[
         ev := WindowEvent buttonEvent
                  for:self
@@ -74,13 +78,15 @@
         eventReceiver processEvent:ev.
     ].
 
-    "Created: 21.8.1997 / 19:37:57 / cg"
-    "Modified: 21.8.1997 / 19:40:40 / cg"
+    "Created: / 21.8.1997 / 19:37:57 / cg"
+    "Modified: / 8.1.1998 / 17:59:32 / cg"
 !
 
 buttonRelease:button x:x y:y
     |ev|
 
+'JavaView buttonRelease' printCR.
+
     eventReceiver notNil ifTrue:[
         ev := WindowEvent buttonEvent
                  for:self
@@ -89,13 +95,15 @@
         eventReceiver processEvent:ev.
     ].
 
-    "Modified: 21.8.1997 / 19:40:40 / cg"
-    "Created: 23.8.1997 / 02:22:23 / cg"
+    "Created: / 23.8.1997 / 02:22:23 / cg"
+    "Modified: / 8.1.1998 / 17:59:25 / cg"
 !
 
 exposeX:x y:y width:w height:h
     |ev|
 
+'JavaView expose' printCR.
+
     updateRegions isNil ifTrue:[
         updateRegions := OrderedCollection new.
     ].
@@ -108,8 +116,42 @@
     ].
     super exposeX:x y:y width:w height:h
 
-    "Created: 18.8.1997 / 15:00:24 / cg"
-    "Modified: 21.8.1997 / 19:39:06 / cg"
+    "Created: / 18.8.1997 / 15:00:24 / cg"
+    "Modified: / 8.1.1998 / 17:59:11 / cg"
+!
+
+keyPress:key x:x y:y
+    |ev|
+
+'JavaView keyPress' printCR.
+
+    eventReceiver notNil ifTrue:[
+        ev := WindowEvent buttonEvent
+                 for:self
+                 type:#keyPress:x:y:
+                 arguments:(Array with:key with:x with:y).
+        eventReceiver processEvent:ev.
+    ].
+
+    "Modified: / 8.1.1998 / 17:59:32 / cg"
+    "Created: / 8.1.1998 / 18:01:55 / cg"
+!
+
+keyRelease:key x:x y:y
+    |ev|
+
+'JavaView keyRelease' printCR.
+
+    eventReceiver notNil ifTrue:[
+        ev := WindowEvent buttonEvent
+                 for:self
+                 type:#keyRelease:x:y:
+                 arguments:(Array with:key with:x with:y).
+        eventReceiver processEvent:ev.
+    ].
+
+    "Modified: / 8.1.1998 / 17:59:32 / cg"
+    "Created: / 8.1.1998 / 18:02:03 / cg"
 ! !
 
 !JavaView methodsFor:'initialization'!
@@ -127,5 +169,5 @@
 !JavaView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.6 1997/08/28 02:34:59 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.7 1998/01/12 14:24:46 cg Exp $'
 ! !