#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Wed, 28 Aug 2019 10:32:28 +0200
changeset 19039 d3de7d7d4177
parent 19038 404b434122af
child 19040 fd8d51dcf906
#REFACTORING by exept class: ChangesBrowser changed: #currentSourceForParseTree: #updateDiffViewFor:
ChangesBrowser.st
--- a/ChangesBrowser.st	Wed Aug 28 10:27:26 2019 +0200
+++ b/ChangesBrowser.st	Wed Aug 28 10:32:28 2019 +0200
@@ -3648,7 +3648,7 @@
                     ^ (thisClass compiledMethodAt:selector) source.
                 ]
             ] ifFalse:[
-                ^ 'Cannot compare this change\\(compare requires class to be loaded).' withCRs.
+                ^ c'Cannot compare this change\n\n(compare requires class to be loaded).'.
             ]
         ] ifFalse:[
             ^ 'Cannot compare this change (class not present)'.
@@ -3660,7 +3660,7 @@
             thisClass isLoaded ifTrue:[
                 ^ thisClass name , ' comment: ' , thisClass comment storeString.
             ] ifFalse:[
-                ^ 'Cannot compare this change\\(compare requires class to be loaded).' withCRs.
+                ^ c'Cannot compare this change\n\n(compare requires class to be loaded).'.
             ]
         ] ifFalse:[
             ^ 'Cannot compare this change (class not present)'.
@@ -3712,7 +3712,7 @@
 "/                                varsInChange := (parseTree arguments at:1) evaluate asCollectionOfWords.
                         ^ thisClass definition.
                     ] ifFalse:[
-                        ^ 'Cannot compare this change\\(compare requires class to be loaded).' withCRs.
+                        ^ c'Cannot compare this change\n\n(compare requires class to be loaded).'.
                     ].
                 ] ifFalse:[
                     ^ 'Cannot compare this change (class not present)'.
@@ -3759,7 +3759,7 @@
                 ownerClass := nil.
             ].
             ownerClass isNil ifTrue:[
-                ^ 'Cannot compare this change\\(owning class is not loaded).' withCRs.
+                ^ c'Cannot compare this change\n\n(owning class is not loaded).'.
             ].
             thisClass := ownerClass privateClassesAt:thisClassSym.
         ] ifFalse:[
@@ -3767,7 +3767,7 @@
         ].
         thisClass notNil ifTrue:[
             thisClass isLoaded ifFalse:[
-                ^ 'Cannot compare this change\\(compare requires class to be loaded).' withCRs.
+                ^ c'Cannot compare this change\n\n(compare requires class to be loaded).'.
             ] ifTrue:[
                 ^ thisClass definition.
             ]
@@ -6116,7 +6116,7 @@
                     (thisClass isLoaded
                     or:[ autoloadAsRequired value
                          and:[self checkClassIsLoaded:thisClass]]) ifFalse:[
-                        oldSource := 'Cannot compare this change\\(compare requires class to be loaded).' withCRs.
+                        oldSource := c'Cannot compare this change\n\n(compare requires class to be loaded).'.
                     ] ifTrue:[
                         selector numArgs == 0 ifTrue:[
                             cat := '* as yet uncategorized *'.