Merge pull request #711 from olekscode/695-Add-a-menu-item-to-open-Sy…

…stemBrowser-from-Programming-menu 695 add a menu item to open system browser from programming menu
cormas · Aug 15, 2023 · e97f9fd · e97f9fd
2 parents 40850d8 + 4327112
commit e97f9fd
Show file tree

Hide file tree

Showing 8 changed files with 64 additions and 5 deletions.
diff --git a/repository/Cormas-Core/CMAbstractTranslator.class.st b/repository/Cormas-Core/CMAbstractTranslator.class.st
@@ -793,6 +793,12 @@ CMAbstractTranslator >> tOpenPharoMenu [
 	self subclassResponsibility
 ]
 
+{ #category : #translations }
+CMAbstractTranslator >> tOpenSystemBrowser [
+
+	self subclassResponsibility
+]
+
 { #category : #translations }
 CMAbstractTranslator >> tPackageDepedenciesGraph [
 

diff --git a/repository/Cormas-Core/CMEnglishTranslator.class.st b/repository/Cormas-Core/CMEnglishTranslator.class.st
@@ -784,6 +784,12 @@ CMEnglishTranslator >> tOpenPharoMenu [
 	^ 'Open Pharo Menu'
 ]
 
+{ #category : #translations }
+CMEnglishTranslator >> tOpenSystemBrowser [
+
+	^ 'Open System Browser'
+]
+
 { #category : #translations }
 CMEnglishTranslator >> tPackageDepedenciesGraph [
 

diff --git a/repository/Cormas-Core/CMFrenchTranslator.class.st b/repository/Cormas-Core/CMFrenchTranslator.class.st
@@ -784,6 +784,12 @@ CMFrenchTranslator >> tOpenPharoMenu [
 	^ 'Menu Pharo ouvert'
 ]
 
+{ #category : #translations }
+CMFrenchTranslator >> tOpenSystemBrowser [
+
+	^ 'Ouvrir le navigateur du système'
+]
+
 { #category : #translations }
 CMFrenchTranslator >> tPackageDepedenciesGraph [
 

diff --git a/repository/Cormas-Core/CMNorwegianTranslator.class.st b/repository/Cormas-Core/CMNorwegianTranslator.class.st
@@ -784,6 +784,12 @@ CMNorwegianTranslator >> tOpenPharoMenu [
 	^ 'Åpne Pharo-menyen'
 ]
 
+{ #category : #translations }
+CMNorwegianTranslator >> tOpenSystemBrowser [
+
+	^ 'Åpne systembrowseren'
+]
+
 { #category : #translations }
 CMNorwegianTranslator >> tPackageDepedenciesGraph [
 

diff --git a/repository/Cormas-Core/CMPolishTranslator.class.st b/repository/Cormas-Core/CMPolishTranslator.class.st
@@ -784,6 +784,12 @@ CMPolishTranslator >> tOpenPharoMenu [
 	^ 'Otwórz menu Pharo'
 ]
 
+{ #category : #translations }
+CMPolishTranslator >> tOpenSystemBrowser [
+
+	^ 'Otwórz przeglądarkę systemową'
+]
+
 { #category : #translations }
 CMPolishTranslator >> tPackageDepedenciesGraph [
 

diff --git a/repository/Cormas-Core/CMSpanishTranslator.class.st b/repository/Cormas-Core/CMSpanishTranslator.class.st
@@ -784,6 +784,12 @@ CMSpanishTranslator >> tOpenPharoMenu [
 	^ 'Abrir Menú de Pharo'
 ]
 
+{ #category : #translations }
+CMSpanishTranslator >> tOpenSystemBrowser [
+
+	^ 'Abrir el navegador del sistema'
+]
+
 { #category : #translations }
 CMSpanishTranslator >> tPackageDepedenciesGraph [
 

diff --git a/repository/Cormas-Core/CMUkrainianTranslator.class.st b/repository/Cormas-Core/CMUkrainianTranslator.class.st
@@ -784,6 +784,12 @@ CMUkrainianTranslator >> tOpenPharoMenu [
 	^ 'Відкрийте меню Pharo'
 ]
 
+{ #category : #translations }
+CMUkrainianTranslator >> tOpenSystemBrowser [
+
+	^ 'Відкрити системний браузер'
+]
+
 { #category : #translations }
 CMUkrainianTranslator >> tPackageDepedenciesGraph [
 

diff --git a/repository/Cormas-UI/CMSpecProjectWindow.class.st b/repository/Cormas-UI/CMSpecProjectWindow.class.st
@@ -722,6 +722,14 @@ CMSpecProjectWindow >> openSpacePresenterUpdateScenario [
 
 ]
 
+{ #category : #keymaps }
+CMSpecProjectWindow >> openSystemBrowser [
+
+	[ self cormasModel class browse ]
+		on: Error
+		do: [ Smalltalk tools browser open ]
+]
+
 { #category : #callbacks }
 CMSpecProjectWindow >> openVizMessages [
 self alertMessage: 'No implemented yet'
@@ -888,11 +896,11 @@ CMSpecProjectWindow >> subMenuForProgramming [
 
 	^ MenuModel new
 		addGroup: [ : group |
-			group addItem: [ : item | self subMenuProgrammingEntityClass: item ] ];
-		addGroup: [ : group | 
-			group addItem: [ : item | self subMenuProgrammingSimulationOrganisation: item ] ];
-		addGroup: [ : group | 
-			group addItem: [ : item | self subMenuProgrammingObserver: item ] ].
+			group
+				addItem: [ : item | self subMenuProgrammingEntityClass: item ];
+				addItem: [ : item | self subMenuProgrammingOpenSystemBrowser: item ];
+				addItem: [ : item | self subMenuProgrammingSimulationOrganisation: item ];
+				addItem: [ : item | self subMenuProgrammingObserver: item ] ].
 ]
 
 { #category : #'submenu-simulation' }
@@ -1102,6 +1110,15 @@ CMSpecProjectWindow >> subMenuProgrammingObserver: item [
 		subMenu: self subMenuProgrammingObserver
 ]
 
+{ #category : #'submenu-programming' }
+CMSpecProjectWindow >> subMenuProgrammingOpenSystemBrowser: item [
+
+	item
+		name: self translator tOpenSystemBrowser;
+		icon: (self iconNamed: #nautilus);
+		action: [ self openSystemBrowser ]
+]
+
 { #category : #'submenu-programming' }
 CMSpecProjectWindow >> subMenuProgrammingProbes: item [