From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Sun, 17 Apr 2016 04:54:07 +0000 (+0300)
Subject: "yes/no" menu now accepts space as "y"
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=b8db17f63a79d8f79ddde6405fabbc9919f51678;p=d2df-sdl.git

"yes/no" menu now accepts space as "y"
---

diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas
index a3bf1ef..015c1e2 100644
--- a/src/game/g_menu.pas
+++ b/src/game/g_menu.pas
@@ -39,9 +39,10 @@ type TYNCallback = procedure (yes:Boolean);
 procedure YNKeyDownProc (win: TGUIWindow; Key: Byte);
 begin
   if win.UserData = nil then exit;
-  //writeln('YNEX; key=', Key, '; ', (Key = ord('y')));
-       if Key = ord('y') then TYNCallback(win.UserData)(true)
-  else if Key = ord('n') then TYNCallback(win.UserData)(false);
+  case Key of
+    IK_Y, IK_SPACE: TYNCallback(win.UserData)(true);
+    IK_N: TYNCallback(win.UserData)(false);
+  end;
 end;
 
 function CreateYNMenu (Name, Text: String; MaxLen: Word; FontID: DWORD; ActionProc: TYNCallback): TGUIWindow;