- /* Generic device functions.
+/* Generic device functions.
Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
Copyright (C) 1994, 1995 Free Software Foundation, Inc.
Copyright (C) 1995, 1996 Ben Wing
Given a device, frame, or window, return the associated device.
Return nil otherwise.
*/
- (obj))
+ (object))
{
- return DFW_DEVICE (obj);
+ return DFW_DEVICE (object);
}
\f
device-independence violations occur in faces.el. */
int first_x_device = NILP (Vdefault_x_device) && EQ (type, Qx);
#endif
+#ifdef HAVE_GTK
+ int first_gtk_device = NILP (Vdefault_gtk_device) && EQ (type, Qgtk);
+#endif
GCPRO3 (device, console, name);
if (first_x_device)
init_global_resources (d);
#endif
+#ifdef HAVE_GTK
+ if (first_gtk_device)
+ init_global_resources (d);
+#endif
init_device_resources (d);
MAYBE_DEVMETH (d, finish_init_device, (d, props));
/* #### This should probably be a device method but it is time for
19.14 to go out the door. */
-#ifdef HAVE_X_WINDOWS
+ /* #### BILL!!! Should this deal with HAVE_MSWINDOWS as well? */
+#if defined (HAVE_X_WINDOWS) || defined (HAVE_GTK)
/* Next delete all frames which have the popup property to avoid
deleting a child after its parent. */
DEVICE_FRAME_LOOP (frmcons, d)
MARK_FRAME_GLYPHS_CHANGED (f);
MARK_FRAME_SUBWINDOWS_CHANGED (f);
MARK_FRAME_TOOLBARS_CHANGED (f);
+ MARK_FRAME_GUTTERS_CHANGED (f);
f->menubar_changed = 1;
}
}
size-icon-small Small icon dimensions.
size-device Device screen or paper size in pixels.
size-workspace Workspace size in pixels. This can be less than or
- equal to the above. For diplays, this is the area
- available to applications less window manager
+ equal to the above. For displays, this is the area
+ available to applications less window manager
decorations. For printers, this is the size of
printable area.
offset-workspace Offset of workspace area from the top left corner
- of screen or paper.
+ of screen or paper, in pixels.
size-device-mm Device screen size in millimeters.
device-dpi Device resolution, in dots per inch.
num-bit-planes Integer, number of device bit planes.
Lisp_Object winsy = domain_device_type (domain);
struct console_methods *meth = decode_console_type (winsy, ERROR_ME_NOT);
assert (meth);
- return (MAYBE_INT_CONTYPE_METH (meth, device_implementation_flags, ())
- & XDEVIMPF_PIXEL_GEOMETRY);
+ return CONMETH_IMPL_FLAG (meth, XDEVIMPF_PIXEL_GEOMETRY);
}
DEFUN ("domain-device-type", Fdomain_device_type, 0, 1, 0, /*
/* reset the flag to 0 unless another notification occurred while
we were processing this one. Block SIGWINCH during this
check to prevent a possible race condition. */
-#ifndef WINDOWSNT
+#ifdef SIGWINCH
EMACS_BLOCK_SIGNAL (SIGWINCH);
#endif
if (old_asynch_device_change_pending == asynch_device_change_pending)
asynch_device_change_pending = 0;
-#ifndef WINDOWSNT
+#ifdef SIGWINCH
EMACS_UNBLOCK_SIGNAL (SIGWINCH);
#endif
}
void
syms_of_device (void)
{
+ INIT_LRECORD_IMPLEMENTATION (device);
+
DEFSUBR (Fvalid_device_class_p);
DEFSUBR (Fdevice_class_list);