# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1486899622 -3600
# Node ID 5242bcfdb039f00b07cccb1824c75453c3b0f9d4
# Parent  dae1032ae627d1e3bf69b42322176e0a26e5e17f
#FEATURE by cg
class: DataSetColumn
added:
	#longStringCompression
	#longStringCompressionAtLeft
changed:
	#drawLabel:atX:y:
	#longStringCompression:

diff -r dae1032ae627 -r 5242bcfdb039 DataSetColumn.st
--- a/DataSetColumn.st	Sun Feb 12 12:08:57 2017 +0100
+++ b/DataSetColumn.st	Sun Feb 12 12:40:22 2017 +0100
@@ -259,8 +259,16 @@
 
 !
 
+longStringCompression
+    ^ longStringCompression ? true
+!
+
 longStringCompression:aBoolean
-    ^ longStringCompression ? true
+    longStringCompression := aBoolean
+!
+
+longStringCompressionAtLeft
+    ^ [description longStringCompressionAtLeft] on:Error do:[false]
 !
 
 rendererType
@@ -528,7 +536,7 @@
     (longStringCompression ~~ false
      and:[ drawnLabel isString 
      and:[ labelWidth > cachedWidth]]) ifTrue:[
-        drawnLabel := self class shortenedStringFor:drawnLabel on:dataSet maxWidth:cachedWidth-space.
+        drawnLabel := self class shortenedStringFor:drawnLabel on:dataSet maxWidth:cachedWidth-space shortenedAtLeft:(self longStringCompressionAtLeft).
         labelWidth := drawnLabel widthOn:dataSet.
     ].
 
@@ -600,6 +608,8 @@
     mustUndoClip == true ifTrue:[
         dataSet clippingBounds:prevClip    
     ].
+
+    "Modified: / 12-02-2017 / 12:39:48 / cg"
 !
 
 drawLabelsAtX:xLeft y:yTop h:h from:start to:stop