diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 3008bdb00..307fa4edb 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -8,7 +8,7 @@ jobs: strategy: fail-fast: false matrix: - smalltalk: [ Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.3, GemStone64-3.5.5, GemStone64-3.4.5, GemStone64-3.3.9, GemStone64-3.2.17, GemStone64-3.1.0.6 ] + smalltalk: [ Pharo64-10, Pharo64-9.0, Pharo64-8.0, Pharo64-7.0, Pharo-6.1, GemStone64-3.6.3, GemStone64-3.5.5, GemStone64-3.4.5, GemStone64-3.3.9, GemStone64-3.2.17, GemStone64-3.1.0.6 ] experimental: [ false ] include: - smalltalk: Pharo64-alpha diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st index d37921caf..713eda5d5 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinecommon..st @@ -7,7 +7,7 @@ baselinecommon: spec with: [ spec loads: #('Grease-Core'); - repository: 'github://SeasideSt/Grease:v1.8.x/repository' ]. + repository: 'github://SeasideSt/Grease:master/repository' ]. spec project: 'Grease Core Tests' copyFrom: 'Grease' with: [ spec loads: #('Core Tests') ] diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st index cbf4f45ee..ec07f9f64 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinepharo..st @@ -45,4 +45,10 @@ baselinepharo: 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 + package: 'Seaside-Pharo-Tools-Spec2' with: [ spec requires: #('Seaside-Tools-Core') ] ]. + + spec + for: #(#'pharo10.x') + do: [ spec + package: 'Seaside-Tools-Core' with: [ spec includes: #('Seaside-Pharo100-Tools-Spec2') ]; + package: 'Seaside-Pharo100-Tools-Spec2' with: [ spec requires: #('Seaside-Tools-Core') ] ] \ No newline at end of file diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinerest..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinerest..st index a7acbbb00..43fedc04a 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinerest..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselinerest..st @@ -51,7 +51,7 @@ baselinerest: spec ]. spec - for: #(#'pharo9.x') + for: #('pharo9.x' 'pharo10.x') do:[ spec package: 'Seaside-Pharo90-REST-Core'; diff --git a/repository/Seaside-Core.package/GRPlatform.extension/instance/seasideVersion.st b/repository/Seaside-Core.package/GRPlatform.extension/instance/seasideVersion.st index 176a7face..3d3382ffe 100644 --- a/repository/Seaside-Core.package/GRPlatform.extension/instance/seasideVersion.st +++ b/repository/Seaside-Core.package/GRPlatform.extension/instance/seasideVersion.st @@ -2,5 +2,5 @@ seasideVersion "Answer the Seaside version" - ^ (GRVersion major: 3 minor: 4 revision: 6) + ^ (GRVersion major: 3 minor: 4 revision: 7) yourself \ No newline at end of file diff --git a/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamedAndValuesInSqueak.do..st b/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamedAndValuesInSqueak.do..st new file mode 100644 index 000000000..5fa134406 --- /dev/null +++ b/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamedAndValuesInSqueak.do..st @@ -0,0 +1,5 @@ +private +tempNamedAndValuesInSqueak: aContext do: aTwoArgumentBlock + + aContext tempNames doWithIndex: [ :each :index | + aTwoArgumentBlock value: each value: (aContext namedTempAt: index) ] \ No newline at end of file diff --git a/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamesAndValuesIn.do..st b/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamesAndValuesIn.do..st index 45ab74aca..b5f8f04ed 100644 --- a/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamesAndValuesIn.do..st +++ b/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamesAndValuesIn.do..st @@ -1,9 +1,9 @@ private tempNamesAndValuesIn: aContext do: aTwoArgumentBlock - (((SystemVersion current asString includesSubstring: 'Pharo') + ((SystemVersion current asString includesSubstring: 'Pharo') and: [ SystemVersion current major >= 8 ]) - or: [ (SystemVersion current asString includesSubstring: 'Squeak') - and: [ SystemVersion current majorVersionNumber >= 5 ] ]) - ifTrue: [ aContext tempNames - doWithIndex: - [ :each :index | aTwoArgumentBlock value: each value: (aContext namedTempAt: index) ] ] \ No newline at end of file + ifTrue: [ ^ self tempNamesAndValuesInPharo8Plus: aContext do: aTwoArgumentBlock ]. + + ((SystemVersion current asString includesSubstring: 'Squeak') + and: [ SystemVersion current majorVersionNumber >= 5 ]) + ifTrue: [ ^ self tempNamedAndValuesInSqueak: aContext do: aTwoArgumentBlock ] \ No newline at end of file diff --git a/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamesAndValuesInPharo8Plus.do..st b/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamesAndValuesInPharo8Plus.do..st new file mode 100644 index 000000000..81d28cb96 --- /dev/null +++ b/repository/Seaside-Pharo-Development.package/WAPharoWalkback.class/instance/tempNamesAndValuesInPharo8Plus.do..st @@ -0,0 +1,5 @@ +private +tempNamesAndValuesInPharo8Plus: aContext do: aTwoArgumentBlock + + aContext tempNames do: [ :each | + aTwoArgumentBlock value: each value: (aContext tempNamed: each) ] \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/.filetree b/repository/Seaside-Pharo100-Tools-Spec2.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/GRPackage.extension/class/seasidePharoToolsSpec2.st b/repository/Seaside-Pharo100-Tools-Spec2.package/GRPackage.extension/class/seasidePharoToolsSpec2.st new file mode 100644 index 000000000..095e1299a --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/GRPackage.extension/class/seasidePharoToolsSpec2.st @@ -0,0 +1,8 @@ +*Seaside-Pharo100-Tools-Spec2 +seasidePharoToolsSpec2 + ^ self new + name: 'Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/GRPackage.extension/properties.json b/repository/Seaside-Pharo100-Tools-Spec2.package/GRPackage.extension/properties.json new file mode 100644 index 000000000..ae522a7e0 --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/GRPackage.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPackage" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/README.md b/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/README.md new file mode 100644 index 000000000..8841c4427 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/adaptorClasses.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/adaptorClasses.st new file mode 100644 index 000000000..e9316ac95 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..d1d22f174 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/execute.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/execute.st new file mode 100644 index 000000000..50dd4ef23 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/initialize.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/instance/initialize.st new file mode 100644 index 000000000..969f905c9 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/properties.json b/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/properties.json new file mode 100644 index 000000000..fbb5ee692 --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAAddAdaptorCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:06", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo100-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAAddAdaptorCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/README.md b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/README.md new file mode 100644 index 000000000..8f2377983 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..6b8765bb9 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/execute.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/execute.st new file mode 100644 index 000000000..79e633052 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/initialize.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/instance/initialize.st new file mode 100644 index 000000000..317a3a311 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/properties.json b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/properties.json new file mode 100644 index 000000000..17a9ed1a5 --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearConfigurationCachesCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:07", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo100-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAClearConfigurationCachesCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/README.md b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/README.md new file mode 100644 index 000000000..62d8f8ccb --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..6b8765bb9 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/instance/execute.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/instance/execute.st new file mode 100644 index 000000000..a7c037771 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/instance/initialize.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/instance/initialize.st new file mode 100644 index 000000000..9dedb62b7 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/properties.json b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/properties.json new file mode 100644 index 000000000..6c6f7ea81 --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAClearSessionsCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:07", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo100-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAClearSessionsCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/README.md b/repository/Seaside-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/README.md new file mode 100644 index 000000000..8aaba5386 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/class/isAbstract.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/class/isAbstract.st new file mode 100644 index 000000000..d4cba0576 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/instance/adaptor.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/instance/adaptor.st new file mode 100644 index 000000000..7041510c9 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/instance/hasAdaptor.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/instance/hasAdaptor.st new file mode 100644 index 000000000..0c5d69c1d --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/properties.json b/repository/Seaside-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/properties.json new file mode 100644 index 000000000..da4d0213a --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAControlPanelCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:06", + "super" : "CmCommand", + "category" : "Seaside-Pharo100-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAControlPanelCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/README.md b/repository/Seaside-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/README.md new file mode 100644 index 000000000..c1dd421e9 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..d4aed94ac --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/execute.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/execute.st new file mode 100644 index 000000000..e8606addb --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/initialize.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/instance/initialize.st new file mode 100644 index 000000000..7cc01e789 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/properties.json b/repository/Seaside-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/properties.json new file mode 100644 index 000000000..9cff0be25 --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAInspectAdaptorCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:07", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo100-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAInspectAdaptorCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/README.md b/repository/Seaside-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/README.md new file mode 100644 index 000000000..adda7450d --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/asSpecCommand.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/asSpecCommand.st new file mode 100644 index 000000000..ebe1c2b80 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/execute.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/execute.st new file mode 100644 index 000000000..7f8b471e9 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/initialize.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/instance/initialize.st new file mode 100644 index 000000000..f65e650c9 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/properties.json b/repository/Seaside-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/properties.json new file mode 100644 index 000000000..29bbf3d0c --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAOpenBrowserCommand.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "CyrilFerlicot 8/26/2019 12:08", + "super" : "WAControlPanelCommand", + "category" : "Seaside-Pharo100-Tools-Spec2", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WAOpenBrowserCommand", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/README.md b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/README.md new file mode 100644 index 000000000..83eaf3be8 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorRunningIconContents.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorRunningIconContents.st new file mode 100644 index 000000000..eca9f2845 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorStoppedIconContents.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/adaptorStoppedIconContents.st new file mode 100644 index 000000000..00c6bf2b6 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/buildCommandsGroupWith.forRoot..st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/buildCommandsGroupWith.forRoot..st new file mode 100644 index 000000000..390497962 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/buildTableMenuFor..st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/buildTableMenuFor..st new file mode 100644 index 000000000..3bc55da32 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/buildToolbarFor..st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/buildToolbarFor..st new file mode 100644 index 000000000..109202c9e --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/buildToolbarFor..st @@ -0,0 +1,9 @@ +commands +buildToolbarFor: presenter + ^ (CmCommandGroup named: 'Toolbar') asSpecGroup + register: (WAAddAdaptorCommand forSpecContext: presenter); + 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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/defaultLayout.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/defaultLayout.st new file mode 100644 index 000000000..f3417eeb9 --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/defaultLayout.st @@ -0,0 +1,13 @@ +layout +defaultLayout + ^ 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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/initialize.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/initialize.st new file mode 100644 index 000000000..401e8234c --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st new file mode 100644 index 000000000..7ca6d9052 --- /dev/null +++ b/repository/Seaside-Pharo100-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-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/open.st b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/open.st new file mode 100644 index 000000000..305dc1119 --- /dev/null +++ b/repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/open.st @@ -0,0 +1,5 @@ +instance creation +open + +