--- a/StandaloneStartup.st Thu Oct 11 16:20:44 2018 +0200
+++ b/StandaloneStartup.st Thu Oct 11 16:29:26 2018 +0200
@@ -16,10 +16,10 @@
"{ NameSpace: Smalltalk }"
Object subclass:#StandaloneStartup
- instanceVariableNames:''
- classVariableNames:'Verbose CommandLineArguments'
- poolDictionaries:''
- category:'System-Support'
+ instanceVariableNames:''
+ classVariableNames:'Verbose CommandLineArguments'
+ poolDictionaries:''
+ category:'System-Support'
!
StandaloneStartup class instanceVariableNames:'MutexHandle'
@@ -51,7 +51,7 @@
In contrast, when a standAlone app is linked,
the show starts in the startup class's start method.
- This class is an abstrat, subclassable template for a standalone GUI-application's startup.
+ This class is an abstract, subclassable template for a standalone GUI-application's startup.
For your own stand alone programs, define a subclass of this,
and redefine the #main: method there.
@@ -600,6 +600,14 @@
"Modified (format): / 11-10-2018 / 10:31:34 / sr"
!
+getIDOfRunningApplicationFromRegistryEntry
+ |applicationEntry|
+
+ applicationEntry := self applicationRegistryEntry.
+ applicationEntry isNil ifTrue:[^ nil.].
+ ^ applicationEntry valueNamed: self currentIDKeyInRegistry
+!
+
isAnotherApplicationInstanceRunning
"answer true, if another instance of myself is currently running.
For now, it only works under win32, because it uses the underlying mutex mechanism."