paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 05:52:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: Enclose code used only to debug in EventTrace define

Browse Source 
git-svn-id: trunk@53859 -
This commit is contained in:
blikblum 2017-01-03 14:07:52 +00:00
parent 6877851905
commit fd332f1b2a
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -3699,21 +3699,18 @@ end;
But also called on every widget realize, so it should not release all styles
everytime.
-------------------------------------------------------------------------------}
{$IFDEF EventTrace}
procedure GTKStyleChanged({%H-}Widget: PGtkWidget; {%H-}previous_style : PGTKStyle;
{%H-}Data: Pointer); cdecl;
begin
{$IFDEF EventTrace}
EventTrace('style-set', nil);
{$ENDIF}
//ReleaseAllStyles;
end;
procedure GTKStyleChangedAfter({%H-}Widget: PGtkWidget; {%H-}previous_style : PGTKStyle;
{%H-}Data: Pointer); cdecl;
begin
{$IFDEF EventTrace}
EventTrace('style-set', nil);
{$ENDIF}
{ Note:
This event is called for many widgets but not for all.
@ -3725,6 +3722,7 @@ begin
//debugln('style-set after ',DbgSName(TWinControl(Data)));
//LCLObject.InvalidateClientRectCache(False);
end;
{$ENDIF}
function gtkListBoxSelectionChangedAfter(widget: PGtkWidget; data: gPointer

7
lcl/interfaces/gtk2/gtk2proc.pp
View File

@ -230,9 +230,12 @@ procedure ClipboardSelectionRequestHandler(TargetWidget: PGtkWidget;
Data: Pointer); cdecl;
function ClipboardSelectionLostOwnershipHandler(TargetWidget: PGtkWidget;
EventSelection: PGdkEventSelection; Data: Pointer): cardinal; cdecl;
{$IFDEF EventTrace}
procedure GTKStyleChanged(Widget: PGtkWidget; previous_style :
PGTKStyle; Data: Pointer); cdecl;
procedure GTKStyleChangedAfter(Widget: PGtkWidget; previous_style : PGTKStyle;
Data: Pointer); cdecl;
{$ENDIF}
function gtkListBoxSelectionChangedAfter(widget: PGtkWidget;
data: gPointer): GBoolean; cdecl;
@ -789,8 +792,6 @@ function GTKWindowStateEventCB(widget: PGtkWidget;
function gtkMouseWheelCB({%H-}widget: PGtkWidget; event: PGdkEventScroll;
data: gPointer): GBoolean; cdecl;
procedure GTKStyleChangedAfter(Widget: PGtkWidget; previous_style : PGTKStyle;
Data: Pointer); cdecl;
implementation

4
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -469,9 +469,11 @@ begin
begin
//DebugLn(['TGtkWidgetSet.SetCallback ',DbgSName(ALCLObject),' ',GetWidgetDebugReport(PGtkWIdget(gfixed))]);
ConnectSenderSignal(gFixed,'expose-event', @GTKExposeEvent);
ConnectSenderSignalAfter(gFixed,'style-set', @GTKStyleChangedAfter);
ConnectSenderSignalAfter(gFixed,'expose-event', @GTKExposeEventAfter);
{$IFDEF EventTrace}
ConnectSenderSignal(gFixed,'style-set', @GTKStyleChanged);
ConnectSenderSignalAfter(gFixed,'style-set', @GTKStyleChangedAfter);
{$ENDIF}
end;