--- a/DrawAdaptor.st	Wed Feb 22 19:06:25 2017 +0100
+++ b/DrawAdaptor.st	Wed Feb 22 19:11:27 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#DrawAdaptor
 	instanceVariableNames:'value drawValue'
 	classVariableNames:''
@@ -178,7 +180,8 @@
 
 displayOn:aGCOrStream
     "/ 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:[
         self drawValue displayOn:aGCOrStream x:0 y:0.
     ] ifTrue:[
@@ -190,6 +193,8 @@
         self drawValue printOn:aGCOrStream.
         aGCOrStream nextPut:$).
     ].
+
+    "Modified (comment): / 22-02-2017 / 16:46:28 / cg"
 !
 
 displayOn:aGc x:x y:y opaque:opaque
@@ -229,6 +234,6 @@
 !DrawAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DrawAdaptor.st,v 1.7 2014-07-10 12:23:21 cg Exp $'
+    ^ '$Header$'
 ! !