Rebol Programming/request-dir

= USAGE: = REQUEST-DIR /title title-line /dir where /keep /offset xy

= DESCRIPTION: = Requests a directory using a popup list.

REQUEST-DIR is a function value. = REFINEMENTS =
 * /title -- Change heading on request.
 * title-line -- (Type: any)
 * /dir -- Set starting directory
 * where -- (Type: file)
 * /keep -- Keep previous directory path
 * /offset
 * xy -- (Type: any)

= SOURCE CODE = request-dir: func [ "Requests a directory using a popup list." /title "Change heading on request." title-line /dir "Set starting directory" where [file!] /keep "Keep previous directory path" /offset xy ][ if block? dirout [ dirout: layout dirout max-dirs: to-integer f-list/size/y - 4 / f-txt/size/y center-face dirout ]    set-face f-title any [title-line "Select a directory:"] if not all [keep path] [ path: copy either where [clean-path where] [what-dir] ]    if all [not empty? path slash = last path] [remove back tail path] last-path: path result: none show-dir either offset [inform/offset dirout xy] [inform dirout] result ]