Merge branch 'release/1.0.0'

Author: [email protected]

BossExperts.dpk

@@ -0,0 +1,47 @@
+package BossExperts;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE RELEASE}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'Boss Experts'}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  designide;
+
+contains
+  dpipes in 'Source\Third\dpipes.pas',
+  dprocess in 'Source\Third\dprocess.pas',
+  BE.Wizard.Forms in 'Source\IDE\BE.Wizard.Forms.pas' {BEWizardForms},
+  BE.Commands.Interfaces in 'Source\Core\BE.Commands.Interfaces.pas',
+  BE.Commands.ProcessDelphi in 'Source\Core\BE.Commands.ProcessDelphi.pas',
+  BE.ContextMenu in 'Source\IDE\BE.ContextMenu.pas',
+  BE.Registry in 'Source\IDE\BE.Registry.pas',
+  BE.Constants in 'Source\Core\BE.Constants.pas',
+  BE.Model in 'Source\Core\BE.Model.pas',
+  BE.Helpers.Json in 'Source\Helpers\BE.Helpers.Json.pas';
+
+end.

BossExperts.dproj

@@ -22,6 +22,8 @@ interface
 
     function Uninstall(AComplete: TProc = nil): IBECommands; overload;
     function Uninstall(ADependency: TBEModelDependency; AComplete: TProc = nil): IBECommands; overload;
+
+    function BossInstalled: Boolean;
   end;
 
 function CreateBossCommand(Path: String): IBECommands;

BossExperts.res

@@ -6,6 +6,7 @@ interface
   dprocess,
   BE.Model,
   BE.Commands.Interfaces,
+  BE.Constants,
   {$IF CompilerVersion > 26.0}
   System.Threading,
   {$ENDIF}
@@ -35,6 +36,7 @@ type TBECommandsProcessDelphi = class(TInterfacedObject, IBECommands)
     function Uninstall(AComplete: TProc = nil): IBECommands; overload;
     function Uninstall(ADependency: TBEModelDependency; AComplete: TProc = nil): IBECommands; overload;
 
+    function BossInstalled: Boolean;
   public
     constructor create(Path: string);
     class function New(Path: string): IBECommands;
@@ -50,6 +52,11 @@ function TBECommandsProcessDelphi.AsyncMode(Value: Boolean): IBECommands;
   FAsyncMode := Value;
 end;
 
+function TBECommandsProcessDelphi.BossInstalled: Boolean;
+begin
+  result := FileExists(FPath + BOSS_JSON);
+end;
+
 constructor TBECommandsProcessDelphi.create(Path: string);
 begin
   FPath := Path;

Source/Core/BE.Commands.Interfaces.pas

@@ -41,7 +41,6 @@   TBEContextMenu = class(TNotifierObject, IOTALocalMenu, IOTAProjectManagerMenu)
 
     procedure DoRefreshProject;
 
-    function BossInstalled: Boolean;
     procedure VerifyBoss;
 
     function GetCaption: string;
@@ -177,11 +176,6 @@ constructor TBEContextMenuBoss.create(Project: IOTAProject);
 
 { TBEContextMenu }
 
-function TBEContextMenu.BossInstalled: Boolean;
-begin
-  result := FileExists(ExtractFilePath(FProject.FileName) + BOSS_JSON);
-end;
-
 constructor TBEContextMenu.create(Project: IOTAProject);
 begin
   FProject := Project;
@@ -307,7 +301,7 @@ procedure TBEContextMenu.SetVerb(const Value: string);
 
 procedure TBEContextMenu.VerifyBoss;
 begin
-  if not BossInstalled then
+  if not FBossCommand.BossInstalled then
     raise Exception.Create('Boss is not installed. Use Boss Init...');
 end;
 
@@ -338,12 +332,12 @@ constructor TBEContextMenuBossInit.create(Project: IOTAProject);
   FVerb := BOSS_INIT_VERB;
   FParent := BOSS_VERB;
 
-  FChecked := BossInstalled;
+  FChecked := FBossCommand.BossInstalled;
 end;
 
 procedure TBEContextMenuBossInit.Execute(const MenuContextList: IInterfaceList);
 begin
-  if BossInstalled then
+  if FBossCommand.BossInstalled then
     raise Exception.CreateFmt('Boss already installed.', []);
   FBossCommand.Init;
 end;

Source/Core/BE.Commands.ProcessDelphi.pas

@@ -5,7 +5,7 @@
     "homepage": "",
     "mainsrc": "Source",
     "projects": [
-        "Source/BossExperts.dproj"
+        "BossExperts.dproj"
     ],
     "dependencies": {}
 }