Author: chris_y
Date: Thu Oct 28 14:21:58 2010
New Revision: 10914
URL:
http://source.netsurf-browser.org?rev=10914&view=rev
Log:
Add an error message if GetVideo is not installed. Use v0.27's new "ask"
function
instead of assuming the user wants to save.
Modified:
trunk/netsurf/amiga/dist/Rexx/GetVideo.nsrx
Modified: trunk/netsurf/amiga/dist/Rexx/GetVideo.nsrx
URL:
http://source.netsurf-browser.org/trunk/netsurf/amiga/dist/Rexx/GetVideo....
==============================================================================
--- trunk/netsurf/amiga/dist/Rexx/GetVideo.nsrx (original)
+++ trunk/netsurf/amiga/dist/Rexx/GetVideo.nsrx Thu Oct 28 14:21:58 2010
@@ -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"'