--- a/WindowEvent.st Wed Feb 22 19:06:16 2017 +0100
+++ b/WindowEvent.st Wed Feb 22 19:06:27 2017 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libview' }"
+"{ NameSpace: Smalltalk }"
+
Event subclass:#WindowEvent
instanceVariableNames:'delegatedFrom consumed'
classVariableNames:''
@@ -767,14 +769,14 @@
displayOn:aGCOrStream
"Compatibility
- append a printed desription on some stream (Dolphin, Squeak)
+ append a printed desription on some stream (Dolphin, Squeak)
OR:
- display the receiver in a graphicsContext at 0@0 (ST80).
+ display the receiver in a graphicsContext at 0@0 (ST80).
This method allows for any object to be displayed in some view
(although the fallBack is to display its printString ...)"
"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
- "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+ "/ old ST80 means: draw-yourself on a GC.
aGCOrStream isStream ifFalse:[
^ super displayOn:aGCOrStream.
].
@@ -792,8 +794,9 @@
args displayOn:aGCOrStream.
aGCOrStream nextPut:$)
- "Created: 7.3.1996 / 14:55:50 / cg"
- "Modified: 20.9.1997 / 11:42:11 / cg"
+ "Created: / 07-03-1996 / 14:55:50 / cg"
+ "Modified: / 20-09-1997 / 11:42:11 / cg"
+ "Modified (comment): / 22-02-2017 / 16:53:02 / cg"
! !
!WindowEvent methodsFor:'private-accessing'!
@@ -1747,7 +1750,7 @@
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.111 2014-03-05 22:13:18 cg Exp $'
+ ^ '$Header$'
!
version_SVN