Mercurial > hg > xemacs-beta

comparison src/scrollbar.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 b7f26b2f78bd
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
94 return wrap_scrollbar_instance (data->next); 94 return wrap_scrollbar_instance (data->next);
95 else 95 else
96 return Qnil; 96 return Qnil;
97 } 97 }
98 98
99 DEFINE_LRECORD_IMPLEMENTATION ("scrollbar-instance", scrollbar_instance, 99 DEFINE_NONDUMPABLE_LISP_OBJECT ("scrollbar-instance", scrollbar_instance,
100 0, /*dumpable-flag*/ 100 mark_scrollbar_instance,
101 mark_scrollbar_instance, 101 0, 0, 0, 0,
102 internal_object_printer, 0, 0, 0, 102 scrollbar_instance_description,
103 scrollbar_instance_description, 103 struct scrollbar_instance);
104 struct scrollbar_instance);
105 104
106 static void 105 static void
107 free_scrollbar_instance (struct scrollbar_instance *instance, 106 free_scrollbar_instance (struct scrollbar_instance *instance,
108 struct frame *frame) 107 struct frame *frame)
109 { 108 {
196 195
197 static struct scrollbar_instance * 196 static struct scrollbar_instance *
198 create_scrollbar_instance (struct frame *f, int vertical) 197 create_scrollbar_instance (struct frame *f, int vertical)
199 { 198 {
200 struct device *d = XDEVICE (f->device); 199 struct device *d = XDEVICE (f->device);
201 struct scrollbar_instance *instance = 200 Lisp_Object obj = ALLOC_LISP_OBJECT (scrollbar_instance);
202 ALLOC_LCRECORD_TYPE (struct scrollbar_instance, 201 struct scrollbar_instance *instance = XSCROLLBAR_INSTANCE (obj);
203 &lrecord_scrollbar_instance);
204 202
205 MAYBE_DEVMETH (d, create_scrollbar_instance, (f, vertical, instance)); 203 MAYBE_DEVMETH (d, create_scrollbar_instance, (f, vertical, instance));
206 204
207 return instance; 205 return instance;
208 } 206 }
926 /************************************************************************/ 924 /************************************************************************/
927 925
928 void 926 void
929 syms_of_scrollbar (void) 927 syms_of_scrollbar (void)
930 { 928 {
931 INIT_LRECORD_IMPLEMENTATION (scrollbar_instance); 929 INIT_LISP_OBJECT (scrollbar_instance);
932 930
933 DEFSYMBOL (Qscrollbar_line_up); 931 DEFSYMBOL (Qscrollbar_line_up);
934 DEFSYMBOL (Qscrollbar_line_down); 932 DEFSYMBOL (Qscrollbar_line_down);
935 DEFSYMBOL (Qscrollbar_page_up); 933 DEFSYMBOL (Qscrollbar_page_up);
936 DEFSYMBOL (Qscrollbar_page_down); 934 DEFSYMBOL (Qscrollbar_page_down);