diff options
author | John Mark Bell <jmb@netsurf-browser.org> | 2004-04-12 13:01:01 +0000 |
---|---|---|
committer | John Mark Bell <jmb@netsurf-browser.org> | 2004-04-12 13:01:01 +0000 |
commit | f797fdd2ad8260f8894d3acb5de875cd7b988112 (patch) | |
tree | a6a8acfdd231bf2a22b49819214b77937c040691 /!NetSurf | |
parent | 9628b9102c5da9d9435af915778ec8b7804505d4 (diff) | |
download | netsurf-f797fdd2ad8260f8894d3acb5de875cd7b988112.tar.gz netsurf-f797fdd2ad8260f8894d3acb5de875cd7b988112.tar.bz2 |
[project @ 2004-04-12 13:01:01 by jmb]
Prevent loading of multiple copies
svn path=/import/netsurf/; revision=755
Diffstat (limited to '!NetSurf')
-rw-r--r-- | !NetSurf/!Run,feb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/!NetSurf/!Run,feb b/!NetSurf/!Run,feb index fc7cd77c3..fbced345d 100644 --- a/!NetSurf/!Run,feb +++ b/!NetSurf/!Run,feb @@ -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
\ No newline at end of file +Set NetSurf$Running yes +Run <NetSurf$Dir>.!RunImage 2><NetSurf$Dir>.stderr +UnSet NetSurf$Running
\ No newline at end of file |