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