From: Erik B. <eb...@us...> - 2007-02-26 06:21:45
|
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; |