Mercurial > hg > xemacs-beta

comparison src/frame.c @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e121b013d1f0
children 489f57a838ef
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
217 allocate_frame_core (Lisp_Object device) 217 allocate_frame_core (Lisp_Object device)
218 { 218 {
219 /* This function can GC */ 219 /* This function can GC */
220 Lisp_Object frame = Qnil; 220 Lisp_Object frame = Qnil;
221 Lisp_Object root_window; 221 Lisp_Object root_window;
222 struct frame *f = alloc_lcrecord (sizeof (struct frame), lrecord_frame); 222 struct frame *f = alloc_lcrecord_type (struct frame, lrecord_frame);
223 223
224 zero_lcrecord (f); 224 zero_lcrecord (f);
225 nuke_all_frame_slots (f); 225 nuke_all_frame_slots (f);
226 XSETFRAME (frame, f); 226 XSETFRAME (frame, f);
227 227
1897 } 1897 }
1898 1898
1899 /* FSF returns 'icon for iconized frames. What a crock! */ 1899 /* FSF returns 'icon for iconized frames. What a crock! */
1900 1900
1901 DEFUN ("frame-visible-p", Fframe_visible_p, 0, 1, 0, /* 1901 DEFUN ("frame-visible-p", Fframe_visible_p, 0, 1, 0, /*
1902 Return non NIL if FRAME is now \"visible\" (actually in use for display). 1902 Return non NIL if FRAME is now "visible" (actually in use for display).
1903 A frame that is not visible is not updated, and, if it works through a 1903 A frame that is not visible is not updated, and, if it works through a
1904 window system, may not show at all. 1904 window system, may not show at all.
1905 N.B. Under X \"visible\" means Mapped. It the window is mapped but not 1905 N.B. Under X "visible" means Mapped. It the window is mapped but not
1906 actually visible on screen then frame_visible returns 'hidden. 1906 actually visible on screen then frame_visible returns 'hidden.
1907 */ 1907 */
1908 (frame)) 1908 (frame))
1909 { 1909 {
1910 struct frame *f = decode_frame (frame); 1910 struct frame *f = decode_frame (frame);
1938 f->iconified = FRAMEMETH_OR_GIVEN (f, frame_iconified_p, (f), 0); 1938 f->iconified = FRAMEMETH_OR_GIVEN (f, frame_iconified_p, (f), 0);
1939 return f->iconified ? Qt : Qnil; 1939 return f->iconified ? Qt : Qnil;
1940 } 1940 }
1941 1941
1942 DEFUN ("visible-frame-list", Fvisible_frame_list, 0, 1, 0, /* 1942 DEFUN ("visible-frame-list", Fvisible_frame_list, 0, 1, 0, /*
1943 Return a list of all frames now \"visible\" (being updated). 1943 Return a list of all frames now "visible" (being updated).
1944 If DEVICE is specified only frames on that device will be returned. 1944 If DEVICE is specified only frames on that device will be returned.
1945 Note that under virtual window managers not all these frame are necessarily 1945 Note that under virtual window managers not all these frame are necessarily
1946 really updated. 1946 really updated.
1947 */ 1947 */
1948 (device)) 1948 (device))