SmallSense__AbstractListDialog.st
changeset 869 a5976f58988b
parent 423 60c930c93819
child 871 c30699d9e366
--- 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