equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
4 COPYRIGHT (c) 1994 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2343 ok:okText abort:abortText |
2345 ok:okText abort:abortText |
2344 ifFail:failBlock |
2346 ifFail:failBlock |
2345 acceptReturnAsOK:true |
2347 acceptReturnAsOK:true |
2346 |
2348 |
2347 "Modified: / 23-01-2012 / 17:23:27 / cg" |
2349 "Modified: / 23-01-2012 / 17:23:27 / cg" |
|
2350 ! |
|
2351 |
|
2352 requestDirectoryName:titleString default:aFileName pattern:pattern fromDirectory:aDirectoryPath |
|
2353 "same as requestFileName, but only show directories" |
|
2354 |
|
2355 ^ self |
|
2356 requestDirectoryName:titleString default:aFileName |
|
2357 ok:nil abort:nil version:nil |
|
2358 pattern:pattern fromDirectory:aDirectoryPath |
|
2359 ifFail:'' whenBoxCreatedEvaluate:nil asLoadDialog:false |
|
2360 |
|
2361 " |
|
2362 Dialog |
|
2363 requestDirectoryName:'which directory ?' default:'/etc' |
|
2364 pattern:'*' fromDirectory:'/' |
|
2365 " |
2348 ! |
2366 ! |
2349 |
2367 |
2350 requestFileName |
2368 requestFileName |
2351 "launch a Dialog, which allows the user to enter a filename. |
2369 "launch a Dialog, which allows the user to enter a filename. |
2352 Return the pathname string consisting of the full pathname of the filename, |
2370 Return the pathname string consisting of the full pathname of the filename, |