From 878ed5259d0fe0aae6f36b7b784803a8f0e2ccb2 Mon Sep 17 00:00:00 2001
From: Martin Andersen <martin.andersen@outlook.com>
Date: Thu, 22 Oct 2020 11:31:51 +0200
Subject: [PATCH] Fix "The event 'Toggled' has a non-standard type."

---
 FSharpExample/Program.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FSharpExample/Program.fs b/FSharpExample/Program.fs
index 08e607beb..1c1946fd1 100644
--- a/FSharpExample/Program.fs
+++ b/FSharpExample/Program.fs
@@ -449,9 +449,9 @@ type Demo() = class end
                 |]
             )
         menuKeysStyle <- new CheckBox(3, 25, ustr "UseKeysUpDownAsKeysLeftRight", true)
-        menuKeysStyle.Toggled <- Action<bool> (MenuKeysStyle_Toggled)
+        menuKeysStyle.add_Toggled(Action<bool>(MenuKeysStyle_Toggled))
         menuAutoMouseNav <- new CheckBox(40, 25, ustr "UseMenuAutoNavigation", true)
-        menuAutoMouseNav.Toggled <- Action<bool> (MenuAutoMouseNav_Toggled)
+        menuAutoMouseNav.add_Toggled(Action<bool>(MenuAutoMouseNav_Toggled))
         ShowEntries (win)
         let mutable (count : int) = 0
         ml <- new Label(new Rect(3, 17, 47, 1), ustr "Mouse: ")