X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fstub%2Fg_system.pas;h=6202cb43dc1c95636fd242e62da2ea71c6feb0bb;hp=a1e3473e9b613c0b4b624957ae78da2b47840e59;hb=83221a8d1b958465bd68e3c79575f4a94c8ffa42;hpb=aa7e40301df69aa13c00ff2bcdb8e532b06b8053

diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas
index a1e3473..6202cb4 100644
--- a/src/game/stub/g_system.pas
+++ b/src/game/stub/g_system.pas
@@ -29,6 +29,11 @@ interface
   function sys_HandleInput (): Boolean;
   procedure sys_RequestQuit;
 
+{$IFDEF ENABLE_TOUCH}
+  function sys_IsTextInputActive (): Boolean;
+  procedure sys_ShowKeyboard (yes: Boolean);
+{$ENDIF}
+
   (* --- Init --- *)
   procedure sys_Init;
   procedure sys_Final;
@@ -63,6 +68,17 @@ implementation
 
   (* --------- Input --------- *)
 
+{$IFDEF ENABLE_TOUCH}
+  function sys_IsTextInputActive (): Boolean;
+  begin
+    Result := false
+  end;
+
+  procedure sys_ShowKeyboard (yes: Boolean);
+  begin
+  end;
+{$ENDIF}
+
   function sys_HandleInput (): Boolean;
   begin
     result := false