Mercurial > hg > xemacs-beta

comparison src/gui.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents 1e7cc382eb16
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
195 } 195 }
196 196
197 Lisp_Object 197 Lisp_Object
198 allocate_gui_item (void) 198 allocate_gui_item (void)
199 { 199 {
200 Lisp_Gui_Item *lp = ALLOC_LCRECORD_TYPE (Lisp_Gui_Item, &lrecord_gui_item); 200 Lisp_Object obj = ALLOC_LISP_OBJECT (gui_item);
201 Lisp_Object val; 201
202 202 gui_item_init (obj);
203 val = wrap_gui_item (lp); 203 return obj;
204
205 gui_item_init (val);
206
207 return val;
208 } 204 }
209 205
210 /* 206 /*
211 * ITEM is a lisp vector, describing a menu item or a button. The 207 * ITEM is a lisp vector, describing a menu item or a button. The
212 * function extracts the description of the item into the PGUI_ITEM 208 * function extracts the description of the item into the PGUI_ITEM
807 static void 803 static void
808 finalize_gui_item (void *UNUSED (header), int UNUSED (for_disksave)) 804 finalize_gui_item (void *UNUSED (header), int UNUSED (for_disksave))
809 { 805 {
810 } 806 }
811 807
812 DEFINE_LRECORD_IMPLEMENTATION ("gui-item", gui_item, 808 DEFINE_NONDUMPABLE_LISP_OBJECT ("gui-item", gui_item,
813 0, /*dumpable-flag*/ 809 mark_gui_item, print_gui_item,
814 mark_gui_item, print_gui_item, 810 finalize_gui_item, gui_item_equal,
815 finalize_gui_item, gui_item_equal, 811 gui_item_hash,
816 gui_item_hash, 812 gui_item_description,
817 gui_item_description, 813 Lisp_Gui_Item);
818 Lisp_Gui_Item);
819 814
820 DOESNT_RETURN 815 DOESNT_RETURN
821 gui_error (const Ascbyte *reason, Lisp_Object frob) 816 gui_error (const Ascbyte *reason, Lisp_Object frob)
822 { 817 {
823 signal_error (Qgui_error, reason, frob); 818 signal_error (Qgui_error, reason, frob);
830 } 825 }
831 826
832 void 827 void
833 syms_of_gui (void) 828 syms_of_gui (void)
834 { 829 {
835 INIT_LRECORD_IMPLEMENTATION (gui_item); 830 INIT_LISP_OBJECT (gui_item);
836 831
837 DEFSYMBOL (Qmenu_no_selection_hook); 832 DEFSYMBOL (Qmenu_no_selection_hook);
838 833
839 DEFERROR_STANDARD (Qgui_error, Qio_error); 834 DEFERROR_STANDARD (Qgui_error, Qio_error);
840 835