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() =