Merge again DelayedViewRenderer

source/Willow-Tests.package/Html5ComponentSupplierTest.class/instance/testDelayedViewShowingWhileEvaluatingThenRendering.st

@@ -0,0 +1,14 @@
+tests-Supplying
+testDelayedViewShowingWhileEvaluatingThenRendering
+
+	| supplier delayedView html |
+
+	supplier := Html5ComponentSupplier new.
+
+	delayedView := supplier delayedViewShowing: 'Loading...' whileEvaluating: [  ] thenRendering: 'Done!'.
+
+	html := self render: delayedView.
+
+	self
+		assert: html
+		equals: '<div id="Delayed-id1">Loading...</div><script type="text/javascript">Willow.callServer({"url":"/","data":"2"});</script>'

source/Willow-Tests.package/Html5ComponentSupplierTest.class/methodProperties.json

@@ -5,6 +5,7 @@
 		"testSynchronicButtonLabeledApplyingEvaluating" : "GabrielOmarCotelli 4/25/2017 11:13",
 		"testTableBuilderWithRowCommand" : "GabrielOmarCotelli 6/8/2017 18:12",
 		"testSingleLineTextFieldApplying" : "GabrielOmarCotelli 4/25/2017 11:10",
+		"testDelayedViewShowingWhileEvaluatingThenRendering" : "GabrielOmarCotelli 8/8/2017 17:48",		
 		"testTableBuilderForHeadlessTable" : "GabrielOmarCotelli 6/8/2017 18:14",
 		"testUnorderedListApplyingListingApplyingToEach" : "GabrielOmarCotelli 5/2/2017 17:51",
 		"testAsynchronicButtonLabeledApplying" : "GabrielOmarCotelli 4/11/2017 18:05",
@@ -19,4 +20,4 @@
 		"testDateFieldApplying" : "GabrielOmarCotelli 4/20/2017 16:55"
 	},
 	"class" : { }
-}
+}

source/Willow.package/DelayedViewRenderer.class/README.md

@@ -0,0 +1 @@
+I'm a web view showing a throbber while evaluating an action block and then rendering another view

source/Willow.package/DelayedViewRenderer.class/class/showing.whileEvaluating.thenRendering..st

@@ -0,0 +1,4 @@
+as yet unclassified
+showing: aThrobber whileEvaluating: aBlock thenRendering: aView
+
+	^ self new initializeShowing: aThrobber whileEvaluating: aBlock thenRendering: aView

source/Willow.package/DelayedViewRenderer.class/instance/initializeInteractionToEvaluate.thenRender..st

@@ -0,0 +1,10 @@
+initialization
+initializeInteractionToEvaluate: aBlock thenRender: aView
+
+	interaction := WebComponentInteraction triggeredOnClick.
+	interaction
+		onTriggerExecute:
+			(EvaluatingCommand
+				for: [ aBlock value.
+					self setCurrentViewTo: aView ]);
+		onTriggerExecute: (RenderingCommand for: identifiedDelayedView)

source/Willow.package/DelayedViewRenderer.class/instance/initializeShowing.whileEvaluating.thenRendering..st

@@ -0,0 +1,6 @@
+initialization
+initializeShowing: aThrobber whileEvaluating: aBlock thenRendering: aView
+
+	self setCurrentViewTo: aThrobber.
+	identifiedDelayedView := IdentifiedWebView forDivNamed: 'Delayed' containing: [ :canvas | canvas render: currentView ].
+	self initializeInteractionToEvaluate: aBlock thenRender: aView

source/Willow.package/DelayedViewRenderer.class/instance/renderContentOn..st

@@ -0,0 +1,7 @@
+rendering
+renderContentOn: aCanvas
+
+	aCanvas render: identifiedDelayedView.
+	"This is way too hacky, but for now is the way to go"
+	interaction prepareActions.
+	aCanvas document addLoadScript: (interaction commandToExecuteOn: aCanvas)

source/Willow.package/DelayedViewRenderer.class/instance/setCurrentViewTo..st

@@ -0,0 +1,4 @@
+initialization
+setCurrentViewTo: aView
+
+	currentView := aView

source/Willow.package/DelayedViewRenderer.class/methodProperties.json

@@ -0,0 +1,11 @@
+{
+	"instance" : {
+		"renderContentOn:" : "GabrielOmarCotelli 8/8/2017 17:45",
+		"setCurrentViewTo:" : "GabrielOmarCotelli 8/8/2017 17:45",
+		"initializeInteractionToEvaluate:thenRender:" : "GabrielOmarCotelli 8/8/2017 17:45",
+		"initializeShowing:whileEvaluating:thenRendering:" : "GabrielOmarCotelli 8/8/2017 17:50"
+	},
+	"class" : {
+		"showing:whileEvaluating:thenRendering:" : "GabrielOmarCotelli 8/8/2017 17:45"
+	}
+}

source/Willow.package/DelayedViewRenderer.class/properties.json

@@ -0,0 +1,15 @@
+{
+	"commentStamp" : "GabrielOmarCotelli 8/8/2017 17:46",
+	"super" : "WAPresenter",
+	"category" : "Willow-WebViews",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"identifiedDelayedView",
+		"currentView",
+		"interaction"
+	],
+	"name" : "DelayedViewRenderer",
+	"type" : "normal"
+}

source/Willow.package/FrontendComponentSupplier.class/instance/delayedViewShowing.whileEvaluating.thenRendering..st

@@ -0,0 +1,4 @@
+Supplying
+delayedViewShowing: aThrobber whileEvaluating: aBlock thenRendering: aRenderable
+
+	^ DelayedViewRenderer showing: aThrobber whileEvaluating: aBlock thenRendering: aRenderable

source/Willow.package/FrontendComponentSupplier.class/methodProperties.json

@@ -1,6 +1,7 @@
 {
 	"instance" : {
 		"asynchronicAnchorLabeled:applying:" : "MaximilianoTabacman 8/8/2017 09:03",
+		"delayedViewShowing:whileEvaluating:thenRendering:" : "GabrielOmarCotelli 8/8/2017 17:45",
 		"synchronicButtonLabeled:applying:evaluating:" : "GabrielOmarCotelli 4/25/2017 10:33",
 		"checkboxUnlabeledOnModel:offModel:applying:" : "MaximilianoTabacman 8/8/2017 09:42",
 		"checkboxLabeled:onModel:offModel:applying:" : "MaximilianoTabacman 8/8/2017 19:42",
@@ -17,4 +18,4 @@
 		"addStatementsTo:toCloseDialogsIn:matching:on:" : "GabrielOmarCotelli 6/30/2017 11:42"
 	},
 	"class" : { }
-}
+}