Mercurial > hg > xemacs-beta

comparison src/frame-msw.c @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents 6330739388db
children 7df0dd720c89
comparison
equal deleted inserted replaced
277:cfdf3ff11843 278:90d73dddcdc4
76 XEMACS_RECT_WH mswindows_frame_target_rect; 76 XEMACS_RECT_WH mswindows_frame_target_rect;
77 77
78 static void 78 static void
79 mswindows_init_frame_1 (struct frame *f, Lisp_Object props) 79 mswindows_init_frame_1 (struct frame *f, Lisp_Object props)
80 { 80 {
81 Lisp_Object device = FRAME_DEVICE (f);
82 Lisp_Object initially_unmapped; 81 Lisp_Object initially_unmapped;
83 Lisp_Object name, height, width, popup, top, left; 82 Lisp_Object name, height, width, popup, top, left;
84 Lisp_Object frame_obj = Qnil; 83 Lisp_Object frame_obj = Qnil;
85 RECT rect; 84 RECT rect;
86 XEMACS_RECT_WH rect_default; 85 XEMACS_RECT_WH rect_default;
182 Vmswindows_frame_being_created = frame_obj; 181 Vmswindows_frame_being_created = frame_obj;
183 182
184 hwnd = CreateWindowEx (exstyle, 183 hwnd = CreateWindowEx (exstyle,
185 XEMACS_CLASS, 184 XEMACS_CLASS,
186 STRINGP(f->name) ? XSTRING_DATA(f->name) : 185 STRINGP(f->name) ? XSTRING_DATA(f->name) :
187 (STRINGP(name) ? XSTRING_DATA(name) : XEMACS_CLASS), 186 (STRINGP(name) ? XSTRING_DATA(name) : XEMACS_CLASS),
188 style, 187 style,
189 rect_default.left, rect_default.top, 188 rect_default.left, rect_default.top,
190 rect_default.width, rect_default.height, 189 rect_default.width, rect_default.height,
191 hwnd_parent, NULL, NULL, NULL); 190 hwnd_parent, NULL, NULL, NULL);
192 191