;
; ------------------------------------------------------------
;
;   SpiderBasic - Requester example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

Procedure RequesterSuccess()
  ; Process all the selected filename
  ;
  While NextSelectedFile()
    Debug SelectedFileName()
  Wend
EndProcedure

Procedure ButtonEvent()
  OpenFileRequester("", @RequesterSuccess(), #PB_Requester_MultiSelection)
EndProcedure

If OpenWindow(0, 100, 100, 200, 45, "File")
  ButtonGadget(0, 10, 10, 180, 25, "Open local file(s)...")
  BindGadgetEvent(0, @ButtonEvent())
EndIf