Mercurial > hg > xemacs-beta

comparison src/device-gtk.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children b5df3737028a
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
113 113
114 static void 114 static void
115 allocate_gtk_device_struct (struct device *d) 115 allocate_gtk_device_struct (struct device *d)
116 { 116 {
117 #ifdef NEW_GC 117 #ifdef NEW_GC
118 d->device_data = alloc_lrecord_type (struct gtk_device, &lrecord_gtk_device); 118 d->device_data = XGTK_DEVICE (ALLOC_LISP_OBJECT (gtk_device));
119 #else /* not NEW_GC */ 119 #else /* not NEW_GC */
120 d->device_data = xnew_and_zero (struct gtk_device); 120 d->device_data = xnew_and_zero (struct gtk_device);
121 #endif /* not NEW_GC */ 121 #endif /* not NEW_GC */
122 DEVICE_GTK_DATA (d)->x_keysym_map_hashtable = Qnil; 122 DEVICE_GTK_DATA (d)->x_keysym_map_hashtable = Qnil;
123 } 123 }