#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Wed, 22 Feb 2017 18:58:19 +0100
changeset 3924 62da91f94e21
parent 3923 35437a72496b
child 3925 b761235ce4d5
#OTHER by cg comment in: #displayOn:
AlignmentOrigin.st
--- 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'!