# HG changeset patch
# User tz
# Date 886080085 -3600
# Node ID d9ebfd72d5068d5648847323bf5e26335d180c54
# Parent  01140e14c0651134fd55e8aef57a751b77d51fbd
set selection if exists after mapping

diff -r 01140e14c065 -r d9ebfd72d506 DSVColumnView.st
--- a/DSVColumnView.st	Thu Jan 29 14:07:00 1998 +0100
+++ b/DSVColumnView.st	Thu Jan 29 14:21:25 1998 +0100
@@ -1486,6 +1486,20 @@
     self lineWidth:0.
 !
 
+mapped
+    "set selection if exists after mapping
+    "
+    |idx|
+
+    super mapped.
+
+    idx := self firstIndexSelected.
+
+    idx ~~ 0 ifTrue:[
+        self scrollToRowAt:idx colAt:0.        
+    ].
+!
+
 realize
     "recompute contents and fit columns to view
     "
@@ -2302,5 +2316,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.24 1998-01-19 10:47:54 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.25 1998-01-29 13:21:25 tz Exp $'
 ! !