SeasideSt · jbrichau · Feb 24, 2025 · Mar 28, 2025 · Apr 15, 2025
diff --git a/repository/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow..st b/repository/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow..st
@@ -1,5 +1,4 @@
 *Seaside-HotwireTurbo-Core
 turboShow: aComponent
 
-	aComponent addDecoration: (WATurboFrame newWithId: self turboframeDecoration id).
-	^ self show: aComponent
+	^ self turboShow: aComponent onAnswer: [ :value | ]
diff --git a/...y/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow.onAnswer..st b/...y/Seaside-HotwireTurbo-Core.package/WAComponent.extension/instance/turboShow.onAnswer..st
@@ -0,0 +1,5 @@
+*Seaside-HotwireTurbo-Core
+turboShow: aComponent onAnswer: aBlock
+
+	aComponent addDecoration: (WATurboFrame newWithId: self turboframeDecoration id).
+	^ self show: aComponent onAnswer: aBlock
diff --git a/...Tests-HotwireTurbo.package/WAAllHotwiredFunctionalTests.class/instance/initializeTests.st b/...Tests-HotwireTurbo.package/WAAllHotwiredFunctionalTests.class/instance/initializeTests.st
@@ -1,4 +1,5 @@
 initialization
 initializeTests
+
 	classes := WAHotwiredFunctionalTest allSubclasses asSortedCollection: [ :a :b | a name < b name ].
 	current := WAValueHolder with: classes first new
diff --git a/...HotwireTurbo.package/WAHotwireTurboCalledTestComponent.class/instance/renderContentOn..st b/...HotwireTurbo.package/WAHotwireTurboCalledTestComponent.class/instance/renderContentOn..st
diff --git a/...eTurboCalledTestComponent.class/README.md → ...TurboCounterTestComponent.class/README.md b/...eTurboCalledTestComponent.class/README.md → ...TurboCounterTestComponent.class/README.md
diff --git a/...ests-HotwireTurbo.package/WAHotwireTurboCounterTestComponent.class/instance/initialize.st b/...ests-HotwireTurbo.package/WAHotwireTurboCounterTestComponent.class/instance/initialize.st
@@ -0,0 +1,5 @@
+initialization
+initialize
+
+	super initialize.
+	counter := 0
diff --git a/...otwireTurbo.package/WAHotwireTurboCounterTestComponent.class/instance/renderContentOn..st b/...otwireTurbo.package/WAHotwireTurboCounterTestComponent.class/instance/renderContentOn..st
@@ -0,0 +1,9 @@
+rendering
+renderContentOn: html
+
+	html heading
+		level: 1;
+		with: counter.
+	html anchor
+		callback: [ self turboShow: (WAHotwireTurboEditableCounterTestComponent newWith: counter) onAnswer: [ :value | counter := value ] ];
+		with: 'Edit'
diff --git a/...eTurboTestComponent.class/properties.json → ...ounterTestComponent.class/properties.json b/...eTurboTestComponent.class/properties.json → ...ounterTestComponent.class/properties.json
@@ -5,7 +5,9 @@
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],
-	"instvars" : [ ],
-	"name" : "WAHotwireTurboTestComponent",
+	"instvars" : [
+		"counter"
+	],
+	"name" : "WAHotwireTurboCounterTestComponent",
 	"type" : "normal"
 }
diff --git a/...HotwireTurboTestComponent.class/README.md → ...tableCounterTestComponent.class/README.md b/...HotwireTurboTestComponent.class/README.md → ...tableCounterTestComponent.class/README.md
diff --git a/...s-HotwireTurbo.package/WAHotwireTurboEditableCounterTestComponent.class/class/newWith..st b/...s-HotwireTurbo.package/WAHotwireTurboEditableCounterTestComponent.class/class/newWith..st
@@ -0,0 +1,4 @@
+instance creation
+newWith: aNumber
+
+	^ self new counter: aNumber
diff --git a/...otwireTurbo.package/WAHotwireTurboEditableCounterTestComponent.class/instance/counter..st b/...otwireTurbo.package/WAHotwireTurboEditableCounterTestComponent.class/instance/counter..st
@@ -0,0 +1,4 @@
+initialization
+counter: aNumber
+
+	count := aNumber
diff --git a/...estComponent.class/instance/initialize.st → ...estComponent.class/instance/initialize.st b/...estComponent.class/instance/initialize.st → ...estComponent.class/instance/initialize.st
diff --git a/...rbo.package/WAHotwireTurboEditableCounterTestComponent.class/instance/renderContentOn..st b/...rbo.package/WAHotwireTurboEditableCounterTestComponent.class/instance/renderContentOn..st
@@ -0,0 +1,17 @@
+rendering
+renderContentOn: html
+
+	html heading 
+		level: 1; 
+		with: count.
+	html anchor
+		callback: [ count := count + 1 ];
+		with: '++'.
+	html space.
+	html anchor
+		callback: [ count := count - 1 ];
+		with: '--'.
+	html space.
+	html anchor
+		callback: [ self answer: count ];
+		with: 'Close'
diff --git a/...CalledTestComponent.class/properties.json → ...ounterTestComponent.class/properties.json b/...CalledTestComponent.class/properties.json → ...ounterTestComponent.class/properties.json
@@ -8,6 +8,6 @@
 	"instvars" : [
 		"count"
 	],
-	"name" : "WAHotwireTurboCalledTestComponent",
+	"name" : "WAHotwireTurboEditableCounterTestComponent",
 	"type" : "normal"
 }
diff --git a/...side-Tests-HotwireTurbo.package/WAHotwireTurboFunctionalTest.class/instance/initialize.st b/...side-Tests-HotwireTurbo.package/WAHotwireTurboFunctionalTest.class/instance/initialize.st
@@ -2,5 +2,5 @@
 initialize
 
 	super initialize.
-	comp1 := WAHotwireTurboTestComponent new addDecoration: WATurboFrame new; yourself.
-	comp2 := WAHotwireTurboTestComponent new addDecoration: WATurboFrame new; yourself.
+	comp1 := WAHotwireTurboCounterTestComponent new addDecoration: WATurboFrame new; yourself.
+	comp2 := WAHotwireTurboCounterTestComponent new addDecoration: WATurboFrame new; yourself.
diff --git a/...ests-HotwireTurbo.package/WAHotwireTurboFunctionalTest.class/instance/renderContentOn..st b/...ests-HotwireTurbo.package/WAHotwireTurboFunctionalTest.class/instance/renderContentOn..st
@@ -6,4 +6,4 @@
 	html paragraph: 'Both counters are wrapped as turbo frames. Clicking on an action (++ or --) in either one of the counters should only update the counter itself. The rest of the page should not have been updated.'.
 
 	html render: comp1.
-	"html render: comp2"
+	html render: comp2
diff --git a/...Tests-HotwireTurbo.package/WAHotwireTurboTestComponent.class/instance/renderContentOn..st b/...Tests-HotwireTurbo.package/WAHotwireTurboTestComponent.class/instance/renderContentOn..st