Dev about

src/Pyramid-Examples/PyramidSimpleExamples.class.st

@@ -1634,3 +1634,7 @@ PyramidSimpleExamples class >> simpleFlowLayout [
 	}
 ]'
 ]
+
+{ #category : #'see class side' }
+PyramidSimpleExamples >> seeClassSide [ 
+]

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 [
 
@@ -47,13 +61,26 @@ 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 [
 
 	<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 +128,10 @@ PyramidWorld class >> menuPyramidOn: aBuilder [
 				order: 1;
 				withSeparatorAfter.	
 			(aBuilder group: #PyramidDev)
-				order: 2.
+				order: 2;
+				withSeparatorAfter.	
+			(aBuilder group: #PyramidContrib)
+				order: 3.
 		]
 ]
 
@@ -123,8 +153,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 +175,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'.
@@ -155,19 +197,33 @@ PyramidWorld class >> openPyramidSettings [
 ]
 
 { #category : #actions }
-PyramidWorld class >> startBrowseSources [
+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>
+
 	Smalltalk tools browser open packageView filterField setText: 'Pyramid'
 ]
 
 { #category : #actions }
 PyramidWorld class >> startNewDesign [
+	<script>
 
 	PyramidEditor open
 ]
 
 { #category : #actions }
 PyramidWorld class >> startRefreshPlugins [
+	<script>
 
 	PyramidPluginManager reset
 ]

src/Pyramid/PyramidSpPresenter.class.st

@@ -0,0 +1,11 @@
+Class {
+	#name : #PyramidSpPresenter,
+	#superclass : #SpPresenter,
+	#category : #'Pyramid-views'
+}
+
+{ #category : #accessing }
+PyramidSpPresenter >> aboutTitle [
+
+	^ PyramidWindow aboutTitle
+]

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 := PyramidSpPresenter new layout: self layout; yourself.
 	^ presenter
 ]