diff --git a/src/BaselineOfPyramid/BaselineOfPyramid.class.st b/src/BaselineOfPyramid/BaselineOfPyramid.class.st index d091cb77..fb78d641 100644 --- a/src/BaselineOfPyramid/BaselineOfPyramid.class.st +++ b/src/BaselineOfPyramid/BaselineOfPyramid.class.st @@ -13,9 +13,11 @@ BaselineOfPyramid >> baseline: spec [ self dependencies: spec. spec package: #Pyramid; + package: #'Pyramid-IDE' with: [ spec requires: #( #Pyramid ) ]; package: #'Pyramid-Bloc' - with: [ spec requires: #( #Pyramid #Bloc #BlocSerialization) ]; - package: #'Pyramid-Tests' with: [ spec requires: #( #Pyramid #'Pyramid-Bloc' ) ]; + with: [ spec requires: #( #Pyramid #Bloc #BlocSerialization ) ]; + package: #'Pyramid-Tests' + with: [ spec requires: #( #Pyramid #'Pyramid-Bloc' ) ]; package: #'Pyramid-Examples' with: [ spec requires: #( #Pyramid ) ]; package: #'Pyramid-IDE' with: [ spec requires: #( #Pyramid ) ] ] diff --git a/src/Pyramid-IDE/PyramidPluginSettingsAccess.class.st b/src/Pyramid-IDE/PyramidPluginSettingsAccess.class.st new file mode 100644 index 00000000..e77b683c --- /dev/null +++ b/src/Pyramid-IDE/PyramidPluginSettingsAccess.class.st @@ -0,0 +1,39 @@ +Class { + #name : #PyramidPluginSettingsAccess, + #superclass : #Object, + #traits : 'TPyramidPlugin', + #classTraits : 'TPyramidPlugin classTrait', + #instVars : [ + 'settingsButton' + ], + #category : #'Pyramid-IDE-plugin-settings' +} + +{ #category : #adding } +PyramidPluginSettingsAccess >> addPanelsOn: aPyramidWindow [ + + aPyramidWindow at: #topLeft addItem: [ :builder | + builder makeButtonWithIcon: self settingsButton order: 3 ] +] + +{ #category : #initialization } +PyramidPluginSettingsAccess >> initialize [ + + settingsButton := SpButtonPresenter new + icon: (self iconNamed: #smallConfiguration); + action: [ PyramidWorld openPyramidSettings ]; + help: self settingsButtonHelp; + yourself +] + +{ #category : #initialization } +PyramidPluginSettingsAccess >> settingsButton [ + + ^ settingsButton +] + +{ #category : #initialization } +PyramidPluginSettingsAccess >> settingsButtonHelp [ + + ^ 'Open the settings menu for Pyramid.' +] diff --git a/src/Pyramid-IDE/PyramidSystemSettings.class.st b/src/Pyramid-IDE/PyramidSystemSettings.class.st index 32d04604..79ea9c32 100644 --- a/src/Pyramid-IDE/PyramidSystemSettings.class.st +++ b/src/Pyramid-IDE/PyramidSystemSettings.class.st @@ -1,7 +1,7 @@ Class { #name : #PyramidSystemSettings, #superclass : #Object, - #category : #'Pyramid-IDE' + #category : #'Pyramid-IDE-settings-menu' } { #category : #settings } diff --git a/src/Pyramid-IDE/PyramidWorld.class.st b/src/Pyramid-IDE/PyramidWorld.class.st index 6f0b40c1..e152c578 100644 --- a/src/Pyramid-IDE/PyramidWorld.class.st +++ b/src/Pyramid-IDE/PyramidWorld.class.st @@ -1,7 +1,7 @@ Class { #name : #PyramidWorld, #superclass : #Object, - #category : #'Pyramid-IDE-Menus' + #category : #'Pyramid-IDE-menus' } { #category : #actions }