StandaloneStartup.st
changeset 23426 d8ce6bd803cb
parent 23425 21edd7a6b660
child 23427 63adc4d1d09f
--- 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."