def button b1.
def frame f b1.

on choose of b1 in frame f do:
  message "button chosen".
end.

WEB-FILE-UPLOAD REGISTER b1 in frame f choose, select-mouse-click UPLOAD DIR "/home/sbi/projects/testcases_old/testcases/uast/demo/upload/" MULTIPLE title "test" filters "Source Files (*.p)"   "*.p", "R-code Files (*.r)"   "*.r".

on web-upload-complete of b1 in frame f do:
   message "Web upload complete" session:web-upload-files session:web-upload-error.
end.

on r anywhere do:
   WEB-FILE-UPLOAD REGISTER b1 in frame f choose, select-mouse-click upload title "test" filters "Source Files (*.p)"   "*.p", "R-code Files (*.r)"   "*.r".
end.

on d anywhere do:
   WEB-FILE-UPLOAD DE-REGISTER b1 in frame f.
end.

enable all with frame f.

wait-for close of this-procedure.