--- a/Workspace.st	Sun Jan 27 17:06:44 2008 +0100
+++ b/Workspace.st	Sun Jan 27 17:08:26 2008 +0100
@@ -942,13 +942,14 @@
 !Workspace methodsFor:'events'!
 
 keyPress:key x:x y:y
-    <resource: #keyboard (#DoIt #InspectIt #PrintIt #BrowseIt)>
+    <resource: #keyboard (#DoIt #InspectIt #PrintIt #ReplaceIt #BrowseIt)>
 
     (key == #DoIt)      ifTrue:[^ self doIt].
     (key == #InspectIt) ifTrue:[^ self inspectIt].
     (key == #PrintIt)   ifTrue:[^ self printIt].
     (key == #ReplaceIt) ifTrue:[^ self replaceIt].
     (key == #BrowseIt)  ifTrue:[^ self browseIt].
+    (key == #ImplementorsOfIt)  ifTrue:[^ self browseImplementorsOfIt].
 
     super keyPress:key x:x y:y
 
@@ -1452,5 +1453,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.174 2008-01-24 13:50:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.175 2008-01-27 16:08:26 cg Exp $'
 ! !