Merge 9f152e8

repository/Seaside-Canvas.package/WATableHeadingTag.class/instance/scope..st

@@ -0,0 +1,10 @@
+attributes
+scope: aString
+	"This attribute specifies the set of data cells for which the current header cell provides header information. This attribute may be used in place of the headers attribute, particularly for simple tables. When specified, this attribute must have one of the following values:
+
+- row: The current cell provides header information for the rest of the row that contains it (see also the section on table directionality).
+- col: The current cell provides header information for the rest of the column that contains it.
+- rowgroup: The header cell provides header information for the rest of the row group that contains it.
+- colgroup: The header cell provides header information for the rest of the column group that contains it."
+
+	self attributes at: 'scope' put: aString

repository/Seaside-Core.package/WAMetaElement.class/instance/charset..st

@@ -5,7 +5,4 @@ charset: aString
 The charset attribute on the meta element has no effect in XML documents, and is only allowed in order to facilitate migration to and from XHTML.
 
 There must not be more than one meta element with a charset attribute per document."
-	self
-		greaseDeprecatedApi: 'WAMetaElement>>charset:'
-		details: 'Use an HTTP Content-Type header on the linked resource instead. https://www.geeksforgeeks.org/what-are-the-html-tags-that-deprecated-in-html5/'.
 	self attributes at: 'charset' put: aString

repository/Seaside-Pharo-Tools-Web.package/WASeasideVersionStatus.class/instance/sortedWorkingCopies.st

@@ -3,7 +3,10 @@ sortedWorkingCopies
 	| categories packageNames workingCopies |
 	categories := Dictionary new.
 	packageNames := BaselineOfSeaside3 project version packages collect: [ :each | each name ].
-	workingCopies := MCWorkingCopy allManagers select: [ :each | packageNames includes: each packageName ].
+	workingCopies := ((MCWorkingCopy respondsTo: #allWorkingCopies)
+		ifTrue: [ MCWorkingCopy allWorkingCopies ]
+		ifFalse: [ MCWorkingCopy allManagers ])
+			select: [ :each | packageNames includes: each packageName ].
 	workingCopies do: 
 		[ :each | 
 		| category |

repository/Seaside-Tests-Canvas.package/WACanvasBrushTest.class/instance/testTableData.st

@@ -20,7 +20,4 @@ testTableData
 		gives: '<td colspan="2" rowspan="3"></td>'.
 	self
 		assert: [ :html | html tableData headers: 'zork' ]
-		gives: '<td headers="zork"></td>'.
-	self
-		assert: [ :html | html tableData scope: 'colgroup' ]
-		gives: '<td scope="colgroup"></td>'
+		gives: '<td headers="zork"></td>'

repository/Seaside-Tests-Functional.package/WACanvasTableFunctionalTest.class/instance/renderCurrencyTableBodyOn..st

@@ -9,9 +9,5 @@ renderCurrencyTableBodyOn: html
             do: [ :each | 
               html
                 tableRow: [ 
-                  html tableHeading: each first.	"https://bugzilla.mozilla.org/show_bug.cgi?id=2212
-					https://bugzilla.mozilla.org/show_bug.cgi?id=915"
-                  html tableData
-                    align: 'char';
-                    character: $.;
-                    with: (numberPrinter print: each second) ] ] ]
+                  html tableHeading: each first.
+                  html tableData: (numberPrinter print: each second) ] ] ]

repository/Seaside-Tests-Functional.package/WACanvasTableFunctionalTest.class/instance/renderCurrencyTableOn..st

@@ -5,6 +5,6 @@ renderCurrencyTableOn: html
 		with: [
 			html tableCaption: 'Currencies against Swiss Franc (CHF)'.
 			html tableColumnGroup.
-			html tableColumnGroup width: '100px'; align: 'char'; character: $..
+			html tableColumnGroup.
 			self renderCurrencyTableHeadOn: html.
 			self renderCurrencyTableBodyOn: html ]

repository/Seaside-Tests-Functional.package/WACanvasTableFunctionalTest.class/instance/renderEntityTableBodyOn..st

@@ -3,10 +3,11 @@ renderEntityTableBodyOn: html
 	html tableBody: [
 		self entities do: [ :eachEntity |
 			html tableRow: [
-				html tableData scope: 'row';
+				html tableHeading scope: 'row';
 					with: eachEntity first.
 				eachEntity second do: [ :each |
 					html tableData: each ].
 				eachEntity second do: [ :each |
-					html tableData align: 'center';
+					html tableData
+						class: 'wacanvastabletest-aligncenter';
 						with: [ html html: each ] ] ] ] ]

