#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Thu, 16 May 2019 19:27:30 +0200
changeset 24125 060e01919399
parent 24124 ad6d160880eb
child 24126 ee291d3ee4a5
#BUGFIX by stefan class: StandaloneStartup class changed: #getCurrentBinaryPathFromRegistry #getCurrentIDFromRegistry #getIDOfRunningApplicationFromRegistryEntry close registry keys
StandaloneStartup.st
--- a/StandaloneStartup.st	Thu May 16 19:27:03 2019 +0200
+++ b/StandaloneStartup.st	Thu May 16 19:27:30 2019 +0200
@@ -562,14 +562,15 @@
     "used to check if the binary of the running instance and the attaching is the same,
      if not do not attach to other version or even other installation"
 
-    |applicationEntry|
+    |applicationEntry val|
 
     applicationEntry := self applicationRegistryEntry.
-    applicationEntry isNil ifTrue:[
-        ^ nil
+    applicationEntry notNil ifTrue:[
+        val := applicationEntry valueNamed:self currentBinaryPathKeyInRegistry.
+        applicationEntry close.
     ].
     
-    ^ applicationEntry valueNamed:self currentBinaryPathKeyInRegistry
+    ^ val.
 
     "
         ExpeccoStartup writeCurrentBinaryPathIntoRegistry.
@@ -579,15 +580,19 @@
 
     "Created: / 11-10-2018 / 10:47:20 / sr"
     "Modified (comment): / 11-10-2018 / 16:28:53 / sr"
+    "Modified: / 16-05-2019 / 19:25:17 / Stefan Vogel"
 !
 
 getCurrentIDFromRegistry
 
-    |applicationEntry|
+    |applicationEntry val|
 
     applicationEntry := self applicationRegistryEntry.
-    applicationEntry isNil ifTrue:[^ nil.].
-    ^ applicationEntry valueNamed:self currentIDKeyInRegistry
+    applicationEntry notNil ifTrue:[
+        val := applicationEntry valueNamed:self currentIDKeyInRegistry.
+        applicationEntry close.
+    ].
+    ^ val.
 
     "
      |hWnd externalAddress|
@@ -600,14 +605,20 @@
     "
 
     "Modified (format): / 11-10-2018 / 10:31:34 / sr"
+    "Modified: / 16-05-2019 / 19:24:58 / Stefan Vogel"
 !
 
 getIDOfRunningApplicationFromRegistryEntry
-    |applicationEntry|
+    |applicationEntry val|
 
     applicationEntry := self applicationRegistryEntry.
-    applicationEntry isNil ifTrue:[^ nil.].
-    ^ applicationEntry valueNamed: self currentIDKeyInRegistry
+    applicationEntry notNil ifTrue:[
+        val := applicationEntry valueNamed: self currentIDKeyInRegistry.
+        applicationEntry close.
+    ].
+    ^ val.
+
+    "Modified: / 16-05-2019 / 19:24:31 / Stefan Vogel"
 !
 
 isAnotherApplicationInstanceRunning