Mercurial > hg > xemacs-beta

comparison src/gui.h @ 251:677f6a0ee643 r20-5b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 557eaa0339bf
children b2472a1930f2
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
28 #define _XEMACS_GUI_H_ 28 #define _XEMACS_GUI_H_
29 29
30 #ifdef HAVE_POPUPS 30 #ifdef HAVE_POPUPS
31 int separator_string_p (CONST char *s); 31 int separator_string_p (CONST char *s);
32 extern int popup_up_p; 32 extern int popup_up_p;
33
34 /* This structure describes gui button,
35 menu item or submenu properties */
36 struct gui_item
37 {
38 Lisp_Object name; /* String */
39 Lisp_Object callback; /* Symbol or form */
40 Lisp_Object suffix; /* String */
41 Lisp_Object active; /* Form */
42 Lisp_Object included; /* Form */
43 Lisp_Object config; /* Anything EQable */
44 Lisp_Object filter; /* Form */
45 Lisp_Object style; /* Symbol */
46 Lisp_Object selected; /* Form */
47 Lisp_Object keys; /* String */
48 };
49 #define GUI_ITEM_LAST_GCPROED keys
50 #define GUI_ITEM_GCPRO_COUNT \
51 (slot_offset(struct gui_item, GUI_ITEM_LAST_GCPROED) / sizeof(Lisp_Object) + 1)
52
53 void gui_item_init (struct gui_item *pgui_item);
54 void gui_item_add_keyval_pair (struct gui_item *pgui_item,
55 Lisp_Object key, Lisp_Object val);
56 void gui_parse_item_keywords (Lisp_Object item, struct gui_item *pgui_item);
57 int gui_item_active_p (CONST struct gui_item *pgui_item);
58 int gui_item_included_p (CONST struct gui_item *pgui_item, Lisp_Object into);
59 unsigned int gui_item_display_flush_left (CONST struct gui_item *pgui_item,
60 char* buf, unsigned int buf_len);
61 unsigned int gui_item_display_flush_right (CONST struct gui_item *pgui_item,
62 char* buf, unsigned int buf_len);
63
33 #endif /* HAVE_POPUPS */ 64 #endif /* HAVE_POPUPS */
34 65
35 #endif /* _XEMACS_GUI_H_ */ 66 #endif /* _XEMACS_GUI_H_ */