# HG changeset patch
# User Gerald Klix (speedy) <Gerald.Klix@klix.ch>
# Date 1723659369 -7200
#      Wed Aug 14 20:16:09 2024 +0200
# Branch Cuis7.0based
# Node ID d63e762345cc372c2da9f1a32feeed4a6ca72128
# Parent  b26f7dcdf731e4519421760c067d39cfb72dc307
SUM: Fixed a styling bug in workspaces.

diff --git a/haver/programming/Workspaces.pck.st b/haver/programming/Workspaces.pck.st
--- a/haver/programming/Workspaces.pck.st
+++ b/haver/programming/Workspaces.pck.st
@@ -1,12 +1,12 @@
-'From Haver7.0 [latest update: #6454] on 26 June 2024 at 7:24:32 pm'!
+'From Haver7.0 [latest update: #6454] on 14 August 2024 at 8:15:07 pm'!
 'Description I provide persistent and enhances Workspaces, featureing an bindings explorer.'!
-!provides: 'Workspaces' 1 35!
+!provides: 'Workspaces' 1 36!
 !requires: 'IdGeneration' 1 2 nil!
 !requires: 'ModulesTools' 1 44 nil!
+!requires: 'ActionBuilder' 1 35 nil!
+!requires: 'ActionButtons' 1 42 nil!
+!requires: 'FacetsMorphs' 1 6 nil!
 !requires: 'Modules' 1 116 nil!
-!requires: 'ActionBuilder' 1 35 nil!
-!requires: 'FacetsMorphs' 1 6 nil!
-!requires: 'ActionButtons' 1 42 nil!
 !requires: 'PlanF' 1 22 nil!
 !requires: 'OfficeRoots' 1 71 nil!
 SystemOrganization addCategory: #Workspaces!
@@ -20,8 +20,8 @@
 
 !interfacesOf: Workspaces!
 Modules environment: #Workspaces ::
-	interface: #DMI exporting: #(#Workspace #ObjectExplorerMorph #WorkspaceMorph #TextModel #WorkspaceBindingWrapper) ::
 	interface: #SPI exporting: #(#Workspace #WorkspaceMorph #TextModel) ::
+	interface: #DMI exporting: #(#Workspace #WorkspaceMorph #TextModel #WorkspaceBindingWrapper #ObjectExplorerMorph) ::
 	interface: #UTI aliasFor: #API!
 
 !importsOf: Workspaces!
@@ -30,8 +30,8 @@
 	import: #(#ModulesListMorph) from: #SPI of: Modules>>#ModulesTools :: 
 	import: #(#ActionBuilder) from: #API of: Modules>>#ActionBuilder :: 
 	import: #(#TargetToggleButton #TargetButton #ActionButton) from: #API of: Modules>>#ActionButtons :: 
+	import: #(#SwitchingMorphButton #DetailsMorph) from: #API of: Modules>>#FacetsMorphs :: 
 	import: #(#OfficeItemWrapper #OfficeItemListMorph) from: #API of: Modules>>#OfficeRoots :: 
-	import: #(#SwitchingMorphButton #DetailsMorph) from: #API of: Modules>>#FacetsMorphs :: 
 	import: #API of: Modules>>#SystemMorphs :: 
 	import: #(#Module) from: #API of: Modules>>#Modules!
 
@@ -847,12 +847,12 @@
 
 	^ self class objectExplorerClass! !
 
-!(Modules>>#Workspaces>>#Workspace) methodsFor: 'styling' stamp: 'KLG 6/21/2024 17:20:17'!
+!(Modules>>#Workspaces>>#Workspace) methodsFor: 'styling' stamp: 'KLG 8/14/2024 20:09:55'!
 styleBindingNamed: aString
 	"Answer the styling symbol for aString, but don't intern aString if it's not already interned."
 
 	self workspaceModuleName ifNotNil: [ :wsmn |
-		Modules hasEnvironment: aString :: ifFalse: [ ^ nil ].
+		Modules hasEnvironment: wsmn :: ifFalse: [ ^ nil ].
 		^ Modules >> wsmn styleBindingNamed: aString ].
 	^ nil! !
 
@@ -873,10 +873,10 @@
 
 	mustDeclareVariables := mustDeclareVariables not! !
 
-!(Modules>>#Workspaces>>#Workspace) methodsFor: 'shout styling' stamp: 'KLG 8/22/2023 15:17:56'!
+!(Modules>>#Workspaces>>#Workspace) methodsFor: 'shout styling' stamp: 'KLG 8/14/2024 20:08:57'!
 shouldStyle
 
-	^shouldStyle ifNil: [ Preferences at: #shoutInWorkspaces]! !
+	^shouldStyle ifNil: [ Preferences at: #shoutInWorkspaces ]! !
 
 !(Modules>>#Workspaces>>#Workspace) methodsFor: 'shout styling' stamp: 'KLG 8/22/2023 15:17:56'!
 shouldStyle: text with: anSHTextStyler