Browse Folders Dialog Behavior

 

Compatibilities: Required Xtras: HandyDialog Xtra

This item has not yet been rated

Generic behavior to display Select Folder Dialog.

-- Browse Folders Dialog Behavior -- HandyDialog Xtra 1.0 or later is required -- by Meliora Software www.meliorasoft.com/xtras/ -- Compatibilities: Director 6 or higher Windows property Title on getPropertyDescriptionList   set description = [:]   addProp description, #Title, [#default:"", #format:#string, #comment:"Dialog Title:"]   return description end on mouseDown   browseDialog end on browseDialog   set Ok = showBrowseDialog(Title)   if getAt(Ok,1) = 0 then     if count(Ok) = 3 then       -- Some folder was selected       put getAt(Ok,3)     else       --  Cancel button was clicked       put "Cancel button was clicked"     end if   else     -- Error occured     alert("Error: " & getAt(Ok, 1) & " - base error code")   end if    end on getBehaviorDescription   return "- -   Browse Folders Dialog Behavior   - -" end