add turbo tags to forms

SeasideSt · Oct 30, 2024 · 02a2236 · 02a2236
1 parent cdac64c
commit 02a2236
Show file tree

Hide file tree

Showing 4 changed files with 19 additions and 1 deletion.
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WABasicFormTag.extension/instance/turbo..st b/repository/Seaside-HotwireTurbo-Core.package/WABasicFormTag.extension/instance/turbo..st
@@ -0,0 +1,6 @@
+*Seaside-HotwireTurbo-Core
+turbo: aBoolean
+
+	"data-turbo=""false"" disables Turbo Drive on links and forms including descendants. To reenable when an ancestor has opted out, use data-turbo=""true"". Be careful: when Turbo Drive is disabled, browsers treat link clicks as normal, but native adapters may exit the app."
+
+	self dataAttributeAt: 'turbo' put: aBoolean
diff --git a/...itory/Seaside-HotwireTurbo-Core.package/WABasicFormTag.extension/instance/turboAction..st b/...itory/Seaside-HotwireTurbo-Core.package/WABasicFormTag.extension/instance/turboAction..st
@@ -0,0 +1,6 @@
+*Seaside-HotwireTurbo-Core
+turboAction: aString
+
+	(#('replace' 'advance') includes: aString) ifFalse: [ 
+		self error: 'Argument for turboAction must be either ''replace'' or ''advance''.' ].
+	self dataAttributeAt: 'turbo-action' put: aString
diff --git a/...itory/Seaside-HotwireTurbo-Core.package/WABasicFormTag.extension/instance/turboTarget..st b/...itory/Seaside-HotwireTurbo-Core.package/WABasicFormTag.extension/instance/turboTarget..st
@@ -0,0 +1,6 @@
+*Seaside-HotwireTurbo-Core
+turboTarget: aString
+
+	"data-turbo-frame identifies the Turbo Frame to navigate. Refer to the Frames documentation for further details."
+
+	self dataAttributeAt: 'turbo-frame' put: aString
diff --git a/...Core.package/WATurboRenderPhaseContinuation.class/instance/processTurboFrameRendering..st b/...Core.package/WATurboRenderPhaseContinuation.class/instance/processTurboFrameRendering..st
@@ -16,5 +16,5 @@ processTurboFrameRendering: aResponse
 				visitor: ((WATurboFramePresenterGuide client: (WARenderVisitor context: renderContext)) id: turboframeId) 
 				during: [
 					self presenter renderWithContext: renderContext ]
-					"self presenter allPresentersDo: [ :p | ((p isKindOf: WATurboFrame) and: [ turboframeId = p id ]) ifTrue:[ self halt. p renderWithContext: renderContext ] ]" ].
+					"self presenter allPresentersDo: [ :p | ((p isKindOf: WATurboFrame) and: [ turboframeId = p id ]) ifTrue:[ self halt. p renderWithContext: renderContext ] ] ]" ].
 	document scriptGenerator closeOn: document