Tools__ChangeSetBrowser2.st
branchjv
changeset 13676 b14ed2a36bae
parent 13675 36933883999a
child 13743 d789bfa8a626
--- 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