AlignmentOrigin.st
changeset 3924 62da91f94e21
parent 3866 b8f8ff2312a1
child 4282 22f5625bfa52
--- a/AlignmentOrigin.st	Wed Feb 22 18:58:12 2017 +0100
+++ b/AlignmentOrigin.st	Wed Feb 22 18:58:19 2017 +0100
@@ -263,7 +263,7 @@
     "return a printed representation of the receiver for displaying"
 
     "/ 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
     ].
@@ -283,9 +283,10 @@
     leftAlignmentFraction displayOn:aGCOrStream.
     aGCOrStream nextPut:$@. 
     topAlignmentFraction displayOn:aGCOrStream.
-    aGCOrStream nextPut:$). 
+    aGCOrStream nextPut:$).
 
-    "Modified: 22.1.1997 / 11:58:38 / cg"
+    "Modified: / 22-01-1997 / 11:58:38 / cg"
+    "Modified (comment): / 22-02-2017 / 16:52:08 / cg"
 ! !
 
 !AlignmentOrigin methodsFor:'queries'!