Mercurial > hg > xemacs-beta

comparison src/device.c @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
1 /* Generic device functions. 1 /* Generic device functions.
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. 2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
3 Copyright (C) 1994, 1995 Free Software Foundation, Inc. 3 Copyright (C) 1994, 1995 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1996 Ben Wing 4 Copyright (C) 1995, 1996 Ben Wing
5 5
6 This file is part of XEmacs. 6 This file is part of XEmacs.
889 recompute_all_cached_specifiers_in_frame (f); 889 recompute_all_cached_specifiers_in_frame (f);
890 MARK_FRAME_FACES_CHANGED (f); 890 MARK_FRAME_FACES_CHANGED (f);
891 MARK_FRAME_GLYPHS_CHANGED (f); 891 MARK_FRAME_GLYPHS_CHANGED (f);
892 MARK_FRAME_SUBWINDOWS_CHANGED (f); 892 MARK_FRAME_SUBWINDOWS_CHANGED (f);
893 MARK_FRAME_TOOLBARS_CHANGED (f); 893 MARK_FRAME_TOOLBARS_CHANGED (f);
894 MARK_FRAME_GUTTERS_CHANGED (f);
894 f->menubar_changed = 1; 895 f->menubar_changed = 1;
895 } 896 }
896 } 897 }
897 return Qnil; 898 return Qnil;
898 } 899 }
923 Return t if DEVICE is a printer, nil if it is a display. DEVICE defaults 924 Return t if DEVICE is a printer, nil if it is a display. DEVICE defaults
924 to selected device if omitted, and must be live if specified. 925 to selected device if omitted, and must be live if specified.
925 */ 926 */
926 (device)) 927 (device))
927 { 928 {
928 return (MAYBE_INT_DEVMETH (decode_device (device), 929 return DEVICE_PRINTER_P (decode_device (device)) ? Qt : Qnil;
929 device_implementation_flags, ())
930 & XDEVIMPF_IS_A_PRINTER) ? Qt : Qnil;
931 } 930 }
932 931
933 DEFUN ("device-system-metric", Fdevice_system_metric, 1, 3, 0, /* 932 DEFUN ("device-system-metric", Fdevice_system_metric, 1, 3, 0, /*
934 Get a metric for DEVICE as provided by the system. 933 Get a metric for DEVICE as provided by the system.
935 934
985 size-toolbar-border Toolbar border width and height. 984 size-toolbar-border Toolbar border width and height.
986 size-icon Icon dimensions. 985 size-icon Icon dimensions.
987 size-icon-small Small icon dimensions. 986 size-icon-small Small icon dimensions.
988 size-device Device screen or paper size in pixels. 987 size-device Device screen or paper size in pixels.
989 size-workspace Workspace size in pixels. This can be less than or 988 size-workspace Workspace size in pixels. This can be less than or
990 equal to the above. For diplays, this is the area 989 equal to the above. For displays, this is the area
991 available to applications less window manager 990 available to applications less window manager
992 decorations. For printers, this is the size of 991 decorations. For printers, this is the size of
993 printable area. 992 printable area.
994 offset-workspace Offset of workspace area from the top left corner 993 offset-workspace Offset of workspace area from the top left corner
995 of screen or paper. 994 of screen or paper, in pixels.
996 size-device-mm Device screen size in millimeters. 995 size-device-mm Device screen size in millimeters.
997 device-dpi Device resolution, in dots per inch. 996 device-dpi Device resolution, in dots per inch.
998 num-bit-planes Integer, number of device bit planes. 997 num-bit-planes Integer, number of device bit planes.
999 num-color-cells Integer, number of device color cells. 998 num-color-cells Integer, number of device color cells.
1000 999
1199 asynch_device_change_method) (); 1198 asynch_device_change_method) ();
1200 } 1199 }
1201 /* reset the flag to 0 unless another notification occurred while 1200 /* reset the flag to 0 unless another notification occurred while
1202 we were processing this one. Block SIGWINCH during this 1201 we were processing this one. Block SIGWINCH during this
1203 check to prevent a possible race condition. */ 1202 check to prevent a possible race condition. */
1204 #ifndef WINDOWSNT 1203 #ifdef SIGWINCH
1205 EMACS_BLOCK_SIGNAL (SIGWINCH); 1204 EMACS_BLOCK_SIGNAL (SIGWINCH);
1206 #endif 1205 #endif
1207 if (old_asynch_device_change_pending == asynch_device_change_pending) 1206 if (old_asynch_device_change_pending == asynch_device_change_pending)
1208 asynch_device_change_pending = 0; 1207 asynch_device_change_pending = 0;
1209 #ifndef WINDOWSNT 1208 #ifdef SIGWINCH
1210 EMACS_UNBLOCK_SIGNAL (SIGWINCH); 1209 EMACS_UNBLOCK_SIGNAL (SIGWINCH);
1211 #endif 1210 #endif
1212 } 1211 }
1213 1212
1214 void 1213 void
1244 /************************************************************************/ 1243 /************************************************************************/
1245 1244
1246 void 1245 void
1247 syms_of_device (void) 1246 syms_of_device (void)
1248 { 1247 {
1248 INIT_LRECORD_IMPLEMENTATION (device);
1249
1249 DEFSUBR (Fvalid_device_class_p); 1250 DEFSUBR (Fvalid_device_class_p);
1250 DEFSUBR (Fdevice_class_list); 1251 DEFSUBR (Fdevice_class_list);
1251 1252
1252 DEFSUBR (Fdfw_device); 1253 DEFSUBR (Fdfw_device);
1253 DEFSUBR (Fselected_device); 1254 DEFSUBR (Fselected_device);