[feenkcom/gtoolkit#4108] Update the default session label to show tha…

…t the default session has been removed.
feenkcom · Oct 18, 2024 · 9c9bff6 · 9c9bff6
1 parent 21c41f3
commit 9c9bff6
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneSessionRegistry.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneSessionRegistry.class.st
@@ -355,14 +355,17 @@ GtGemStoneSessionRegistry >> defaultConnectorName [
 GtGemStoneSessionRegistry >> defaultSession [
 
 	^ defaultSession ifNil: 
-		[ defaultSession := self
+		[ | newSession |
+		newSession := self
 			sessionWithConnectorNamed: 'default'
 			ifAbsent:
 				[ self
 					connectorNamed: 'default'
 					ifPresent: [ :connector | 
 						self newSessionWithConnectorNamed: 'default'  ]
-					ifAbsent: [ nil ] ] ].
+					ifAbsent: [ nil ] ].
+		newSession ifNotNil: [ self defaultSession: newSession ].
+		newSession ].
 ]
 
 { #category : #accessing }
@@ -873,7 +876,7 @@ GtGemStoneSessionRegistry >> removeSession: aGtGemStoneSession [
 		[ defaultSession ifNotNil:
 			[ aGtGemStoneSession name = defaultSession name ifTrue: 
 				[ self assert: aGtGemStoneSession = defaultSession.
-				defaultSession := nil ] ].
+				self defaultSession: nil ] ].
 		sessions
 			removeKey: aGtGemStoneSession name
 			ifAbsent: [ ^ self ] ].