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

@@ -1039,6 +1039,8 @@ begin
   begin
       FImpliedPointerLevel:=AValue;
   end;
+  if FImpliedPointerLevel > 3 then
+    FImpliedPointerLevel:=3;
 end;
 
 constructor TGirBaseType.Create(AOwner: TObject; ANode: TDOMNode);

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));