[GExperts-CVS] gexperts/unstable/Src GX_GExperts.pas,1.53,1.54 GX_PackageSource.pas,1.3,1.4

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

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

Modified Files:
	GX_GExperts.pas GX_PackageSource.pas 
Log Message:
Debug message logging tweaks

Index: GX_PackageSource.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_PackageSource.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- GX_PackageSource.pas	22 Feb 2004 04:25:21 -0000	1.3
+++ GX_PackageSource.pas	12 May 2006 17:41:20 -0000	1.4
@@ -10,17 +10,20 @@
 implementation
 
 uses
+  {$IFOPT D+} GX_DbugIntf, {$ENDIF}
   ToolsAPI,
   GX_GExperts;
 
 // Under Delphi 8+ we need to delay register with the IDE so the OTA is ready
 procedure IDERegister;
 begin
+  {$IFOPT D+} SendDebug('GX_PackageSource.IDERegister'); {$ENDIF}
   TGExperts.DelayedRegister;
 end;
 
 procedure Register;
 begin
+  {$IFOPT D+} SendDebug('GX_PackageSource.Register'); {$ENDIF}
   RegisterPackageWizard(TGExperts.Create as IOTAWizard);
 end;
 

Index: GX_GExperts.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_GExperts.pas,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- GX_GExperts.pas	11 Nov 2005 02:07:24 -0000	1.53
+++ GX_GExperts.pas	12 May 2006 17:41:20 -0000	1.54
@@ -116,6 +116,7 @@
 
 constructor TGExperts.Create;
 begin
+  {$IFOPT D+} SendDebug('TGExperts.Create'); {$ENDIF}
   inherited Create;
   FStartingUp := True;
   InitializeGExperts;
@@ -124,6 +125,7 @@
 
 class procedure TGExperts.DelayedRegister;
 begin
+  {$IFOPT D+} SendDebug('TGExperts.DelayedRegister'); {$ENDIF}
   TInitHelper.Create(DoInitialize); // One time leak
 end;
 
@@ -134,10 +136,10 @@
   FExpertList := TList.Create;
 
   GExpertsInst := Self;
+  InitSharedResources;
+
   // Create the action manager.
   {$IFOPT D+} SendDebug('Creating GXActionManager'); {$ENDIF}
-
-  InitSharedResources;
   CreateGXMenuActionManager;
   try
     {$IFOPT D+} SendDebug('Installing AddIn'); {$ENDIF}
@@ -323,6 +325,7 @@
 
 class procedure TGExperts.DoInitialize(Sender: TObject);
 begin
+  {$IFOPT D+} SendDebug('TGExperts.DoInitialize'); {$ENDIF}
   (BorlandIDEServices as IOTAWizardServices).AddWizard(TGExperts.Create as IOTAWizard);
 end;