From 0d0d235b511fbc3802cc0027903dddef6e70b2cb Mon Sep 17 00:00:00 2001
From: BDisp <bd.bdisp@gmail.com>
Date: Tue, 27 Oct 2020 23:12:34 +0000
Subject: [PATCH] Fix ControlQ to quit in FSharp

---
 FSharpExample/Program.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FSharpExample/Program.fs b/FSharpExample/Program.fs
index cc40033c1..eeee7a798 100644
--- a/FSharpExample/Program.fs
+++ b/FSharpExample/Program.fs
@@ -425,7 +425,7 @@ let Main () =
         StatusItem(Key.F1, ustr "~F1~ Help", Action Help)
         StatusItem(Key.F2, ustr "~F2~ Load", Action Load)
         StatusItem(Key.F3, ustr "~F3~ Save", Action Save)
-        StatusItem(Key.ControlX, ustr "~^X~ Quit", fun () -> if (Quit()) then top.Running <- false) |])
+        StatusItem(Key.ControlQ, ustr "~^Q~ Quit", fun () -> if (Quit()) then top.Running <- false) |])
     win.Add (drag, dragText)
     let bottom = new Label (ustr "This should go on the bottom of the same top-level!")
     win.Add bottom