Mercurial > hg > xemacs-beta

comparison lisp/device.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents 8de8e3f6228a
children da8cdcec6dff
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
50 (defun device-type (&optional device) 50 (defun device-type (&optional device)
51 "Return the type of the specified device (e.g. `x' or `tty'). 51 "Return the type of the specified device (e.g. `x' or `tty').
52 This is equivalent to the type of the device's console. 52 This is equivalent to the type of the device's console.
53 Value is `tty' for a tty device (a character-only terminal), 53 Value is `tty' for a tty device (a character-only terminal),
54 `x' for a device that is a screen on an X display, 54 `x' for a device that is a screen on an X display,
55 `gtk' for a device that is a GTK connection.
55 `ns' for a device that is a NeXTstep connection (not yet implemented), 56 `ns' for a device that is a NeXTstep connection (not yet implemented),
56 `mswindows' for a device that is a MS Windows workstation, 57 `mswindows' for a device that is a MS Windows workstation,
57 `msprinter' for a device that is a MS Windows printer connection, 58 `msprinter' for a device that is a MS Windows printer connection,
58 `stream' for a stream device (which acts like a stdio stream), and 59 `stream' for a stream device (which acts like a stdio stream), and
59 `dead' for a deleted device." 60 `dead' for a deleted device."
101 102
102 (defun device-color-cells (&optional device) 103 (defun device-color-cells (&optional device)
103 "Return the number of color cells of DEVICE, or nil if unknown." 104 "Return the number of color cells of DEVICE, or nil if unknown."
104 (device-system-metric device 'num-color-cells)) 105 (device-system-metric device 'num-color-cells))
105 106
107 (defun make-gtk-device ()
108 "Create a new GTK device."
109 (make-device 'gtk nil))
110
106 (defun make-x-device (&optional display) 111 (defun make-x-device (&optional display)
107 "Create a new device connected to DISPLAY." 112 "Create a new device connected to DISPLAY."
108 (make-device 'x display)) 113 (make-device 'x display))
109 114
110 (defun make-mswindows-device () 115 (defun make-mswindows-device ()