equal
deleted
inserted
replaced
550 "Created: 18.4.1996 / 18:38:21 / cg" |
550 "Created: 18.4.1996 / 18:38:21 / cg" |
551 "Modified: 25.5.1996 / 12:27:05 / cg" |
551 "Modified: 25.5.1996 / 12:27:05 / cg" |
552 ! |
552 ! |
553 |
553 |
554 directorySelected |
554 directorySelected |
|
555 "a directory was selected - show the new path in the inputField, |
|
556 if we are in directory mode" |
|
557 |
555 selectingDirectory ifTrue:[ |
558 selectingDirectory ifTrue:[ |
556 enterField contents:(selectionList directory pathName |
559 |newDir| |
557 , '/' , selectionList selectionValue). |
560 |
558 ]. |
561 newDir := (selectionList directory) |
559 |
562 construct:selectionList selectionValue. |
560 "Modified: 18.4.1996 / 18:40:41 / cg" |
563 enterField contents:newDir pathName. |
561 "Created: 18.4.1996 / 18:46:15 / cg" |
564 ]. |
|
565 |
|
566 "Created: / 18.4.1996 / 18:46:15 / cg" |
|
567 "Modified: / 7.8.1998 / 17:19:26 / cg" |
562 ! |
568 ! |
563 |
569 |
564 doubleClick |
570 doubleClick |
565 |entry| |
571 |entry| |
566 |
572 |
632 ! ! |
638 ! ! |
633 |
639 |
634 !FileSelectionBox class methodsFor:'documentation'! |
640 !FileSelectionBox class methodsFor:'documentation'! |
635 |
641 |
636 version |
642 version |
637 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.49 1998-06-16 13:11:34 cg Exp $' |
643 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.50 1998-08-07 18:01:33 cg Exp $' |
638 ! ! |
644 ! ! |