CSLMode.el revision f14bf11310b51516794b2ad792907c45ebeb73d7
;; Creating a new menu pane in the menu bar to the right of "Tools" menu
;; A keymap is suitable for menu use if it has an overall prompt string, which describes the purpose of the menu.
;; essentially: define-key map fake-key '(item command), where fake-key is of the form [menu-bar mymenu nl] and defines key nl in mymenu which must exist
'tools)
(define-key global-map [menu-bar enclmenu match abstractflange] '("Abstract Flange" . match-abstractflange))
(defun match-abstractflange ()
)
(defun match-abstractflange2 ()
(define-key global-map [menu-bar enclmenu match others a] '((concatenate 'string "Menu " myvarMenu) . nil))
)