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

MG: fixed cool little bug (menu double attaching bug)

Browse Source 
git-svn-id: trunk@937 -
This commit is contained in:
lazarus 2002-02-09 01:47:26 +00:00
parent 1dbce3192d
commit d0966f30ff
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkobject.inc
View File

@ -5398,10 +5398,15 @@ var
begin
LCLMenuItem:=TMenuItem(Sender);
//writeln('TGtkObject.AttachMenu START ',LCLMenuItem.Name,':',LCLMenuItem.ClassName,' Parent=',LCLMenuItem.Parent.Name,':',LCLMenuItem.Parent.ClassName);
with LCLMenuItem do
begin
MenuItem := PGtkWidget(Handle);
if MenuItem=nil then
RaiseException('TGtkObject.AttachMenu Handle=0');
ParentMenuWidget := PGtkWidget(Parent.Handle);
if ParentMenuWidget=nil then
RaiseException('TGtkObject.AttachMenu ParentMenuWidget=nil');
if GtkWidgetIsA(ParentMenuWidget,GTK_MENU_BAR_TYPE) then begin
// mainmenu
@ -5447,6 +5452,7 @@ begin
'activate_item');
end;
end;
//writeln('TGtkObject.AttachMenu END ',LCLMenuItem.Name,':',LCLMenuItem.ClassName);
end;
{------------------------------------------------------------------------------
@ -6009,6 +6015,9 @@ end;
{ =============================================================================
$Log$
Revision 1.241 2002/10/08 22:32:28 lazarus
MG: fixed cool little bug (menu double attaching bug)
Revision 1.240 2002/10/08 17:51:41 lazarus
MG: fixed settings negative widget sizes