#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Sun, 03 Mar 2019 14:32:56 +0100
changeset 4407 a3e38707ad0a
parent 4406 f8d24e4cb466
child 4408 c80555d631e2
#BUGFIX by cg class: HistoryManager changed: #updateAfterMethodChange:from:in:
HistoryManager.st
--- a/HistoryManager.st	Sat Mar 02 14:21:46 2019 +0100
+++ b/HistoryManager.st	Sun Mar 03 14:32:56 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by AEG Industry Automation
  COPYRIGHT (c) 1995 by Claus Gittinger
@@ -561,11 +563,11 @@
      whatChange pos|
 
     changedClass theMetaclass compilerClass == Compiler ifFalse:[^ self].
-    (oldMethod notNil and:[oldMethod compilerClass ~~ Compiler]) ifTrue:[^ self].
-
-    "/ ok; it is a changed method
-    (changedClass isMeta and:[oldMethod category = 'documentation']) ifTrue:[^ self]. 
-
+    oldMethod notNil ifTrue:[
+        (oldMethod compilerClass ~~ Compiler) ifTrue:[^ self].
+        (changedClass isMeta and:[oldMethod category = 'documentation']) ifTrue:[^ self]. 
+    ].
+    
     "/
     "/ fetch sourceString of the method
     "/
@@ -669,7 +671,7 @@
 
     "Created: / 30-06-2011 / 16:51:19 / cg"
     "Modified: / 02-10-2012 / 13:22:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 02-03-2019 / 14:16:04 / Claus Gittinger"
+    "Modified: / 03-03-2019 / 14:32:40 / Claus Gittinger"
 ! !
 
 !HistoryManager methodsFor:'initialization'!