From 62e2f51887ca8d90ac64f255abac675a25e61d8c Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@durdin.net>
Date: Thu, 31 Mar 2022 06:24:59 +1100
Subject: [PATCH] feat(developer): keep Virtual Key Identifier dialog open on
 Insert

Fixes #5063.

It can be useful to be able to insert multiple keys into the active
keyboard source file. With this tweak, the dialog no longer closes with
the Insert button, only with the Close button.
---
 .../src/developer/TIKE/debug/UfrmKeyTest.pas    | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/windows/src/developer/TIKE/debug/UfrmKeyTest.pas b/windows/src/developer/TIKE/debug/UfrmKeyTest.pas
index 195acfbb47..53b01c38d8 100644
--- a/windows/src/developer/TIKE/debug/UfrmKeyTest.pas
+++ b/windows/src/developer/TIKE/debug/UfrmKeyTest.pas
@@ -1,18 +1,18 @@
 (*
   Name:             UfrmKeyTest
   Copyright:        Copyright (C) SIL International.
-  Documentation:    
-  Description:      
+  Documentation:
+  Description:
   Create Date:      1 Aug 2006
 
   Modified Date:    22 Jan 2007
   Authors:          mcdurdin
-  Related Files:    
-  Dependencies:     
+  Related Files:
+  Dependencies:
 
-  Bugs:             
-  Todo:             
-  Notes:            
+  Bugs:
+  Todo:
+  Notes:
   History:          23 Aug 2006 - mcdurdin - Use TApplicationEvents instead of hooking all messages
                     23 Aug 2006 - mcdurdin - Insert with new CharMapDropTool
                     22 Jan 2007 - mcdurdin - Add K_NPENTER special case
@@ -33,7 +33,7 @@ const
   KT_LALT     = $0010000;
   KT_RCTRL    = $0020000;
   KT_RALT     = $0040000;
-  
+
 type
   TfrmKeyTest = class(TTIKEForm)
     lblTitle: TLabel;
@@ -105,7 +105,6 @@ end;
 
 procedure TfrmKeyTest.cmdInsertClick(Sender: TObject);
 begin
-  Close;
   if Assigned(FLastActiveControl) then
     GetCharMapDropTool.InsertToControl(FLastActiveControl, FormatKeyName(FLastShift, FLastKey), cmimCode);
 end;