VersionDiffBrowser.st
changeset 17414 809f41b5b48c
parent 17397 f27bb9b31f71
child 17463 c6696d10d802
--- a/VersionDiffBrowser.st	Thu Feb 16 00:18:56 2017 +0100
+++ b/VersionDiffBrowser.st	Thu Feb 16 11:12:28 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -2335,9 +2337,11 @@
             changeB := entry second.
             changeA isMethodChange ifTrue:[
                 changeA isMethodCodeChange ifTrue:[
-                    mthdA := RBMethod forMethodChange:changeA.
-                    mthdB := RBMethod forMethodChange:changeB.
-                    commentOnly := (RBCodeDuplicationRule hasMethod:mthdA sameSemanticAs:mthdB)
+                    RBCodeDuplicationRule notNil ifTrue:[
+                        mthdA := RBMethod forMethodChange:changeA.
+                        mthdB := RBMethod forMethodChange:changeB.
+                        commentOnly := RBCodeDuplicationRule hasMethod:mthdA sameSemanticAs:mthdB.
+                    ].
                 ] ifFalse:[
                     changeA isMethodCategoryChange ifTrue:[
                         commentOnly := true
@@ -2406,6 +2410,7 @@
     self information:info
 
     "Modified (comment): / 06-02-2017 / 10:09:11 / cg"
+    "Modified (format): / 16-02-2017 / 11:11:49 / stefan"
 !
 
 updateVersionList
@@ -3153,7 +3158,7 @@
             ].
         ].
         changeClassName notEmptyOrNil ifTrue:[
-            selectorString := ' » ',selectorString
+            selectorString := ' » ',selectorString
         ]
     ].