Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 4759:aa5ed11f473b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove support for obsolete systems. See xemacs-patches message with ID <870180fe0911101613m6b8efa4bpf083fd9013950807@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Wed, 18 Nov 2009 08:49:14 -0700
parents 0636c6ccb430
children e29fcfd8df5f
comparison
equal deleted inserted replaced
4758:75975fd0b7fc 4759:aa5ed11f473b
640 a TTY device name such as \"/dev/ttyp2\" (as determined by 640 a TTY device name such as \"/dev/ttyp2\" (as determined by
641 the Unix command `tty') or nil for XEmacs' standard input 641 the Unix command `tty') or nil for XEmacs' standard input
642 and output (usually the TTY in which XEmacs started). Only 642 and output (usually the TTY in which XEmacs started). Only
643 if support for TTY's was compiled into XEmacs. 643 if support for TTY's was compiled into XEmacs.
644 gtk A GTK device. 644 gtk A GTK device.
645 ns A connection to a machine running the NeXTstep windowing
646 system. Not currently implemented.
647 mswindows A connection to a machine running Microsoft Windows NT or 645 mswindows A connection to a machine running Microsoft Windows NT or
648 Windows 95/97. 646 Windows 95/97.
649 pc A direct-write MS-DOS frame. Not currently implemented. 647 pc A direct-write MS-DOS frame. Not currently implemented.
650 648
651 PROPS should be a plist of properties, as in the call to `make-frame'. 649 PROPS should be a plist of properties, as in the call to `make-frame'.
867 (defun frame-type (&optional frame) 865 (defun frame-type (&optional frame)
868 "Return the type of the specified frame (e.g. `x' or `tty'). 866 "Return the type of the specified frame (e.g. `x' or `tty').
869 This is equivalent to the type of the frame's device. 867 This is equivalent to the type of the frame's device.
870 Value is `tty' for a tty frame (a character-only terminal), 868 Value is `tty' for a tty frame (a character-only terminal),
871 `x' for a frame that is an X window, 869 `x' for a frame that is an X window,
872 `ns' for a frame that is a NeXTstep window (not yet implemented),
873 `mswindows' for a frame that is a MS Windows desktop window, 870 `mswindows' for a frame that is a MS Windows desktop window,
874 `msprinter' for a frame that is a MS Windows print job, 871 `msprinter' for a frame that is a MS Windows print job,
875 `stream' for a stream frame (which acts like a stdio stream), and 872 `stream' for a stream frame (which acts like a stdio stream), and
876 `dead' for a deleted frame." 873 `dead' for a deleted frame."
877 (or frame (setq frame (selected-frame))) 874 (or frame (setq frame (selected-frame)))
1184 type (device-type display)) 1181 type (device-type display))
1185 (cond 1182 (cond
1186 ((eq 'mswindows type) 1183 ((eq 'mswindows type)
1187 (> (declare-boundp mswindows-num-mouse-buttons) 0)) 1184 (> (declare-boundp mswindows-num-mouse-buttons) 0))
1188 ((device-on-window-system-p display) 1185 ((device-on-window-system-p display)
1189 ;; We assume X, NeXTstep, and GTK and the rest always have a pointing 1186 ;; We assume X, GTK and the rest always have a pointing device.
1190 ;; device.
1191 t) 1187 t)
1192 ((eq 'tty type) 1188 ((eq 'tty type)
1193 (and-fboundp 'gpm-is-supported-p 1189 (and-fboundp 'gpm-is-supported-p
1194 (gpm-is-supported-p display))) 1190 (gpm-is-supported-p display)))
1195 (t nil)))) 1191 (t nil))))