added PathIcon (#382)

fsprojects · Jan 8, 2024 · f0dfd39 · f0dfd39
1 parent f81fb04
commit f0dfd39
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/src/Avalonia.FuncUI/Avalonia.FuncUI.fsproj b/src/Avalonia.FuncUI/Avalonia.FuncUI.fsproj
@@ -155,6 +155,7 @@
     <Compile Include="DSL\Viewbox.fs" />
     <Compile Include="DSL\SelectableTextBlock.fs" />
     <Compile Include="DSL\DataGrid.fs" />
+    <Compile Include="DSL\PathIcon.fs" />
     <Compile Include="DSL\DragDrop.fs" />
   </ItemGroup>
 

diff --git a/src/Avalonia.FuncUI/DSL/PathIcon.fs b/src/Avalonia.FuncUI/DSL/PathIcon.fs
@@ -0,0 +1,19 @@
+namespace Avalonia.FuncUI.DSL
+
+[<AutoOpen>]
+module PathIcon =
+    open Avalonia.Media
+    open Avalonia.FuncUI.Builder
+    open Avalonia.FuncUI.Types
+    open Avalonia.Controls
+
+    let create (attrs: IAttr<PathIcon> list): IView<PathIcon> =
+        ViewBuilder.Create<PathIcon>(attrs)
+
+    type PathIcon with
+
+        static member data<'t when 't :> PathIcon>(geometry: Geometry) : IAttr<'t> =
+            AttrBuilder<'t>.CreateProperty<Geometry>(PathIcon.DataProperty, geometry, ValueNone)
+
+        static member data<'t when 't :> PathIcon>(data: string) : IAttr<'t> =
+            data |> Geometry.Parse |> PathIcon.data