#BUGFIX by stefan
class: StandaloneStartup class
changed:
#getCurrentBinaryPathFromRegistry
#getCurrentIDFromRegistry
#getIDOfRunningApplicationFromRegistryEntry
close registry keys
--- 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