Add support for template and slot

SeasideSt · Jul 6, 2024 · 227f142 · 227f142
1 parent dd91bf6
commit 227f142
Show file tree

Hide file tree

Showing 16 changed files with 71 additions and 4 deletions.
diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot..st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot..st
@@ -0,0 +1,3 @@
+tags-web-components
+slot: aBlock
+	self slot with: aBlock
diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot.st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot.st
@@ -0,0 +1,4 @@
+tags-web-components
+slot
+
+	^ self brush: WASlotTag new
diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template..st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template..st
@@ -0,0 +1,3 @@
+tags-web-components
+template: aBlock
+	self template with: aBlock
diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template.st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template.st
@@ -0,0 +1,4 @@
+tags-web-components
+template
+
+	^ self brush: WATemplateTag new
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/README.md b/repository/Seaside-Canvas.package/WASlotTag.class/README.md
@@ -0,0 +1 @@
+The slot HTML element—part of the Web Components technology suite—is a placeholder inside a web component that you can fill with your own markup, which lets you create separate DOM trees and present them together.
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/instance/name..st b/repository/Seaside-Canvas.package/WASlotTag.class/instance/name..st
@@ -0,0 +1,4 @@
+attributes
+name: aSring
+	"The slot's name."
+	self attributeAt: 'name' put: aSring
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/instance/tag.st b/repository/Seaside-Canvas.package/WASlotTag.class/instance/tag.st
@@ -0,0 +1,3 @@
+accessing
+tag
+	^ 'slot'
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/properties.json b/repository/Seaside-Canvas.package/WASlotTag.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "Anonymous 7/6/2024 14:52",
+	"super" : "WATagBrush",
+	"category" : "Seaside-Canvas-Tags",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "WASlotTag",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/README.md b/repository/Seaside-Canvas.package/WATemplateTag.class/README.md
@@ -0,0 +1 @@
+The template HTML element serves as a mechanism for holding HTML fragments, which can either be used later via JavaScript or generated immediately into shadow DOM.
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootClonable..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootClonable..st
@@ -0,0 +1,4 @@
+as yet unclassified
+shadowRootClonable: aBoolean
+	"Sets the value of the clonable property of a ShadowRoot created using this element to true. If set, a clone of the shadow host (the parent element of this <template>) created with Node.cloneNode() or Document.importNode() will include a shadow root in the copy."
+	self attributeAt: 'shadowrootclonable' put: aBoolean
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootDelegatesFocus..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootDelegatesFocus..st
@@ -0,0 +1,4 @@
+as yet unclassified
+shadowRootDelegatesFocus: aBoolean
+	"Sets the value of the delegatesFocus property of a ShadowRoot created using this element to true. If this is set and a non-focusable element in the shadow tree is selected, then focus is delegated to the first focusable element in the tree. The value defaults to false."
+	self attributeAt: 'shadowrootdelegatesfocus' put: aBoolean
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootMode..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootMode..st
@@ -0,0 +1,10 @@
+as yet unclassified
+shadowRootMode: aString
+	"Creates a shadow root for the parent element. It is a declarative version of the Element.attachShadow() method and accepts the same enumerated values.
+	
+	open
+		Exposes the internal shadow root DOM for JavaScript (recommended for most use cases).
+		
+	closed
+		Hides the internal shadow root DOM from JavaScript."
+	self attributeAt: 'shadowrootmode' put: aString
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootSerializable..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootSerializable..st
@@ -0,0 +1,4 @@
+as yet unclassified
+shadowRootSerializable: aBoolean
+	"Sets the value of the serializable property of a ShadowRoot created using this element to true. If set, the shadow root may be serialized by calling the Element.getHTML() or ShadowRoot.getHTML() methods with the options.serializableShadowRoots parameter set true. The value defaults to false."
+	self attributeAt: 'shadowrootserializable' put: aBoolean
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/tag.st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/tag.st
@@ -0,0 +1,3 @@
+accessing
+tag
+	^ 'template'
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/properties.json b/repository/Seaside-Canvas.package/WATemplateTag.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "Anonymous 7/6/2024 14:40",
+	"super" : "WATagBrush",
+	"category" : "Seaside-Canvas-Tags",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "WATemplateTag",
+	"type" : "normal"
+}
diff --git a/repository/Seaside-Canvas.package/monticello.meta/categories.st b/repository/Seaside-Canvas.package/monticello.meta/categories.st
@@ -1,4 +1 @@
-SystemOrganization addCategory: #'Seaside-Canvas'!
-SystemOrganization addCategory: #'Seaside-Canvas-Base'!
-SystemOrganization addCategory: #'Seaside-Canvas-Canvas'!
-SystemOrganization addCategory: #'Seaside-Canvas-Tags'!
+self packageOrganizer ensurePackage: #'Seaside-Canvas' withTags: #(#Base #Canvas #Tags)!