--- 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 $'
! !