Merge pull request #1450 from SeasideSt/pharo13-development

Pharo13 + other development improvements

Author: Johan Brichau

.github/workflows/ci.yml

@@ -4,7 +4,7 @@ on: [push, pull_request]
 
 jobs:
   test:
-    runs-on: ubuntu-20.04
+    runs-on: ubuntu-latest
     strategy:
       fail-fast: false
       matrix:
@@ -13,7 +13,7 @@ jobs:
         include:
           - smalltalk: Pharo64-13
             experimental: true
-          - smalltalk: GToolkit64-release
+          - smalltalk: GToolkit64-release 
             experimental: true
           - smalltalk: Squeak64-6.0
             experimental: true

repository/Seaside-Pharo-Development.package/WADevelopment.class/class/ensureAuthorInitialsWith..st

@@ -7,7 +7,8 @@ ensureAuthorInitialsWith: aOneArgumentBlock
 		ifTrue: [
 			"Special Pharo code path to avoid deprecation"
 			| author |
-			author := Smalltalk at: #Author.
+			SystemVersion current major >= 13 ifTrue:[ ^ self. "do nothing because Author does not exist anymore" ].
+			author := Smalltalk at: #Author ifAbsent: [ nil ].
 			author isNil
 				ifTrue: [ ^ self error: 'unsupported Pharo version' ].
 			author fullNamePerSe isEmptyOrNil

repository/Seaside-Pharo-Welcome.package/GRPharoPlatform.extension/instance/seasideIsAuthorNameSet.st

@@ -1,3 +1,5 @@
 *seaside-pharo-welcome
 seasideIsAuthorNameSet
-	^ Author fullNamePerSe isEmptyOrNil not
+
+	SystemVersion current major >= 13 ifTrue:[ ^ true. "Author does not exist anymore" ].
+	^ (Smalltalk at: #Author) fullNamePerSe isEmptyOrNil not

repository/Seaside-Pharo-Welcome.package/GRPharoPlatform.extension/instance/seasideSetAuthorName..st

@@ -1,3 +1,5 @@
 *seaside-pharo-welcome
 seasideSetAuthorName: anAuthorName
-	Author fullName: anAuthorName
+
+	SystemVersion current major >= 13 ifTrue:[ ^ self error: 'Author does not exist anymore.' ].
+	(Smalltalk at: #Author) fullName: anAuthorName

repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/menuCommandOn..st renamed to repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/controlPanelMenuCommandOn..st

@@ -1,10 +1,10 @@
 world menu
-menuCommandOn: aBuilder
+controlPanelMenuCommandOn: aBuilder
 	<worldMenu>
-	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 ]

repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminal.st

@@ -0,0 +1,6 @@
+commands
+runSeleniumServerInTerminal
+	<script>
+	
+	"Only works on Mac at this time"
+	LibC system: 'osascript -e ''tell app "Terminal" to activate'' && osascript -e ''tell app "Terminal" to do script "npm install selenium-standalone && npx selenium-standalone install && npx selenium-standalone start"'''

repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/runSeleniumServerInTerminalMenuCommandOn..st

@@ -0,0 +1,9 @@
+world menu
+runSeleniumServerInTerminalMenuCommandOn: builder
+
+	<worldMenu>
+	
+	(builder item: 'Run Selenium Server in Terminal')
+		parent: #Seaside;
+		order: 3;
+		action: [ self runSeleniumServerInTerminal ]

repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideIcebergRepository.st

@@ -0,0 +1,6 @@
+private
+seasideIcebergRepository
+
+	^ IceRepository registry 
+		detect: [ :repository | repository workingCopy packages anySatisfy:[ :p | p packageName = 'Seaside-Core' ] ] 
+		ifNone: [ Error signal: 'Could not find the Seaside repository.' ]

repository/Seaside-Pharo100-Tools-Spec2.package/WAPharoControlPanel.class/class/seasideMenuCommandOn..st

@@ -0,0 +1,7 @@
+world menu
+seasideMenuCommandOn: builder 
+	<worldMenu>
+
+	(builder item: #Seaside)
+		target: self;
+		order: 1.4

repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testTableReportFunctionalTest.st

@@ -3,6 +3,7 @@ testTableReportFunctionalTest
 	| firstColumn classNames |
 	self selectTest: 'WATableReportFunctionalTest'.
 
+	(Delay forMilliseconds: 500) wait."Because it was failing on the CI for some older versions..."
 	firstColumn := driver findElementsByCSSSelector: 'table>tbody>tr>td:first-child'.
 	classNames := (firstColumn collect: [ :e | e getText ]).
 	self assert: ((WAComponent allSubclasses collect: [ :c | c name greaseString ]) allSatisfy: [ :className | classNames includes: className ]).