From 237a127f3b437f1399fc8819b975c2ae518161d1 Mon Sep 17 00:00:00 2001
From: Pierre Laborde <49183340+labordep@users.noreply.github.com>
Date: Sat, 23 Dec 2023 12:55:19 +0100
Subject: [PATCH 1/3] "About" window refactoring. Add "about" section in the
 Pyramid library menu. Prepare to considere SpPresenter refactoring (we need
 to use SpWindowPresenter).

---
 .../PyramidSimpleExamples.class.st            |  4 ++
 src/Pyramid-IDE/PyramidWorld.class.st         | 46 ++++++++++++++++---
 src/Pyramid/PyramidSpWindowPresenter.class.st | 11 +++++
 src/Pyramid/PyramidWindow.class.st            | 32 +++++++++++--
 4 files changed, 82 insertions(+), 11 deletions(-)
 create mode 100644 src/Pyramid/PyramidSpWindowPresenter.class.st

diff --git a/src/Pyramid-Examples/PyramidSimpleExamples.class.st b/src/Pyramid-Examples/PyramidSimpleExamples.class.st
index 7cde7fa7..e91dae00 100644
--- a/src/Pyramid-Examples/PyramidSimpleExamples.class.st
+++ b/src/Pyramid-Examples/PyramidSimpleExamples.class.st
@@ -1634,3 +1634,7 @@ PyramidSimpleExamples class >> simpleFlowLayout [
 	}
 ]'
 ]
