--- a/FSelBox.st	Thu Jul 24 15:16:42 1997 +0200
+++ b/FSelBox.st	Thu Jul 24 18:19:49 1997 +0200
@@ -443,18 +443,20 @@
     "Modified: 4.6.1996 / 20:30:46 / cg"
 !
 
-realize
+postRealize
     "if some default is present in the enterField,
      scroll to make this one visible"
 
     |contents|
 
-    super realize.
+    super postRealize.
     (contents := enterField contents) notNil ifTrue:[
-	contents notEmpty ifTrue:[
-	    selectionList makeVisible:contents
-	]
+        contents notEmpty ifTrue:[
+            selectionList makeVisible:contents
+        ]
     ]
+
+    "Created: 24.7.1997 / 18:19:14 / cg"
 ! !
 
 !FileSelectionBox methodsFor:'private'!
@@ -597,5 +599,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.42 1997-07-24 13:16:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.43 1997-07-24 16:19:49 cg Exp $'
 ! !

--- a/FileSelectionBox.st	Thu Jul 24 15:16:42 1997 +0200
+++ b/FileSelectionBox.st	Thu Jul 24 18:19:49 1997 +0200
@@ -443,18 +443,20 @@
     "Modified: 4.6.1996 / 20:30:46 / cg"
 !
 
-realize
+postRealize
     "if some default is present in the enterField,
      scroll to make this one visible"
 
     |contents|
 
-    super realize.
+    super postRealize.
     (contents := enterField contents) notNil ifTrue:[
-	contents notEmpty ifTrue:[
-	    selectionList makeVisible:contents
-	]
+        contents notEmpty ifTrue:[
+            selectionList makeVisible:contents
+        ]
     ]
+
+    "Created: 24.7.1997 / 18:19:14 / cg"
 ! !
 
 !FileSelectionBox methodsFor:'private'!
@@ -597,5 +599,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.42 1997-07-24 13:16:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.43 1997-07-24 16:19:49 cg Exp $'
 ! !