diff --git a/lib/tools.tcl b/lib/tools.tcl
index a15c9d1..bcece50 100644
--- a/lib/tools.tcl
+++ b/lib/tools.tcl
@@ -124,6 +124,7 @@ proc Tools::GetMenu {m} {
         if {[info exists cmd] == 1 && $cmd ne ""} {
             if {[info exists shortCut] == 1 && $shortCut ne ""} {
                 $m add command -label $toolName -accelerator $shortCut -command [list Tools::Execute "$toolName"]
+                bind . <$shortCut>  [list Tools::Execute "$toolName"]
             } else {
                 $m add command -label $toolName -command [list Tools::Execute "$toolName"]
             }