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

MG: recent file menus are now updated instantly

Browse Source 
git-svn-id: trunk@734 -
This commit is contained in:
lazarus 2002-02-09 01:46:01 +00:00
parent 834b4c61aa
commit 445c38646b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1795,6 +1795,7 @@ procedure TgtkObject.SetLabel(Sender : TObject; Data : Pointer);
NewCaption: string;
begin
MenuItem:=TMenuItem(Sender);
if not MenuItem.HandleAllocated then exit;
MenuItemWidget:=PGtkWidget(MenuItem.Handle);
if MenuItemWidget=nil then exit;
LabelWidget:=PGTKLabel(PGTKBin(MenuItemWidget)^.Child);
@ -5323,6 +5324,9 @@ end;
{ =============================================================================
$Log$
Revision 1.156 2002/08/08 09:38:36 lazarus
MG: recent file menus are now updated instantly
Revision 1.155 2002/08/08 09:07:07 lazarus
MG: TMenuItem can now be created/destroyed/moved at any time