# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1403517253 -7200
# Node ID b64d176d2bd6b89bf51d86c6b41036c0b4f60169
# Parent  bc987849ea8490ae0291bd684de47e2aef34743c
class: HierarchicalListView
comment/format in:
        #lineHeightFor:
        #validateDrawableIconFor:

diff -r bc987849ea84 -r b64d176d2bd6 HierarchicalListView.st
--- a/HierarchicalListView.st	Sun Jun 22 11:09:54 2014 +0200
+++ b/HierarchicalListView.st	Mon Jun 23 11:54:13 2014 +0200
@@ -1073,7 +1073,7 @@
 
 validateDrawableIconFor:anItem
     "returns the icon to be drawn for an item or nil
-     test the extent of the icopn; on error an exception is raised
+     test the extent of the icon; on error an exception is raised
     "
     |width needMore icon maxLevel startOfText oldX newX|
 
@@ -1408,15 +1408,15 @@
     image := self iconFor:anItem.
 
     image notNil ifTrue:[
-	height := image height max:height.
+        height := image height max:height.
     ].
 
     hasConstantHeight ifTrue:[
-	icons size ~~ 0 ifTrue:[
-	    icons do:[:anIcon| height := anIcon height max:height ]
-	] ifFalse:[
-	    image isNil ifTrue:[ height := height max:16 ]
-	]
+        icons size ~~ 0 ifTrue:[
+            icons do:[:anIcon| height := anIcon height max:height ]
+        ] ifFalse:[
+            image isNil ifTrue:[ height := height max:16 ]
+       ]
     ].
     height := height + lineSpacing.
     ^ height max:indicatorHeight
@@ -1708,10 +1708,10 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.133 2014-05-23 18:57:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.134 2014-06-23 09:54:13 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.133 2014-05-23 18:57:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.134 2014-06-23 09:54:13 stefan Exp $'
 ! !