SmallSense__Navigator.st
changeset 423 60c930c93819
parent 393 405c5a5c1cec
--- a/SmallSense__Navigator.st	Sat Feb 21 08:46:46 2015 +0000
+++ b/SmallSense__Navigator.st	Sat Feb 21 22:54:44 2015 +0000
@@ -92,15 +92,6 @@
     "Created: / 23-01-2015 / 22:21:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-updateMatchingIgnorePattern
-    steps size == 1 ifTrue:[
-        ^ super updateMatchingIgnorePattern 
-    ].
-    self updateMatchingObjectPOs: (self matchingObjectPOsForPattern: nil)
-
-    "Created: / 24-01-2015 / 00:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 updateMextSearchStepVisibility
     "raise an error: this method should be implemented (TODO)"
 
@@ -119,6 +110,18 @@
     "Created: / 23-01-2015 / 22:21:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!Navigator methodsFor:'change & update-background'!
+
+updateMatchingIgnorePattern
+    steps size == 1 ifTrue:[
+        ^ super updateMatchingIgnorePattern 
+    ].
+    self enqueueDelayedUpdateMatchingObjectPOs: (self matchingObjectPOsForPattern: nil)
+
+    "Created: / 24-01-2015 / 00:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-02-2015 / 08:58:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !Navigator methodsFor:'event processing'!
 
 keyPressCursorRightInMatchingObjectsView
@@ -161,10 +164,10 @@
     processor := aNavigatorStep processor.
     update ifTrue:[ 
         self matchPatternHolder value: nil.
-        self updateMatching
     ].
 
     "Created: / 24-01-2015 / 00:24:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-02-2015 / 17:51:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 step