--- a/DictionaryInspectorView.st	Wed Mar 12 17:50:33 2008 +0100
+++ b/DictionaryInspectorView.st	Fri Mar 14 11:22:40 2008 +0100
@@ -44,6 +44,25 @@
 "
 ! !
 
+!DictionaryInspectorView methodsFor:'event handling'!
+
+keyPress:key x:x y:y
+    "handle special keys"
+
+    <resource: #keyboard (#Delete #BackSpace)>
+
+    (key == #Delete or:[key == #BackSpace]) ifTrue:[
+        self doRemoveKey.
+        ^ self.
+    ].
+    (key == #Insert) ifTrue:[
+        self doAddKey.
+        ^ self.
+    ].
+
+    super keyPress:key x:x y:y
+! !
+
 !DictionaryInspectorView methodsFor:'menu'!
 
 fieldMenu
@@ -514,5 +533,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.62 2008-01-27 16:04:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.63 2008-03-14 10:22:40 stefan Exp $'
 ! !