--- a/DataSetColumn.st	Mon Mar 26 13:27:16 2007 +0200
+++ b/DataSetColumn.st	Mon Mar 26 13:44:23 2007 +0200
@@ -151,6 +151,20 @@
 
 !DataSetColumn methodsFor:'accessing'!
 
+activeHelpText
+    "get the active helpText or nil"
+
+    |app key|
+
+    ((key := description activeHelpKey) notNil 
+    and:[(app := dataSet application) notNil]) ifTrue:[
+        ^ app helpTextForKey:key.
+    ].
+    ^ 'foo' "/ nil
+
+    "Created: / 26-03-2007 / 13:39:11 / cg"
+!
+
 at:aRowNr
     "get the value of the raw at an index, aRowNr
     "
@@ -1185,5 +1199,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.105 2007-03-26 11:27:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.106 2007-03-26 11:44:23 cg Exp $'
 ! !