# HG changeset patch # User Claus Gittinger # Date 869761189 -7200 # Node ID eb55fd7c60bb730f4732bf22d4ddd97211b1549c # Parent 8f14ed5cfeb9b143eb3703487c1cfcbcb6b0e8ec #realize -> #postRealize diff -r 8f14ed5cfeb9 -r eb55fd7c60bb FSelBox.st --- 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 $' ! ! diff -r 8f14ed5cfeb9 -r eb55fd7c60bb FileSelectionBox.st --- 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 $' ! !