Allow scope attribute on table heading tags, not on table data tags; …

…adapt tests

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-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-Canvas.package/monticello.meta/categories.st

@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-Tests-Canvas'!
+self packageOrganizer ensurePackage: #'Seaside-Tests-Canvas' withTags: #()!

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

@@ -3,7 +3,7 @@ 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 ].