--- a/WEvent.st Sun Nov 02 19:39:52 1997 +0100
+++ b/WEvent.st Sun Nov 02 19:49:56 1997 +0100
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:44:42 pm' !
-
Object subclass:#WindowEvent
instanceVariableNames:'view type arguments delegated consumed'
classVariableNames:''
@@ -243,7 +241,8 @@
sendEvent:type arguments:argArray view:view withFocusOn:focusView delegate:doDelegate
"forward the event represented by type and arguments to the views delegate,
- the views controller or the view.
+ the views controller
+ (which may be the view itself, if it implements the controller functionality itself).
If focusView is nonNil, and it is a keyboard event, it is forwarded to this
view (but not if there was a delegate in the first place).
@@ -436,7 +435,7 @@
eventReceiver perform:selector withArguments:argArray
- "Modified: 20.3.1997 / 14:25:31 / cg"
+ "Modified: / 31.10.1997 / 19:54:28 / cg"
! !
!WindowEvent methodsFor:'accessing'!
@@ -930,5 +929,5 @@
!WindowEvent class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.50 1997-09-20 22:15:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.51 1997-11-02 18:49:56 cg Exp $'
! !
--- a/WindowEvent.st Sun Nov 02 19:39:52 1997 +0100
+++ b/WindowEvent.st Sun Nov 02 19:49:56 1997 +0100
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:44:42 pm' !
-
Object subclass:#WindowEvent
instanceVariableNames:'view type arguments delegated consumed'
classVariableNames:''
@@ -243,7 +241,8 @@
sendEvent:type arguments:argArray view:view withFocusOn:focusView delegate:doDelegate
"forward the event represented by type and arguments to the views delegate,
- the views controller or the view.
+ the views controller
+ (which may be the view itself, if it implements the controller functionality itself).
If focusView is nonNil, and it is a keyboard event, it is forwarded to this
view (but not if there was a delegate in the first place).
@@ -436,7 +435,7 @@
eventReceiver perform:selector withArguments:argArray
- "Modified: 20.3.1997 / 14:25:31 / cg"
+ "Modified: / 31.10.1997 / 19:54:28 / cg"
! !
!WindowEvent methodsFor:'accessing'!
@@ -930,5 +929,5 @@
!WindowEvent class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.50 1997-09-20 22:15:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.51 1997-11-02 18:49:56 cg Exp $'
! !