--- 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