index 0067bbca54da5798197c71d9c6a709906e9f2090..8fdb42ca5b93ea3ea61ef2f14ff832f9ea53c07d 100644 (file)
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;
end;
{$ENDIF}
+{$IFDEF ENABLE_TOUCH}
+ procedure sys_ShowKeyboard (yes: Boolean);
+ begin
+ // stub
+ end;
+
+ function sys_IsTextInputActive (): Boolean;
+ begin
+ Result := false
+ end;
+{$ENDIF}
+
function Key2Stub (key: Integer): Integer;
var x: Integer;
begin