diff --git a/.travis.yml b/.travis.yml index 33c9983db..22a0e1cc2 100644 --- a/.travis.yml +++ b/.travis.yml @@ -22,8 +22,11 @@ matrix: allow_failures: - smalltalk: Squeak-trunk - smalltalk: Squeak-5.1 + - smalltalk: Pharo64-9.0 include: + - smalltalk: Pharo64-9.0 + env: BUILD_NAME=Pharo64-9.0 - smalltalk: Pharo64-8.0 env: BUILD_NAME=Pharo64-8.0 - smalltalk: Pharo64-7.0 diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st index e4ab55f57..297092187 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st @@ -49,9 +49,16 @@ baselinepharo: spec package: 'Seaside-Pharo-Flow' with: [ spec requires: #('Seaside-Flow' 'Seaside-Pharo-Continuation') ]; package: 'Seaside-Tests-Pharo-Continuation' with: [ spec requires: #('Seaside-Pharo-Continuation') ]; package: 'Seaside-Tests-Core' with: [ spec includes: #('Seaside-Tests-Pharo-Core') ]; - package: 'Seaside-Tests-Pharo-Core' with: [ spec requires: #('Seaside-Pharo-Core' 'Seaside-Tests-Core') ]. + package: 'Seaside-Tests-Pharo-Core' with: [ spec requires: #('Seaside-Pharo-Core' 'Seaside-Tests-Core') ] ]. - "Spec based tools" - spec + spec + for: #(#'pharo4.x' #'pharo5.x' #'pharo6.x' #'pharo7.x') + do: [ spec package: 'Seaside-Tools-Core' with: [ spec includes: #('Seaside-Pharo-Tools-Spec') ]; - package: 'Seaside-Pharo-Tools-Spec' with: [ spec requires: #('Seaside-Tools-Core') ] ] \ No newline at end of file + package: 'Seaside-Pharo-Tools-Spec' with: [ spec requires: #('Seaside-Tools-Core') ] ]. + + spec + for: #(#'pharo8.x' #'pharo9.x') + do: [ spec + package: 'Seaside-Tools-Core' with: [ spec includes: #('Seaside-Pharo-Tools-Spec2') ]; + package: 'Seaside-Pharo-Tools-Spec2' with: [ spec requires: #('Seaside-Tools-Core') ] ] \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/.filetree b/repository/Seaside-Pharo-Tools-Spec2.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/GRPackage.extension/class/seasidePharoToolsSpec2.st b/repository/Seaside-Pharo-Tools-Spec2.package/GRPackage.extension/class/seasidePharoToolsSpec2.st new file mode 100644 index 000000000..3977c157a --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/GRPackage.extension/class/seasidePharoToolsSpec2.st @@ -0,0 +1,8 @@ +*Seaside-Pharo-Tools-Spec2 +seasidePharoToolsSpec2 + ^ self new + name: 'Seaside-Pharo-Tools-Spec2'; + description: 'Spec based server adapter browser for Pharo'; + addDependency: 'Seaside-Tools-Core'; + url: #seasideUrl; + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/GRPackage.extension/properties.json b/repository/Seaside-Pharo-Tools-Spec2.package/GRPackage.extension/properties.json new file mode 100644 index 000000000..ae522a7e0 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/README.md b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/README.md new file mode 100644 index 000000000..8841c4427 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/README.md @@ -0,0 +1,4 @@ +Description +-------------------- + +I am an action to register a new adaptor in Seaside. \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/adaptorClasses.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/adaptorClasses.st new file mode 100644 index 000000000..e9316ac95 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/adaptorClasses.st @@ -0,0 +1,3 @@ +accessing +adaptorClasses + ^ (WAServerAdaptor allSubclasses reject: #isAbstract) sorted: #name ascending \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..d1d22f174 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/asSpecCommand.st @@ -0,0 +1,5 @@ +converting +asSpecCommand + ^ super asSpecCommand + iconName: #add; + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/execute.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/execute.st new file mode 100644 index 000000000..50dd4ef23 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/execute.st @@ -0,0 +1,15 @@ +hooks +execute + | allAdaptors | + allAdaptors := self adaptorClasses. + (UIManager default + chooseFrom: (allAdaptors collect: #name) + values: allAdaptors + lines: #() + title: 'Add Seaside Adaptor' translated) + ifNotNil: [ :class | + (UIManager default request: 'Enter a port number' initialAnswer: class basicNew defaultPort greaseString) + ifNotNil: [ :port | + (port isEmpty or: [ port isAllDigits not ]) + ifFalse: [ class port: port greaseInteger. + context updateAdaptorsTable ] ] ] \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/initialize.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/initialize.st new file mode 100644 index 000000000..969f905c9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self + name: 'Add adaptor'; + description: 'Allows one to create a new adaptor.' \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/properties.json b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/properties.json new file mode 100644 index 000000000..8e0a25b52 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAAddAdaptorCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:06", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAAddAdaptorCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/README.md b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/README.md new file mode 100644 index 000000000..8f2377983 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/README.md @@ -0,0 +1,4 @@ +Description +-------------------- + +I am an action to clear the caches of seaside configurations. \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..6b8765bb9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/asSpecCommand.st @@ -0,0 +1,5 @@ +converting +asSpecCommand + ^ super asSpecCommand + iconName: #remove; + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/execute.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/execute.st new file mode 100644 index 000000000..79e633052 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/execute.st @@ -0,0 +1,3 @@ +hooks +execute + WAAdmin clearConfigurationCaches \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/initialize.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/initialize.st new file mode 100644 index 000000000..317a3a311 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self + name: 'Clear configuration caches'; + description: 'Cleat all the caches of the configuration.' \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/properties.json b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/properties.json new file mode 100644 index 000000000..2d3c5bf52 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:07", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAClearConfigurationCachesCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/README.md b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/README.md new file mode 100644 index 000000000..62d8f8ccb --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/README.md @@ -0,0 +1,4 @@ +Description +-------------------- + +I am an action to clear seaside sessions. \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..6b8765bb9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/asSpecCommand.st @@ -0,0 +1,5 @@ +converting +asSpecCommand + ^ super asSpecCommand + iconName: #remove; + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/execute.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/execute.st new file mode 100644 index 000000000..a7c037771 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/execute.st @@ -0,0 +1,3 @@ +hooks +execute + WAAdmin clearSessions \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/initialize.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/initialize.st new file mode 100644 index 000000000..9dedb62b7 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self + name: 'Clear sessions'; + description: 'Clear all the sessions.' \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/properties.json b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/properties.json new file mode 100644 index 000000000..8c94fa7dd --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAClearSessionsCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:07", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAClearSessionsCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/README.md b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/README.md new file mode 100644 index 000000000..8aaba5386 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/README.md @@ -0,0 +1,6 @@ +Description +-------------------- + +I am an abstract class to manage commands of the controle panel of Seaside. + +My context is a WAPharoControlPanel. \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/class/isAbstract.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/class/isAbstract.st new file mode 100644 index 000000000..d4cba0576 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/class/isAbstract.st @@ -0,0 +1,3 @@ +testing +isAbstract + ^ self = WAControlPanelCommand \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/instance/adaptor.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/instance/adaptor.st new file mode 100644 index 000000000..7041510c9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/instance/adaptor.st @@ -0,0 +1,3 @@ +accessing +adaptor + ^ self context selectedAdaptor \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/instance/hasAdaptor.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/instance/hasAdaptor.st new file mode 100644 index 000000000..0c5d69c1d --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/instance/hasAdaptor.st @@ -0,0 +1,3 @@ +hooks +hasAdaptor + ^ self adaptor isNotNil \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/properties.json b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/properties.json new file mode 100644 index 000000000..8c88391a6 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAControlPanelCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:06", + "super" : "CmCommand", + "category" : "Seaside-Pharo-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAControlPanelCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/README.md b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/README.md new file mode 100644 index 000000000..c1dd421e9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/README.md @@ -0,0 +1,4 @@ +Description +-------------------- + +I am an action to inspect the currently selected adaptor. \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..d4aed94ac --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/asSpecCommand.st @@ -0,0 +1,5 @@ +converting +asSpecCommand + ^ super asSpecCommand + iconName: #smallInspectIt; + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/execute.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/execute.st new file mode 100644 index 000000000..e8606addb --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/execute.st @@ -0,0 +1,3 @@ +hooks +execute + self adaptor ifNotNil: #inspect \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/initialize.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/initialize.st new file mode 100644 index 000000000..7cc01e789 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self + name: 'Inspect'; + description: 'Inspect the currently selected adaptor.' \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/properties.json b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/properties.json new file mode 100644 index 000000000..aab22a5c3 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAInspectAdaptorCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:07", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAInspectAdaptorCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/README.md b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/README.md new file mode 100644 index 000000000..adda7450d --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/README.md @@ -0,0 +1,4 @@ +Description +-------------------- + +I am an action to open a web browser on the localhost defined by the adaptor depending on its port. \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..ebe1c2b80 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/asSpecCommand.st @@ -0,0 +1,5 @@ +converting +asSpecCommand + ^ super asSpecCommand + iconName: #window; + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/execute.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/execute.st new file mode 100644 index 000000000..7f8b471e9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/execute.st @@ -0,0 +1,6 @@ +hooks +execute + self adaptor + ifNotNil: [ :adaptor | + adaptor isRunning ifFalse: [ ^ self ]. + WebBrowser openOn: 'http://localhost:' , adaptor port asString ] \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/initialize.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/initialize.st new file mode 100644 index 000000000..f65e650c9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + self + name: 'Open'; + description: 'Opoen localhost on the port of the adaptor.' \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/properties.json b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/properties.json new file mode 100644 index 000000000..7cfb5808c --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAOpenBrowserCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:08", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAOpenBrowserCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/README.md b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/README.md new file mode 100644 index 000000000..83eaf3be8 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/README.md @@ -0,0 +1,22 @@ +Description +-------------------- + +I am a controle panel for seaside. I will present to the user the list of adaptors registered in Seaside and let the user do some actions such as: +- Adding a new adaptor +- Removing an adaptor +- Starting an adaptor +- Removing an adaptor +... + +Examples +-------------------- + + self class open + +Internal Representation and Key Implementation Points. +-------------------- + + Instance Variables + actionBar: A toolbar containing actions to execute on the selected adaptor + adaptors: A table providing informations about the registered adaptors + infos: A text giving informations to the user about the selected adaptor diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorRunningIconContents.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorRunningIconContents.st new file mode 100644 index 000000000..eca9f2845 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorRunningIconContents.st @@ -0,0 +1,63 @@ +icons +adaptorRunningIconContents + ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAAsTAAALEwEAmpwY +AAAKT2lDQ1BQaG90b3Nob3AgSUNDIHByb2ZpbGUAAHjanVNnVFPpFj333vRCS4iAlEtvUhUI +IFJCi4AUkSYqIQkQSoghodkVUcERRUUEG8igiAOOjoCMFVEsDIoK2AfkIaKOg6OIisr74Xuj +a9a89+bN/rXXPues852zzwfACAyWSDNRNYAMqUIeEeCDx8TG4eQuQIEKJHAAEAizZCFz/SMB +APh+PDwrIsAHvgABeNMLCADATZvAMByH/w/qQplcAYCEAcB0kThLCIAUAEB6jkKmAEBGAYCd +mCZTAKAEAGDLY2LjAFAtAGAnf+bTAICd+Jl7AQBblCEVAaCRACATZYhEAGg7AKzPVopFAFgw +ABRmS8Q5ANgtADBJV2ZIALC3AMDOEAuyAAgMADBRiIUpAAR7AGDIIyN4AISZABRG8lc88Suu +EOcqAAB4mbI8uSQ5RYFbCC1xB1dXLh4ozkkXKxQ2YQJhmkAuwnmZGTKBNA/g88wAAKCRFRHg +g/P9eM4Ors7ONo62Dl8t6r8G/yJiYuP+5c+rcEAAAOF0ftH+LC+zGoA7BoBt/qIl7gRoXgug +dfeLZrIPQLUAoOnaV/Nw+H48PEWhkLnZ2eXk5NhKxEJbYcpXff5nwl/AV/1s+X48/Pf14L7i +JIEyXYFHBPjgwsz0TKUcz5IJhGLc5o9H/LcL//wd0yLESWK5WCoU41EScY5EmozzMqUiiUKS +KcUl0v9k4t8s+wM+3zUAsGo+AXuRLahdYwP2SycQWHTA4vcAAPK7b8HUKAgDgGiD4c93/+8/ +/UegJQCAZkmScQAAXkQkLlTKsz/HCAAARKCBKrBBG/TBGCzABhzBBdzBC/xgNoRCJMTCQhBC +CmSAHHJgKayCQiiGzbAdKmAv1EAdNMBRaIaTcA4uwlW4Dj1wD/phCJ7BKLyBCQRByAgTYSHa +iAFiilgjjggXmYX4IcFIBBKLJCDJiBRRIkuRNUgxUopUIFVIHfI9cgI5h1xGupE7yAAygvyG +vEcxlIGyUT3UDLVDuag3GoRGogvQZHQxmo8WoJvQcrQaPYw2oefQq2gP2o8+Q8cwwOgYBzPE +bDAuxsNCsTgsCZNjy7EirAyrxhqwVqwDu4n1Y8+xdwQSgUXACTYEd0IgYR5BSFhMWE7YSKgg +HCQ0EdoJNwkDhFHCJyKTqEu0JroR+cQYYjIxh1hILCPWEo8TLxB7iEPENyQSiUMyJ7mQAkmx +pFTSEtJG0m5SI+ksqZs0SBojk8naZGuyBzmULCAryIXkneTD5DPkG+Qh8lsKnWJAcaT4U+Io +UspqShnlEOU05QZlmDJBVaOaUt2ooVQRNY9aQq2htlKvUYeoEzR1mjnNgxZJS6WtopXTGmgX +aPdpr+h0uhHdlR5Ol9BX0svpR+iX6AP0dwwNhhWDx4hnKBmbGAcYZxl3GK+YTKYZ04sZx1Qw +NzHrmOeZD5lvVVgqtip8FZHKCpVKlSaVGyovVKmqpqreqgtV81XLVI+pXlN9rkZVM1PjqQnU +lqtVqp1Q61MbU2epO6iHqmeob1Q/pH5Z/YkGWcNMw09DpFGgsV/jvMYgC2MZs3gsIWsNq4Z1 +gTXEJrHN2Xx2KruY/R27iz2qqaE5QzNKM1ezUvOUZj8H45hx+Jx0TgnnKKeX836K3hTvKeIp +G6Y0TLkxZVxrqpaXllirSKtRq0frvTau7aedpr1Fu1n7gQ5Bx0onXCdHZ4/OBZ3nU9lT3acK +pxZNPTr1ri6qa6UbobtEd79up+6Ynr5egJ5Mb6feeb3n+hx9L/1U/W36p/VHDFgGswwkBtsM +zhg8xTVxbzwdL8fb8VFDXcNAQ6VhlWGX4YSRudE8o9VGjUYPjGnGXOMk423GbcajJgYmISZL +TepN7ppSTbmmKaY7TDtMx83MzaLN1pk1mz0x1zLnm+eb15vft2BaeFostqi2uGVJsuRaplnu +trxuhVo5WaVYVVpds0atna0l1rutu6cRp7lOk06rntZnw7Dxtsm2qbcZsOXYBtuutm22fWFn +Yhdnt8Wuw+6TvZN9un2N/T0HDYfZDqsdWh1+c7RyFDpWOt6azpzuP33F9JbpL2dYzxDP2DPj +thPLKcRpnVOb00dnF2e5c4PziIuJS4LLLpc+Lpsbxt3IveRKdPVxXeF60vWdm7Obwu2o26/u +Nu5p7ofcn8w0nymeWTNz0MPIQ+BR5dE/C5+VMGvfrH5PQ0+BZ7XnIy9jL5FXrdewt6V3qvdh +7xc+9j5yn+M+4zw33jLeWV/MN8C3yLfLT8Nvnl+F30N/I/9k/3r/0QCngCUBZwOJgUGBWwL7 ++Hp8Ib+OPzrbZfay2e1BjKC5QRVBj4KtguXBrSFoyOyQrSH355jOkc5pDoVQfujW0Adh5mGL +w34MJ4WHhVeGP45wiFga0TGXNXfR3ENz30T6RJZE3ptnMU85ry1KNSo+qi5qPNo3ujS6P8Yu +ZlnM1VidWElsSxw5LiquNm5svt/87fOH4p3iC+N7F5gvyF1weaHOwvSFpxapLhIsOpZATIhO +OJTwQRAqqBaMJfITdyWOCnnCHcJnIi/RNtGI2ENcKh5O8kgqTXqS7JG8NXkkxTOlLOW5hCep +kLxMDUzdmzqeFpp2IG0yPTq9MYOSkZBxQqohTZO2Z+pn5mZ2y6xlhbL+xW6Lty8elQfJa7OQ +rAVZLQq2QqboVFoo1yoHsmdlV2a/zYnKOZarnivN7cyzytuQN5zvn//tEsIS4ZK2pYZLVy0d +WOa9rGo5sjxxedsK4xUFK4ZWBqw8uIq2Km3VT6vtV5eufr0mek1rgV7ByoLBtQFr6wtVCuWF +fevc1+1dT1gvWd+1YfqGnRs+FYmKrhTbF5cVf9go3HjlG4dvyr+Z3JS0qavEuWTPZtJm6ebe +LZ5bDpaql+aXDm4N2dq0Dd9WtO319kXbL5fNKNu7g7ZDuaO/PLi8ZafJzs07P1SkVPRU+lQ2 +7tLdtWHX+G7R7ht7vPY07NXbW7z3/T7JvttVAVVN1WbVZftJ+7P3P66Jqun4lvttXa1ObXHt +xwPSA/0HIw6217nU1R3SPVRSj9Yr60cOxx++/p3vdy0NNg1VjZzG4iNwRHnk6fcJ3/ceDTra +dox7rOEH0x92HWcdL2pCmvKaRptTmvtbYlu6T8w+0dbq3nr8R9sfD5w0PFl5SvNUyWna6YLT +k2fyz4ydlZ19fi753GDborZ752PO32oPb++6EHTh0kX/i+c7vDvOXPK4dPKy2+UTV7hXmq86 +X23qdOo8/pPTT8e7nLuarrlca7nuer21e2b36RueN87d9L158Rb/1tWeOT3dvfN6b/fF9/Xf +Ft1+cif9zsu72Xcn7q28T7xf9EDtQdlD3YfVP1v+3Njv3H9qwHeg89HcR/cGhYPP/pH1jw9D +BY+Zj8uGDYbrnjg+OTniP3L96fynQ89kzyaeF/6i/suuFxYvfvjV69fO0ZjRoZfyl5O/bXyl +/erA6xmv28bCxh6+yXgzMV70VvvtwXfcdx3vo98PT+R8IH8o/2j5sfVT0Kf7kxmTk/8EA5jz +/GMzLdsAAAAEZ0FNQQAAsY58+1GTAAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1MAAA6mAA +ADqYAAAXb5JfxUYAAAHFSURBVHjapNO/S9RxHMfxx/fOX+mVeekV2hC5JAQJRUEiFFhJEdgY +YkOTTW0NLU1hf0Fkg/QDGmxrc2mQWkLQyjIT0YJKBfPA1Duv49OgFxV3GfRePvB+83m+3u83 +71cUQvBfUQwwclZXuCiMnXJtq7+xYoW6ah1qaEm5MXBE498gZSWzCSqSqk9nDRrRjgAPSSVo +W+Y5FooCAjRikaaj2ibSbpevy9fR+f295rVFJnP60VsUEI/ZaRfmNkAHzuuVIT9O+hO5r1bn +GfxthBfdupKVOurrddY2aVaDbRtdyOIlsSSxBsan3bzE054CYOWKueoquyWxA3HMI4dRRDhG +/guv33h8gb6CcAxW18zJ4hsyWEZ6881sQstYf8fIiluFNf0ENNzTOvzBielpj1amLIhh/+YI +h1BF/hkVSU6WG9jsCUQhBFEU/brDKN1jqrZDs2Ec3pD5PsnSE0KOsY/6znC91CGFfMayWWwn +vOJzv9n0EPEE60vsi1y9z8GShxRWMUEoZ3LUUMu4cw9oSdG9N3I5USYV5aRKemGh3Wj2uDDT +bOZuvT1/lKOCcAihOOBto+HZWit3KrVuacQSdo6j8l+c/GMAw9ymXHesLO4AAAAASUVORK5C +YII=' \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorStoppedIconContents.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorStoppedIconContents.st new file mode 100644 index 000000000..00c6bf2b6 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorStoppedIconContents.st @@ -0,0 +1,12 @@ +icons +adaptorStoppedIconContents + ^ 'iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAABt0lEQVR4XrVTTYtBURgemZp/ +ME3zF8zimpSshik2iCmlWIiFhBW5GOUrHyFEp+ZKFkJpkO2sp9nzA5Tt+AHW77zvqZGPoRk1 +b51O99z7PO/zvM+5F/9SPp/Pmk6nwev1imcRhMNhViwWAUnWZrP59s8EoiiyWq0GzWYTIpHI +Bx7Jvt8JgnCtUqmeaD9KgCDW6XQ4Ae1o6QXtsEAgsLDZbGAwGECtVktHCaLRaH84HEK9XofJ +ZALdbpcTZbNZcDqdoNfr16jgcQcUCoWsiUSCVavVBQGm0ykwxjbgTCYDlUqF1ABaeN4B48A+ +qVur1eKAXq/Hd7KQz+f5oudGowE6ne51eya8UqnUvFwubzy3222QJAnojOJEVdDv9yEWi4FC +obj/0TcO6QHjG+RyuRWRjMdjPgMiI2IiwnekYH6gYK9kyWRyMRqNoFAo8M6DwYCrcDgcYLfb +KYHCyXsQj8dnZIHuQqlUArfbvXS5XODxeMBoNJIKSuHuKAEmMiPJFBt2fcMjOQGwc1Gr1a7o +HhzEuF1+v38WDAZJ7lKj0dzsW8R1edKCxWJ5N5lMa6VSKZz7Q8pxXf3mwy9Px//AHw3xPwAA +AABJRU5ErkJggg==' \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildCommandsGroupWith.forRoot..st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildCommandsGroupWith.forRoot..st new file mode 100644 index 000000000..390497962 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildCommandsGroupWith.forRoot..st @@ -0,0 +1,5 @@ +commands +buildCommandsGroupWith: presenter forRoot: aGroup + aGroup + register: (self buildTableMenuFor: presenter); + register: (self buildToolbarFor: presenter) \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildTableMenuFor..st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildTableMenuFor..st new file mode 100644 index 000000000..3bc55da32 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildTableMenuFor..st @@ -0,0 +1,21 @@ +commands +buildTableMenuFor: presenter + ^ (CmCommandGroup named: 'Table menu') asSpecGroup + register: + ((CmCommandGroup named: 'Addition and removal') asSpecGroup + beDisplayedAsGroup; + register: (WAAddAdaptorCommand forSpecContext: presenter); + register: (WARemoveAdaptorCommand forSpecContext: presenter); + yourself); + register: + ((CmCommandGroup named: 'Encoding') asSpecGroup + beDisplayedAsGroup; + register: (WASetAdaptorEncodingCommand forSpecContext: presenter); + yourself); + register: + ((CmCommandGroup named: 'Clearing') asSpecGroup + beDisplayedAsGroup; + register: (WAClearConfigurationCachesCommand forSpecContext: presenter); + register: (WAClearSessionsCommand forSpecContext: presenter); + yourself); + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildToolbarFor..st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildToolbarFor..st new file mode 100644 index 000000000..a2d3c4e4f --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/buildToolbarFor..st @@ -0,0 +1,8 @@ +commands +buildToolbarFor: presenter + ^ (CmCommandGroup named: 'Toolbar') asSpecGroup + register: (WAStartAdaptorCommand forSpecContext: presenter); + register: (WAStopAdaptorCommand forSpecContext: presenter); + register: (WAInspectAdaptorCommand forSpecContext: presenter); + register: (WAOpenBrowserCommand forSpecContext: presenter); + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/defaultSpec.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/defaultSpec.st new file mode 100644 index 000000000..cd667b0e2 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/defaultSpec.st @@ -0,0 +1,13 @@ +specs +defaultSpec + ^ SpPanedLayout newVertical + add: #adaptors; + add: + (SpBoxLayout newVertical + add: #actionBar + expand: false + fill: false + padding: 0; + add: #infos; + yourself); + yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/initialize.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/initialize.st new file mode 100644 index 000000000..401e8234c --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/initialize.st @@ -0,0 +1,3 @@ +class initialization +initialize + self registerIcons \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st new file mode 100644 index 000000000..7ca6d9052 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st @@ -0,0 +1,10 @@ +world menu +menuCommandOn: aBuilder + + self registerIcons. + (aBuilder item: #ServerAdapterBrowser) + order: 0.21; + parent: #Tools; + label: 'Seaside Control Panel'; + icon: (self iconNamed: #adaptorRunningIcon); + action: [ self open ] \ No newline at end of file diff --git a/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/open.st b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/open.st new file mode 100644 index 000000000..8028059f9 --- /dev/null +++ b/repository/Seaside-Pharo-Tools-Spec2.package/WAPharoControlPanel.class/class/open.st @@ -0,0 +1,4 @@ +instance creation +open +