# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1573947831 -3600
# Node ID 8bfb05e9c22bfaa60b8e1ec6f4fb9b1dbd4db721
# Parent  f67e1bde25258a9b1da779f6fd5f195f239c7775
#UI_ENHANCEMENT by exept
class: PositionableStream
changed: #printOn:

diff -r f67e1bde2525 -r 8bfb05e9c22b PositionableStream.st
--- a/PositionableStream.st	Sat Nov 16 22:34:24 2019 +0100
+++ b/PositionableStream.st	Sun Nov 17 00:43:51 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -129,6 +131,7 @@
     ^ self == PositionableStream
 ! !
 
+
 !PositionableStream methodsFor:'Compatibility-Dolphin'!
 
 endChunk
@@ -567,7 +570,16 @@
 !PositionableStream methodsFor:'printing & storing'!
 
 printOn:aStream
-    aStream nextPutAll:self className; nextPutAll:'(on:'; nextPutAll:collection classNameWithArticle; nextPut:$)
+    aStream 
+        nextPutAll:self className; 
+        nextPutAll:'(on:'.
+    (collection isString and:[collection size < 80]) ifTrue:[
+        aStream nextPutAll:collection storeString
+    ] ifFalse:[
+        aStream nextPutAll:collection classNameWithArticle
+    ].
+    aStream nextPutAll:'|'; print:position.
+    aStream nextPut:$)
 
     "
       '' readStream printString