Tools__CodeView2.st
branchjv
changeset 12678 d6e678a09423
parent 12431 9f0c59c742d5
child 12807 ba8c5416aa28
--- a/Tools__CodeView2.st	Mon Apr 15 14:33:41 2013 +0200
+++ b/Tools__CodeView2.st	Mon Apr 15 23:50:25 2013 +0200
@@ -537,10 +537,13 @@
                     SyntaxHighlighter codeAspectExpression .
                     SyntaxHighlighter codeAspectMethod } includes:aSymbol ).
 
-    codeAspect := aSymbol.
+    codeAspect ~~ aSymbol ifTrue:[
+        codeAspect := aSymbol.
+        self update: #codeAspect with: codeAspect from: self.
+    ]
 
     "Modified: / 27-07-2012 / 22:32:19 / cg"
-    "Modified: / 22-10-2012 / 17:03:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-04-2013 / 23:02:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 compilerClass