Improve handling of attempts to run NetSurf twice

svn path=/trunk/netsurf/; revision=2604
This commit is contained in:
John Mark Bell 2006-05-20 19:25:52 +00:00
parent fa5156cfca
commit 581ad55c90
2 changed files with 11 additions and 0 deletions

View File

@ -9,6 +9,17 @@ Set NetSurf$ForceVars 1
<Obey$Dir>.!Boot
UnSet NetSurf$ForceVars
| Detect if NetSurf is already running and, if so, force the
| current instance to open a new window. Then stop this script.
Set Alias$NetSurfRunning UnSet Alias$NetSurfRunning|mUnSet NetSurf$Running|mObey
Set NetSurf$Running 0
WimpSlot -min 64k -max 64k
/<NetSurf$Dir>.KickNS
| If not running, then unset system variables and continue
If "<NetSurf$Running>" = "0" Then Set Alias$NetSurfRunning UnSet Alias$NetSurfRunning|mUnSet NetSurf$Running
| Invoke our alias to clean up
NetSurfRunning
| Resource Locations
| The following are read-only locations
SetMacro NetSurf$Path Choices:WWW.NetSurf.,<NetSurf$Dir>.

BIN
!NetSurf/KickNS,ffb Normal file

Binary file not shown.