--- a/DataSetColumn.st	Mon Jun 30 14:33:00 2008 +0200
+++ b/DataSetColumn.st	Mon Jun 30 14:34:21 2008 +0200
@@ -166,6 +166,21 @@
     "Modified: / 26-03-2007 / 17:51:15 / cg"
 !
 
+activeHelpTextForRow:rowNr
+    "get the active helpText or nil"
+
+    |app key|
+
+    ((key := description activeHelpKey) notNil 
+    and:[(app := dataSet application) notNil]) ifTrue:[
+        ^ app flyByHelpTextForKey:key row:rowNr.
+    ].
+    ^ nil
+
+    "Created: / 26-03-2007 / 13:39:11 / cg"
+    "Modified: / 26-03-2007 / 17:51:15 / cg"
+!
+
 at:aRowNr
     "get the value of the raw at an index, aRowNr
     "
@@ -1233,5 +1248,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.116 2008-06-23 18:13:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.117 2008-06-30 12:34:21 stefan Exp $'
 ! !