--- a/FileBrowser.st	Sun Apr 22 17:26:36 2001 +0200
+++ b/FileBrowser.st	Sun Apr 22 17:33:59 2001 +0200
@@ -590,6 +590,7 @@
             #label: 'Tools'
             #translateLabel: true
             #submenuChannel: #toolsMenuSpec
+            #shortcutKeyCharacter: #Ctrl
           )
          #(#MenuItem
             #label: '-'
@@ -2509,7 +2510,11 @@
 
     |m|
 
-    m := self class menuPopUp.
+    self sensor ctrlDown ifTrue:[
+        m := self class toolsMenuSpec.
+    ] ifFalse:[
+        m := self class menuPopUp.
+    ].
     m := m decodeAsLiteralArray.
     m receiver:self.
     m findGuiResourcesIn:self.
@@ -7264,5 +7269,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.399 2001-04-22 15:26:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.400 2001-04-22 15:33:59 cg Exp $'
 ! !