pop_up_demo.el

Thread View: gnu.epoch.misc

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by kinstrey Fri, 19 Apr 1991 20:05

#2085

Author: kinstrey
Date: Fri, 19 Apr 1991 20:05

63 lines
3173 bytes

(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))

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads