Mercurial > hg > xemacs-beta

comparison src/frame.c @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 8fc7fe29b841
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
101 Lisp_Object Vdefault_frame_name; 101 Lisp_Object Vdefault_frame_name;
102 Lisp_Object Vdefault_frame_plist; 102 Lisp_Object Vdefault_frame_plist;
103 103
104 Lisp_Object Vframe_icon_glyph; 104 Lisp_Object Vframe_icon_glyph;
105 105
106 Lisp_Object Qhidden;
107
106 Lisp_Object Qvisible, Qiconic, Qinvisible, Qvisible_iconic, Qinvisible_iconic; 108 Lisp_Object Qvisible, Qiconic, Qinvisible, Qvisible_iconic, Qinvisible_iconic;
107 Lisp_Object Qnomini, Qvisible_nomini, Qiconic_nomini, Qinvisible_nomini; 109 Lisp_Object Qnomini, Qvisible_nomini, Qiconic_nomini, Qinvisible_nomini;
108 Lisp_Object Qvisible_iconic_nomini, Qinvisible_iconic_nomini; 110 Lisp_Object Qvisible_iconic_nomini, Qinvisible_iconic_nomini;
109 111
110 Lisp_Object Qset_specifier, Qset_glyph_image, Qset_face_property; 112 Lisp_Object Qset_specifier, Qset_glyph_image, Qset_face_property;
1865 } 1867 }
1866 1868
1867 /* FSF returns 'icon for iconized frames. What a crock! */ 1869 /* FSF returns 'icon for iconized frames. What a crock! */
1868 1870
1869 DEFUN ("frame-visible-p", Fframe_visible_p, 0, 1, 0, /* 1871 DEFUN ("frame-visible-p", Fframe_visible_p, 0, 1, 0, /*
1870 Return t if FRAME is now \"visible\" (actually in use for display). 1872 Return non NIL if FRAME is now \"visible\" (actually in use for display).
1871 A frame that is not visible is not updated, and, if it works through a 1873 A frame that is not visible is not updated, and, if it works through a
1872 window system, may not show at all. 1874 window system, may not show at all.
1875 N.B. Under X \"visible\" means Mapped. It the window is mapped but not
1876 actually visible on screen then frame_visible returns 'hidden.
1873 */ 1877 */
1874 (frame)) 1878 (frame))
1875 { 1879 {
1880 int visible;
1881
1876 struct frame *f = decode_frame (frame); 1882 struct frame *f = decode_frame (frame);
1877 return (FRAMEMETH_OR_GIVEN (f, frame_visible_p, (f), f->visible) 1883 visible = FRAMEMETH_OR_GIVEN (f, frame_visible_p, (f), f->visible);
1878 ? Qt : Qnil); 1884 return ( visible ? ( visible > 0 ? Qt : Qhidden )
1885 : Qnil);
1879 } 1886 }
1880 1887
1881 DEFUN ("frame-totally-visible-p", Fframe_totally_visible_p, 0, 1, 0, /* 1888 DEFUN ("frame-totally-visible-p", Fframe_totally_visible_p, 0, 1, 0, /*
1882 Return T if frame is not obscured by any other X windows, NIL otherwise. 1889 Return T if frame is not obscured by any other X windows, NIL otherwise.
1883 Always returns t for tty frames. 1890 Always returns t for tty frames.
1906 } 1913 }
1907 1914
1908 DEFUN ("visible-frame-list", Fvisible_frame_list, 0, 1, 0, /* 1915 DEFUN ("visible-frame-list", Fvisible_frame_list, 0, 1, 0, /*
1909 Return a list of all frames now \"visible\" (being updated). 1916 Return a list of all frames now \"visible\" (being updated).
1910 If DEVICE is specified only frames on that device will be returned. 1917 If DEVICE is specified only frames on that device will be returned.
1918 Note that under virtual window managers not all these frame are necessarily
1919 really updated.
1911 */ 1920 */
1912 (device)) 1921 (device))
1913 { 1922 {
1914 Lisp_Object devcons, concons; 1923 Lisp_Object devcons, concons;
1915 struct frame *f; 1924 struct frame *f;
1927 1936
1928 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons))) 1937 DEVICE_FRAME_LOOP (frmcons, XDEVICE (XCAR (devcons)))
1929 { 1938 {
1930 Lisp_Object frame = XCAR (frmcons); 1939 Lisp_Object frame = XCAR (frmcons);
1931 f = XFRAME (frame); 1940 f = XFRAME (frame);
1932 if (f->visible) 1941 if (FRAME_VISIBLE_P(f))
1933 value = Fcons (frame, value); 1942 value = Fcons (frame, value);
1934 } 1943 }
1935 } 1944 }
1936 } 1945 }
1937 1946
2834 defsymbol (&Qmake_initial_minibuffer_frame, "make-initial-minibuffer-frame"); 2843 defsymbol (&Qmake_initial_minibuffer_frame, "make-initial-minibuffer-frame");
2835 2844
2836 defsymbol (&Qframe_title_format, "frame-title-format"); 2845 defsymbol (&Qframe_title_format, "frame-title-format");
2837 defsymbol (&Qframe_icon_title_format, "frame-icon-title-format"); 2846 defsymbol (&Qframe_icon_title_format, "frame-icon-title-format");
2838 2847
2848 defsymbol (&Qhidden, "hidden");
2839 defsymbol (&Qvisible, "visible"); 2849 defsymbol (&Qvisible, "visible");
2840 defsymbol (&Qiconic, "iconic"); 2850 defsymbol (&Qiconic, "iconic");
2841 defsymbol (&Qinvisible, "invisible"); 2851 defsymbol (&Qinvisible, "invisible");
2842 defsymbol (&Qvisible_iconic, "visible-iconic"); 2852 defsymbol (&Qvisible_iconic, "visible-iconic");
2843 defsymbol (&Qinvisible_iconic, "invisible-iconic"); 2853 defsymbol (&Qinvisible_iconic, "invisible-iconic");