FIX: Workaround for bug [0000875]

This commit is contained in:
Alexander Koblov 2015-05-09 10:01:36 +00:00
commit 7ecec3e1f3

View file

@ -6,9 +6,17 @@ interface
implementation
function setenv(const name, value: pchar; overwrite: longint): longint; cdecl; external 'c' name 'setenv';
uses
BaseUnix;
function setenv(const name, value: pchar; overwrite: longint): longint; cdecl; external 'c' name 'setenv';
initialization
setenv('LIBOVERLAY_SCROLLBAR', '0', 1);
if (fpGetEnv(PAnsiChar('GTK_IM_MODULE')) = 'xim') then
begin
setenv('GTK_IM_MODULE', '', 1);
WriteLn('Warning: Unsupported input method (xim)');
end;
end.
end.