From d2b3dd764e3d5cf03ab7a80b6ad532b046d27c94 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Fri, 25 Oct 2024 14:11:36 +0200 Subject: [PATCH] Move Seaside control panel to a separate top-level Seaside menu (ready for more to come) --- .../{menuCommandOn..st => controlPanelMenuCommandOn..st} | 8 ++++---- .../class/seasideMenuCommandOn..st | 7 +++++++ 2 files changed, 11 insertions(+), 4 deletions(-) rename repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/{menuCommandOn..st => controlPanelMenuCommandOn..st} (68%) create mode 100644 repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideMenuCommandOn..st diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/controlPanelMenuCommandOn..st similarity index 68% rename from repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st rename to repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/controlPanelMenuCommandOn..st index 7ca6d9052..ceaff0471 100644 --- a/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/controlPanelMenuCommandOn..st @@ -1,10 +1,10 @@ world menu -menuCommandOn: aBuilder +controlPanelMenuCommandOn: aBuilder - self registerIcons. + (aBuilder item: #ServerAdapterBrowser) - order: 0.21; - parent: #Tools; + order: 1; + parent: #Seaside; label: 'Seaside Control Panel'; icon: (self iconNamed: #adaptorRunningIcon); action: [ self open ] \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideMenuCommandOn..st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideMenuCommandOn..st new file mode 100644 index 000000000..c100e420c --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideMenuCommandOn..st @@ -0,0 +1,7 @@ +world menu +seasideMenuCommandOn: builder + + + (builder item: #Seaside) + target: self; + order: 1.4 \ No newline at end of file