equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 'From Smalltalk/X, Version:3.1.9 on 9-sep-1997 at 10:13:58 pm' ! |
13 'From Smalltalk/X, Version:3.1.10 on 21-sep-1997 at 12:09:36 am' ! |
14 |
14 |
15 ListSelectionBox subclass:#FileSelectionBox |
15 ListSelectionBox subclass:#FileSelectionBox |
16 instanceVariableNames:'patternField selectingDirectory' |
16 instanceVariableNames:'patternField selectingDirectory' |
17 classVariableNames:'LastFileSelectionDirectory' |
17 classVariableNames:'LastFileSelectionDirectory' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
598 |
598 |
599 selectionChanged |
599 selectionChanged |
600 |entry| |
600 |entry| |
601 |
601 |
602 entry := selectionList selectionValue. |
602 entry := selectionList selectionValue. |
603 ((selectionList directory typeOf:entry) == #directory) ifFalse:[ |
603 (selectionList directory asFilename construct:entry) type == #directory ifFalse:[ |
604 selectingDirectory ifTrue:[ |
604 selectingDirectory ifTrue:[ |
605 enterField contents:(selectionList directory pathName). |
605 enterField contents:(selectionList directory pathName). |
606 selectionList setSelection:nil. |
606 selectionList setSelection:nil. |
607 ^ self |
607 ^ self |
608 ] |
608 ] |
609 ]. |
609 ]. |
610 enterField contents:entry |
610 enterField contents:entry |
611 |
611 |
612 "Modified: 25.5.1996 / 12:27:08 / cg" |
612 "Modified: 21.9.1997 / 12:07:55 / cg" |
613 ! ! |
613 ! ! |
614 |
614 |
615 !FileSelectionBox class methodsFor:'documentation'! |
615 !FileSelectionBox class methodsFor:'documentation'! |
616 |
616 |
617 version |
617 version |
618 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.44 1997-09-09 18:23:08 cg Exp $' |
618 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.45 1997-09-21 18:11:20 cg Exp $' |
619 ! ! |
619 ! ! |