MG: added build all

git-svn-id: trunk@392 -

ide/compiler.pp

@@ -45,7 +45,7 @@ type
   public
     constructor Create;
     destructor Destroy; override;
-    function Compile(AProject: TProject;
+    function Compile(AProject: TProject; BuildAll: boolean;
        const DefaultFilename: string): TModalResult;
     function GetSourcePosition(const Line: string; var Filename:string;
        var CaretXY: TPoint; var MsgType: TErrorType): boolean;
@@ -107,7 +107,7 @@ end;
 {------------------------------------------------------------------------------}
 {  TCompiler Compile                                                           }
 {------------------------------------------------------------------------------}
-function TCompiler.Compile(AProject: TProject;
+function TCompiler.Compile(AProject: TProject; BuildAll: boolean;
   const DefaultFilename: string): TModalResult;
 const
   BufSize = 1024;
@@ -196,6 +196,8 @@ begin
       exit;
     end;
     {$ENDIF linux}
+    if BuildAll then
+      CmdLine := CmdLine+' -B';
     CmdLine := CmdLine
                  + ' '+ AProject.CompilerOptions.MakeOptionsString(ProjectFilename)
                  + ' '+ ProjectFilename;
@@ -328,6 +330,9 @@ end.
 
 {
   $Log$
+  Revision 1.17  2001/11/06 15:47:31  lazarus
+  MG: added build all
+
   Revision 1.16  2001/11/05 18:18:13  lazarus
   added popupmenu+arrows to notebooks, added target filename
 

ide/keymapping.pp

@@ -51,6 +51,7 @@ const
   ecStepOver          = ecStepInto  + 1;
   ecRunToCursor      = ecStepOver  + 1;
   ecStopProgram      = ecRunToCursor + 1;
+  ecBuildAll          = ecStopProgram + 1;
 
   ecJumpToEditor       = ecUserFirst + 300;
   ecToggleFormUnit     = ecUserFirst + 301;
@@ -313,6 +314,7 @@ begin
     ecOpen: Result:= 'open';
     ecClose: Result:= 'close';
     ecBuild: Result:= 'build program/project';
+    ecBuildAll: Result:= 'build all files of program/project';
     ecRun: Result:= 'run program';
     ecPause: Result:= 'pause program';
     ecStepInto: Result:= 'step into';
@@ -907,6 +909,7 @@ begin
   Add('Open',ecOpen,VK_O,[ssCtrl],VK_UNKNOWN,[]);
   Add('Close',ecClose,VK_F4,[ssCtrl],VK_UNKNOWN,[]);
   Add('Build project/program',ecBuild,VK_F9,[ssCtrl],VK_UNKNOWN,[]);
+  Add('Build all files of project/program',ecBuildAll,VK_UNKNOWN,[],VK_UNKNOWN,[]);
   Add('Run program',ecRun,VK_F9,[],VK_UNKNOWN,[]);
   Add('Pause program',ecPause,VK_UNKNOWN,[],VK_UNKNOWN,[]);
   Add('Step into',ecStepInto,VK_F7,[],VK_UNKNOWN,[]);

ide/project.pp

@@ -20,7 +20,7 @@
  ***************************************************************************/
 
 }
-unit project;
+unit Project;
 
 {$mode objfpc}{$H+}
 
@@ -1504,6 +1504,9 @@ end.
 
 {
   $Log$
+  Revision 1.36  2001/11/06 15:47:32  lazarus
+  MG: added build all
+
   Revision 1.35  2001/11/06 12:20:33  lazarus
   MG: added Run Parameter Options - not enabled yet
 

ide/uniteditor.pp

@@ -2931,10 +2931,8 @@ initialization
 {$I designer/bookmark.lrs}
 
 finalization
-  if aWordCompletion<>nil then begin
-    aWordCompletion.Free;
-    aWordCompletion:=nil;
-  end;
+  aWordCompletion.Free;
+  aWordCompletion:=nil;
 
 
 end.