#REFACTORING by exept
class: ChangesBrowser
changed:
#currentSourceForParseTree:
#updateDiffViewFor:
--- 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 *'.