Tools__ChangeList.st
branchjv
changeset 12217 2c68d7169f97
parent 12216 5698c277f043
child 12247 1bd3e7f3c9c9
--- a/Tools__ChangeList.st	Tue Apr 03 13:32:03 2012 +0100
+++ b/Tools__ChangeList.st	Tue Apr 03 18:37:50 2012 +0100
@@ -1144,12 +1144,13 @@
                     ifTrue:[change timeOfChangeIfKnown printString]
                     ifFalse:['???'].
         [ (colW := colS widthOn: aGC) > (aGC width - cx - 5) ] whileTrue:[
+            colS = '...' ifTrue:[ ^ self ].
             colS := '...' , (colS copyFrom: 6).
         ].
         super displayLabel:colS h:lH on:aGC x: (aGC width - 5 - colW) y:y h:h.
     ].
 
-    "Modified: / 03-04-2012 / 11:41:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-04-2012 / 17:23:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeList::ListEntry methodsFor:'private'!
@@ -1179,7 +1180,7 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__ChangeList.st 7963 2012-04-03 12:32:03Z vranyj1 $'
+    ^ '$Id: Tools__ChangeList.st 7964 2012-04-03 17:37:50Z vranyj1 $'
 !
 
 version_CVS
@@ -1187,5 +1188,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeList.st 7963 2012-04-03 12:32:03Z vranyj1 $'
+    ^ '$Id: Tools__ChangeList.st 7964 2012-04-03 17:37:50Z vranyj1 $'
 ! !