Bläddra i källkod

* Fix default values (bug ID 27996)

git-svn-id: trunk@32809 -
michael 9 år sedan
förälder
incheckning
1906217491
1 ändrade filer med 5 tillägg och 0 borttagningar
  1. 5 0
      utils/fpdoc/fpdoc.pp

+ 5 - 0
utils/fpdoc/fpdoc.pp

@@ -369,6 +369,11 @@ begin
       FCreator.Options.BackendOptions.Add(Arg);
       end;
     end;
+  // Set defaults
+  if FCreator.Options.BackEnd='' then
+    FCreator.Options.BackEnd:='html';
+  if SelectedPackage.Output='' then
+    SelectedPackage.Output:=SelectedPackage.Name;
 end;
 
 Procedure TFPDocApplication.DoRun;