--- a/Tools__NewSystemBrowserCodeView.st	Tue Jan 22 12:24:41 2013 +0000
+++ b/Tools__NewSystemBrowserCodeView.st	Wed Jan 30 11:15:09 2013 +0000
@@ -37,6 +37,7 @@
 "
 ! !
 
+
 !NewSystemBrowserCodeView class methodsFor:'initialization'!
 
 initialize
@@ -58,6 +59,7 @@
     "Modified (comment): / 01-07-2011 / 16:21:38 / cg"
 ! !
 
+
 !NewSystemBrowserCodeView class methodsFor:'menu specs'!
 
 editMenuSpec
@@ -192,6 +194,7 @@
     "Modified: / 18-10-2008 / 18:50:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'accessing'!
 
 browser
@@ -289,6 +292,7 @@
     "Modified: / 04-08-2011 / 19:05:43 / cg"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'accessing-contents'!
 
 list: anObject
@@ -299,6 +303,7 @@
     "Created: / 25-12-2007 / 10:05:17 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'change & update'!
 
 updateParseTree
@@ -310,6 +315,7 @@
     "Modified: / 25-12-2007 / 21:29:28 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'event handling'!
 
 buttonMotion:button x:x y:y 
@@ -359,6 +365,10 @@
 !
 
 keyPress:key x:x y:y 
+    <resource: #keyboard (#Control_L 
+                          #Tab #Return #BackSpace #Delete
+                          #GoBack)>
+
     (x notNil and:[ y notNil ]) ifTrue:[
         key = #'Control_L' ifTrue:[
             self
@@ -368,7 +378,7 @@
          "key = #Alt_L ifTrue: [self highlightParseTreeNodeAtX: x y: y; redraw]"
     ].
 
-    (#( #Tab #Return #BackSpace ) includes:key) ifTrue:[
+    (#( #Tab #Return #BackSpace #Delete) includes:key) ifTrue:[
         self startParsingProcess
     ].
 
@@ -399,6 +409,7 @@
     "Modified: / 19-02-2008 / 09:16:11 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'menu'!
 
 browseClassesMenu: classes 
@@ -542,6 +553,7 @@
     "Modified: / 09-09-2012 / 13:24:19 / cg"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'menu - actions'!
 
 accept
@@ -656,6 +668,7 @@
     "Modified: / 19-02-2008 / 09:59:11 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'menu - double dispatch'!
 
 blueButtonMenuForMessageNode:messageNode 
@@ -737,6 +750,7 @@
     "Modified: / 18-02-2008 / 21:05:56 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'private'!
 
 implementorsOf: selector
@@ -760,6 +774,7 @@
     "Created: / 26-12-2007 / 11:37:22 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'private - highlighting'!
 
 highlightClear
@@ -898,6 +913,7 @@
     "Modified: / 01-09-2009 / 22:29:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'private - highlighting - nodes'!
 
 highlightLiteralNode: node
@@ -925,6 +941,7 @@
     "Modified: / 18-02-2008 / 20:51:51 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'private - parsing'!
 
 parseTree
@@ -1001,6 +1018,7 @@
     "Created: / 25-12-2007 / 21:16:03 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView methodsFor:'private - testing'!
 
 isInstanceVariableNode: node
@@ -1022,14 +1040,16 @@
     "Created: / 21-02-2008 / 09:32:33 / janfrog"
 ! !
 
+
 !NewSystemBrowserCodeView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.11 2012/09/09 19:17:44 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.12 2013-01-17 10:35:08 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowserCodeView.st 8054 2012-09-13 09:15:20Z vranyj1 $'
+    ^ '§Id: Tools__NewSystemBrowserCodeView.st 7486 2009-10-26 22:06:24Z vranyj1 §'
 ! !
 
-NewSystemBrowserCodeView initialize!
\ No newline at end of file
+
+NewSystemBrowserCodeView initialize!