--- a/JavaView.st	Tue Apr 24 22:16:03 2001 +0000
+++ b/JavaView.st	Fri Jul 20 12:17:59 2001 +0000
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libjava' }"
+
 View subclass:#JavaView
 	instanceVariableNames:'eventReceiver updateRegions javaPeer'
 	classVariableNames:''
@@ -89,22 +91,23 @@
 buttonMotion:state x:x y:y
     "/ req'd if running as embeddedApplet ...
 
-    |ev|
+    |ev sensor|
 
 "/ 'JavaView buttonMotion' printCR.
 
+    sensor := self sensor.    
     eventReceiver notNil ifTrue:[
         ev := WindowEvent buttonEvent
                  for:self
                  type:#buttonMotion:x:y:
                  arguments:(Array with:state with:x with:y).
-        ev hasShift:self sensor shiftDown
-           ctrl:self sensor ctrlDown
-           alt:self sensor altDown      
-           meta:self sensor metaDown
-           button1:self sensor leftButtonPressed
-           button2:self sensor middleButtonPressed 
-           button3:self sensor rightButtonPressed.
+        ev hasShift:sensor shiftDown
+           ctrl:sensor ctrlDown
+           alt:sensor altDown      
+           meta:sensor metaDown
+           button1:sensor leftButtonPressed
+           button2:sensor middleButtonPressed 
+           button3:sensor rightButtonPressed.
         eventReceiver processEvent:ev.
     ].
 
@@ -252,5 +255,5 @@
 !JavaView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.21 1999/12/23 18:32:58 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.22 2001/07/20 12:17:59 cg Exp $'
 ! !