mirrors
/
netsurf
mirror of https://github.com/netsurf-browser/netsurf
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[project @ 2004-04-12 13:01:01 by jmb] 

Prevent loading of multiple copies

svn path=/import/netsurf/; revision=755
This commit is contained in:
John Mark Bell 2004-04-12 13:01:01 +00:00
parent 9628b9102c
commit f797fdd2ad
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
!NetSurf/!Run,feb
View File

@ -1,5 +1,8 @@
<Obey$Dir>.!Boot
| Can't run more than one copy of NetSurf at once.
If "<NetSurf$Running>" = "yes" Then Error NetSurf is already running
| We need RISC OS 3
RMEnsure UtilityModule 3.00 Error NetSurf needs RISC OS 3 or later
@ -42,4 +45,6 @@ RMEnsure Tinct 0.03 RMLoad <NetSurf$Dir>.Resources.Tinct
RMEnsure Tinct 0.02 Error NetSurf requires Tinct 0.02 or later
Wimpslot -min 2100k -max 2100k
Run <NetSurf$Dir>.!RunImage 2><NetSurf$Dir>.stderr
Set NetSurf$Running yes
Run <NetSurf$Dir>.!RunImage 2><NetSurf$Dir>.stderr
UnSet NetSurf$Running