--- 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