summaryrefslogtreecommitdiff
path: root/!NetSurf/!Run,feb
diff options
context:
space:
mode:
authorJohn Mark Bell <jmb@netsurf-browser.org>2004-04-12 13:01:01 +0000
committerJohn Mark Bell <jmb@netsurf-browser.org>2004-04-12 13:01:01 +0000
commitf797fdd2ad8260f8894d3acb5de875cd7b988112 (patch)
treea6a8acfdd231bf2a22b49819214b77937c040691 /!NetSurf/!Run,feb
parent9628b9102c5da9d9435af915778ec8b7804505d4 (diff)
downloadnetsurf-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/!Run,feb')
-rw-r--r--!NetSurf/!Run,feb7
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