🚀 go-pugleaf

(load-library "pull_down_menus")

(setq attr1 (define-attribute nil CYAN BLACK))
(setq attr2 (define-attribute nil YELLOW BLACK))
(setq attr3 (define-attribute nil BLACK WHITE))
(define-highlighted-button-attribute attr3)

(setq menu1 (define-menu "Menu 1" "menu1" nil nil 410 100))
(setq menu2 (define-menu "Menu 2" "menu2"))
(setq menu3 (define-menu "Menu 3" "menu3"))
(setq menu4 (define-menu "Menu 4" "menu4"))

(defun startup ()
  (interactive)
    (define-menu-button menu1 "Next Menu Left" attr1 'display_menu2)
    (define-menu-button menu1 "Next Menu Right" attr1 'display_menu3)
    (define-menu-button menu1 "Next Menu Center" attr1 'display_menu4)
    (define-menu-button menu2 "Pick 1" attr2 'beep_message)
    (define-menu-button menu2 "Pick 2" attr2 'beep_message)
    (define-menu-button menu2 "Pick 3" attr2 'beep_message)
    (define-menu-button menu2 "Pick 4" attr2 'beep_message)
    (define-menu-button menu2 "Pick 5" attr2 'beep_message)
    (define-menu-button menu2 "Pick 6" attr2 'beep_message)
    (define-menu-button menu3 "Do 1" attr3 'beep_message)
    (define-menu-button menu3 "Do 2" attr3 'beep_message)
    (define-menu-button menu3 "Do 3" attr3 'beep_message)
    (define-menu-button menu3 "Do 4" attr3 'beep_message)
    (define-menu-button menu4 "Selection 1" attr3 'beep_message)
    (define-menu-button menu4 "Selection 2" attr3 'beep_message)
    (define-menu-button menu4 "Selection 3" attr3 'beep_message)
    (define-menu-button menu4 "Selection 4" attr3 'beep_message)
    (define-menu-button menu4 "Selection 5" attr3 'beep_message)
    (resize-menu-to-text menu1)
    (resize-menu-to-text menu2)
    (resize-menu-to-text menu3)
    (resize-menu-to-text menu4)
    (resize-buttons-to-column menu1)
    (resize-buttons-to-column menu2)
    (resize-buttons-to-column menu3)
    (resize-buttons-to-column menu4)
    (display_menu1))

(defun beep_message (&optional a b c)
  (interactive)
  (message "executing callback: button:\"%s\"   point:%s    buf:\"%s\"" 
                          (button-text (button-at (car a) (nth 1 a)))
			  (car a)
			  (buffer-name (nth 1 a)))
  (setq current-visible-pull-down menu1))

(defun display_menu1 (&optional a b c)
  (interactive)
  (display-pull-down-menu menu1))

(defun display_menu2 (&optional a b c)
  (interactive)
  (move-screen-left-justify menu2 (car a) (nth 3 a))
  (display-pull-down-menu menu2))

(defun display_menu3 (&optional a b c)
  (interactive)
  (move-screen-right-justify menu3 (car a) (nth 3 a))
  (display-pull-down-menu menu3))

(defun display_menu4 (&optional a b c)
  (interactive)
  (move-screen-center-justify menu4 (car a) (nth 3 a))
  (display-pull-down-menu menu4))