DataSetColumn.st
changeset 2074 89565d366510
parent 2067 cda10b41aa0f
child 2093 0dff6d4c173a
--- a/DataSetColumn.st	Fri Dec 21 12:01:58 2001 +0100
+++ b/DataSetColumn.st	Tue Jan 15 17:21:14 2002 +0100
@@ -889,6 +889,23 @@
     ^ containsText
 !
 
+doubleClickOn:aRowNr
+    |sel|
+
+    (sel := self doubleClickedSelector) notNil ifTrue:[
+        columnAdaptor notNil ifTrue:[
+            sel numArgs == 2 ifTrue:[
+                ^ columnAdaptor perform:sel with:(dataSet at:aRowNr) with:columnNumber
+            ].
+            ^ columnAdaptor perform:sel with:(dataSet at:aRowNr)
+        ].
+        sel numArgs == 1 ifTrue:[
+            ^ (dataSet at:aRowNr) perform:sel with:columnNumber
+        ].
+        ^ (dataSet at:aRowNr) perform:sel
+    ].
+!
+
 hasChoices:aRowNr
     ^ (description choicesFor:(dataSet at:aRowNr)) notNil
 !
@@ -1035,5 +1052,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.71 2001-12-14 10:49:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.72 2002-01-15 16:21:14 martin Exp $'
 ! !