From f797fdd2ad8260f8894d3acb5de875cd7b988112 Mon Sep 17 00:00:00 2001
From: John Mark Bell <jmb@netsurf-browser.org>
Date: Mon, 12 Apr 2004 13:01:01 +0000
Subject: [project @ 2004-04-12 13:01:01 by jmb] Prevent loading of multiple
 copies

svn path=/import/netsurf/; revision=755
---
 !NetSurf/!Run,feb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to '!NetSurf/!Run,feb')

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
-- 
cgit v1.2.3