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 | |
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
-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"' |