equal
deleted
inserted
replaced
19 |
19 |
20 FileSelectionBox comment:' |
20 FileSelectionBox comment:' |
21 COPYRIGHT (c) 1990 by Claus Gittinger |
21 COPYRIGHT (c) 1990 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.15 1995-05-03 16:29:13 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.16 1995-05-06 14:17:07 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !FileSelectionBox class methodsFor:'documentation'! |
27 !FileSelectionBox class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.15 1995-05-03 16:29:13 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.16 1995-05-06 14:17:07 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
193 |
193 |
194 "FileSelectionBox new show" |
194 "FileSelectionBox new show" |
195 ! |
195 ! |
196 |
196 |
197 createEnterField |
197 createEnterField |
198 " |
198 "if the (optional) class FilenameEditField is present, use |
199 if the (optional) class FilenameEditField is present, use |
|
200 it, since it provides filename completion. Otherwise, we have |
199 it, since it provides filename completion. Otherwise, we have |
201 to live with the dump field ... |
200 to live with the dump (default) field ... |
202 " |
201 " |
203 FilenameEditField notNil ifTrue:[ |
202 FilenameEditField notNil ifTrue:[ |
204 enterField := FilenameEditField in:self. |
203 ^ FilenameEditField new. |
205 ] ifFalse:[ |
204 ]. |
206 super createEnterField |
205 ^ super createEnterField |
207 ] |
|
208 ! |
206 ! |
209 |
207 |
210 focusSequence |
208 focusSequence |
211 patternField shown ifTrue:[ |
209 patternField shown ifTrue:[ |
212 ^ Array |
210 ^ Array |