diff options
| author | Chris Young <chris@unsatisfactorysoftware.co.uk> | 2010-10-28 19:21:58 +0000 |
|---|---|---|
| committer | Chris Young <chris@unsatisfactorysoftware.co.uk> | 2010-10-28 19:21:58 +0000 |
| commit | 338e39e1675eab3010e2bf6ed5de97d3967fd5e7 (patch) | |
| tree | 94c84eee4dadd9e082d069fd929656561dc1eb19 /amiga/dist/Rexx | |
| parent | 35cb134ae86e3229ab4bb5959d29134828c79656 (diff) | |
| download | netsurf-338e39e1675eab3010e2bf6ed5de97d3967fd5e7.tar.gz netsurf-338e39e1675eab3010e2bf6ed5de97d3967fd5e7.tar.bz2 | |
Add an error message if GetVideo is not installed. Use v0.27's new "ask" function
instead of assuming the user wants to save.
svn path=/trunk/netsurf/; revision=10914
Diffstat (limited to 'amiga/dist/Rexx')
| -rwxr-xr-x | amiga/dist/Rexx/GetVideo.nsrx | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/amiga/dist/Rexx/GetVideo.nsrx b/amiga/dist/Rexx/GetVideo.nsrx index e3708a199..d33cf1974 100755 --- a/amiga/dist/Rexx/GetVideo.nsrx +++ b/amiga/dist/Rexx/GetVideo.nsrx @@ -20,4 +20,10 @@ options results geturl -address REXX 'rexx:getvideo.rexx' result 'save "ram:"' + +if open('getvideo','rexx:agetvideo.rexx','R') then do + close('getvideo') + address REXX 'rexx:getvideo.rexx' result 'ask "ram:"' +end +else + address command 'requestchoice >NIL: "NetSurf" "GetVideo.rexx must be installed in REXX: for this script to function.*n*nIt can be downloaded from Aminet:comm/www/getvideo.lha" "OK"' |