@@ 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 @@ Modules newEnvironment: #Workspaces!
 
 !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 @@ Modules environment: #Workspaces ::
 	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 @@ objectExplorerClass
 
 	^ 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 @@ toggleVariableDeclarationMode
 
 	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