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

Gtk3: removed unneeded TGtk3Container.AddChild().

Browse Source
This commit is contained in:
zeljan1 2025-02-23 21:30:23 +01:00
parent cb32e2f0eb
commit a8a1fc1666
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -408,7 +408,6 @@ type
procedure SetVisible(AValue: Boolean); override;
public
procedure InitializeWidget; override;
procedure AddChild(AWidget: PGtkWidget; const ALeft, ATop: Integer); virtual;
end;
{ TGtk3Page }
@ -4921,14 +4920,6 @@ begin
end;
end;
procedure TGtk3Container.AddChild(AWidget: PGtkWidget; const ALeft, ATop: Integer);
begin
if Assigned(FCentralWidget) then
PGtkFixed(PGtkScrolledWindow(FCentralWidget)^.get_child)^.put(AWidget, ALeft, ATop)
else
PGtkContainer(Widget)^.add(AWidget);
end;
{ TGtk3ToolBar }
procedure TGtk3ToolBar.ClearGlyphs;