2
0
mattias 3 жил өмнө
parent
commit
2b6c46b50d

+ 2 - 2
packages/webidl/src/webidlparser.pp

@@ -15,7 +15,7 @@
 unit webidlparser;
 unit webidlparser;
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
-
+{$WARN 6060 off : }
 interface
 interface
 
 
 uses
 uses
@@ -1601,7 +1601,7 @@ end;
 
 
 function TWebIDLContext.AsString(Full: Boolean): UTF8String;
 function TWebIDLContext.AsString(Full: Boolean): UTF8String;
 begin
 begin
-  Result:=Definitions.AsString(';'+sLineBreak,'','','',True,True);
+  Result:=Definitions.AsString(';'+sLineBreak,'','','',Full,True);
 end;
 end;
 
 
 function TWebIDLContext.Add(aClass: TIDLDefinitionClass; const AName: UTF8String): TIDLDefinition;
 function TWebIDLContext.Add(aClass: TIDLDefinitionClass; const AName: UTF8String): TIDLDefinition;