paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: TToolbar should be TCustomControl, also this is first commit maded with lazarus-gtk3 ide :), just few secs after those changes it crashed :))))

Browse Source
This commit is contained in:
zeljan1 2025-01-22 23:30:34 +01:00
parent 52468145b6
commit a2153c9bcb
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5433,8 +5433,8 @@ begin
if not Assigned(Application) or (Assigned(Application) and Application.Terminated) then
exit;
DebugLn('TGtk3MenuItem.MenuItemEvent triggered ',dbgsName(TGtk3MenuItem(Data).MenuItem),
' ',Gtk3EventToStr(event^.type_));
//DebugLn('TGtk3MenuItem.MenuItemEvent triggered ',dbgsName(TGtk3MenuItem(Data).MenuItem),
// ' ',Gtk3EventToStr(event^.type_));
case event^.type_ of
GDK_DELETE:

6
lcl/interfaces/gtk3/gtk3wscomctrls.pp
View File

@ -313,9 +313,11 @@ end;
class function TGtk3WSToolBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLHandle;
var
AToolBar: TGtk3ToolBar;
AToolBar: TGtk3CustomControl;
// TGtk3ToolBar;
begin
AToolBar := TGtk3ToolBar.Create(AWinControl, AParams);
AToolBar := TGtk3CustomControl.Create(AWinControl, AParams);
// TGtk3ToolBar.Create(AWinControl, AParams);
Result := TLCLHandle(AToolBar);
end;