equal
deleted
inserted
replaced
441 " |
441 " |
442 |
442 |
443 "Modified: 4.6.1996 / 20:30:46 / cg" |
443 "Modified: 4.6.1996 / 20:30:46 / cg" |
444 ! |
444 ! |
445 |
445 |
446 realize |
446 postRealize |
447 "if some default is present in the enterField, |
447 "if some default is present in the enterField, |
448 scroll to make this one visible" |
448 scroll to make this one visible" |
449 |
449 |
450 |contents| |
450 |contents| |
451 |
451 |
452 super realize. |
452 super postRealize. |
453 (contents := enterField contents) notNil ifTrue:[ |
453 (contents := enterField contents) notNil ifTrue:[ |
454 contents notEmpty ifTrue:[ |
454 contents notEmpty ifTrue:[ |
455 selectionList makeVisible:contents |
455 selectionList makeVisible:contents |
456 ] |
456 ] |
457 ] |
457 ] |
|
458 |
|
459 "Created: 24.7.1997 / 18:19:14 / cg" |
458 ! ! |
460 ! ! |
459 |
461 |
460 !FileSelectionBox methodsFor:'private'! |
462 !FileSelectionBox methodsFor:'private'! |
461 |
463 |
462 updateList |
464 updateList |
595 ! ! |
597 ! ! |
596 |
598 |
597 !FileSelectionBox class methodsFor:'documentation'! |
599 !FileSelectionBox class methodsFor:'documentation'! |
598 |
600 |
599 version |
601 version |
600 ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.42 1997-07-24 13:16:42 cg Exp $' |
602 ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelBox.st,v 1.43 1997-07-24 16:19:49 cg Exp $' |
601 ! ! |
603 ! ! |