Tools__BackgroundSourceProcessingService.st
branchjv
changeset 12172 047fafb1c37f
parent 12128 a7ff7d66ee85
child 12194 4639848e5517
--- a/Tools__BackgroundSourceProcessingService.st	Wed Feb 22 13:18:20 2012 +0000
+++ b/Tools__BackgroundSourceProcessingService.st	Wed Feb 22 17:35:52 2012 +0000
@@ -92,10 +92,14 @@
     textView notNil ifTrue:[
         "/sender == textView modifiedChannel ifTrue:[^self codeChanged: false].
         sender == textView model ifTrue:[
-            ^ self sourceChanged:true
+            sender value ~= textView contents ifTrue:[
+                self sourceChanged:true.
+                ^self.
+            ].
         ].
         (sender == textView and:[aspect == #sizeOfContents]) ifTrue:[
-            ^ self sourceChanged:true
+            self sourceChanged:true.
+            ^self.
         ].
     ].
     codeView notNil ifTrue:[
@@ -114,6 +118,7 @@
     "Created: / 06-03-2010 / 19:38:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 13-09-2011 / 12:00:29 / cg"
     "Modified: / 16-09-2011 / 17:30:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-02-2012 / 15:02:16 / jv"
 ! !
 
 !BackgroundSourceProcessingService methodsFor:'event handling'!
@@ -212,7 +217,7 @@
 !BackgroundSourceProcessingService class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__BackgroundSourceProcessingService.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: Tools__BackgroundSourceProcessingService.st 7913 2012-02-22 17:35:52Z vranyj1 $'
 !
 
 version_CVS
@@ -220,5 +225,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__BackgroundSourceProcessingService.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: Tools__BackgroundSourceProcessingService.st 7913 2012-02-22 17:35:52Z vranyj1 $'
 ! !