🚀 go-pugleaf

(load "pop_up_menus")

(setq attr1 (define-attribute nil CYAN BLACK))
(setq attr2 (define-attribute nil YELLOW BLACK))
(setq attr3 (define-attribute nil GREEN BLACK))
(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)
    (mapraised-screen menu1))

(defun beep_message (&optional a b c)
  (interactive)
  (message "executing callback: button:\"%s\"   point:%s    buf:\"%s\"" 
                          (button-text (button-at (car a)))
			  (car a)
			  (buffer-name (nth 1 a)))
  (epoch::unmap-screen (nth 3 a)))


(defun display_menu2 (&optional a b c)
  (interactive)
  (move-screen-left-justify menu2 (car a) (nth 3 a))
  (mapraised-screen menu2))

(defun display_menu3 (&optional a b c)
  (interactive)
  (move-screen-right-justify menu3 (car a) (nth 3 a))
  (mapraised-screen menu3))

(defun display_menu4 (&optional a b c)
  (interactive)
  (move-screen-center-justify menu4 (car a) (nth 3 a))
  (mapraised-screen menu4))