[GExperts-CVS] gexperts/unstable/Src GX_EditorChangeServices.pas, 1.47, 1.48

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

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

Modified Files:
	GX_EditorChangeServices.pas 
Log Message:
Ensure RemoveSelfNotifier actually does something if TGxModuleNotifier.Destroy is called early

Index: GX_EditorChangeServices.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_EditorChangeServices.pas,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- GX_EditorChangeServices.pas	17 Apr 2006 06:13:41 -0000	1.47
+++ GX_EditorChangeServices.pas	26 Feb 2007 05:43:05 -0000	1.48
@@ -706,8 +706,6 @@
 
   FreeAndNil(FInstalledEditorNotifiers);
 
-  FSelfNotifierIndex := InvalidNotifierIndex;
-
   RemoveSelfNotifier;
   NoRefCount(FAssociatedModule) := nil;
   RemoveSelfFromClient;
@@ -816,11 +814,10 @@
 
 procedure TGxModuleNotifier.RemoveSelfNotifier;
 begin
-  if not Assigned(FAssociatedModule) then
-    Exit;
   if FSelfNotifierIndex <> InvalidNotifierIndex then
   begin
-    FAssociatedModule.RemoveNotifier(FSelfNotifierIndex);
+    if Assigned(FAssociatedModule) then
+      FAssociatedModule.RemoveNotifier(FSelfNotifierIndex);
     FSelfNotifierIndex := InvalidNotifierIndex;
   end;
 end;