Mercurial > emacs
comparison src/w32fns.c @ 90573:858cb33ae39d
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 357-381)
- Merge from gnus--rel--5.10
- Update from CVS
- Merge from erc--emacs--21
* gnus--rel--5.10 (patch 116-122)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-98
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 03 Aug 2006 11:45:23 +0000 |
parents | 138ce2701550 0bfda07cccbc |
children | 7f3f771c85fa |
comparison
equal
deleted
inserted
replaced
90572:ab9b8d043c39 | 90573:858cb33ae39d |
---|---|
2065 w32_createwindow (f) | 2065 w32_createwindow (f) |
2066 struct frame *f; | 2066 struct frame *f; |
2067 { | 2067 { |
2068 HWND hwnd; | 2068 HWND hwnd; |
2069 RECT rect; | 2069 RECT rect; |
2070 Lisp_Object top, left; | |
2070 | 2071 |
2071 rect.left = rect.top = 0; | 2072 rect.left = rect.top = 0; |
2072 rect.right = FRAME_PIXEL_WIDTH (f); | 2073 rect.right = FRAME_PIXEL_WIDTH (f); |
2073 rect.bottom = FRAME_PIXEL_HEIGHT (f); | 2074 rect.bottom = FRAME_PIXEL_HEIGHT (f); |
2074 | 2075 |
2079 | 2080 |
2080 if (!hprevinst) | 2081 if (!hprevinst) |
2081 { | 2082 { |
2082 w32_init_class (hinst); | 2083 w32_init_class (hinst); |
2083 } | 2084 } |
2085 | |
2086 /* When called with RES_TYPE_NUMBER, w32_get_arg will return zero | |
2087 for anything that is not a number and is not Qunbound. */ | |
2088 left = w32_get_arg (Qnil, Qleft, "left", "Left", RES_TYPE_NUMBER); | |
2089 top = w32_get_arg (Qnil, Qtop, "top", "Top", RES_TYPE_NUMBER); | |
2084 | 2090 |
2085 FRAME_W32_WINDOW (f) = hwnd | 2091 FRAME_W32_WINDOW (f) = hwnd |
2086 = CreateWindow (EMACS_CLASS, | 2092 = CreateWindow (EMACS_CLASS, |
2087 f->namebuf, | 2093 f->namebuf, |
2088 f->output_data.w32->dwStyle | WS_CLIPCHILDREN, | 2094 f->output_data.w32->dwStyle | WS_CLIPCHILDREN, |
2089 CW_USEDEFAULT, | 2095 EQ (left, Qunbound) ? CW_USEDEFAULT : XINT (left), |
2090 SW_SHOW, | 2096 EQ (top, Qunbound) ? CW_USEDEFAULT : XINT (top), |
2091 rect.right - rect.left, | 2097 rect.right - rect.left, |
2092 rect.bottom - rect.top, | 2098 rect.bottom - rect.top, |
2093 NULL, | 2099 NULL, |
2094 NULL, | 2100 NULL, |
2095 hinst, | 2101 hinst, |