Mercurial > hg > xemacs-beta

comparison src/frame-msw.c @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents c42ec1d1cded
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
83 Lisp_Object frame_obj = Qnil; 83 Lisp_Object frame_obj = Qnil;
84 RECT rect; 84 RECT rect;
85 XEMACS_RECT_WH rect_default; 85 XEMACS_RECT_WH rect_default;
86 DWORD style, exstyle; 86 DWORD style, exstyle;
87 HWND hwnd, hwnd_parent; 87 HWND hwnd, hwnd_parent;
88 static BOOL first_frame = 1;
88 89
89 /* Pick up relevant properties */ 90 /* Pick up relevant properties */
90 initially_unmapped = Fplist_get (props, Qinitially_unmapped, Qnil); 91 initially_unmapped = Fplist_get (props, Qinitially_unmapped, Qnil);
91 name = Fplist_get (props, Qname, Qnil); 92 name = Fplist_get (props, Qname, Qnil);
92 93
140 if (NILP (popup)) 141 if (NILP (popup))
141 { 142 {
142 style = MSWINDOWS_FRAME_STYLE; 143 style = MSWINDOWS_FRAME_STYLE;
143 exstyle = MSWINDOWS_FRAME_EXSTYLE; 144 exstyle = MSWINDOWS_FRAME_EXSTYLE;
144 hwnd_parent = NULL; 145 hwnd_parent = NULL;
146
147 if (first_frame)
148 {
149 style |= WS_VISIBLE;
150 first_frame = 0;
151 }
145 152
146 /* We always create am overlapped frame with default size, 153 /* We always create am overlapped frame with default size,
147 and later adjust only requested geometry parameters. */ 154 and later adjust only requested geometry parameters. */
148 rect_default.left = rect_default.top = CW_USEDEFAULT; 155 rect_default.left = rect_default.top = CW_USEDEFAULT;
149 rect_default.width = rect_default.height = CW_USEDEFAULT; 156 rect_default.width = rect_default.height = CW_USEDEFAULT;