From a797cf6f19933327217c4bc7a4aed1760ffdd087 Mon Sep 17 00:00:00 2001 From: Martin Andersen Date: Thu, 22 Oct 2020 11:30:29 +0200 Subject: [PATCH] Fix "The event 'Key{Down/Press/Up}' has a non-standard type." --- FSharpExample/Program.fs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/FSharpExample/Program.fs b/FSharpExample/Program.fs index e701dca8b..08e607beb 100644 --- a/FSharpExample/Program.fs +++ b/FSharpExample/Program.fs @@ -360,10 +360,9 @@ type Demo() = class end list.Add (keyEvent.ToString ()) listView.MoveDown (); - container.add_KeyDown(Action (fun (e : View.KeyEventEventArgs) -> KeyDownPressUp (e.KeyEvent, "Down") |> ignore)) - container.add_KeyPress(Action (fun (e : View.KeyEventEventArgs) -> KeyDownPressUp (e.KeyEvent, "Press") |> ignore)) - container.add_KeyUp(Action (fun (e : View.KeyEventEventArgs) -> KeyDownPressUp (e.KeyEvent, "Up") |> ignore)) - + container.add_KeyDown(Action (fun (e : View.KeyEventEventArgs) -> KeyDownPressUp (e.KeyEvent, "Down") |> ignore)) + container.add_KeyPress(Action (fun (e : View.KeyEventEventArgs) -> KeyDownPressUp (e.KeyEvent, "Press") |> ignore)) + container.add_KeyUp(Action (fun (e : View.KeyEventEventArgs) -> KeyDownPressUp (e.KeyEvent, "Up") |> ignore)) Application.Run (container) let Main() =