From 227f1428c22ac08a49e48c92a2718566868d9ce6 Mon Sep 17 00:00:00 2001
From: Philippe Marschall <philippe.marschall@gmail.com>
Date: Sat, 6 Jul 2024 15:04:40 +0200
Subject: [PATCH] Add support for template and slot

---
 .../WAHtmlCanvas.class/instance/slot..st              |  3 +++
 .../WAHtmlCanvas.class/instance/slot.st               |  4 ++++
 .../WAHtmlCanvas.class/instance/template..st          |  3 +++
 .../WAHtmlCanvas.class/instance/template.st           |  4 ++++
 .../Seaside-Canvas.package/WASlotTag.class/README.md  |  1 +
 .../WASlotTag.class/instance/name..st                 |  4 ++++
 .../WASlotTag.class/instance/tag.st                   |  3 +++
 .../WASlotTag.class/properties.json                   | 11 +++++++++++
 .../WATemplateTag.class/README.md                     |  1 +
 .../instance/shadowRootClonable..st                   |  4 ++++
 .../instance/shadowRootDelegatesFocus..st             |  4 ++++
 .../WATemplateTag.class/instance/shadowRootMode..st   | 10 ++++++++++
 .../instance/shadowRootSerializable..st               |  4 ++++
 .../WATemplateTag.class/instance/tag.st               |  3 +++
 .../WATemplateTag.class/properties.json               | 11 +++++++++++
 .../monticello.meta/categories.st                     |  5 +----
 16 files changed, 71 insertions(+), 4 deletions(-)
 create mode 100644 repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot..st
 create mode 100644 repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot.st
 create mode 100644 repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template..st
 create mode 100644 repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template.st
 create mode 100644 repository/Seaside-Canvas.package/WASlotTag.class/README.md
 create mode 100644 repository/Seaside-Canvas.package/WASlotTag.class/instance/name..st
 create mode 100644 repository/Seaside-Canvas.package/WASlotTag.class/instance/tag.st
 create mode 100644 repository/Seaside-Canvas.package/WASlotTag.class/properties.json
 create mode 100644 repository/Seaside-Canvas.package/WATemplateTag.class/README.md
 create mode 100644 repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootClonable..st
 create mode 100644 repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootDelegatesFocus..st
 create mode 100644 repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootMode..st
 create mode 100644 repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootSerializable..st
 create mode 100644 repository/Seaside-Canvas.package/WATemplateTag.class/instance/tag.st
 create mode 100644 repository/Seaside-Canvas.package/WATemplateTag.class/properties.json

diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot..st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot..st
new file mode 100644
index 000000000..b037c9fa0
--- /dev/null
+++ b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot..st
@@ -0,0 +1,3 @@
+tags-web-components
+slot: aBlock
+	self slot with: aBlock
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot.st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot.st
new file mode 100644
index 000000000..8ad2dceb4
--- /dev/null
+++ b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/slot.st
@@ -0,0 +1,4 @@
+tags-web-components
+slot
+
+	^ self brush: WASlotTag new
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template..st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template..st
new file mode 100644
index 000000000..254886a69
--- /dev/null
+++ b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template..st
@@ -0,0 +1,3 @@
+tags-web-components
+template: aBlock
+	self template with: aBlock
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template.st b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template.st
new file mode 100644
index 000000000..82542c14b
--- /dev/null
+++ b/repository/Seaside-Canvas.package/WAHtmlCanvas.class/instance/template.st
@@ -0,0 +1,4 @@
+tags-web-components
+template
+
+	^ self brush: WATemplateTag new
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/README.md b/repository/Seaside-Canvas.package/WASlotTag.class/README.md
new file mode 100644
index 000000000..50db9e955
--- /dev/null
+++ 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.
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/instance/name..st b/repository/Seaside-Canvas.package/WASlotTag.class/instance/name..st
new file mode 100644
index 000000000..10a3d56b4
--- /dev/null
+++ 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
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/instance/tag.st b/repository/Seaside-Canvas.package/WASlotTag.class/instance/tag.st
new file mode 100644
index 000000000..2a98fa1fe
--- /dev/null
+++ b/repository/Seaside-Canvas.package/WASlotTag.class/instance/tag.st
@@ -0,0 +1,3 @@
+accessing
+tag
+	^ 'slot'
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WASlotTag.class/properties.json b/repository/Seaside-Canvas.package/WASlotTag.class/properties.json
new file mode 100644
index 000000000..fbf1cd7fe
--- /dev/null
+++ 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"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/README.md b/repository/Seaside-Canvas.package/WATemplateTag.class/README.md
new file mode 100644
index 000000000..814ccb8ee
--- /dev/null
+++ 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.
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootClonable..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootClonable..st
new file mode 100644
index 000000000..2562c6545
--- /dev/null
+++ 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
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootDelegatesFocus..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootDelegatesFocus..st
new file mode 100644
index 000000000..d1948bc53
--- /dev/null
+++ 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
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootMode..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootMode..st
new file mode 100644
index 000000000..0552197ce
--- /dev/null
+++ 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
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootSerializable..st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/shadowRootSerializable..st
new file mode 100644
index 000000000..2504ce37d
--- /dev/null
+++ 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
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/instance/tag.st b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/tag.st
new file mode 100644
index 000000000..a98ad570d
--- /dev/null
+++ b/repository/Seaside-Canvas.package/WATemplateTag.class/instance/tag.st
@@ -0,0 +1,3 @@
+accessing
+tag
+	^ 'template'
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/WATemplateTag.class/properties.json b/repository/Seaside-Canvas.package/WATemplateTag.class/properties.json
new file mode 100644
index 000000000..eaea133d8
--- /dev/null
+++ 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"
+}
\ No newline at end of file
diff --git a/repository/Seaside-Canvas.package/monticello.meta/categories.st b/repository/Seaside-Canvas.package/monticello.meta/categories.st
index 7181a3b66..7ebe83afc 100644
--- 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)!