1 unit gtk2DisableLibOverlay; 2 3 {$mode objfpc}{$H+} 4 5 interface 6 7 uses 8 Classes, SysUtils; 9 10 implementation 11 12 {$IFDEF Linux} 13 uses 14 ctypes; 15 setenvnull16function setenv(name, value: PChar; replace: cint): cint; cdecl; external 'c'; 17 18 initialization 19 setenv('LIBOVERLAY_SCROLLBAR', '0', 1); 20 {$ENDIF} 21 22 end. 23 24