project, async comp, small fixes to common proj interface

src/ce_dubproject.pas

@@ -45,7 +45,7 @@ type
     procedure dubProcOutput(proc: TObject);
     procedure dubProcTerminated(proc: TObject);
     function getCurrentCustomConfig: TJSONObject;
-    function compileOrRun(run: boolean; const runArgs: string = ''): boolean;
+    procedure compileOrRun(run: boolean; const runArgs: string = '');
   public
     constructor create(aOwner: TComponent); override;
     destructor destroy; override;
@@ -79,7 +79,7 @@ type
     //
     procedure compile;
     function compiled: boolean;
-    function run(const runArgs: string = ''): boolean;
+    procedure run(const runArgs: string = '');
     function targetUpToDate: boolean;
     //
     property json: TJSONObject read fJSON;
@@ -390,7 +390,7 @@ begin
   SetCurrentDirUTF8(fPreCompilePath);
 end;
 
-function TCEDubProject.compileOrRun(run: boolean; const runArgs: string = ''): boolean;
+procedure TCEDubProject.compileOrRun(run: boolean; const runArgs: string = '');
 var
   olddir: string;
   prjname: string;
@@ -460,9 +460,9 @@ begin
   exit(fCompiled);
 end;
 
-function TCEDubProject.run(const runArgs: string = ''): boolean;
+procedure TCEDubProject.run(const runArgs: string = '');
 begin
-  result := compileOrRun(true);
+  compileOrRun(true);
 end;
 
 function TCEDubProject.targetUpToDate: boolean;

src/ce_inspectors.pas

@@ -39,7 +39,6 @@ type
     procedure Edit; override;
   end;
 
-
   TListDrawValueProc = procedure(const CurValue: ansistring; Index: integer;
     ACanvas: TCanvas; const ARect:TRect; AState: TPropEditDrawState) of object;
 
@@ -86,7 +85,7 @@ var
   vOldPenColor, vOldBrushColor: TColor;
   vOldPenStyle: TPenStyle;
   noFill: Boolean;
-  proc: TListDrawValueProc;
+  //proc: TListDrawValueProc;
   Style : TTextStyle;
   OldColor : TColor;
   rc: TRect;
@@ -173,8 +172,6 @@ begin
   end;
 
   ACanvas.TextRect(rc, rc.Left+2, rc.Top, CurValue, Style);
-
-
 end;
 
 function TCECustomPathEditor.GetAttributes: TPropertyAttributes;

src/ce_interfaces.pas

@@ -80,8 +80,8 @@ type
       procedure compile;
       // indicates wether last complation was successful.
       function compiled: boolean;
-      // tries to un the project output and returns true if it did
-      function run(const runArgs: string = ''): boolean;
+      // tries to execute the project output.
+      procedure run(const runArgs: string = '');
       // returns true if the target has not to be recompiled
       function targetUpToDate: boolean;
 

src/ce_main.pas

@@ -12,7 +12,7 @@ uses
   ce_widget, ce_messages, ce_interfaces, ce_editor, ce_projinspect, ce_projconf,
   ce_search, ce_miniexplorer, ce_libman, ce_libmaneditor, ce_todolist, ce_observer,
   ce_toolseditor, ce_procinput, ce_optionseditor, ce_symlist, ce_mru, ce_processes,
-  ce_infos, ce_dubproject, ce_dialogs, ce_dubprojeditor, ce_gdb, ce_dfmt, ce_lcldragdrop;
+  ce_infos, ce_dubproject, ce_dialogs, ce_dubprojeditor, {ce_gdb,} ce_dfmt, ce_lcldragdrop;
 
 type
 

src/ce_nativeproject.pas

@@ -106,7 +106,7 @@ type
     function importsPathCount: integer;
     function importPath(index: integer): string;
     //
-    function run(const runArgs: string = ''): Boolean;
+    procedure run(const runArgs: string = '');
     function compiled: Boolean;
     procedure compile;
     function targetUpToDate: boolean;
@@ -778,13 +778,12 @@ begin
   fCompilProc.Execute;
 end;
 
-function TCENativeProject.run(const runArgs: string = ''): Boolean;
+procedure TCENativeProject.run(const runArgs: string = '');
 var
   prm: string;
   i: Integer;
   cwd: string;
 begin
-  result := false;
   killProcess(fRunner);
   if fRunnerOldCwd.dirExists then
     ChDir(fRunnerOldCwd);
@@ -824,8 +823,6 @@ begin
     getprocInputHandler.addProcess(fRunner);
   end;
   fRunner.Execute;
-  //
-  result := true;
 end;
 
 procedure TCENativeProject.runProcOutput(sender: TObject);