Преглед на файлове

* Fix default values (bug ID 27996)

git-svn-id: trunk@32809 -
michael преди 9 години
родител
ревизия
1906217491
променени са 1 файла, в които са добавени 5 реда и са изтрити 0 реда
  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;