HierarchicalListView.st
changeset 5522 127709735589
parent 5389 d704f9a06ca8
child 5644 81b11ba37e60
--- a/HierarchicalListView.st	Tue Mar 21 12:08:02 2017 +0100
+++ b/HierarchicalListView.st	Tue Mar 21 12:09:25 2017 +0100
@@ -1257,7 +1257,9 @@
         ]
     ].
     imageWidth      := ((imageWidth + 1) // 2 * 2) max:defaultWidth.
-    alignTextRightX := imageWidth + 20 max:alignTextRightX.
+    alignTextRightX := (imageWidth + 20) max:alignTextRightX.
+
+    "Modified (format): / 21-03-2017 / 09:54:38 / cg"
 ! !
 
 !HierarchicalListView methodsFor:'initialization & release'!
@@ -1447,6 +1449,7 @@
         ].
         maxWidthOfText := maxWidthOfText max:width.
         textX := self xVisibleOfIconAtLevel:(level + 1).
+        textX := textX + (viewOrigin x).
 
         alignTextRightX < textX ifTrue:[
             alignTextRightX := textX.
@@ -1466,11 +1469,13 @@
                 parent := item parent.
             ].
             widthOfLabel   := listRenderer widthFor:item.
+            width          := (widthOfLabel + textX) max:width.
             maxWidthOfText := maxWidthOfText max:widthOfLabel.
-            width          := widthOfLabel + textX max:width
         ].
     ].
-    ^ width + viewOrigin x.
+    ^ 20 + width + viewOrigin x.
+
+    "Modified: / 21-03-2017 / 09:55:37 / cg"
 !
 
 xVisibleOfIconAtLevel:aLevel
@@ -1523,23 +1528,25 @@
     xOffset  := igWidth2 + opWidth2 + imageInset.
 
     showRoot ifTrue:[ firstLevel := 1 ]
-	    ifFalse:[ firstLevel := 2 ].
+            ifFalse:[ firstLevel := 2 ].
 
     showLeftIndicators ifTrue:[
-	aLevel < firstLevel ifTrue:[
-	    xOffset := opWidth2 - (firstLevel * xOffset)
-	] ifFalse:[
-	    xOffset := opWidth2 + ((aLevel - firstLevel) * xOffset)
-	]
+        aLevel < firstLevel ifTrue:[
+            xOffset := opWidth2 - (firstLevel * xOffset)
+        ] ifFalse:[
+            xOffset := opWidth2 + ((aLevel - firstLevel) * xOffset)
+        ]
     ] ifFalse:[
-	aLevel < 2 ifTrue:[
-	    xOffset := igWidth2 - ((aLevel - firstLevel) * xOffset)
-	] ifFalse:[
-	    xOffset := igWidth2 + ((aLevel - firstLevel - 1) * xOffset)
-	].
+        aLevel < 2 ifTrue:[
+            xOffset := igWidth2 - ((aLevel - firstLevel) * xOffset)
+        ] ifFalse:[
+            xOffset := igWidth2 + ((aLevel - firstLevel - 1) * xOffset)
+        ].
     ].
     "/ 2 := a left margin
     ^ xOffset + 2 - (viewOrigin x)
+
+    "Modified: / 21-03-2017 / 09:40:13 / cg"
 !
 
 yVisibleOfIndicatorForItem:anItem