From bd4064ae3a103fbd3ce781abf340901200afffef Mon Sep 17 00:00:00 2001
From: Pierre Laborde <pierre.laborde@fr.thalesgroup.com>
Date: Thu, 16 Nov 2023 13:06:13 +0100
Subject: [PATCH] Add Pyramid settings entry + library menu quick access

---
 .../PyramidSystemSettings.class.st            | 18 +++++++++++++
 src/Pyramid-IDE/PyramidWorld.class.st         | 27 +++++++++++++++++++
 2 files changed, 45 insertions(+)
 create mode 100644 src/Pyramid-IDE/PyramidSystemSettings.class.st

diff --git a/src/Pyramid-IDE/PyramidSystemSettings.class.st b/src/Pyramid-IDE/PyramidSystemSettings.class.st
new file mode 100644
index 00000000..32d04604
--- /dev/null
+++ b/src/Pyramid-IDE/PyramidSystemSettings.class.st
@@ -0,0 +1,18 @@
+Class {
+	#name : #PyramidSystemSettings,
+	#superclass : #Object,
+	#category : #'Pyramid-IDE'
+}
+
+{ #category : #settings }
+PyramidSystemSettings class >> pyramidSettingOn: aBuilder [
+	<systemsettings>
+
+	(aBuilder group: #pyramid)
+		label: 'Pyramid';
+		description: 'Settings related to Pyramid editor'.
+]
+
+{ #category : #'see class side' }
+PyramidSystemSettings >> seeClassSide [ 
+]
diff --git a/src/Pyramid-IDE/PyramidWorld.class.st b/src/Pyramid-IDE/PyramidWorld.class.st
index 56dbec19..ca8cc1b3 100644
--- a/src/Pyramid-IDE/PyramidWorld.class.st
+++ b/src/Pyramid-IDE/PyramidWorld.class.st
@@ -129,6 +129,29 @@ PyramidWorld class >> menuReportABugOn: aBuilder [
 		action: [ WebBrowser openOn: 'https://github.com/OpenSmock/Pyramid/issues/new' ]
 ]
 
+{ #category : #menu }
+PyramidWorld class >> menuSettingsOn: aBuilder [
+
+	<worldMenu>
+	(aBuilder item: #Settings)
+		parent: #PyramidUser;
+		order: 2.0;
+		label: 'Settings';
+		help: 'Open Pyramid system settings';
+		icon: (self iconNamed: #glamorousPreferences);
+		action: [ self openPyramidSettings ]
+]
+
+{ #category : #actions }
+PyramidWorld class >> openPyramidSettings [
+
+	| browser |
+	browser := SettingBrowser new.
+	browser changeSearchedText: 'Pyramid'.
+	browser open.
+	browser expandAll
+]
+
 { #category : #actions }
 PyramidWorld class >> startBrowseSources [
 
@@ -146,3 +169,7 @@ PyramidWorld class >> startRefreshPlugins [
 
 	PyramidPluginManager reset
 ]
+
+{ #category : #'see class side' }
+PyramidWorld >> seeClassSide [ 
+]