paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 03:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk intf: improved debugging

Browse Source 
git-svn-id: trunk@13432 -
This commit is contained in:
mattias 2007-12-23 10:25:21 +00:00
parent 9825141ffc
commit 1816c3aa0a
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -179,8 +179,11 @@ begin
end;
end;
if not (csDesigning in TComponent(Data).ComponentState) then
if (csDesigning in TComponent(Data).ComponentState) then begin
//DebugLn(['gtkRealizeCB ',dbgsName(TComponent(Data)),' ',GetWidgetDebugReport(Widget)]);
end else begin
RealizeAccelerator(TComponent(Data),Widget);
end;
end;
end;

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -391,6 +391,10 @@ var
ClassLen: Integer;
begin
Result:='';
if Widget=nil then begin
Result:='nil';
exit;
end;
if (gtk_object_get_class(Widget)=nil) then begin
Result:='<Widget without class>';
exit;
@ -7655,7 +7659,7 @@ begin
// the client area (like menu)
Result := gtk_vbox_new(False, 0);
If FormWidget = nil then
if FormWidget = nil then
FormWidget := Result;
// Create the form client area (a scrolled window with a gtklayout

5
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -992,8 +992,9 @@ begin
AEntry := PGtkObject(GetComboBoxEntry(PGtkWidget(ComboWidget)));
APrivate := PGtkComboBoxPrivate(ComboWidget^.priv);
AButton := PGtkObject(APrivate^.button);
// we have to remove the handler gtk sets up because we will never get the mouse down messages
//DebugLn(['TGtk2WSCustomComboBox.SetCallbacks ',dbgsName(AWinControl),' AButton=',GetWidgetClassName(PGtkWidget(AButton)),' ComboWidget=',GetWidgetClassName(PGtkWidget(ComboWidget))]);
// we have to remove the handler gtk sets up to get the mouse down messages
BtnPressID := g_signal_lookup('button_press_event', GTK_TYPE_COMBO_BOX);
if AButton<>nil then begin
HandlerID := g_signal_handler_find(AButton, G_SIGNAL_MATCH_ID, BtnPressID, 0, nil, nil, nil);