Fix in CodeView2 - propagate change in codeAspect to services... jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 15 Apr 2013 23:50:25 +0200
branchjv
changeset 12678 d6e678a09423
parent 12677 4b57f777e2e6
child 12679 7dffb3cbf7c4
Fix in CodeView2 - propagate change in codeAspect to services... ...to give them a chance to react (rehighlight, for instance)
Tools__BackgroundSourceProcessingService.st
Tools__CodeView2.st
--- a/Tools__BackgroundSourceProcessingService.st	Mon Apr 15 14:33:41 2013 +0200
+++ b/Tools__BackgroundSourceProcessingService.st	Mon Apr 15 23:50:25 2013 +0200
@@ -112,12 +112,20 @@
     ].
     codeView notNil ifTrue:[
         sender == codeView languageHolder ifTrue:[
-            ^ self sourceChanged:true
+            self sourceChanged:true.
+            ^self
         ].
         sender == codeView classHolder ifTrue:[
-            ^ self sourceChanged:true
+            self sourceChanged:true.
+            ^self
         ].
     ].
+
+    aspect == #codeAspect ifTrue:[
+        self sourceChanged:true.
+        ^self
+    ].
+
     super 
         update:aspect
         with:param
@@ -126,7 +134,7 @@
     "Created: / 06-03-2010 / 19:38:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 13-09-2011 / 12:00:29 / cg"
     "Modified: / 22-02-2012 / 15:02:16 / jv"
-    "Modified: / 17-03-2012 / 16:06:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-04-2013 / 23:00:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BackgroundSourceProcessingService methodsFor:'event handling'!
--- 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