Tools__NewSystemBrowser.st
changeset 17554 2bb8fdc7a1d6
parent 17549 bd9111073fe2
child 17561 48cf5be933a0
--- a/Tools__NewSystemBrowser.st	Thu Jun 22 11:30:59 2017 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jun 22 11:31:29 2017 +0200
@@ -59874,13 +59874,21 @@
     "/ ok, it is redefined
     methodThere := implClass compiledMethodAt:sel.
     
+    "/ these are allowed to be empty and only contain different comments...
+    (aClass isMeta 
+        and:[methodHere category = 'documentation'
+        and:[methodThere category = 'documentation'
+    ]]) ifTrue:[    
+        ^ nil
+    ].    
+
     (RBCodeDuplicationRule isMethod:methodHere duplicateOfInherited:methodThere) ifTrue:[
         ^ 'This method''s functionality is already inherited from ', implClass name , '.\\You may want to remove it here.'.
     ].
     
     ^ nil
 
-    "Modified (comment): / 06-02-2017 / 15:14:21 / cg"
+    "Modified: / 22-06-2017 / 08:15:27 / cg"
 !
 
 checkIfSuperSendIsProbablyMissingIn:methodHere inClass:aClass