annotate lisp/forms-pass.el @ 6058:662b9cd767fe
(Fx_popup_menu): Allow t as position, meaning use mouse pos.
Allow nil as position, meaning just precompute equiv-key data.
Mouse events have coords in pixel units.
(menu_item_equiv_key): Cached equiv-key data is a sublist.
Most of file rewritten.
(menu_items, menu_items_*): New variables.
(MENU_ITEMS_*): New macros.
(init_menu_items, discard_menu_items, push_menu_pane, push_menu_item)
(finish_menu_items): New functions.
(menu_item_enabled_p): New function.
(keymap_panes, single_keymap_panes): Major rewrite; most args changed.
(list_of_panes, list_of_items): Major rewrite; most args changed.
(Fx_popup_menu): Major rewrite. Now independent of display mechanism.
No more conditionals here.
(set_menu_items, free_menu_items): Functions deleted.
(xmenu_show): Both versions rewritten to work from menu_items
and to do all the conditionalized things that were in Fx_popup_menu.
(unread_menu_bar_button, other_menu_bar_item_p): New functions.
(check_mouse_other_menu_bar): New function.
author |
Richard M. Stallman <rms@gnu.org> |
date |
Thu, 24 Feb 1994 08:07:16 +0000 |
parents |
785babb5bb6f |
children |
84acc3adcd63 |
rev |
line source |
306
|
1 ;; demo for forms-mode -*-emacs-lisp-*-
|
275
|
2 ;;
|
306
|
3 ;; This demo visits your passwd file.
|
275
|
4
|
306
|
5 ;; use yp if present
|
|
6 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
|
|
7 (setq forms-file "/etc/passwd"))
|
|
8
|
275
|
9 (setq forms-read-only t) ; to make sure
|
|
10 (setq forms-field-sep ":")
|
|
11 (setq forms-number-of-fields 7)
|
306
|
12
|
275
|
13 (setq forms-format-list
|
306
|
14 (list
|
|
15 "====== Visiting " forms-file " ======\n\n"
|
275
|
16 "User : " 1
|
|
17 " Uid: " 3
|
|
18 " Gid: " 4
|
|
19 "\n\n"
|
|
20 "Name : " 5
|
|
21 "\n\n"
|
|
22 "Home : " 6
|
|
23 "\n\n"
|
|
24 "Shell: " 7
|
|
25 "\n"))
|