Merge pull request #123 from OpenSmock/Issue_0099

Issue 0099
OpenSmock · Dec 16, 2023 · 7385939 · 7385939
2 parents c370ef2 + 326c756
commit 7385939
Show file tree

Hide file tree

Showing 4 changed files with 45 additions and 4 deletions.
diff --git a/src/BaselineOfPyramid/BaselineOfPyramid.class.st b/src/BaselineOfPyramid/BaselineOfPyramid.class.st
@@ -13,9 +13,11 @@ BaselineOfPyramid >> baseline: spec [
 		self dependencies: spec.
 		spec
 			package: #Pyramid;
+			package: #'Pyramid-IDE' with: [ spec requires: #( #Pyramid ) ];
 			package: #'Pyramid-Bloc'
-			with: [ spec requires: #( #Pyramid #Bloc #BlocSerialization) ];
-			package: #'Pyramid-Tests' with: [ spec requires: #( #Pyramid #'Pyramid-Bloc' ) ];
+			with: [ spec requires: #( #Pyramid #Bloc #BlocSerialization ) ];
+			package: #'Pyramid-Tests'
+			with: [ spec requires: #( #Pyramid #'Pyramid-Bloc' ) ];
 			package: #'Pyramid-Examples'
 			with: [ spec requires: #( #Pyramid ) ];
 			package: #'Pyramid-IDE' with: [ spec requires: #( #Pyramid ) ] ]

diff --git a/src/Pyramid-IDE/PyramidPluginSettingsAccess.class.st b/src/Pyramid-IDE/PyramidPluginSettingsAccess.class.st
@@ -0,0 +1,39 @@
+Class {
+	#name : #PyramidPluginSettingsAccess,
+	#superclass : #Object,
+	#traits : 'TPyramidPlugin',
+	#classTraits : 'TPyramidPlugin classTrait',
+	#instVars : [
+		'settingsButton'
+	],
+	#category : #'Pyramid-IDE-plugin-settings'
+}
+
+{ #category : #adding }
+PyramidPluginSettingsAccess >> addPanelsOn: aPyramidWindow [
+
+	aPyramidWindow at: #topLeft addItem: [ :builder |
+		builder makeButtonWithIcon: self settingsButton order: 3 ]
+]
+
+{ #category : #initialization }
+PyramidPluginSettingsAccess >> initialize [
+
+	settingsButton := SpButtonPresenter new
+		                  icon: (self iconNamed: #smallConfiguration);
+		                  action: [ PyramidWorld openPyramidSettings ];
+		                  help: self settingsButtonHelp;
+		                  yourself
+]
+
+{ #category : #initialization }
+PyramidPluginSettingsAccess >> settingsButton [
+
+	^ settingsButton
+]
+
+{ #category : #initialization }
+PyramidPluginSettingsAccess >> settingsButtonHelp [
+
+	^ 'Open the settings menu for Pyramid.'
+]
diff --git a/src/Pyramid-IDE/PyramidSystemSettings.class.st b/src/Pyramid-IDE/PyramidSystemSettings.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidSystemSettings,
 	#superclass : #Object,
-	#category : #'Pyramid-IDE'
+	#category : #'Pyramid-IDE-settings-menu'
 }
 
 { #category : #settings }

diff --git a/src/Pyramid-IDE/PyramidWorld.class.st b/src/Pyramid-IDE/PyramidWorld.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidWorld,
 	#superclass : #Object,
-	#category : #'Pyramid-IDE-Menus'
+	#category : #'Pyramid-IDE-menus'
 }
 
 { #category : #actions }