--- 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'!