test-web-file-upload-1.p
| 1 |
def button b1. |
|---|---|
| 2 |
def frame f b1. |
| 3 |
|
| 4 |
on choose of b1 in frame f do: |
| 5 |
message "button chosen". |
| 6 |
end. |
| 7 |
|
| 8 |
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". |
| 9 |
|
| 10 |
on web-upload-complete of b1 in frame f do: |
| 11 |
message "Web upload complete" session:web-upload-files session:web-upload-error. |
| 12 |
end. |
| 13 |
|
| 14 |
on r anywhere do: |
| 15 |
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". |
| 16 |
end. |
| 17 |
|
| 18 |
on d anywhere do: |
| 19 |
WEB-FILE-UPLOAD DE-REGISTER b1 in frame f. |
| 20 |
end. |
| 21 |
|
| 22 |
enable all with frame f. |
| 23 |
|
| 24 |
wait-for close of this-procedure. |