JavaView.st
changeset 316 beb8e55ba106
parent 308 9802b77e1c5f
child 337 aa36aa78b71f
--- a/JavaView.st	Thu Feb 05 15:46:06 1998 +0000
+++ b/JavaView.st	Fri Feb 06 00:00:57 1998 +0000
@@ -49,7 +49,7 @@
 buttonMotion:state x:x y:y
     |ev|
 
-'JavaView buttonMotion' printCR.
+"/ 'JavaView buttonMotion' printCR.
 
     eventReceiver notNil ifTrue:[
         ev := WindowEvent buttonEvent
@@ -60,13 +60,13 @@
     ].
 
     "Created: / 23.8.1997 / 03:13:38 / cg"
-    "Modified: / 8.1.1998 / 17:59:42 / cg"
+    "Modified: / 6.2.1998 / 00:56:52 / cg"
 !
 
 buttonPress:button x:x y:y
     |ev|
 
-'JavaView buttonPress' printCR.
+"/ 'JavaView buttonPress' printCR.
 
     eventReceiver notNil ifTrue:[
         ev := WindowEvent buttonEvent
@@ -77,13 +77,13 @@
     ].
 
     "Created: / 21.8.1997 / 19:37:57 / cg"
-    "Modified: / 8.1.1998 / 17:59:32 / cg"
+    "Modified: / 6.2.1998 / 00:56:56 / cg"
 !
 
 buttonRelease:button x:x y:y
     |ev|
 
-'JavaView buttonRelease' printCR.
+"/ 'JavaView buttonRelease' printCR.
 
     eventReceiver notNil ifTrue:[
         ev := WindowEvent buttonEvent
@@ -94,13 +94,13 @@
     ].
 
     "Created: / 23.8.1997 / 02:22:23 / cg"
-    "Modified: / 8.1.1998 / 17:59:25 / cg"
+    "Modified: / 6.2.1998 / 00:57:00 / cg"
 !
 
 exposeX:x y:y width:w height:h
     |ev|
 
-'JavaView expose' printCR.
+"/ 'JavaView expose' printCR.
 
     updateRegions isNil ifTrue:[
         updateRegions := OrderedCollection new.
@@ -115,13 +115,13 @@
     super exposeX:x y:y width:w height:h
 
     "Created: / 18.8.1997 / 15:00:24 / cg"
-    "Modified: / 8.1.1998 / 17:59:11 / cg"
+    "Modified: / 6.2.1998 / 00:57:04 / cg"
 !
 
 keyPress:key x:x y:y
     |ev|
 
-'JavaView keyPress' printCR.
+"/ 'JavaView keyPress' printCR.
 
     eventReceiver notNil ifTrue:[
         ev := WindowEvent keyboardEvent
@@ -132,24 +132,24 @@
     ].
 
     "Created: / 8.1.1998 / 18:01:55 / cg"
-    "Modified: / 4.2.1998 / 00:12:27 / cg"
+    "Modified: / 6.2.1998 / 00:57:08 / cg"
 !
 
 keyRelease:key x:x y:y
     |ev|
 
-'JavaView keyRelease' printCR.
+"/ 'JavaView keyRelease' printCR.
 
     eventReceiver notNil ifTrue:[
-        ev := WindowEvent buttonEvent
+        ev := WindowEvent keyboardEvent
                  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"
+    "Modified: / 6.2.1998 / 00:57:16 / cg"
 ! !
 
 !JavaView methodsFor:'initialization'!
@@ -170,5 +170,5 @@
 !JavaView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.10 1998/02/05 11:02:16 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.11 1998/02/06 00:00:03 cg Exp $'
 ! !