--- a/ListModelView.st	Mon Apr 22 13:51:27 2013 +0200
+++ b/ListModelView.st	Mon Apr 22 14:30:36 2013 +0200
@@ -2995,13 +2995,15 @@
     |selector|
 
     aReceiver notNil ifTrue:[
-	selector := dataSetColumnSpec readSelector.
-
-	selector notNil ifTrue:[
-	    ^ aReceiver perform:selector withOptionalArgument:columnNumber and:aRowNr and:aView
-	].
+        selector := dataSetColumnSpec printSelector ? dataSetColumnSpec readSelector.
+
+        selector notNil ifTrue:[
+            ^ aReceiver perform:selector withOptionalArgument:columnNumber and:aRowNr and:aView
+        ].
     ].
     ^ nil
+
+    "Modified: / 22-04-2013 / 14:04:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 extractForegroundColorFrom:aReceiver rowNr:aRowNr on:aView
@@ -3184,11 +3186,11 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.130 2013-04-22 11:51:27 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.131 2013-04-22 12:30:36 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.130 2013-04-22 11:51:27 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.131 2013-04-22 12:30:36 vrany Exp $'
 ! !