[Qtcsharp-patches] Bugtussle/src/static/kylix QtClassesUtils.pas,1.2,1.3

[Andreas H. <ah...@us...>]

Update of /cvsroot/qtcsharp/Bugtussle/src/static/kylix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17458/src/static/kylix

Modified Files:
	QtClassesUtils.pas 
Log Message:
Update

Index: QtClassesUtils.pas
===================================================================
RCS file: /cvsroot/qtcsharp/Bugtussle/src/static/kylix/QtClassesUtils.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** QtClassesUtils.pas	9 Nov 2004 20:05:36 -0000	1.2
--- QtClassesUtils.pas	18 Apr 2005 09:32:21 -0000	1.3
***************
*** 93,97 ****
          slots are not usable through connect/disconnect. }
    public
!     function className: string;
      function isA(const classname: string): Boolean;
      function inherits(const classname: string): Boolean;
--- 93,98 ----
          slots are not usable through connect/disconnect. }
    public
!     function metaObject: QMetaObjectH;
!     function className: string; 
      function isA(const classname: string): Boolean;
      function inherits(const classname: string): Boolean;
***************
*** 288,292 ****
  var
    N: PSignalSlotItem;
-   i: Integer;
  begin
    Member := '2' + MemberToCMember(Member);
--- 289,292 ----
***************
*** 302,306 ****
  var
    N: PSignalSlotItem;
-   i: Integer;
  begin
    Member := '1' + MemberToCMember(Member);
--- 302,305 ----
***************
*** 537,540 ****
--- 536,544 ----
  end;
  
+ function TQObjectBase.metaObject: QMetaObjectH;
+ begin
+   Result := Handle.metaObject;
+ end;
+ 
  function TQObjectBase.connect(sender: TQObjectBase; const signal,
    member: string): Boolean;
***************
*** 555,558 ****
--- 559,563 ----
    // MemberToCMember(signal)
    // MemberToCMember(member)
+   Result := False;
  end;
  
***************
*** 569,575 ****
    // MemberToCMember(signal)
    // MemberToCMember(member)
  end;
  
- 
  initialization
    ObjectLookup := TBucketList.Create(bl256);
--- 574,580 ----
    // MemberToCMember(signal)
    // MemberToCMember(member)
+   Result := False;
  end;
  
  initialization
    ObjectLookup := TBucketList.Create(bl256);