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

MG: accelerated designer drawings

Browse Source 
git-svn-id: trunk@848 -
This commit is contained in:
lazarus 2002-02-09 01:47:04 +00:00
parent 6682a70930
commit b37639ec39
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3967,7 +3967,9 @@ begin
// get the VBox, the form has one child, a VBox
ParentForm:=TCustomForm(TMenu(Sender).Parent);
if (ParentForm=nil) or (not (ParentForm is TCustomForm)) then
raise Exception.Create('MainMenu without form');
RaiseException('MainMenu without form');
if ParentForm.Menu<>TMenu(Sender) then
RaiseException('form has already a MainMenu');
Box := PGTKBin(ParentForm.Handle)^.Child;
gtk_box_pack_start(Box, p, False, False, 0);
SetAccelGroup(p, gtk_accel_group_get_default);
@ -5845,6 +5847,9 @@ end;
{ =============================================================================
$Log$
Revision 1.219 2002/09/19 19:56:14 lazarus
MG: accelerated designer drawings
Revision 1.218 2002/09/18 17:07:28 lazarus
MG: added patch from Andrew