--- a/SmallSense__AbstractListDialog.st Wed May 27 16:00:07 2015 +0100
+++ b/SmallSense__AbstractListDialog.st Mon Jun 15 17:41:42 2015 +0100
@@ -701,15 +701,21 @@
handlesKeyPress: key inView: view
view == matchingObjectsView ifTrue:[
- ^ key == #CursorLeft or:[ key == #CursorRight ]
+ ^ key == #CursorLeft
+ or:[ key == #CursorRight
+ or:[ key == #BackSpace ]]
].
^ false
"Created: / 23-01-2015 / 22:35:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 15-06-2015 / 17:37:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
keyPress: key x:x y:y view: view
view == matchingObjectsView ifTrue:[
+ (key == #BackSpace) ifTrue:[
+ ^ self keyPressBackSpaceInMatchingObjectsView.
+ ].
key == #CursorRight ifTrue:[
^ self keyPressCursorRightInMatchingObjectsView.
].
@@ -720,6 +726,15 @@
^ false
"Created: / 23-01-2015 / 22:36:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 15-06-2015 / 17:37:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+keyPressBackSpaceInMatchingObjectsView
+ matchingObjectsView windowGroup focusView:matchPatternView byTab:true.
+ matchPatternView keyPress: #BackSpace x: 0 y: 0.
+ ^ true
+
+ "Created: / 15-06-2015 / 17:37:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
keyPressCursorDownInPatternView