Merge pull request #1064 from fabulous-dev/implement-sync-action

Add SyncAction
fabulous-dev · Jan 30, 2024 · 6138447 · 6138447
2 parents 679c22a + 785ec97
commit 6138447
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/src/Fabulous.Tests/APISketchTests/TestUI.Widgets.fs b/src/Fabulous.Tests/APISketchTests/TestUI.Widgets.fs
@@ -213,7 +213,8 @@ module TestUI_Widgets =
                     { Log = fun _ -> ()
                       MinLogLevel = LogLevel.Fatal }
                   Dispatch = fun msg -> unbox<'msg> msg |> x.ProcessMessage
-                  GetComponent = Component.getComponent }
+                  GetComponent = Component.getComponent
+                  SyncAction = fun fn -> fn() }
 
             member x.ProcessMessage(msg: 'msg) =
                 match state with

diff --git a/src/Fabulous/Component.fs b/src/Fabulous/Component.fs
@@ -307,7 +307,7 @@ type Component(treeContext: ViewTreeContext, body: ComponentBody, context: Compo
 
         node
 
-    member this.Render() =
+    member private this.RenderInternal() =
         let prevRootWidget = _widget
         let prevContext = _context
         let struct (context, currRootWidget) = _body.Invoke(_context)
@@ -322,6 +322,9 @@ type Component(treeContext: ViewTreeContext, body: ComponentBody, context: Compo
 
         Reconciler.update treeContext.CanReuseView (ValueSome prevRootWidget) currRootWidget viewNode
 
+    member this.Render() =
+        treeContext.SyncAction(this.RenderInternal)
+
 module Component =
     let WidgetKey =
         let key = WidgetDefinitionStore.getNextKey()

diff --git a/src/Fabulous/IViewNode.fs b/src/Fabulous/IViewNode.fs
@@ -35,6 +35,7 @@ type ViewTreeContext =
       GetViewNode: obj -> IViewNode
       Logger: Logger
       Dispatch: obj -> unit
+      SyncAction: (unit -> unit) -> unit
       GetComponent: obj -> obj }
 
 and IViewNode =