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