pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Removed CustApp dependency of gir2pas

Browse Source 
Implemented some small amount of framework to create pascal classes from gobjects.
Fixed some bugs where properties would not find setters and getters properly when actually available


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2493 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
drewski207
2012-08-26 20:05:29 +00:00
parent f4e3cdde5d
commit 8d7b0d7e6e
10 changed files with 3051 additions and 2150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/gobject-introspection/girnamespaces.pas
View File

@@ -482,7 +482,9 @@ begin
if FPos > 0 then // type includes namespace "NameSpace.Type"
begin
NSString:=Copy(AName,1,FPos-1);
NS := (Owner As TgirNamespaces).FindNameSpace(NSString);
//NS := (Owner As TgirNamespaces).FindNameSpace(NSString);
NS := TgirNamespaces(Owner).FindNameSpace(NSString);
if NS = nil then
girError(geError, 'Referenced Namespace "'+NSString+'" not found while looking for '+AName);
AName := Copy(AName, FPos+1, Length(AName));
@@ -490,6 +492,7 @@ begin
if NS <> Self then SearchOnly:=True;
//if NS <> Self then WriteLn('Self NS = ', NameSpace, ' Lookup NS = ', NS.NameSpace);
Result := TGirBaseType(NS.Types.Find(AName));
if (Result <> nil) and (Result.ObjectType = otFuzzyType) and (TgirFuzzyType(Result).ResolvedType <> nil) then
Result := TgirFuzzyType(Result).ResolvedType;