--- a/DSVColumnView.st	Wed Apr 01 15:13:42 1998 +0200
+++ b/DSVColumnView.st	Wed Apr 01 16:08:19 1998 +0200
@@ -2434,7 +2434,7 @@
 setSelectColIndex:aColNr rowIndex:aRowNr
     "change selection without notification
     "
-    |rowNr colNr newCol oldCol oldRow sensor sglSelRow index oldSz|
+    |editSpec rowNr colNr newCol oldCol oldRow sensor sglSelRow index oldSz|
 
     rowNr := self validateSelection:aRowNr.
 
@@ -2502,16 +2502,18 @@
 
     newCol notNil ifTrue:[
         self scrollToRowAt:sglSelRow colAt:colNr.
-
-        newCol editorType ~~ #None ifTrue:[
+        editSpec := newCol editorAt:sglSelRow.
+
+        editSpec notNil ifTrue:[
             editView := SimpleView extent:(  (newCol width - separatorSize) 
                                            @ (rowHeight    - separatorSize)
                                           )
                                        in:self.
             self updateEditViewOrigin.
             editView viewBackground:hgLgBgColor.
-            editValue := newCol editorAt:sglSelRow in:editView with:hgLgFgColor bg:hgLgBgColor.
-            editValue notNil ifTrue:[
+            editView add:(editSpec at:1).
+
+            (editValue := (editSpec at:2)) notNil ifTrue:[
                 editValue addDependent:self.
             ].
             editView realize.
@@ -2568,5 +2570,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.31 1998-03-30 12:05:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.32 1998-04-01 14:08:19 ca Exp $'
 ! !