Move Settings button from PhLTitlebarModel to PhLStatusbar.
MODIFY
src/Pharo-Launcher-UI.package/PhLStatusbar.class/class/specLayout.st
src/Pharo-Launcher-UI.package/PhLStatusbar.class/class/specLayout.st
@@ -3,4 +3,5 @@ specLayout
<spec: #default>
^ SpecLayout composed
add: #labelModel;
+ add: #settingsButton origin: 1@0 corner: 1@1 offsetOrigin: -23@0 offsetCorner: 0@0;
yourself
\ No newline at end of file

MODIFY
src/Pharo-Launcher-UI.package/PhLStatusbar.class/instance/initializeWidgets.st
src/Pharo-Launcher-UI.package/PhLStatusbar.class/instance/initializeWidgets.st
initialization
initializeWidgets
labelModel := self newLabel.
+
+ (settingsButton := self newButton)
+ icon: Smalltalk ui icons alertIcon;
+ action: [ self openSettings ];
+ state: false.

ADD
src/Pharo-Launcher-UI.package/PhLStatusbar.class/instance/openSettings.st
+protocol
+openSettings
+ PharoLauncher openSettings
\ No newline at end of file

RENAME
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/instance/settingsButton.st
src/Pharo-Launcher-UI.package/PhLStatusbar.class/instance/settingsButton.st
MODIFY
src/Pharo-Launcher-UI.package/PhLStatusbar.class/properties.json
src/Pharo-Launcher-UI.package/PhLStatusbar.class/properties.json
"pools" : [ ],
"classvars" : [ ],
"instvars" : [
- "labelModel"
+ "labelModel",
+ "settingsButton"
],
"name" : "PhLStatusbar",
"type" : "normal"

MODIFY
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/class/specLayout.st
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/class/specLayout.st
@@ -3,6 +3,5 @@ specLayout
<spec: #default>
^ SpecLayout composed
add: #label;
- add: #settingsButton origin: 1@0 corner: 1@1 offsetOrigin: -50@0 offsetCorner: -23@0;
add: #refreshButton origin: 1@0 corner: 1@1 offsetOrigin: -23@0 offsetCorner: 0@0;
yourself
\ No newline at end of file

MODIFY
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/instance/initializeWidgets.st
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/instance/initializeWidgets.st
@@ -8,7 +8,3 @@ initializeWidgets
action: refreshAction;
state: false.
\ No newline at end of file
- (settingsButton := self newButton)
- icon: Smalltalk ui icons alertIcon;
- action: [ self openSettings ];
- state: false.
\ No newline at end of file

DELETE
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/instance/openSettings.st
-accessing
-openSettings
- PharoLauncher openSettings
\ No newline at end of file

MODIFY
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/properties.json
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/properties.json
"instvars" : [
"label",
"refreshButton",
- "refreshAction",
- "settingsButton"
+ "refreshAction"
],
"name" : "PhLTitlebarModel",
"type" : "normal"

MODIFY
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/setTemplateGroup.imageGroup..st
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/setTemplateGroup.imageGroup..st
initialization
setTemplateGroup: aTemplateRepository imageGroup: anImageGroup
- (self templatesMissingOnStartup or: self templatesClearedOnStartup)
+ (self class templatesClearedOnStartup or: [ TemplateRepository isNil ] )
ifTrue: [ TemplateRepository := aTemplateRepository ].
imageGroup := anImageGroup
\ No newline at end of file

DELETE
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/templatesClearedOnStartup.st
-initialization
-templatesClearedOnStartup
- ^ self class templatesClearedOnStartup
\ No newline at end of file

DELETE
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/templatesMissingOnStartup.st
-initialization
-templatesMissingOnStartup
- ^ TemplateRepository isNil
\ No newline at end of file

Move Settings button from PhLTitlebarModel to PhLStatusbar.