--- a/JavaView.st	Fri Aug 22 13:15:19 1997 +0000
+++ b/JavaView.st	Thu Aug 28 02:34:59 1997 +0000
@@ -1,3 +1,5 @@
+'From Smalltalk/X, Version:3.1.9 on 23-aug-1997 at 4:27:17 pm'                  !
+
 View subclass:#JavaView
 	instanceVariableNames:'eventReceiver updateRegions javaPeer'
 	classVariableNames:''
@@ -46,18 +48,68 @@
 
 !JavaView methodsFor:'event handling'!
 
+buttonMotion:state x:x y:y
+    |ev|
+
+    eventReceiver notNil ifTrue:[
+        ev := WindowEvent buttonEvent
+                 for:self
+                 type:#buttonMotion:x:y:
+                 arguments:(Array with:state with:x with:y).
+        eventReceiver processEvent:ev.
+    ].
+
+    "Modified: 21.8.1997 / 19:40:40 / cg"
+    "Created: 23.8.1997 / 03:13:38 / cg"
+!
+
+buttonPress:button x:x y:y
+    |ev|
+
+    eventReceiver notNil ifTrue:[
+        ev := WindowEvent buttonEvent
+                 for:self
+                 type:#buttonPress:x:y:
+                 arguments:(Array with:button with:x with:y).
+        eventReceiver processEvent:ev.
+    ].
+
+    "Created: 21.8.1997 / 19:37:57 / cg"
+    "Modified: 21.8.1997 / 19:40:40 / cg"
+!
+
+buttonRelease:button x:x y:y
+    |ev|
+
+    eventReceiver notNil ifTrue:[
+        ev := WindowEvent buttonEvent
+                 for:self
+                 type:#buttonRelease:x:y:
+                 arguments:(Array with:button with:x with:y).
+        eventReceiver processEvent:ev.
+    ].
+
+    "Modified: 21.8.1997 / 19:40:40 / cg"
+    "Created: 23.8.1997 / 02:22:23 / cg"
+!
+
 exposeX:x y:y width:w height:h
+    |ev|
+
     updateRegions isNil ifTrue:[
         updateRegions := OrderedCollection new.
     ].
     updateRegions add:(Rectangle left:x top:y width:w height:h).
     eventReceiver notNil ifTrue:[
-        eventReceiver exposeX:x y:y width:w height:h view:self
+        ev := WindowEvent 
+                damageFor:self 
+                rectangle:(Rectangle left:x top:y width:w height:h). 
+        eventReceiver processEvent:ev.
     ].
     super exposeX:x y:y width:w height:h
 
     "Created: 18.8.1997 / 15:00:24 / cg"
-    "Modified: 18.8.1997 / 18:14:53 / cg"
+    "Modified: 21.8.1997 / 19:39:06 / cg"
 ! !
 
 !JavaView methodsFor:'initialization'!
@@ -75,5 +127,5 @@
 !JavaView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.5 1997/08/21 15:00:45 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.6 1997/08/28 02:34:59 cg Exp $'
 ! !