+
+{ #category : #'see class side' }
+PyramidSimpleExamples >> seeClassSide [ 
+]
diff --git a/src/Pyramid-IDE/PyramidWorld.class.st b/src/Pyramid-IDE/PyramidWorld.class.st
index e152c578..62f42501 100644
--- a/src/Pyramid-IDE/PyramidWorld.class.st
+++ b/src/Pyramid-IDE/PyramidWorld.class.st
@@ -6,6 +6,7 @@ Class {
 
 { #category : #actions }
 PyramidWorld class >> displayLoadedPlugins [
+	<script>
 
 	| presenter stream |
 	presenter := SpTextPresenter new.
@@ -34,6 +35,19 @@ PyramidWorld class >> displayLoadedPlugins [
 	presenter withWindowDo: [ :w | w title: 'Pyramid loaded plugins' ].
 ]
 
+{ #category : #menu }
+PyramidWorld class >> menuAboutOn: aBuilder [
+
+	<worldMenu>
+	(aBuilder item: #Github)
+		parent: #PyramidContrib;
+		order: 3.0;
+		label: 'About';
+		help: 'Open Pyramid Github page';
+		icon: (self iconNamed: #smallInfo);
+		action: [ self openAbout ]
+]
+
 { #category : #menu }
 PyramidWorld class >> menuBrowseSourcesOn: aBuilder [
 
@@ -52,8 +66,8 @@ PyramidWorld class >> menuGithubOn: aBuilder [
 
 	<worldMenu>
 	(aBuilder item: #Github)
-		parent: #PyramidDev;
-		order: 3.0;
+		parent: #PyramidContrib;
+		order: 1.0;
 		label: 'Github';
 		help: 'Open Pyramid Github page';
 		icon: (self iconNamed: #github);
@@ -101,7 +115,10 @@ PyramidWorld class >> menuPyramidOn: aBuilder [
 				order: 1;
 				withSeparatorAfter.	
 			(aBuilder group: #PyramidDev)
-				order: 2.
+				order: 2;
+				withSeparatorAfter.	
+			(aBuilder group: #PyramidContrib)
+				order: 3.
 		]
 ]
 
@@ -123,8 +140,8 @@ PyramidWorld class >> menuReportABugOn: aBuilder [
 
 	<worldMenu>
 	(aBuilder item: #Github)
-		parent: #PyramidDev;
-		order: 4.0;
+		parent: #PyramidContrib;
+		order: 2.0;
 		label: 'Report a Bug';
 		icon: (self iconNamed: #smallDebug);
 		help: 'Will open the github page to report an issue';
@@ -145,8 +162,20 @@ PyramidWorld class >> menuSettingsOn: aBuilder [
 ]
 
 { #category : #actions }
-PyramidWorld class >> openPyramidSettings [
+PyramidWorld class >> openAbout [
+	<script>
+	
+	| presenter |
+	presenter := SpTextPresenter new.
+	presenter text: PyramidWindow aboutText.
+	presenter open.
+	presenter withWindowDo: [ :w | w title: ('About ', PyramidWindow aboutTitle) ].
+]
 
+{ #category : #actions }
+PyramidWorld class >> openPyramidSettings [
+	<script>
+	
 	| browser |
 	browser := SettingBrowser new.
 	browser changeSearchedText: 'Pyramid'.
@@ -156,18 +185,21 @@ PyramidWorld class >> openPyramidSettings [
 
 { #category : #actions }
 PyramidWorld class >> startBrowseSources [
-
+	<script>
+	
 	Smalltalk tools browser open packageView filterField setText: 'Pyramid'
 ]
 
 { #category : #actions }
 PyramidWorld class >> startNewDesign [
+	<script>
 
 	PyramidEditor open
 ]
 
 { #category : #actions }
 PyramidWorld class >> startRefreshPlugins [
+	<script>
 
 	PyramidPluginManager reset
 ]
diff --git a/src/Pyramid/PyramidSpWindowPresenter.class.st b/src/Pyramid/PyramidSpWindowPresenter.class.st
new file mode 100644
index 00000000..80533f8d
--- /dev/null
+++ b/src/Pyramid/PyramidSpWindowPresenter.class.st
@@ -0,0 +1,11 @@
+Class {
+	#name : #PyramidSpWindowPresenter,
+	#superclass : #SpPresenter,
+	#category : #'Pyramid-views'
+}
+
+{ #category : #accessing }
+PyramidSpWindowPresenter >> aboutTitle [
+
+	^ PyramidWindow aboutTitle
+]
diff --git a/src/Pyramid/PyramidWindow.class.st b/src/Pyramid/PyramidWindow.class.st
index de13f9a8..ee88fde6 100644
--- a/src/Pyramid/PyramidWindow.class.st
+++ b/src/Pyramid/PyramidWindow.class.st
@@ -14,19 +14,43 @@ Class {
 { #category : #'window - properties' }
 PyramidWindow class >> aboutText [
 
-	^ 'Pyramid is a User-Interface (UI) editor.
+	^ 'Pyramid is an User-Interface (UI) editor.
+
+https://github.com/OpenSmock/Pyramid
 
 LICENSE
 Licensed under the MIT License
 Copyright (c) 2022-2023 OpenSmock
 
-https://github.com/OpenSmock/Pyramid'
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.'
+]
+
+{ #category : #'window - properties' }
+PyramidWindow class >> aboutTitle [
+
+	^ 'Pyramid'
 ]
 
 { #category : #'window - properties' }
 PyramidWindow class >> defaultTitle [
 
-	^ 'New project | Pyramid'
+	^ 'New project | ' , self aboutTitle
 ]
 
 { #category : #accessing }
@@ -61,7 +85,7 @@ PyramidWindow >> initialize [
 PyramidWindow >> initializePresenter [
 	"a Spec presenter using the services as an entry"
 
-	presenter := SpPresenter new layout: self layout; yourself.
+	presenter := PyramidSpWindowPresenter new layout: self layout; yourself.
 	^ presenter
 ]
 

From 1f3dba10e948a6698ee82ab66927dc3dc2d503fd Mon Sep 17 00:00:00 2001
From: Pierre Laborde <49183340+labordep@users.noreply.github.com>
Date: Sat, 23 Dec 2023 13:14:53 +0100
Subject: [PATCH 2/3] Browse examples from library menu

---
 src/Pyramid-IDE/PyramidWorld.class.st | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/src/Pyramid-IDE/PyramidWorld.class.st b/src/Pyramid-IDE/PyramidWorld.class.st
index 62f42501..a4997236 100644
--- a/src/Pyramid-IDE/PyramidWorld.class.st
+++ b/src/Pyramid-IDE/PyramidWorld.class.st
@@ -61,6 +61,19 @@ PyramidWorld class >> menuBrowseSourcesOn: aBuilder [
 		label: 'Browse sources'
 ]
 
+{ #category : #menu }
+PyramidWorld class >> menuExamplesOn: aBuilder [
+
+	<worldMenu>
+	(aBuilder item: #Examples)
+		parent: #PyramidUser;
+		order: 3.0;
+		action: [ self startBrowseExamples ];
+		icon: (self iconNamed: #nautilus);
+		help: 'Browse Pyramid project examples';
+		label: 'Examples'
+]
+
 { #category : #menu }
 PyramidWorld class >> menuGithubOn: aBuilder [
 
@@ -183,6 +196,17 @@ PyramidWorld class >> openPyramidSettings [
 	browser expandAll
 ]
 
+{ #category : #actions }
+PyramidWorld class >> startBrowseExamples [
+
+	<script>
+	| browser |
+	browser := Smalltalk tools browser open.
+	browser packageView filterField setText: 'Pyramid-Examples'.
+	browser selectClass: (self class environment at: #PyramidSimpleExamples).
+	browser switchToMetaLevelScope: ClyClassSideScope.
+]
+
 { #category : #actions }
 PyramidWorld class >> startBrowseSources [
 	<script>

From 8e3259ed83a3c854cf9372a48b59f036f65451a0 Mon Sep 17 00:00:00 2001
From: Pierre Laborde <49183340+labordep@users.noreply.github.com>
Date: Sat, 23 Dec 2023 13:36:33 +0100
Subject: [PATCH 3/3] Change class name

---
 ...SpWindowPresenter.class.st => PyramidSpPresenter.class.st} | 4 ++--
 src/Pyramid/PyramidWindow.class.st                            | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)
 rename src/Pyramid/{PyramidSpWindowPresenter.class.st => PyramidSpPresenter.class.st} (62%)

diff --git a/src/Pyramid/PyramidSpWindowPresenter.class.st b/src/Pyramid/PyramidSpPresenter.class.st
similarity index 62%
rename from src/Pyramid/PyramidSpWindowPresenter.class.st
rename to src/Pyramid/PyramidSpPresenter.class.st
index 80533f8d..2939f972 100644
--- a/src/Pyramid/PyramidSpWindowPresenter.class.st
+++ b/src/Pyramid/PyramidSpPresenter.class.st
@@ -1,11 +1,11 @@
 Class {
-	#name : #PyramidSpWindowPresenter,
+	#name : #PyramidSpPresenter,
 	#superclass : #SpPresenter,
 	#category : #'Pyramid-views'
 }
 
 { #category : #accessing }
-PyramidSpWindowPresenter >> aboutTitle [
+PyramidSpPresenter >> aboutTitle [
 
 	^ PyramidWindow aboutTitle
 ]
diff --git a/src/Pyramid/PyramidWindow.class.st b/src/Pyramid/PyramidWindow.class.st
index ee88fde6..f8c529c0 100644
--- a/src/Pyramid/PyramidWindow.class.st
+++ b/src/Pyramid/PyramidWindow.class.st
@@ -85,7 +85,7 @@ PyramidWindow >> initialize [
 PyramidWindow >> initializePresenter [
 	"a Spec presenter using the services as an entry"
 
-	presenter := PyramidSpWindowPresenter new layout: self layout; yourself.
+	presenter := PyramidSpPresenter new layout: self layout; yourself.
 	^ presenter
 ]