--- a/HierarchicalListView.st	Wed Apr 09 19:00:13 2014 +0200
+++ b/HierarchicalListView.st	Thu Apr 10 11:55:36 2014 +0200
@@ -503,6 +503,20 @@
     ]
 !
 
+selectedVisualBlock
+    "/ To be polymorph with SelectionInListView
+
+    ^nil
+
+    "Created: / 10-04-2014 / 11:53:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectedVisualBlock: aBlockOrNil
+    "/ To be polymorph with SelectionInListView
+
+    "Created: / 10-04-2014 / 11:53:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 showIndicators
     "returns true if indicators are shown
     "
@@ -598,6 +612,20 @@
 	useDefaultIcons := aBoolean.
 	self invalidate.
     ]
+!
+
+visualBlock
+    "/ To be polymorph with SelectionInListView
+
+    ^nil
+
+    "Created: / 10-04-2014 / 11:51:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+visualBlock: aBlockOrNil
+    "/ To be polymorph with SelectionInListView
+
+    "Created: / 10-04-2014 / 11:53:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HierarchicalListView methodsFor:'actions'!
@@ -1680,10 +1708,10 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.131 2014-02-18 14:44:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.132 2014-04-10 09:55:36 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.131 2014-02-18 14:44:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.132 2014-04-10 09:55:36 vrany Exp $'
 ! !