repository/Seaside-Tests-Functional.package/WACanvasTableFunctionalTest.class/instance/renderEntityTableColumnGroupsOn..st

@@ -2,4 +2,4 @@ rendering
 renderEntityTableColumnGroupsOn: html
 	html tableColumnGroup.
 	html tableColumnGroup span: 3.
-	html tableColumnGroup span: 3; align: 'center'
+	html tableColumnGroup span: 3; class: 'wacanvastabletest-aligncenter'

repository/Seaside-Tests-Functional.package/WACanvasTableFunctionalTest.class/instance/renderEntityTableFootOn..st

@@ -2,5 +2,6 @@ rendering
 renderEntityTableFootOn: html
 	html tableFoot: [
 		html tableRow: [
-			html tableData align: 'center'; colSpan: 7;
+			html tableData colSpan: 7;
+				class: 'wacanvastabletest-aligncenter';
 				with: '5 entities shown' ] ]

repository/Seaside-Tests-Functional.package/WACanvasTableFunctionalTest.class/instance/style.st

@@ -18,4 +18,7 @@ style
 	padding: 3px;
 	border:1px solid black;
 }
+.wacanvastabletest-aligncenter { 
+	text-align: center;
+}
 '

repository/Seaside-Tests-Functional.package/WAHtml5ElementsTest.class/instance/renderContentOn..st

@@ -6,7 +6,6 @@ renderContentOn: html
 	self renderProgressOn: html.
 	self renderTimeOn: html.
 	self renderDetailsOn: html.
-	self renderMenuOn: html.
 	self renderHeadingGroupOn: html.
 	self renderBidirectionalOn: html.
 	self renderBidirectionalOverrideOn: html.

repository/Seaside-Tests-Functional.package/WALotsaLinksFunctionalTest.class/instance/renderContentOn..st

@@ -5,10 +5,10 @@ renderContentOn: html
 
 	self renderExplanationOn: html.
 	html unorderedList: [
-		(1 to: 5000) do: [ :each | 
+		1 to: 5000 do: [ :each | 
 			html listItem: [
 				html anchor
-					name: each;
+					id: 'linkid-', each greaseString;
 					callback: [
 						self 
 							inform: each

repository/Seaside-Tests-Functional.package/WAPerformanceFunctionalTest.class/instance/renderAnchorsOn..st

@@ -4,7 +4,7 @@ renderAnchorsOn: canvas
 		html unorderedList: [
 			html listItem: [
 					html anchor
-						name: 'name';
+						title: 'name';
 						callback: [ ];
 						with: 'Anchor' ] ] ]
 		factor: 1

repository/Seaside-Tests-Functional.package/WAPerformanceFunctionalTest.class/instance/renderInline.factor.key.on..st

@@ -40,7 +40,9 @@ renderInline: aBlock factor: factor key: key on: html
 	html div
 		class: 'spi';
 		with: [
-			html big: spi greaseString , ' SPI'.
+			html span
+				style: 'font-size: 30px;';
+				with: spi greaseString , ' SPI'.
 			html span
 				class: 'iteration';
 				with: '(' , count greaseString , ' iterations)'.

repository/Seaside-Tests-Functional.package/WAPhraseElementsFunctionalTest.class/instance/renderContentOn..st

@@ -2,7 +2,6 @@ rendering
 renderContentOn: html
 	self renderHarryOn: html.
 	self renderAbbreviatedOn: html.
-	self renderAcronymOn: html.
 	self renderKeyboardInputOn: html.
 	self renderVariableOn: html.
 	self renderCodeOn: html.

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

@@ -28,7 +28,7 @@ testCanvasTableFunctionalTest
     with: entities
     do: [ :row :entityDef | 
       self
-        assert: ((row findElementsByTagName: 'td') collect: #'getText')
+        assert: ((row findElementsByCSSSelector: 'th,td') collect: #'getText')
         equals: entityDef ].
   exchangeRates := #(#('EUR' '1.70') #('USD' '1.30') #('DKK' '23.36') #('SEK' '19.32')).
   currencyTable := (driver findElementsByTagName: 'table')

repository/Seaside-Widgets.package/WASelectionDateTable.class/instance/renderCellForDate.row.index.on..st

@@ -1,8 +1,7 @@
 rendering
 renderCellForDate: aDate row: anObject index: aNumber on: html
 	html tableData
-		style: 'background-color: ', (self colorForDate: aDate rowIndex: aNumber);
-		align: 'center';
+		style: 'text-align: center; background-color: ', (self colorForDate: aDate rowIndex: aNumber);
 		with: [
 			html anchor
 				callback: [ self selectDate: aDate rowIndex: aNumber ];