mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 23:19:28 +02:00
gtk2 intf: disable liboverlay by default
git-svn-id: trunk@37785 -
This commit is contained in:
parent
829e18886c
commit
50497fadce
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -5867,6 +5867,7 @@ lcl/interfaces/gtk2/gtk2debug.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gtk2/gtk2def.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gtk2/gtk2defines.inc svneol=native#text/plain
|
||||
lcl/interfaces/gtk2/gtk2devicecontext.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gtk2/gtk2disableliboverlay.pas svneol=native#text/plain
|
||||
lcl/interfaces/gtk2/gtk2extra.inc svneol=native#text/pascal
|
||||
lcl/interfaces/gtk2/gtk2extra.pp svneol=native#text/pascal
|
||||
lcl/interfaces/gtk2/gtk2extrah.inc svneol=native#text/pascal
|
||||
|
20
lcl/interfaces/gtk2/gtk2disableliboverlay.pas
Normal file
20
lcl/interfaces/gtk2/gtk2disableliboverlay.pas
Normal file
@ -0,0 +1,20 @@
|
||||
unit gtk2DisableLibOverlay;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
ctypes;
|
||||
|
||||
function setenv(name, value: PChar; replace: cint): cint; cdecl; external 'c';
|
||||
|
||||
initialization
|
||||
setenv('LIBOVERLAY_SCROLLBAR', '0', 1);
|
||||
end.
|
||||
|
@ -33,7 +33,10 @@ uses
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uses
|
||||
{$IFNDEF EnableLibOverlay}
|
||||
gtk2DisableLibOverlay,
|
||||
{$ENDIF}
|
||||
Gtk2Int, Forms;
|
||||
|
||||
initialization
|
||||
|
@ -121,7 +121,7 @@ end;"/>
|
||||
<License Value="modified LGPL-2
|
||||
"/>
|
||||
<Version Major="1" Release="1"/>
|
||||
<Files Count="400">
|
||||
<Files Count="401">
|
||||
<Item1>
|
||||
<Filename Value="carbon/agl.pp"/>
|
||||
<AddToUsesPkgSection Value="False"/>
|
||||
@ -1987,6 +1987,11 @@ end;"/>
|
||||
<AddToUsesPkgSection Value="False"/>
|
||||
<UnitName Value="CustomDrawnWSMenus"/>
|
||||
</Item400>
|
||||
<Item401>
|
||||
<Filename Value="gtk2/gtk2disableliboverlay.pas"/>
|
||||
<AddToUsesPkgSection Value="False"/>
|
||||
<UnitName Value="gtk2disableliboverlay"/>
|
||||
</Item401>
|
||||
</Files>
|
||||
<LazDoc Paths="../../docs/xml/lcl"/>
|
||||
<i18n>
|
||||
|
Loading…
Reference in New Issue
Block a user