Add ScalarAttributeComparers.physicalEqualityCompare

fabulous-dev · May 20, 2024 · 1456c06 · 1456c06
1 parent e509ef7
commit 1456c06
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 15 deletions.
diff --git a/src/Fabulous.Avalonia/Attributes.fs b/src/Fabulous.Avalonia/Attributes.fs
@@ -33,6 +33,14 @@ module ValueEventData =
         { Value = value
           Event = event >> box >> MsgValue }
 
+[<RequireQualifiedAccess>]
+module ScalarAttributeComparers =
+    let inline physicalEqualityCompare a b =
+        if LanguagePrimitives.PhysicalEquality a b then
+            ScalarAttributeComparison.Identical
+        else
+            ScalarAttributeComparison.Different
+
 module Attributes =
     /// Define an attribute for EventHandler<'T>
     let inline defineAvaloniaObservableEvent<'args>

diff --git a/src/Fabulous.Avalonia/Views/Controls/AutoCompleteBox.fs b/src/Fabulous.Avalonia/Views/Controls/AutoCompleteBox.fs
@@ -82,21 +82,14 @@ module AutoCompleteBox =
 
     /// Allows setting the ItemTemplate on an AutoCompleteBox
     let ItemTemplate =
-        Attributes.defineSimpleScalar<obj -> Widget>
-            "AutoCompleteBox_ItemTemplate"
-            (fun a b ->
-                if LanguagePrimitives.PhysicalEquality a b then
-                    ScalarAttributeComparison.Identical
-                else
-                    ScalarAttributeComparison.Different)
-            (fun _ newValueOpt node ->
-                let autoComplete = node.Target :?> AutoCompleteBox
-
-                match newValueOpt with
-                | ValueNone -> autoComplete.ClearValue(AutoCompleteBox.ItemTemplateProperty)
-                | ValueSome template ->
-                    autoComplete.SetValue(AutoCompleteBox.ItemTemplateProperty, WidgetDataTemplate(node, template))
-                    |> ignore)
+        Attributes.defineSimpleScalar<obj -> Widget> "AutoCompleteBox_ItemTemplate" ScalarAttributeComparers.physicalEqualityCompare (fun _ newValueOpt node ->
+            let autoComplete = node.Target :?> AutoCompleteBox
+
+            match newValueOpt with
+            | ValueNone -> autoComplete.ClearValue(AutoCompleteBox.ItemTemplateProperty)
+            | ValueSome template ->
+                autoComplete.SetValue(AutoCompleteBox.ItemTemplateProperty, WidgetDataTemplate(node, template))
+                |> ignore)
 
 [<AutoOpen>]
 module AutoCompleteBoxBuilders =