[Lazarus] Extensive Debug Info from GTK2 bindings

[Juha Manninen]

zeljko kirjoitti maanantai 21 helmikuu 2011 10:14:40:
> On Monday 21 of February 2011 10:39:33 Juha Manninen wrote:
> > I start Lazarus devel version always from cmd line on Linux.
> > When using GTK2 bindings, there is a huge amount of debug lines scrolling
> > in the console window all the time.
> > How to shut them down?
> 
> Disable -dDebug ? Are they from lcl or from gtk2 libs ?

I don't have "Debug" defined.
I am not sure where all those messages come from. Here is an example:

---

< [TGtk2WidgetSet.SetTextColor] DC: 0x6D9E2470 Color:        0 --> 80000008
> [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF
< [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF -->   808080
> [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF
< [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF -->   FFFFFF
> [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
< [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
> [TGtk2WidgetSet.NewGDIObject]
< [TGtk2WidgetSet.NewGDIObject] FGDIObjects --> 0x00007FD56C741EC0
> [TGtk2WidgetSet.MoveToEx] DC:0x7FD56D9E2470, X:191, Y:14
< [TGtk2WidgetSet.MoveToEx] DC:0x7FD56D9E2470, X:191, Y:14
> [TGtk2WidgetSet.LineTo] DC:0x7FD56D9E2470, X:68, Y:14
< [TGtk2WidgetSet.LineTo] DC:0x7FD56D9E2470, X:68, Y:14
> [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
< [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Font
> [TGtk2WidgetSet.RestoreDC] DC:0x7FD56D9E2470, SavedDC: 1
> [TGtk2WidgetSet.ReleaseDC] DC:0x7FD56C9E85F0
< [TGtk2WidgetSet.ReleaseDC] FDeviceContexts DC:0x7FD56C9E85F0
< [TGtk2WidgetSet.RestoreDC] DC:0x6D9E2470, Saved: 0 --> True
> [TGtkWidgetSet.ShowCaret] HWND: 0x3C01900
< [TGtk2WidgetSet.ShowCaret] HWND: 0x3C01900 --> True
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Brush
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Font
< [TWinControl.PaintHandler] TIDESynEditor
< [TWinControl.WMPaint] TIDESynEditor
> [TGtk2WidgetSet.ReleaseDC] DC:0x7FD56D9E2470
< [TGtk2WidgetSet.ReleaseDC] FDeviceContexts DC:0x7FD56D9E2470
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
removing timer!!!
removing timer!!!
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
removing timer!!!
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
removing timer!!!
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
removing timer!!!
removing timer!!!
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
  [GTKObject.ClientToScreen] Handle: 0x3BDA9F0 --> (376, 127)
  [GTKObject.ClientToScreen] Handle: 0x3BDA9F0 --> (376, 127)
  [GTKObject.ClientToScreen] Handle: 0x3C01900 --> (378, 129)
Event [TimerCB] fired
removing timer!!!
TODO: [gtkkillfocusCB] TIDESynEditor  finish
[TWinControl.WndPRoc] TIDESynEditor --> _KILLFOCUS
 TIDESynEditor
  [TGtk2WidgetSet.HideCaret] HWND: 0x3C01900
 TIDESynEditor
TODO: [gtkkillfocusCB] TSourceNotebook  finish
[TWinControl.WndPRoc] TSourceNotebook --> _KILLFOCUS
 TSourceNotebook
> [TGtk2WidgetSet.NewDC]
> [TWinControl.WMPaint] TIDESynEditor Msg.DC: 0x7FD56D9E2470
> [TWinControl.PaintHandler] TIDESynEditor --> Msg.DC: 0x7FD56D9E2470
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Font
> [TGtk2WidgetSet.NewGDIObject]
< [TGtk2WidgetSet.NewGDIObject] FGDIObjects --> 0x00007FD56C7467C0
> [TGtk2WidgetSet.SetTextColor] DC: 0x6D9E2470 Color: 80000008
< [TGtk2WidgetSet.SetTextColor] DC: 0x6D9E2470 Color: 80000008 -->        0
> [TGtk2WidgetSet.NewGDIObject]
< [TGtk2WidgetSet.NewGDIObject] FGDIObjects --> 0x00007FD56C7421C0
> [TGtk2WidgetSet.MoveToEx] DC:0x7FD56D9E2470, X:67, Y:727
< [TGtk2WidgetSet.MoveToEx] DC:0x7FD56D9E2470, X:67, Y:727
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Brush
> [TGtk2WidgetSet.NewGDIObject]
< [TGtk2WidgetSet.NewGDIObject] FGDIObjects --> 0x00007FD56C7468C0
> [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   808080
< [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   808080 -->   FFFFFF
> [TGtk2WidgetSet.SaveDC]  0x6D9E2470
> [TGtk2WidgetSet.NewDC]
< [TGtk2WidgetSet.SaveDC]  0x6D9E2470 --> 1
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Font
> [TGtk2WidgetSet.SetTextColor] DC: 0x6D9E2470 Color:        0
< [TGtk2WidgetSet.SetTextColor] DC: 0x6D9E2470 Color:        0 --> 80000008
> [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF
< [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF -->   808080
> [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF
< [TGtk2WidgetSet.SetBKColor] DC: 0x6D9E2470 Color:   FFFFFF -->   FFFFFF
> [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
< [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
> [TGtk2WidgetSet.NewGDIObject]
< [TGtk2WidgetSet.NewGDIObject] FGDIObjects --> 0x00007FD56C741EC0
> [TGtk2WidgetSet.MoveToEx] DC:0x7FD56D9E2470, X:191, Y:14
< [TGtk2WidgetSet.MoveToEx] DC:0x7FD56D9E2470, X:191, Y:14
> [TGtk2WidgetSet.LineTo] DC:0x7FD56D9E2470, X:68, Y:14
< [TGtk2WidgetSet.LineTo] DC:0x7FD56D9E2470, X:68, Y:14
> [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
< [TGtk2WidgetSet.ExtTextOut] DC:0x7FD56D9E2470, X:0, Y:0, Options:2, Str:'', Count: 0
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Font
> [TGtk2WidgetSet.RestoreDC] DC:0x7FD56D9E2470, SavedDC: 1
> [TGtk2WidgetSet.ReleaseDC] DC:0x7FD56C9E85F0
< [TGtk2WidgetSet.ReleaseDC] FDeviceContexts DC:0x7FD56C9E85F0
< [TGtk2WidgetSet.RestoreDC] DC:0x6D9E2470, Saved: 0 --> True
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Brush
  [TGtk2WidgetSet.SelectObject] DC: 0x7FD56D9E2470, Type: Font
< [TWinControl.PaintHandler] TIDESynEditor
< [TWinControl.WMPaint] TIDESynEditor
> [TGtk2WidgetSet.ReleaseDC] DC:0x7FD56D9E2470
< [TGtk2WidgetSet.ReleaseDC] FDeviceContexts DC:0x7FD56D9E2470
Event [TimerCB] fired
removing timer!!!