Add table-related tags to WCHtmlCanvas and implement corresponding tag classes

Author: mattonem

src/WildCampComponent/WCHtmlCanvas.class.st

@@ -219,3 +219,24 @@ WCHtmlCanvas >> unorderedList [
 WCHtmlCanvas >> numberInput [
 	^ self brush: WCNumberInputTag new
 ]
+
+{ #category : 'tags-tables' }
+WCHtmlCanvas >> table [
+	^ self brush: WCTableTag new
+]
+
+WCHtmlCanvas >> tableBody [
+	^ self brush: WCTableBodyTag new
+]
+
+WCHtmlCanvas >> tableHead [
+	^ self brush: WCTableHeadTag new
+]
+
+WCHtmlCanvas >> tableColumn [
+	^ self brush: WCTableColumnTag new
+]
+
+WCHtmlCanvas >> tableRow [
+	^ self brush: WCTableRowTag new
+]

src/WildCampComponent/WCTableBodyTag.class.st

@@ -0,0 +1,11 @@
+Class {
+	#name : 'WCTableBodyTag',
+	#superclass : 'WCTagBrush',
+	#category : 'WildCampComponent'
+}
+
+
+{ #category : 'accessing' }
+WCTableBodyTag >> tag [
+	^ 'tbody'
+]

src/WildCampComponent/WCTableColumnTag.class.st

@@ -0,0 +1,11 @@
+Class {
+	#name : 'WCTableColumnTag',
+	#superclass : 'WCTagBrush',
+	#category : 'WildCampComponent'
+}
+
+
+{ #category : 'accessing' }
+WCTableColumnTag >> tag [
+	^ 'td'
+]

src/WildCampComponent/WCTableHeadTag.class.st

@@ -0,0 +1,10 @@
+Class {
+	#name : 'WCTableHeadTag',
+	#superclass : 'WCTagBrush',
+	#category : 'WildCampComponent'
+}
+
+{ #category : 'accessing' }
+WCTableHeadTag >> tag [
+	^ 'thead'
+]

src/WildCampComponent/WCTableRowTag.class.st

@@ -0,0 +1,10 @@
+Class {
+	#name : 'WCTableRowTag',
+	#superclass : 'WCTagBrush',
+	#category : 'WildCampComponent'
+}
+
+{ #category : 'accessing' }
+WCTableHeadTag >> tag [
+	^ 'tr'
+]

src/WildCampComponent/WCTableTag.class.st

@@ -0,0 +1,10 @@
+Class {
+	#name : 'WCTableTag',
+	#superclass : 'WCTagBrush',
+	#category : 'WildCampComponent'
+}
+
+{ #category : 'accessing' }
+WCTableTag >> tag [
+	^ 'table'
+]