 
 (def options-menu (menu
                     :text "Options"
+                    :mnemonic "O"
                     :items [(action :name "Select Font")
                             (action :name "Settings")
                             (action :name "Include Path")]))
 
 (def help-menu (menu
                  :text "Help"
-                 :items [(action :name "Help Contents")
+                 :mnemonic "H"
+                 :items [(action 
+                           :name "Help Contents"
+                           :mnemonic "H"
+                           :key "F1")
                          (separator)
                          (action :name "About")]))
 


(def tasks-menu (menu
                  :text "Tasks"
                  :items [(action :name "Check SAT")
                          (action :name "Truth Table")
                          (action :name "Transform to CNF")

                            (action 
                              :name "Save" 
                              :key "ctrl S" 
                              :mnemonic "S"
                              :icon (icon-path "save.gif")
                              :handler (fn [_] (println "Saving")))
                            (action 
                              :name "Save All"
                              :key "ctrl shift S"
                              :mnemonic "A"
                              :icon (icon-path "saveall.gif")
                              :handler (fn [_] (println "Saving All"))
                              )
