--- a/SelectionInListView.st	Tue Mar 25 17:35:56 2014 +0000
+++ b/SelectionInListView.st	Wed Mar 26 09:56:20 2014 +0000
@@ -1621,6 +1621,10 @@
     hilightBgColorNoFocus := bgColor.
 !
 
+selectedVisualBlock
+    ^ selectedVisualBlock
+!
+
 selectedVisualBlock:aBlock
     "ST-80 compatibility: provide a block, which returns a displayObject to be drawn for
      selected items."
@@ -1631,6 +1635,10 @@
     "Modified: / 21.6.1998 / 02:40:46 / cg"
 !
 
+visualBlock
+    ^ visualBlock
+!
+
 visualBlock:aBlock
     "ST-80 compatibility: provide a block, which returns a displayObject to be drawn for
      unselected items."
@@ -4140,10 +4148,15 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.273 2014-02-18 16:25:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.274 2014-03-26 09:55:36 +0000 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.273 2014-02-18 16:25:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.274 2014-03-26 09:55:36 +0000 vrany Exp $'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !