[GExperts-CVS] gexperts/unstable/Src GX_ConfigurationInfo.pas, 1.42, 1.43 GX_Configure.pas, 1.45, 1.46 GX_EditorEnhancements.pas, 1.31, 1.32 GX_IdeEnhance.pas, 1.28, 1.29

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv11345/Src

Modified Files:
	GX_ConfigurationInfo.pas GX_Configure.pas 
	GX_EditorEnhancements.pas GX_IdeEnhance.pas 
Log Message:
Add some logging to help with a CanCreate issue somewhere

Index: GX_Configure.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.pas,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- GX_Configure.pas	19 Jan 2007 02:52:07 -0000	1.45
+++ GX_Configure.pas	26 Feb 2007 06:21:41 -0000	1.46
@@ -408,6 +408,8 @@
 var
   EditorExpert: TEditorExpert;
 begin
+  {$IFOPT D+} SendDebug('TfmConfiguration.lvEditorExpertsChange'); {$ENDIF}
+
   if lvEditorExperts.Selected = nil then
   begin
     btnConfigure.Enabled := False;
@@ -467,6 +469,7 @@
   ListItem: TListItem;
   GxEditorExpertManager: TGxEditorExpertManager;
 begin
+  {$IFOPT D+} SendDebug('TfmConfiguration.LoadEditorExperts'); {$ENDIF}
   lvEditorExperts.Items.Clear;
   if not Assigned(GExpertsInst.EditorExpertManager) then
     Exit;

Index: GX_ConfigurationInfo.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ConfigurationInfo.pas,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- GX_ConfigurationInfo.pas	21 Jan 2006 21:05:58 -0000	1.42
+++ GX_ConfigurationInfo.pas	26 Feb 2007 06:21:41 -0000	1.43
@@ -406,6 +406,7 @@
 
 destructor TConfigInfo.Destroy;
 begin
+  {$IFOPT D+} SendDebug('TConfigInfo.Destroy'); {$ENDIF D+}
   FreeEditorEnhancements;
   FreeIdeEnhancements;
 

Index: GX_IdeEnhance.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeEnhance.pas,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- GX_IdeEnhance.pas	21 Jan 2006 21:05:58 -0000	1.28
+++ GX_IdeEnhance.pas	26 Feb 2007 06:21:41 -0000	1.29
@@ -122,6 +122,7 @@
 
 constructor TIdeEnhancements.Create;
 begin
+  {$IFOPT D+} SendDebug('TIdeEnhancements.Create'); {$ENDIF}
   inherited Create;
 
   if IsStandAlone then
@@ -716,6 +717,7 @@
 
 function IdeEnhancements: TIdeEnhancements;
 begin
+  {$IFOPT D+} SendDebug('Calling IdeEnhancements'); {$ENDIF D+}
   Assert(CanCreate, 'CanCreate not set');
 
   if PrivateIdeEnhancements = nil then
@@ -726,6 +728,7 @@
 
 procedure FreeIdeEnhancements;
 begin
+  {$IFOPT D+} SendDebug('FreeIdeEnhancements'); {$ENDIF D+}
   CanCreate := False;
 
   FreeAndNil(PrivateIdeEnhancements);

Index: GX_EditorEnhancements.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_EditorEnhancements.pas,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- GX_EditorEnhancements.pas	21 Jan 2006 21:05:58 -0000	1.31
+++ GX_EditorEnhancements.pas	26 Feb 2007 06:21:41 -0000	1.32
@@ -473,7 +473,7 @@
 
 function EditorEnhancements: TEditorEnhancements;
 begin
-  Assert(CanCreate);
+  Assert(CanCreate, 'CanCreate must be true in EditorEnhancements');
 
   if PrivateEditorEnhancements = nil then
     PrivateEditorEnhancements := TEditorEnhancements.Create(nil);
@@ -483,12 +483,14 @@
 
 procedure FreeEditorEnhancements;
 begin
+  {$IFOPT D+} SendDebug('FreeEditorEnhancements CanCreate: ' + BooleanText(CanCreate)); {$ENDIF}
   CanCreate := False;
 
   FreeAndNil(PrivateEditorEnhancements);
 end;
 
 initialization
+  CanCreate := True;
 
 finalization
   FreeEditorEnhancements;