Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Tue, 12 Jun 2018 10:47:52 +0200
changeset 5801 7f0803f7e339
parent 5800 ee6056db8570
child 5802 6c9048db7e12
#BUGFIX by cg class: HierarchicalListView changed: #drawLinesFrom:to:x:y:toX: FIX: dotted lines should not be visible under icon (if icon has masked look-through pixels, like the DLL-Mappings icon in expecco's settings dialog)
HierarchicalListView.st file | annotate | diff | comparison | revisions 
--- a/HierarchicalListView.st	Mon Jun 11 10:34:10 2018 +0200
+++ b/HierarchicalListView.st	Tue Jun 12 10:47:52 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -994,6 +992,9 @@
                 x1 := (self xVisibleOfTextAtLevel:itemLevel) - textStartLeft.
             ] ifFalse:[
                 x1 := self xVisibleOfVerticalLineAt:(itemLevel + 1).
+                item icon notNil ifTrue:[
+                    x1 := x1 - (item icon width // 2).
+                ].
             ].                
             y0 := (y0 + yNext ) // 2.
             self displayLineFromX:x0 y:y0 toX:x1 y:y0.
@@ -1004,6 +1005,7 @@
     self mask:nil.
 
     "Modified: / 03-12-2010 / 19:28:23 / cg"
+    "Modified: / 12-06-2018 / 10:46:02 / Claus Gittinger"
 !
 
 drawVericalLineForElement:item minX:xL maxX:xR
hg/stx-libwidg2