equal
deleted
inserted
replaced
592 |dir string fname| |
592 |dir string fname| |
593 |
593 |
594 string := enterField contents. |
594 string := enterField contents. |
595 (string notNil and:[string notEmpty]) ifTrue:[ |
595 (string notNil and:[string notEmpty]) ifTrue:[ |
596 string := string withoutSeparators. |
596 string := string withoutSeparators. |
597 self halt. |
|
598 string asFilename isAbsolute ifTrue:[ |
597 string asFilename isAbsolute ifTrue:[ |
599 fname := string asFilename |
598 fname := string asFilename |
600 ] ifFalse:[ |
599 ] ifFalse:[ |
601 dir := selectionList directory pathName asFilename. |
600 dir := selectionList directory pathName asFilename. |
602 fname := dir construct:string |
601 fname := dir construct:string |
614 ]. |
613 ]. |
615 ]. |
614 ]. |
616 |
615 |
617 super okPressed |
616 super okPressed |
618 |
617 |
619 "Modified: / 9.9.1998 / 21:21:14 / cg" |
618 "Modified: / 10.9.1998 / 22:19:11 / cg" |
620 ! |
619 ! |
621 |
620 |
622 patternChanged |
621 patternChanged |
623 selectionList pattern:patternField contents. |
622 selectionList pattern:patternField contents. |
624 self updateList |
623 self updateList |
643 ! ! |
642 ! ! |
644 |
643 |
645 !FileSelectionBox class methodsFor:'documentation'! |
644 !FileSelectionBox class methodsFor:'documentation'! |
646 |
645 |
647 version |
646 version |
648 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.54 1998-09-09 20:35:43 cg Exp $' |
647 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.55 1998-09-11 13:57:35 cg Exp $' |
649 ! ! |
648 ! ! |