paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

"type alias" editor fix ( report by Werner Hauptfleisch )

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@781 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-04-21 14:03:31 +00:00
parent a0c252c656
commit 8d5feeb061
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/type_lib_edtr/uftypealiasedit.pas
View File

@ -223,7 +223,7 @@ begin
end;
end;
finally
if ( not Result ) and ( UpdateType = etCreate ) and ( AObject = nil ) then begin
if ( not Result ) and ( UpdateType = etCreate ) and ( AObject = nil ) and ( FObject <> nil ) then begin
FSymbolTable.CurrentModule.InterfaceSection.Declarations.Extract(FObject);
FSymbolTable.CurrentModule.InterfaceSection.Types.Extract(FObject);
FSymbolTable.CurrentModule.InterfaceSection.Classes.Extract(FObject);