Add support for onAppLinkRequestReceived to Application widget

CHANGELOG.md

@@ -6,7 +6,9 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
 ## [Unreleased]
-_No unreleased changes_
+
+### Added
+- Add modifier `onAppLinkRequestReceived` to `Application` widget by @TimLariviere
 
 ## [2.5.0] - 2023-03-06
 

src/Fabulous.MauiControls/Views/Application.fs

@@ -15,6 +15,7 @@ type FabApplication() =
     let start = Event<EventHandler, EventArgs>()
     let sleep = Event<EventHandler, EventArgs>()
     let resume = Event<EventHandler, EventArgs>()
+    let appLinkRequestReceived = Event<EventHandler<Uri>, Uri>()
 
     [<CLIEvent>]
     member _.Start = start.Publish
@@ -31,6 +32,12 @@ type FabApplication() =
 
     override this.OnResume() = resume.Trigger(this, EventArgs())
 
+    [<CLIEvent>]
+    member _.AppLinkRequestReceived = appLinkRequestReceived.Publish
+
+    override this.OnAppLinkRequestReceived(uri) =
+        appLinkRequestReceived.Trigger(this, uri)
+
 module Application =
     let WidgetKey = Widgets.register<FabApplication>()
 
@@ -62,6 +69,9 @@ module Application =
     let Start =
         Attributes.defineEventNoArg "Application_Start" (fun target -> (target :?> FabApplication).Start)
 
+    let AppLinkRequestReceived =
+        Attributes.defineEvent "Application_AppLinkRequestReceived" (fun target -> (target :?> FabApplication).AppLinkRequestReceived)
+
     let UserAppTheme =
         Attributes.defineEnum<AppTheme> "Application_UserAppTheme" (fun _ newValueOpt node ->
             let application = node.Target :?> Application
@@ -140,6 +150,13 @@ type ApplicationModifiers =
     static member inline onRequestedThemeChanged(this: WidgetBuilder<'msg, #IFabApplication>, fn: AppTheme -> 'msg) =
         this.AddScalar(Application.RequestedThemeChanged.WithValue(fun args -> fn args.RequestedTheme |> box))
 
+    /// <summary>Listen for the AppLinkRequestReceived event</summary>
+    /// <param name="this">Current widget</param>
+    /// <param name="fn">Message to dispatch</param>
+    [<Extension>]
+    static member inline onAppLinkRequestReceived(this: WidgetBuilder<'msg, #IFabApplication>, fn: Uri -> 'msg) =
+        this.AddScalar(Application.AppLinkRequestReceived.WithValue(fun args -> fn args |> box))
+
     /// <summary>Set the user app theme</summary>
     /// <param name="this">Current widget</param>
     /// <param name="value">The user app theme</param>