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