Procházet zdrojové kódy

* Fix default values (bug ID 27996)

git-svn-id: trunk@32809 -
michael před 9 roky
rodič
revize
1906217491
1 změnil soubory, kde provedl 5 přidání a 0 odebrání
  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;