--- a/SelectionInListModelView.st	Fri Mar 24 15:54:40 2000 +0100
+++ b/SelectionInListModelView.st	Fri Mar 24 15:55:53 2000 +0100
@@ -1089,13 +1089,18 @@
     toggleSelect     := false.
 !
 
+mapped
+    "get selection from model; scroll to selection
+    "
+    super mapped.
+    self makeSelectionVisible.
+!
+
 realize
     "get selection from model; scroll to selection
     "
     self updateFromModel.
     super realize.
-    self makeSelectionVisible.
-
 ! !
 
 !SelectionInListModelView methodsFor:'protocol'!
@@ -1395,5 +1400,5 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.31 2000-03-22 11:50:58 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.32 2000-03-24 14:55:53 ca Exp $'
 ! !