paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 13:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Disable an annoying DebugLn().

Browse Source 
git-svn-id: trunk@59004 -
This commit is contained in:
juha 2018-09-15 12:32:25 +00:00
parent 0be197cd4a
commit bae00a04b3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -648,9 +648,9 @@ begin
and gtk_window_has_TopLevel_Focus(Window) then and gtk_window_has_TopLevel_Focus(Window) then
begin begin
// fake focus-out event // fake focus-out event
{.$IFDEF VerboseFocus} {$IFDEF VerboseFocus}
DebugLn('NOTE: Window with stalled focus found!, faking focus-out event'); DebugLn('NOTE: Window with stalled focus found!, faking focus-out event');
{.$ENDIF} {$ENDIF}
event := gdk_event_new(GDK_FOCUS_CHANGE); event := gdk_event_new(GDK_FOCUS_CHANGE);
event^.focus_change.window := TopLevelWin; event^.focus_change.window := TopLevelWin;
event^.focus_change._type := GDK_FOCUS_CHANGE; event^.focus_change._type := GDK_FOCUS_CHANGE;