netsurf/!NCNetSurf/!Run,feb
John Mark Bell 006344401c [project @ 2004-08-15 19:06:23 by jmb]
Rationalise image redraw.
Supply background colour when redrawing contents
Reenable printing of background images
Require Tinct 0.07

svn path=/import/netsurf/; revision=1234
2004-08-15 19:06:24 +00:00

51 lines
2.2 KiB
Plaintext

<Obey$Dir>.!Boot
| Can't run more than one copy of NCNetSurf at once.
If "<NetSurf$Running>" = "yes" Then Error NCNetSurf is already running.
| Check to see if we are running on RISCOS or NCOS.
Set NetSurf$Desktop no
RMEnsure OSVersion 0.00 Set NetSurf$Desktop yes
| We need NCOS 1.11
If "<NetSurf$Desktop>" = "no" Then RMEnsure OSVersion 1.11 Error NCNetSurf needs NCOS 1.11 or later.
| Ensure CallASWI is installed.
| http://www.iyonix.com/32bit/
If "<NetSurf$Desktop>" = "no" Then RMLoad <NetSurf$Dir>.RMStore.CallASWI Else RMEnsure UtilityModule 3.70 RMLoad System:Modules.CallASWI
| Ensure DrawFile is installed.
| http://acorn.riscos.com/riscos/releases/drawfile.arc
RMEnsure DrawFile 1.30 If "<NetSurf$Desktop>" = "no" Then RMLoad <NetSurf$Dir>.RMStore.DrawFile Else RMLoad System:Modules.DrawFile
| Ensure SharedUnixLibrary is installed.
| http://www.chocky.org/unix/usage.html
RMEnsure SharedUnixLibrary 1.02 If "<NetSurf$Desktop>" = "no" Then RMLoad <NetSurf$Dir>.RMStore.SharedULib Else RMLoad System:Modules.SharedULib
| Ensure AcornURI is installed.
| http://sudden.recoil.org/
Unset NetSurf$Start_URI_Handler
RMEnsure AcornURI 0.12 Set NetSurf$Start_URI_Handler 1
RMEnsure AcornURI 0.12 If "<NetSurf$Desktop>" = "no" Then RMLoad <NetSurf$Dir>.RMStore.URI Else RMLoad System:Modules.Network.URI
RMEnsure AcornURI 0.12 Unset NetSurf$Start_URI_Handler
| Ensure MimeMap is installed.
If "<InetDBase$Path>" = "" Then Error Inet databases can not be found.
If "<Inet$MimeMappings>" = "" Then Set Inet$MimeMappings InetDBase:MimeMap
RMEnsure MimeMap 0.10 RMLoad System:Modules.Network.MimeMap
RMEnsure MimeMap 0.10 Error NCNetSurf requires MimeMap 0.10 or later.
| Ensure Tinct is installed.
RMEnsure Tinct 0.07 RMLoad <NetSurf$Dir>.Resources.Tinct
RMEnsure Tinct 0.07 Error NetSurf requires Tinct 0.07 or later.
| Ensue that the Wimp Scrap directory has been set.
WimpSlot -Min 32k -Max 32k
If "<Wimp$ScrapDir>" = "" Then SetMacro Wimp$ScrapDir Cache:$.ScrapDir
If "<Wimp$Scrap>" = "" Then SetMacro Wimp$Scrap <Wimp$ScrapDir>.ScrapFile
Wimpslot -min 2150k -max 2150k
UnSet NetSurf$Desktop
Set NetSurf$Running yes
Run <NetSurf$Dir>.!RunImage 2><Wimp$ScrapDir>.NCNetSurf
UnSet NetSurf$Running