Consolidate Component API with existing code

CHANGELOG.md

@@ -9,6 +9,16 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 _No unreleased changes_
 
+## [2.5.0-pre3] - 2024-01-16
+
+### Changed
+- Consolidation of the new Component API and the existing ViewAdapter by @TimLariviere (https://github.com/fabulous-dev/Fabulous/pull/1056)
+
+## [2.5.0-pre2] - 2023-11-22
+
+### Changed
+- Couple of changes to the new Component API
+
 ## [2.5.0-pre1] - 2023-11-22
 
 ### Added
@@ -55,8 +65,10 @@ _No unreleased changes_
 ### Changed
 - Fabulous.XamarinForms & Fabulous.MauiControls have been moved been out of the Fabulous repository. Find them in their own repositories: [https://github.com/fabulous-dev/Fabulous.XamarinForms](https://github.com/fabulous-dev/Fabulous.XamarinForms) / [https://github.com/fabulous-dev/Fabulous.MauiControls](https://github.com/fabulous-dev/Fabulous.MauiControls)
 
-[unreleased]: https://github.com/fabulous-dev/Fabulous/compare/2.5.0-pre1...HEAD
-[2.5.0-preview.1]: https://github.com/fabulous-dev/Fabulous/releases/tag/2.5.0-pre1
+[unreleased]: https://github.com/fabulous-dev/Fabulous/compare/2.5.0-pre3...HEAD
+[2.5.0-pre3]: https://github.com/fabulous-dev/Fabulous/releases/tag/2.5.0-pre3
+[2.5.0-pre2]: https://github.com/fabulous-dev/Fabulous/releases/tag/2.5.0-pre2
+[2.5.0-pre1]: https://github.com/fabulous-dev/Fabulous/releases/tag/2.5.0-pre1
 [2.4.0]: https://github.com/fabulous-dev/Fabulous/releases/tag/2.4.0
 [2.3.2]: https://github.com/fabulous-dev/Fabulous/releases/tag/2.3.2
 [2.3.1]: https://github.com/fabulous-dev/Fabulous/releases/tag/2.3.1

src/Fabulous.Benchmarks/Benchmarks.fs

@@ -1,7 +1,6 @@
 module Fabulous.Tests.Benchmarks
 
 open BenchmarkDotNet.Attributes
-open BenchmarkDotNet.Jobs
 
 open BenchmarkDotNet.Running
 open Fabulous.Tests.APISketchTests.TestUI_Widgets
@@ -95,7 +94,7 @@ module DiffingAttributes =
 
             let instance = Run.Instance program
 
-            let _tree = (instance.Start())
+            let _tree = instance.Start()
 
             for i in 1..100 do
                 instance.ProcessMessage(IncBy i)
@@ -171,15 +170,15 @@ module DiffingSmallScalars =
 
             let instance = Run.Instance program
 
-            let _tree = (instance.Start())
+            let _tree = instance.Start()
 
             for i in 1..100 do
                 instance.ProcessMessage(IncBy 1UL)
 
 
 
 [<EntryPoint>]
-let main argv =
+let main _argv =
     //    BenchmarkRunner.Run<NestedTreeCreation.Benchmarks>()
     //    |> ignore
     //

src/Fabulous.Tests/APISketchTests/APISketchTests.fs

@@ -4,7 +4,6 @@ open Fabulous.StackAllocatedCollections
 open Fabulous.Tests.APISketchTests.Platform
 open NUnit.Framework
 
-open Platform
 open TestUI_Widgets
 open Fabulous
 
@@ -75,7 +74,7 @@ module ButtonTests =
 
     let update msg model =
         match msg with
-        | Increment -> { model with count = model.count + 1 }
+        | Increment -> { count = model.count + 1 }
 
 
     let view model =
@@ -137,30 +136,30 @@ module SimpleStackTests =
         instance.ProcessMessage(AddNew(1, "yo"))
         Assert.AreEqual(1, stack.Children.Count)
 
-        let label = stack.Children.[0] :?> TestLabel :> IText
+        let label = stack.Children[0] :?> TestLabel :> IText
 
         Assert.AreEqual(label.Text, "yo")
 
         // add second in front
         instance.ProcessMessage(AddNew(2, "yo2"))
         Assert.AreEqual(2, stack.Children.Count)
 
-        let label = stack.Children.[0] :?> TestLabel :> IText
+        let label = stack.Children[0] :?> TestLabel :> IText
 
         Assert.AreEqual(label.Text, "yo2")
 
         // modify the initial one
         instance.ProcessMessage(ChangeText(1, "just 1"))
 
-        let label = stack.Children.[1] :?> TestLabel :> IText
+        let label = stack.Children[1] :?> TestLabel :> IText
 
         Assert.AreEqual(label.Text, "just 1")
 
         // delete the one in front
         instance.ProcessMessage(Delete 2)
         Assert.AreEqual(stack.Children.Count, 1)
 
-        let label = stack.Children.[0] :?> TestLabel :> IText
+        let label = stack.Children[0] :?> TestLabel :> IText
 
         Assert.AreEqual(label.Text, "just 1")
 
@@ -549,9 +548,7 @@ module SmallScalars =
 
     let update msg model =
         match msg with
-        | Inc value ->
-            { model with
-                value = model.value + value }
+        | Inc value -> { value = model.value + value }
 
     let view model =
         InlineNumericBag(model.value, model.value + 1UL, float(model.value + 2UL))
@@ -690,7 +687,7 @@ module Issue104 =
 module Issue1044 =
     [<Test>]
     let ``Multiple Widgets + for loops in builder causes crash`` () =
-        let view model =
+        let view _model =
             Stack() {
                 Label($"Foo") // It also crashes only with the multiple for loops
                 Label($"bar") // It also crashes only with the multiple for loops
@@ -717,7 +714,7 @@ module Issue1044 =
 
     [<Test>]
     let ``Multiple for loops in builder causes crash`` () =
-        let view model =
+        let view _model =
             Stack() {
                 for i = 0 to 10 do
                     Label($"T{i}")
@@ -815,7 +812,7 @@ module ViewHelpers =
 
         let childView = Button("Child button", ChildClick).automationId("childButton")
 
-        let parentView model =
+        let parentView _model =
             Stack() {
                 Button("Parent button", ParentClick).automationId("parentButton")
 
@@ -846,7 +843,7 @@ module ViewHelpers =
     let ``Adding property modifiers to widget converted with View.map is valid`` () =
         let childView = Button("Child button", ChildClick).automationId("childButton")
 
-        let parentView model =
+        let parentView _model =
             Stack() { (View.map ChildMessage childView).textColor("blue") }
 
         let init () = true
@@ -867,7 +864,7 @@ module ViewHelpers =
 
         let childView = Button("Child button", ChildClick).automationId("childButton")
 
-        let parentView model =
+        let parentView _model =
             Stack() { (View.map ChildMessage childView).tap(ParentTap) }
 
         let init () = true
@@ -899,7 +896,7 @@ module ViewHelpers =
                 (View.map ChildMessage childView).tap(ParentTap)
             }
 
-        let grandParentView model =
+        let grandParentView _model =
             Stack() {
                 Button("Grand Parent button", GrandParentClick)
                     .automationId("grandParentButton")
@@ -951,7 +948,7 @@ module ViewHelpers =
 
         let parentView = (View.map ChildMessage childView).tap(ParentTap)
 
-        let grandParentView model =
+        let grandParentView _model =
             (View.map ParentMessage parentView).tap2(GrandParentTap)
 
         let init () = true

src/Fabulous.Tests/APISketchTests/TestUI.Component.fs

@@ -0,0 +1,12 @@
+namespace Fabulous.Tests.APISketchTests
+
+module TestUI_Component =
+
+    open Fabulous
+    open Platform
+
+    module Component =
+        let ComponentProperty = "ComponentProperty"
+
+        let getComponent (target: obj) =
+            (target :?> TestViewElement).PropertyBag.Item ComponentProperty

src/Fabulous.Tests/APISketchTests/TestUI.Platform.fs

@@ -47,15 +47,15 @@ module Platform =
         interface IText with
             member x.Text
                 with get () = text
-                and set (value) =
+                and set value =
                     if x.record then
                         x.changeList <- List.append x.changeList [ TextSet value ]
 
                     text <- value
 
             member x.TextColor
                 with get () = textColor
-                and set (value) =
+                and set value =
                     if x.record then
                         x.changeList <- List.append x.changeList [ ColorSet value ]
 

src/Fabulous.Tests/APISketchTests/TestUI.Widgets.fs

@@ -10,6 +10,7 @@ module TestUI_Widgets =
     open Platform
     open TestUI_Attributes
     open TestUI_ViewNode
+    open TestUI_Component
 
 
     //----WidgetsBuilderCE---
@@ -29,7 +30,7 @@ module TestUI_Widgets =
                   TargetType = typeof<'T>
                   CreateView =
                     fun (widget, context, parentNode) ->
-                        let name = typeof<'T>.Name
+                        // let name = typeof<'T>.Name
                         //                      printfn $"Creating view for {name}"
 
                         let view = new 'T()
@@ -211,7 +212,8 @@ module TestUI_Widgets =
                   Logger =
                     { Log = fun _ -> ()
                       MinLogLevel = LogLevel.Fatal }
-                  Dispatch = fun msg -> unbox<'msg> msg |> x.ProcessMessage }
+                  Dispatch = fun msg -> unbox<'msg> msg |> x.ProcessMessage
+                  GetComponent = Component.getComponent }
 
             member x.ProcessMessage(msg: 'msg) =
                 match state with
@@ -237,7 +239,7 @@ module TestUI_Widgets =
                     ()
 
             member x.Start(arg: 'arg) =
-                let model = (program.Init(arg))
+                let model = program.Init(arg)
                 let widget = program.View(model).Compile()
                 let widgetDef = WidgetDefinitionStore.get widget.Key
 

src/Fabulous.Tests/ArrayTests.fs

@@ -3,7 +3,6 @@ namespace Fabulous.Tests
 open System
 open Fabulous.StackAllocatedCollections
 open NUnit.Framework
-open Fabulous
 
 [<TestFixture>]
 type ``Array tests``() =

src/Fabulous.Tests/Fabulous.Tests.fsproj

@@ -7,6 +7,7 @@
   <ItemGroup>
     <Compile Include="APISketchTests\TestUI.Platform.fs" />
     <Compile Include="APISketchTests\TestUI.ViewNode.fs" />
+    <Compile Include="APISketchTests\TestUI.Component.fs" />
     <Compile Include="APISketchTests\TestUI.ViewUpdaters.fs" />
     <Compile Include="APISketchTests\TestUI.Attributes.fs" />
     <Compile Include="APISketchTests\TestUI.Widgets.fs" />

src/Fabulous.Tests/ViewTests.fs

@@ -3,7 +3,6 @@ namespace Fabulous.Tests
 open Fabulous
 open Fabulous.StackAllocatedCollections.StackList
 open NUnit.Framework
-open FsCheck.NUnit
 
 type ITestControl =
     interface