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

SetAsEmbeddedType

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1029 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-12-01 15:53:14 +00:00
parent ae739b0486
commit 421ccf5a75
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/ws_helper/ws_parser_imp.pas
View File

@ -1660,6 +1660,10 @@ begin
FBaseNameSpace := s_xs; FBaseNameSpace := s_xs;
Result := ParseOtherContent(); Result := ParseOtherContent();
end; end;
if ( Result <> nil ) then begin
if ( IsEmbeddedType(Result) <> FEmbededDef ) then
SetAsEmbeddedType(Result,FEmbededDef);
end;
{$IFDEF WST_HANDLE_DOC} {$IFDEF WST_HANDLE_DOC}
if ( Result <> nil ) then if ( Result <> nil ) then
ParseDocumentation(Result); ParseDocumentation(Result);