X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_gui.pas;h=26a9ee57fcd261ec6095b420847a22e8da7a8edb;hp=4bf8f7ceebdb91b961738448a90ae1a195f78053;hb=83221a8d1b958465bd68e3c79575f4a94c8ffa42;hpb=aa7e40301df69aa13c00ff2bcdb8e532b06b8053

diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index 4bf8f7c..26a9ee5 100644
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
@@ -19,7 +19,7 @@ interface
 
 uses
   {$IFDEF USE_MEMPOOL}mempool,{$ENDIF}
-  g_base, r_graphics, e_input, e_log, g_playermodel, g_basic, g_touch, MAPDEF, utils;
+  g_base, r_graphics, e_input, e_log, g_playermodel, g_basic, MAPDEF, utils;
 
 const
   MAINMENU_HEADER_COLOR: TRGB = (R:255; G:255; B:255);
@@ -552,6 +552,9 @@ procedure g_GUI_LoadMenuPos();
 implementation
 
 uses
+  {$IFDEF ENABLE_TOUCH}
+    g_system,
+  {$ENDIF}
   g_sound, SysUtils, e_res, r_textures,
   g_game, Math, StrUtils, g_player, g_options, r_playermodel,
   g_map, g_weapons, xdynrec, wadreader;
@@ -2417,7 +2420,10 @@ begin
     end;
 
   g_GUIGrabInput := (@FOnEnterEvent = nil) and (FWindow.FActiveControl = Self);
-  g_Touch_ShowKeyboard(g_GUIGrabInput)
+
+  {$IFDEF ENABLE_TOUCH}
+    sys_ShowKeyboard(g_GUIGrabInput)
+  {$ENDIF}
 end;
 
 procedure TGUIEdit.SetText(Text: string);