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

implemented updates between source marks and breakpoints

Browse Source 
git-svn-id: trunk@2549 -
This commit is contained in:
mattias 2002-08-17 23:41:28 +00:00
parent ef7892a0cc
commit c193d9c6ac
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1918,7 +1918,9 @@ procedure ConnectInternalWidgetsSignals(AWidget: PGtkWidget;
ChildEntry: PGSList; ChildEntry: PGSList;
ChildWidget: PGtkWidget; ChildWidget: PGtkWidget;
begin begin
//if AWinControl is TListView then writeln('ConnectChilds A ',HexStr(Cardinal(TheWidget),8));
if GtkWidgetIsA(TheWidget,GTK_TYPE_CONTAINER) then begin if GtkWidgetIsA(TheWidget,GTK_TYPE_CONTAINER) then begin
//if AWinControl is TListView then writeln('ConnectChilds B ');
// this is a container widget -> connect all childs // this is a container widget -> connect all childs
ContainerWidget:=PGtkContainer(TheWidget); ContainerWidget:=PGtkContainer(TheWidget);
ChildEntry:=ContainerWidget^.resize_widgets; ChildEntry:=ContainerWidget^.resize_widgets;
@ -1929,15 +1931,18 @@ procedure ConnectInternalWidgetsSignals(AWidget: PGtkWidget;
end; end;
end; end;
if GtkWidgetIsA(TheWidget,GTK_TYPE_BIN) then begin if GtkWidgetIsA(TheWidget,GTK_TYPE_BIN) then begin
//if AWinControl is TListView then writeln('ConnectChilds C ');
BinWidget:=PGtkBin(TheWidget); BinWidget:=PGtkBin(TheWidget);
ConnectSignals(BinWidget^.child); ConnectSignals(BinWidget^.child);
end; end;
if GtkWidgetIsA(TheWidget,GTK_TYPE_SCROLLED_WINDOW) then begin if GtkWidgetIsA(TheWidget,GTK_TYPE_SCROLLED_WINDOW) then begin
//if AWinControl is TListView then writeln('ConnectChilds D ');
ScrolledWindow:=PGtkScrolledWindow(TheWidget); ScrolledWindow:=PGtkScrolledWindow(TheWidget);
ConnectSignals(ScrolledWindow^.hscrollbar); ConnectSignals(ScrolledWindow^.hscrollbar);
ConnectSignals(ScrolledWindow^.vscrollbar); ConnectSignals(ScrolledWindow^.vscrollbar);
end; end;
if GtkWidgetIsA(TheWidget,GTK_TYPE_COMBO) then begin if GtkWidgetIsA(TheWidget,GTK_TYPE_COMBO) then begin
//if AWinControl is TListView then writeln('ConnectChilds E ');
ConnectSignals(PGtkCombo(TheWidget)^.entry); ConnectSignals(PGtkCombo(TheWidget)^.entry);
ConnectSignals(PGtkCombo(TheWidget)^.button); ConnectSignals(PGtkCombo(TheWidget)^.button);
end; end;
@ -1949,14 +1954,20 @@ procedure ConnectInternalWidgetsSignals(AWidget: PGtkWidget;
DesignSignalType: TDesignSignalType; DesignSignalType: TDesignSignalType;
DesignFlags: TConnectSignalFlags; DesignFlags: TConnectSignalFlags;
begin begin
//if AWinControl is TListView then writeln('ConnectSignals A ',HexStr(Cardinal(TheWidget),8));
if TheWidget=nil then exit; if TheWidget=nil then exit;
// check if TheWidget belongs to another LCL object // check if TheWidget belongs to another LCL object
LCLObject:=GetLCLObject(TheWidget); LCLObject:=GetLCLObject(TheWidget);
HiddenLCLObject:=GetHiddenLCLObject(TheWidget); HiddenLCLObject:=GetHiddenLCLObject(TheWidget);
if (LCLObject<>nil) and (LCLObject<>AWinControl) then exit; if (LCLObject<>nil) and (LCLObject<>AWinControl) then begin
if (HiddenLCLObject<>nil) and (HiddenLCLObject<>AWinControl) then exit; exit;
end;
if (HiddenLCLObject<>nil) and (HiddenLCLObject<>AWinControl) then begin
exit;
end;
//if AWinControl is TListView then writeln('ConnectSignals B ',HexStr(Cardinal(TheWidget),8));
// connect signals needed for design mode: // connect signals needed for design mode:
for DesignSignalType:=Low(TDesignSignalType) to High(TDesignSignalType) do for DesignSignalType:=Low(TDesignSignalType) to High(TDesignSignalType) do
begin begin
@ -4091,6 +4102,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.178 2003/06/03 10:29:22 mattias
implemented updates between source marks and breakpoints
Revision 1.177 2003/06/03 08:02:33 mattias Revision 1.177 2003/06/03 08:02:33 mattias
implemented showing source lines in breakpoints dialog implemented showing source lines in breakpoints dialog