mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 05:03:56 +02:00
24 lines
288 B
ObjectPascal
24 lines
288 B
ObjectPascal
unit gtk2DisableLibOverlay;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
implementation
|
|
|
|
{$IFDEF Linux}
|
|
uses
|
|
ctypes;
|
|
|
|
function setenv(name, value: PChar; replace: cint): cint; cdecl; external 'c';
|
|
|
|
initialization
|
|
setenv('LIBOVERLAY_SCROLLBAR', '0', 1);
|
|
{$ENDIF}
|
|
|
|
end.
|
|
|