253 lastFileSelectionDirectory |
253 lastFileSelectionDirectory |
254 "return the name of the directory used in the previous |
254 "return the name of the directory used in the previous |
255 fileSelection dialog. This will be used as default for the next dialog, |
255 fileSelection dialog. This will be used as default for the next dialog, |
256 if no explicit path is specified (see requestFileName:* methods)" |
256 if no explicit path is specified (see requestFileName:* methods)" |
257 |
257 |
|
258 |f| |
|
259 |
258 LastFileSelectionDirectory notNil ifTrue:[ |
260 LastFileSelectionDirectory notNil ifTrue:[ |
259 LastFileSelectionDirectory asFilename exists ifTrue:[ |
261 ((f := LastFileSelectionDirectory asFilename) exists |
260 LastFileSelectionDirectory asFilename isDirectory ifTrue:[ |
262 and:[f isDirectory]) ifFalse:[ |
261 ^ LastFileSelectionDirectory |
263 LastFileSelectionDirectory := nil. |
262 ] |
264 ] |
263 ]. |
|
264 LastFileSelectionDirectory := nil. |
|
265 ]. |
265 ]. |
266 ^ LastFileSelectionDirectory |
266 ^ LastFileSelectionDirectory |
267 |
267 |
268 "Created: / 9.9.1997 / 10:03:17 / cg" |
268 "Created: / 9.9.1997 / 10:03:17 / cg" |
269 "Modified: / 15.6.1998 / 14:05:28 / cg" |
269 "Modified: / 16.6.1998 / 15:11:20 / cg" |
270 ! |
270 ! |
271 |
271 |
272 lastFileSelectionDirectory:aDirectoryString |
272 lastFileSelectionDirectory:aDirectoryString |
273 "set the name of the directory used in the previous |
273 "set the name of the directory used in the previous |
274 fileSelection dialog. This will be used as default for the next dialog, |
274 fileSelection dialog. This will be used as default for the next dialog, |