From 2a2c19d7d5eb94377f1528501163bc03522d1f57 Mon Sep 17 00:00:00 2001 From: drewski207 Date: Sat, 24 Sep 2011 14:49:39 +0000 Subject: [PATCH] Removed signals from objects since they don't have them. Put a limit on impleid pointer level since it was >6 for some types! git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2003 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/gobject-introspection/girobjects.pas | 2 ++ applications/gobject-introspection/girpascalwriter.pas | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/applications/gobject-introspection/girobjects.pas b/applications/gobject-introspection/girobjects.pas index 15505bc6f..54ebe3ef6 100644 --- a/applications/gobject-introspection/girobjects.pas +++ b/applications/gobject-introspection/girobjects.pas @@ -1039,6 +1039,8 @@ begin begin FImpliedPointerLevel:=AValue; end; + if FImpliedPointerLevel > 3 then + FImpliedPointerLevel:=3; end; constructor TGirBaseType.Create(AOwner: TObject; ANode: TDOMNode); diff --git a/applications/gobject-introspection/girpascalwriter.pas b/applications/gobject-introspection/girpascalwriter.pas index 890d78a04..337c494e3 100644 --- a/applications/gobject-introspection/girpascalwriter.pas +++ b/applications/gobject-introspection/girpascalwriter.pas @@ -1161,7 +1161,7 @@ var otUnion: Exit; // these will be done on the second pass. this is to avoid duplicate names if they are the same as some function or property. giving the function priority of the original name - otGlibSignal : if AObjectType <> gtClass then TypeDecl.Add(IndentText(WriteCallBack(TgirCallback(Field),True, UsedNames),4,0)); // classes do not have signals They are in the class *struct* + otGlibSignal :;// signals are external to the object and not 'part' of them //WriteFunction(AFunction, AItem, AIsMethod, AWantWrapperForObject, AFunctionList): String; otFunction : TypeFuncs.Add(IndentText(WriteFunction(TgirFunction(Field), AItem, False, True, UnitFuncs, UsedNames),4,0));