index c53a7b347596c44c4331497c94c7ee3a2cb524b0..7527073c1ad7e0ad811001cf519c7bcf2476bd46 100644 (file)
procedure sys_Init;
procedure sys_Final;
+ var (* hooks *)
+ sys_CharPress: procedure (ch: AnsiChar) = nil;
+
implementation
uses
SysUtils, SDL, Math,
{$INCLUDE ../nogl/noGLuses.inc}
- e_log, e_graphics, e_input, e_sound,
- g_options, g_window, g_console, g_game, g_menu, g_gui, g_main, g_basic;
+ e_log, r_graphics, e_input, e_sound,
+ g_options, g_window, g_console, g_game, g_menu, g_gui, g_basic;
const
GameTitle = 'Doom 2D: Forever (SDL 1.2, %s)';
e_KeyUpDown(key, down);
g_Console_ProcessBind(key, down);
end
- else if gConsoleShow or gChatShow or (g_ActiveWindow <> nil) then
+ else
begin
- KeyPress(key) // key repeat in menus and shit
+ g_Console_ProcessBindRepeat(key)
end;
- if down and IsValid1251(ev.keysym.unicode) and IsPrintable1251(ch) then
- CharPress(ch)
+ if @sys_CharPress <> nil then
+ if down and IsValid1251(ev.keysym.unicode) and IsPrintable1251(ch) then
+ sys_CharPress(ch)
end;
procedure HandleResize (var ev: TSDL_ResizeEvent);