Hi Brian,
No need for request-dir, as I see it.
Use /keep to remember the last navigated path in between
requestor selections.
Unique/case is necessary for case-sensitive filesystems
like linux, but not necessary for case-insensitive filesystems
like FAT/NTFS. I recommend supporting case-sensitive in
order to be cross-platform.
How about this:
request-files: has [files result][
result: copy []
while [files: request-file/keep][
append result files
]
unique/case result
]
Regards,
Anton.
> I've got a hack routine to gather a file list. The objective is
> to let a user
> build up a list of files over as many dirs as they want.
>
> ;; Request-files, allow a build up of files from multiple calls to
> request-dir, request-file
> ;; The UI for this code...BLOWS, double cancel to get out...it's
> a proof of
> concept.
> request-files: has [files file-list dir cwd] [
> cwd: what-dir
> file-list: copy []
> files: copy []
> while [dir: request-dir] [ ; Cancel here for out
> change-dir dir
> while [files: request-file] [ ; Cancel here for back to
> dir select
> append file-list files ; Accumulate the files
> ]
> ]
> change-dir cwd
> unique file-list ; Not sure about use
> of /case here
> ]
>
> I can only assume (hope) someone has a better gui filename bagger? Any
> pointers? I've looked about a little and came up short. So I
> thought I'd
> ask before building this.
>
> Cheers,
> Brian
--
To unsubscribe from the list, just send an email to
lists at rebol.com with unsubscribe as the subject.
