--- a/Tools__ChangeSetBrowser2.st Wed Nov 13 21:29:44 2013 +0000
+++ b/Tools__ChangeSetBrowser2.st Thu Nov 14 15:42:14 2013 +0000
@@ -2493,9 +2493,17 @@
ifTrue:[SyntaxHighlighter codeAspectClassDefinition]
ifFalse:[SyntaxHighlighter codeAspectExpression])]).
self classHolder value: change changeClass.
- changeSourceHolder setValue: change changeSource"; changed: #value".
srcImage := change imageSource.
srcChange := change changeSource.
+ "/ Hack to make sure code is displayed in similar way
+ "/ (i.e., with no namespace pragma)
+ (change isClassDefinitionChange and:[change isPrivateClassDefinitionChange]) ifTrue:[
+ srcChange := change definitionStringInNamespace: nil.
+ ].
+ srcImage := srcImage trimSeparators.
+ srcChange := srcChange trimSeparators.
+
+ changeSourceHolder setValue: srcChange"; changed: #value".
srcImage = srcChange ifTrue:[
imageSourceHolder setValue: nil"; changed: #value".
] ifFalse:[
@@ -2531,6 +2539,7 @@
"Created: / 24-10-2009 / 19:49:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 27-07-2012 / 23:42:46 / cg"
+ "Modified: / 14-11-2013 / 15:01:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
showingRegularChangesetChanged