From c20618babe4cc51440252370077e91f01faf392d Mon Sep 17 00:00:00 2001 From: Chris Date: Thu, 20 May 2021 16:20:40 -0600 Subject: [PATCH] consume available keys before allowing user to cancel restart prevents any available keys from automatically cancelling a restart --- src/MinEdLauncher/App.fs | 1 + src/MinEdLauncher/Extensions.fs | 3 +++ 2 files changed, 4 insertions(+) diff --git a/src/MinEdLauncher/App.fs b/src/MinEdLauncher/App.fs index a1b7782..5b29d61 100644 --- a/src/MinEdLauncher/App.fs +++ b/src/MinEdLauncher/App.fs @@ -87,6 +87,7 @@ let rec launchProduct proton processArgs restart productName product = let cancelRestart() = let interval = 250 let stopwatch = Stopwatch() + Console.consumeAvailableKeys() stopwatch.Start() while Console.KeyAvailable = false && stopwatch.ElapsedMilliseconds < timeout do System.Threading.Thread.Sleep interval diff --git a/src/MinEdLauncher/Extensions.fs b/src/MinEdLauncher/Extensions.fs index f14e84a..08ef062 100644 --- a/src/MinEdLauncher/Extensions.fs +++ b/src/MinEdLauncher/Extensions.fs @@ -455,6 +455,9 @@ module Console = let password = readMask [] |> Seq.rev |> String.Concat Console.WriteLine () password + let consumeAvailableKeys () = + while Console.KeyAvailable do + Console.ReadKey() |> ignore module Regex = open System.Text.RegularExpressions