Introduce a new About Pharo based on Spec instead of Morphic

pharo-spec · Jan 28, 2025 · 9fec3ce · 9fec3ce
1 parent f9cc969
commit 9fec3ce
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/src/NewTools-Core/StPharoSettings.class.st b/src/NewTools-Core/StPharoSettings.class.st
@@ -35,6 +35,29 @@ StPharoSettings class >> defaultToolbarDisplayMode [
 	^ SpToolbarDisplayMode modeIconAndLabel
 ]
 
+{ #category : 'world menu' }
+StPharoSettings class >> openPharoAbout [
+
+	SpInformDialog new
+		title: 'About Pharo';
+		icon: (self iconNamed: #pharo);
+		label: Smalltalk systemInformationString withCRs;
+		acceptLabel: 'Close';
+		openDialog
+]
+
+{ #category : 'world menu' }
+StPharoSettings class >> pharoAboutOn: aBuilder [
+
+	<worldMenu>
+	(aBuilder item: #'About...')
+		order: 99;
+		iconName: #smallInfo;
+		parent: #Help;
+		help: 'Informations about this version of Pharo.';
+		action: [ self openPharoAbout ]
+]
+
 { #category : 'settings' }
 StPharoSettings class >> settingsOn: aBuilder [
 	<systemsettings>