#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Thu, 25 Jan 2018 22:42:56 +0100
changeset 4301 14f350f36eea
parent 4300 561289c7eb79
child 4302 774fb3ed0525
#UI_ENHANCEMENT by cg class: SourceCodeManagerUtilities class changed: #goodInitialLogMessageForCheckinClassOfClass: do not treat sending to another receiver than self as a simple variable renaming. It is not!
SourceCodeManagerUtilities.st
--- a/SourceCodeManagerUtilities.st	Thu Jan 25 19:13:26 2018 +0100
+++ b/SourceCodeManagerUtilities.st	Thu Jan 25 22:42:56 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 eXept Software AG
               All Rights Reserved
@@ -709,10 +711,9 @@
      info line, even if the selector was removed afterwards).
      So check the outcome."
 
+    |printSelectors initialLogStream additionalInfoPerChangedSelector changesForThisCheckin changesPerClass|
 
     "/ a helper function
-    |printSelectors initialLogStream additionalInfoPerChangedSelector changesForThisCheckin changesPerClass|
-
     printSelectors := 
         [:what :selectors :more |
             |sel moreInfo|
@@ -854,7 +855,8 @@
                                 unchangedVariables := variableMapping keys select:[:k | (variableMapping at:k) = k].
                                 variableMapping removeAllKeys:unchangedVariables.
 
-                                (variableMapping at:'self' ifAbsent:'self') = 'self' ifTrue:[
+                                (((variableMapping at:'self' ifAbsent:'self') = 'self')
+                                and:[ (variableMapping keyAtEqualValue:'self' ifAbsent:'self') = 'self']) ifTrue:[
                                     ((variableMapping associations count:[:assoc | assoc key ~= assoc value]) == 0) ifTrue:[
                                         selectorsWithCommentOrFormattingChangeOnly add:eachSelector.
                                     ] ifFalse:[