# HG changeset patch # User Claus Gittinger # Date 1487786785 -3600 # Node ID 518e74c68d803539dcf9ac09924630547111a018 # Parent b761235ce4d5d81d2ef2f12c709021aadc44dc92 #OTHER by cg comment in: #displayOn: diff -r b761235ce4d5 -r 518e74c68d80 ValueHolder.st --- a/ValueHolder.st Wed Feb 22 18:58:22 2017 +0100 +++ b/ValueHolder.st Wed Feb 22 19:06:25 2017 +0100 @@ -140,7 +140,7 @@ (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. ]. @@ -150,6 +150,8 @@ nextPut:$(. value displayOn:aGCOrStream. aGCOrStream nextPut:$) + + "Modified (comment): / 22-02-2017 / 16:50:09 / cg" ! printOn:aStream