From b576f85cfe55df3a9bed248d0dcaa60e7c3d7e5f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 25 Oct 2015 18:49:55 +0100
Subject: [PATCH] main, observe ICECOmmonProject so that other widget can
 create a project

---
 src/ce_main.pas | 46 +++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 45 insertions(+), 1 deletion(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 6773da9c..ff518ad9 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -19,7 +19,7 @@ type
   TCEApplicationOptions = class;
 
   { TCEMainForm }
-  TCEMainForm = class(TForm, ICEMultiDocObserver, ICEEditableShortCut)
+  TCEMainForm = class(TForm, ICEMultiDocObserver, ICEEditableShortCut, ICEProjectObserver)
     actFileCompAndRun: TAction;
     actFileSaveAll: TAction;
     actFileClose: TAction;
@@ -237,6 +237,13 @@ type
     procedure docFocused(aDoc: TCESynMemo);
     procedure docChanged(aDoc: TCESynMemo);
 
+    // ICEProjectObserver
+    procedure projNew(aProject: ICECommonProject);
+    procedure projChanged(aProject: ICECommonProject);
+    procedure projClosing(aProject: ICECommonProject);
+    procedure projFocused(aProject: ICECommonProject);
+    procedure projCompiling(aProject: ICECommonProject);
+
     // ICEEditableShortcut
     function scedWantFirst: boolean;
     function scedWantNext(out category, identifier: string; out aShortcut: TShortcut): boolean;
@@ -1214,6 +1221,43 @@ begin
 end;
 {$ENDREGION}
 
+{$REGION ICEProjectObserver ----------------------------------------------------}
+procedure TCEMainForm.projNew(aProject: ICECommonProject);
+begin
+ fProjectInterface := aProject;
+ case fProjectInterface.getFormat of
+   pfNative: fNativeProject := TCENativeProject(fProjectInterface.getProject);
+   pfDub: fDubProject := TCEDubProject(fProjectInterface.getProject);
+ end;
+end;
+
+procedure TCEMainForm.projChanged(aProject: ICECommonProject);
+begin
+end;
+
+procedure TCEMainForm.projClosing(aProject: ICECommonProject);
+begin
+  if fProjectInterface <> aProject then
+    exit;
+  fProjectInterface := nil;
+  fDubProject := nil;
+  fNativeProject := nil;
+end;
+
+procedure TCEMainForm.projFocused(aProject: ICECommonProject);
+begin
+ fProjectInterface := aProject;
+ case fProjectInterface.getFormat of
+   pfNative: fNativeProject := TCENativeProject(fProjectInterface.getProject);
+   pfDub: fDubProject := TCEDubProject(fProjectInterface.getProject);
+ end;
+end;
+
+procedure TCEMainForm.projCompiling(aProject: ICECommonProject);
+begin
+end;
+{$ENDREGION}
+
 {$REGION ICEEditableShortCut ---------------------------------------------------}
 function TCEMainForm.scedWantFirst: boolean;
 begin