annotate src/frame-msw.c @ 826:6728e641994e

[xemacs-hg @ 2002-05-05 11:30:15 by ben] syntax cache, 8-bit-format, lots of code cleanup README.packages: Update info about --package-path. i.c: Create an inheritable event and pass it on to XEmacs, so that ^C can be handled properly. Intercept ^C and signal the event. "Stop Build" in VC++ now works. bytecomp-runtime.el: Doc string changes. compat.el: Some attempts to redo this to make it truly useful and fix the "multiple versions interacting with each other" problem. Not yet done. Currently doesn't work. files.el: Use with-obsolete-variable to avoid warnings in new revert-buffer code. xemacs.mak: Split up CFLAGS into a version without flags specifying the C library. The problem seems to be that minitar depends on zlib, which depends specifically on libc.lib, not on any of the other C libraries. Unless you compile with libc.lib, you get errors -- specifically, no _errno in the other libraries, which must make it something other than an int. (#### But this doesn't seem to obtain in XEmacs, which also uses zlib, and can be linked with any of the C libraries. Maybe zlib is used differently and doesn't need errno, or maybe XEmacs provides an int errno; ... I don't understand. Makefile.in.in: Fix so that packages are around when testing. abbrev.c, alloc.c, buffer.c, buffer.h, bytecode.c, callint.c, casefiddle.c, casetab.c, casetab.h, charset.h, chartab.c, chartab.h, cmds.c, console-msw.h, console-stream.c, console-x.c, console.c, console.h, data.c, device-msw.c, device.c, device.h, dialog-msw.c, dialog-x.c, dired-msw.c, dired.c, doc.c, doprnt.c, dumper.c, editfns.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, events.h, extents.c, extents.h, faces.c, file-coding.c, file-coding.h, fileio.c, fns.c, font-lock.c, frame-gtk.c, frame-msw.c, frame-x.c, frame.c, frame.h, glade.c, glyphs-gtk.c, glyphs-msw.c, glyphs-msw.h, glyphs-x.c, glyphs.c, glyphs.h, gui-msw.c, gui-x.c, gui.h, gutter.h, hash.h, indent.c, insdel.c, intl-win32.c, intl.c, keymap.c, lisp-disunion.h, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, marker.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, minibuf.c, mule-ccl.c, mule-charset.c, mule-coding.c, mule-wnnfns.c, nas.c, objects-msw.c, objects-x.c, opaque.c, postgresql.c, print.c, process-nt.c, process-unix.c, process.c, process.h, profile.c, rangetab.c, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-x.c, redisplay.c, redisplay.h, regex.c, regex.h, scrollbar-msw.c, search.c, select-x.c, specifier.c, specifier.h, symbols.c, symsinit.h, syntax.c, syntax.h, syswindows.h, tests.c, text.c, text.h, tooltalk.c, ui-byhand.c, ui-gtk.c, unicode.c, win32.c, window.c: Another big Ben patch. -- FUNCTIONALITY CHANGES: add partial support for 8-bit-fixed, 16-bit-fixed, and 32-bit-fixed formats. not quite done yet. (in particular, needs functions to actually convert the buffer.) NOTE: lots of changes to regex.c here. also, many new *_fmt() inline funs that take an Internal_Format argument. redo syntax cache code. make the cache per-buffer; keep the cache valid across calls to functions that use it. also keep it valid across insertions/deletions and extent changes, as much as is possible. eliminate the junky regex-reentrancy code by passing in the relevant lisp info to the regex routines as local vars. add general mechanism in extents code for signalling extent changes. fix numerous problems with the case-table implementation; yoshiki never properly transferred many algorithms from old-style to new-style case tables. redo char tables to support a default argument, so that mapping only occurs over changed args. change many chartab functions to accept Lisp_Object instead of Lisp_Char_Table *. comment out the code in font-lock.c by default, because font-lock.el no longer uses it. we should consider eliminating it entirely. Don't output bell as ^G in console-stream when not a TTY. add -mswindows-termination-handle to interface with i.c, so we can properly kill a build. add more error-checking to buffer/string macros. add some additional buffer_or_string_() funs. -- INTERFACE CHANGES AFFECTING MORE CODE: switch the arguments of write_c_string and friends to be consistent with write_fmt_string, which must have printcharfun first. change BI_* macros to BYTE_* for increased clarity; similarly for bi_* local vars. change VOID_TO_LISP to be a one-argument function. eliminate no-longer-needed CVOID_TO_LISP. -- char/string macro changes: rename MAKE_CHAR() to make_emchar() for slightly less confusion with make_char(). (The former generates an Emchar, the latter a Lisp object. Conceivably we should rename make_char() -> wrap_char() and similarly for make_int(), make_float().) Similar changes for other *CHAR* macros -- we now consistently use names with `emchar' whenever we are working with Emchars. Any remaining name with just `char' always refers to a Lisp object. rename macros with XSTRING_* to string_* except for those that reference actual fields in the Lisp_String object, following conventions used elsewhere. rename set_string_{data,length} macros (the only ones to work with a Lisp_String_* instead of a Lisp_Object) to set_lispstringp_* to make the difference clear. try to be consistent about caps vs. lowercase in macro/inline-fun names for chars and such, which wasn't the case before. we now reserve caps either for XFOO_ macros that reference object fields (e.g. XSTRING_DATA) or for things that have non-function semantics, e.g. directly modifying an arg (BREAKUP_EMCHAR) or evaluating an arg (any arg) more than once. otherwise, use lowercase. here is a summary of most of the macros/inline funs changed by all of the above changes: BYTE_*_P -> byte_*_p XSTRING_BYTE -> string_byte set_string_data/length -> set_lispstringp_data/length XSTRING_CHAR_LENGTH -> string_char_length XSTRING_CHAR -> string_emchar INTBYTE_FIRST_BYTE_P -> intbyte_first_byte_p INTBYTE_LEADING_BYTE_P -> intbyte_leading_byte_p charptr_copy_char -> charptr_copy_emchar LEADING_BYTE_* -> leading_byte_* CHAR_* -> EMCHAR_* *_CHAR_* -> *_EMCHAR_* *_CHAR -> *_EMCHAR CHARSET_BY_ -> charset_by_* BYTE_SHIFT_JIS* -> byte_shift_jis* BYTE_BIG5* -> byte_big5* REP_BYTES_BY_FIRST_BYTE -> rep_bytes_by_first_byte char_to_unicode -> emchar_to_unicode valid_char_p -> valid_emchar_p Change intbyte_strcmp -> qxestrcmp_c (duplicated functionality). -- INTERFACE CHANGES AFFECTING LESS CODE: use DECLARE_INLINE_HEADER in various places. remove '#ifdef emacs' from XEmacs-only files. eliminate CHAR_TABLE_VALUE(), which duplicated the functionality of get_char_table(). add BUFFER_TEXT_LOOP to simplify iterations over buffer text. define typedefs for signed and unsigned types of fixed sizes (INT_32_BIT, UINT_32_BIT, etc.). create ALIGN_FOR_TYPE as a higher-level interface onto ALIGN_SIZE; fix code to use it. add charptr_emchar_len to return the text length of the character pointed to by a ptr; use it in place of charcount_to_bytecount(..., 1). add emchar_len to return the text length of a given character. add types Bytexpos and Charxpos to generalize Bytebpos/Bytecount and Charbpos/Charcount, in code (particularly, the extents code and redisplay code) that works with either kind of index. rename redisplay struct params with names such as `charbpos' to e.g. `charpos' when they are e.g. a Charxpos, not a Charbpos. eliminate xxDEFUN in place of DEFUN; no longer necessary with changes awhile back to doc.c. split up big ugly combined list of EXFUNs in lisp.h on a file-by-file basis, since other prototypes are similarly split. rewrite some "*_UNSAFE" macros as inline funs and eliminate the _UNSAFE suffix. move most string code from lisp.h to text.h; the string code and text.h code is now intertwined in such a fashion that they need to be in the same place and partially interleaved. (you can't create forward references for inline funs) automated/lisp-tests.el, automated/symbol-tests.el, automated/test-harness.el: Fix test harness to output FAIL messages to stderr when in batch mode. Fix up some problems in lisp-tests/symbol-tests that were causing spurious failures.
author ben
date Sun, 05 May 2002 11:33:57 +0000
parents a5954632b187
children 28426972f654
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Functions for the mswindows window system.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
3 Copyright (C) 1995, 1996, 2001, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 /* Synched up with: Not synched with FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
24 /* This file Mule-ized, 8-14-2000. */
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
25
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 /* Authorship:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 Ultimately based on FSF.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 Substantially rewritten for XEmacs by Ben Wing.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 Rewritten for mswindows by Jonathan Harris, November 1997 for 21.0.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 Graphics features added and frame resizing fiddled with by Andy Piper.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 #include "buffer.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
38 #include "device.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #include "elhash.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 #include "events.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 #include "faces.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 #include "frame.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 #include "redisplay.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 #include "window.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
46 #include "console-msw.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
47 #include "glyphs-msw.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
48
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 #define MSWINDOWS_FRAME_STYLE (WS_CLIPCHILDREN | WS_CLIPSIBLINGS | WS_OVERLAPPEDWINDOW)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #define MSWINDOWS_POPUP_STYLE (WS_CLIPCHILDREN | WS_CLIPSIBLINGS | WS_POPUP \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 | WS_CAPTION | WS_BORDER | WS_SYSMENU | WS_MINIMIZEBOX)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 #define MSWINDOWS_FRAME_EXSTYLE WS_EX_OVERLAPPEDWINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 #define MSWINDOWS_POPUP_EXSTYLE WS_EX_PALETTEWINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 /* Default popup left top corner offset from the same
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 corner of the parent frame, in pixel */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 #define POPUP_OFFSET 30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 /* Default popup size, in characters */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 #define POPUP_WIDTH 30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 #define POPUP_HEIGHT 10
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
64 /* Default regular frame size, in characters; if too big, it will get
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
65 shrunk to the workspace size */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 #define DEFAULT_FRAME_WIDTH 80
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
67 #define DEFAULT_FRAME_HEIGHT 50
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 #ifdef HAVE_MENUBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 #define ADJR_MENUFLAG TRUE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 #define ADJR_MENUFLAG FALSE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 /* Default properties to use when creating frames. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 Lisp_Object Vdefault_mswindows_frame_plist;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
77 Lisp_Object Vdefault_msprinter_frame_plist;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 Lisp_Object Vmswindows_use_system_frame_size_defaults;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 /* This does not need to be GC protected, as it holds a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 frame Lisp_Object already protected by Fmake_frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 Lisp_Object Vmswindows_frame_being_created;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
84 /*---------------------------------------------------------------------*/
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
85 /*----- DISPLAY FRAME -----*/
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
86 /*---------------------------------------------------------------------*/
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
87
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
88 HWND
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
89 mswindows_get_selected_frame_hwnd (void)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
90 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
91 Lisp_Object frame, device;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
92
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
93 device = Ffind_device (Qnil, Qmswindows);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
94 if (NILP (device))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
95 return NULL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
96 frame = DEVICE_SELECTED_FRAME (XDEVICE (device));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
97 if (NILP (frame))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
98 return NULL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
99
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
100 return FRAME_MSWINDOWS_HANDLE (XFRAME (frame));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
101 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
102
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 static void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
104 mswindows_init_frame_1 (struct frame *f, Lisp_Object props,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
105 int frame_name_is_defaulted)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 Lisp_Object initially_unmapped;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 Lisp_Object name, height, width, popup, top, left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 Lisp_Object frame_obj = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 RECT rect;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 XEMACS_RECT_WH rect_default;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 DWORD style, exstyle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 HWND hwnd, hwnd_parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 /* Pick up relevant properties */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 initially_unmapped = Fplist_get (props, Qinitially_unmapped, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 name = Fplist_get (props, Qname, Qnil);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
118
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 popup = Fplist_get (props, Qpopup, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 if (EQ (popup, Qt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 popup = Fselected_frame (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 left = Fplist_get (props, Qleft, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 if (!NILP (left))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 CHECK_INT (left);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 top = Fplist_get (props, Qtop, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 if (!NILP (top))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 CHECK_INT (top);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 width = Fplist_get (props, Qwidth, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 if (!NILP (width))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 CHECK_INT (width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 height = Fplist_get (props, Qheight, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 if (!NILP (height))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 CHECK_INT (height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 f->frame_data = xnew_and_zero (struct mswindows_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 FRAME_MSWINDOWS_TARGET_RECT (f) = xnew_and_zero (XEMACS_RECT_WH);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 FRAME_MSWINDOWS_TARGET_RECT (f)->left = NILP (left) ? -1 : abs (XINT (left));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 FRAME_MSWINDOWS_TARGET_RECT (f)->top = NILP (top) ? -1 : abs (XINT (top));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
144 FRAME_MSWINDOWS_TARGET_RECT (f)->width = NILP (width) ? -1 :
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 abs (XINT (width));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
146 FRAME_MSWINDOWS_TARGET_RECT (f)->height = NILP (height) ? -1 :
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 abs (XINT (height));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
148
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 /* Misc frame stuff */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
150 FRAME_MSWINDOWS_MENU_HASH_TABLE (f) = Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 #ifdef HAVE_TOOLBARS
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
152 FRAME_MSWINDOWS_TOOLBAR_HASH_TABLE (f) =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 make_lisp_hash_table (50, HASH_TABLE_NON_WEAK, HASH_TABLE_EQUAL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 /* hashtable of instantiated glyphs on the frame. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
156 FRAME_MSWINDOWS_WIDGET_HASH_TABLE1 (f) =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
157 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQUAL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
158 FRAME_MSWINDOWS_WIDGET_HASH_TABLE2 (f) =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
159 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQUAL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
160 FRAME_MSWINDOWS_WIDGET_HASH_TABLE3 (f) =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQUAL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 /* Will initialize these in WM_SIZE handler. We cannot do it now,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 because we do not know what is CW_USEDEFAULT height and width */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 FRAME_WIDTH (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 FRAME_HEIGHT (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 FRAME_PIXWIDTH (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 FRAME_PIXHEIGHT (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 if (NILP (popup))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 style = MSWINDOWS_FRAME_STYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 exstyle = MSWINDOWS_FRAME_EXSTYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 hwnd_parent = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 rect_default.left = rect_default.top = CW_USEDEFAULT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 rect_default.width = rect_default.height = CW_USEDEFAULT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 style = MSWINDOWS_POPUP_STYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 exstyle = MSWINDOWS_POPUP_EXSTYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 CHECK_MSWINDOWS_FRAME (popup);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 hwnd_parent = FRAME_MSWINDOWS_HANDLE (XFRAME (popup));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 assert (IsWindow (hwnd_parent));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 /* We cannot use CW_USEDEFAULT when creating a popup window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 So by default, we offset the new popup 30 pixels right
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 and down from its parent, and give it size of 30x10 characters.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 These dimensions look adequate on both high and low res monitors */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 GetWindowRect (hwnd_parent, &rect);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 rect_default.left = rect.left + POPUP_OFFSET;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 rect_default.top = rect.top + POPUP_OFFSET;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 char_to_real_pixel_size (f, POPUP_WIDTH, POPUP_HEIGHT,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 &rect_default.width, &rect_default.height);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
196 FRAME_MSWINDOWS_POPUP (f) = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
199 AdjustWindowRectEx (&rect, style, ADJR_MENUFLAG, exstyle);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
201 frame_obj = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 Vmswindows_frame_being_created = frame_obj;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
204 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
205 const Extbyte *nameext = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
207 if (STRINGP (f->name))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
208 LISP_STRING_TO_TSTR (f->name, nameext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
209 else if (STRINGP (name))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
210 LISP_STRING_TO_TSTR (name, nameext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
211 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
212 nameext = XETEXT (XEMACS_CLASS);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
213 hwnd = qxeCreateWindowEx (exstyle,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
214 XETEXT (XEMACS_CLASS),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
215 nameext,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
216 style,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
217 rect_default.left, rect_default.top,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
218 rect_default.width, rect_default.height,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
219 hwnd_parent, NULL, NULL, NULL);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
220 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 Vmswindows_frame_being_created = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 if (hwnd == NULL)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
225 invalid_operation ("System call to create frame failed",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
226 STRINGP (f->name) ? f->name :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
227 STRINGP (name) ? name :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
228 Qunbound);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
229
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
230 FRAME_MSWINDOWS_HANDLE (f) = hwnd;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
232 qxeSetWindowLong (hwnd, XWL_FRAMEOBJ, (LONG)LISP_TO_VOID (frame_obj));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
233 FRAME_MSWINDOWS_DC (f) = GetDC (hwnd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
234 SetTextAlign (FRAME_MSWINDOWS_DC (f), TA_BASELINE | TA_LEFT | TA_NOUPDATECP);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
235
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
236 #ifdef HAVE_DIALOGS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
237 if (FRAME_MSWINDOWS_POPUP (f))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
238 mswindows_register_popup_frame (frame_obj);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
239 #endif /* HAVE_DIALOGS */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 mswindows_init_frame_2 (struct frame *f, Lisp_Object props)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 if (NILP (Vmswindows_use_system_frame_size_defaults))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 /* I don't think anything can set the frame size before this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 since we don't have X resources. This may change if we look
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 at the registry. Even so these values can get overridden
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 later.*/
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
251 XEMACS_RECT_WH dest = { -1, -1, DEFAULT_FRAME_WIDTH,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 DEFAULT_FRAME_HEIGHT };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 mswindows_size_frame_internal (f, &dest);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 /* Called after frame's properties are set */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 mswindows_init_frame_3 (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 /* Don't do this earlier or we get a WM_PAINT before the frame is ready.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 * The SW_x parameter in the first call that an app makes to ShowWindow is
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
263 * ignored, and the parameter specified in the caller's STARTUPINFO is
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 * substituted instead. That parameter is SW_HIDE if we were started by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 * runemacs, so call this twice. #### runemacs is evil */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
266 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_SHOWNORMAL);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
267 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_SHOWNORMAL);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
268 SetForegroundWindow (FRAME_MSWINDOWS_HANDLE (f));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
269 DragAcceptFiles (FRAME_MSWINDOWS_HANDLE (f), TRUE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 mswindows_after_init_frame (struct frame *f, int first_on_device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 int first_on_console)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 /* Windows, unlike X, is very synchronous. After the initial
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
277 frame is created, it will never be displayed, except for
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 hollow border, unless we start pumping messages. Load progress
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 messages show in the bottom of the hollow frame, which is ugly.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 We redisplay the initial frame here, so modeline and root window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 background show.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 if (first_on_console)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 redisplay ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 mswindows_mark_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 mark_object (FRAME_MSWINDOWS_MENU_HASH_TABLE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 #ifdef HAVE_TOOLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 mark_object (FRAME_MSWINDOWS_TOOLBAR_HASH_TABLE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
294 mark_object (FRAME_MSWINDOWS_WIDGET_HASH_TABLE1 (f));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
295 mark_object (FRAME_MSWINDOWS_WIDGET_HASH_TABLE2 (f));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
296 mark_object (FRAME_MSWINDOWS_WIDGET_HASH_TABLE3 (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 mswindows_focus_on_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
302 SetForegroundWindow (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 mswindows_delete_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 if (f->frame_data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
310 #ifdef HAVE_DIALOGS
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
311 mswindows_unregister_popup_frame (wrap_frame (f));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
312 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
313 ReleaseDC (FRAME_MSWINDOWS_HANDLE (f), FRAME_MSWINDOWS_DC (f));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
314 DestroyWindow (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 xfree (f->frame_data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 f->frame_data = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 mswindows_set_frame_size (struct frame *f, int width, int height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 RECT rect;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 rect.left = rect.top = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 rect.right = width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 rect.bottom = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 AdjustWindowRectEx (&rect,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
329 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_STYLE),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
330 GetMenu (FRAME_MSWINDOWS_HANDLE (f)) != NULL,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
331 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_EXSTYLE));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
333 if (IsIconic (FRAME_MSWINDOWS_HANDLE (f)) || IsZoomed (FRAME_MSWINDOWS_HANDLE (f)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
334 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_RESTORE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
336 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), NULL,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 0, 0, rect.right-rect.left, rect.bottom-rect.top,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSENDCHANGING | SWP_NOMOVE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 mswindows_set_frame_position (struct frame *f, int xoff, int yoff)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
344 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), NULL,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 xoff, yoff, 0, 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSENDCHANGING | SWP_NOSIZE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
350 mswindows_make_frame_visible (struct frame *f)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
352 if (!FRAME_VISIBLE_P (f))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
353 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_RESTORE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
355 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_SHOW);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
356 SetActiveWindow (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 f->visible = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 f->iconified = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
362 mswindows_make_frame_invisible (struct frame *f)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
364 if (!FRAME_VISIBLE_P (f))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
367 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_HIDE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 f->visible = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 mswindows_frame_totally_visible_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 RECT rc_me, rc_other, rc_temp;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
375 HWND hwnd = FRAME_MSWINDOWS_HANDLE (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 /* We test against not a whole window rectangle, only against its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 client part. So, if non-client are is covered and client area is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 not, we return true. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 GetClientRect (hwnd, &rc_me);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 MapWindowPoints (hwnd, HWND_DESKTOP, (LPPOINT)&rc_me, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 /* First see if we're off the desktop */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
384 GetWindowRect (GetDesktopWindow (), &rc_other);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
385 UnionRect (&rc_temp, &rc_me, &rc_other);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 if (!EqualRect (&rc_temp, &rc_other))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 return 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
388
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 /* Then see if any window above us obscures us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 while ((hwnd = GetWindow (hwnd, GW_HWNDPREV)) != NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 if (IsWindowVisible (hwnd))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 GetWindowRect (hwnd, &rc_other);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
394 if (IntersectRect (&rc_temp, &rc_me, &rc_other))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 mswindows_frame_visible_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
404 return IsWindowVisible (FRAME_MSWINDOWS_HANDLE (f))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
405 && !IsIconic (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 mswindows_iconify_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
412 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_MINIMIZE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 f->visible = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 f->iconified = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 mswindows_frame_iconified_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
420 return IsIconic (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 mswindows_set_frame_icon (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 if (IMAGE_INSTANCEP (f->icon)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 && IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (f->icon)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 if (!XIMAGE_INSTANCE_MSWINDOWS_ICON (f->icon))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
431 mswindows_initialize_image_instance_icon (XIMAGE_INSTANCE (f->icon),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 FALSE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
434
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
435 qxeSetClassLong (FRAME_MSWINDOWS_HANDLE (f), GCL_HICON,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
436 (LONG) XIMAGE_INSTANCE_MSWINDOWS_ICON (f->icon));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 mswindows_set_frame_pointer (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 if (IMAGE_INSTANCEP (f->pointer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 && IMAGE_INSTANCE_TYPE (XIMAGE_INSTANCE (f->pointer)) == IMAGE_POINTER)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
446 qxeSetClassLong (FRAME_MSWINDOWS_HANDLE (f), GCL_HCURSOR,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
447 (LONG) XIMAGE_INSTANCE_MSWINDOWS_ICON (f->pointer));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 /* we only have to do this because GC doesn't cause a mouse
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 event and doesn't give time to event processing even if it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 did. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 SetCursor (XIMAGE_INSTANCE_MSWINDOWS_ICON (f->pointer));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 mswindows_set_mouse_position (struct window *w, int x, int y)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 POINT pt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 pt.x = w->pixel_left + x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 pt.y = w->pixel_top + y;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
463 ClientToScreen (FRAME_MSWINDOWS_HANDLE (f), &pt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 SetCursorPos (pt.x, pt.y);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 mswindows_get_mouse_position (struct device *d, Lisp_Object *frame, int *x, int *y)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 POINT pt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 HWND hwnd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 GetCursorPos (&pt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 /* What's under cursor? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 hwnd = WindowFromPoint (pt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 if (hwnd == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 /* Get grandest parent of the window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 HWND hwnd_parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 while ((hwnd_parent = GetParent (hwnd)) != NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 hwnd = hwnd_parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 /* Make sure it belongs to us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 if (GetWindowThreadProcessId (hwnd, NULL) != GetCurrentThreadId ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 /* And that the window is an XEmacs frame */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
492 if (!mswindows_window_is_xemacs (hwnd))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
493 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 /* Yippie! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 ScreenToClient (hwnd, &pt);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
497 *frame = VOID_TO_LISP ((void *) qxeGetWindowLong (hwnd, XWL_FRAMEOBJ));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 *x = pt.x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 *y = pt.y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 mswindows_raise_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
506 BringWindowToTop (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 mswindows_lower_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
512 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), HWND_BOTTOM, 0, 0, 0, 0,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 SWP_NOSIZE | SWP_NOMOVE | SWP_NOSENDCHANGING);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
517 mswindows_enable_frame (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
518 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
519 EnableWindow (FRAME_MSWINDOWS_HANDLE (f), TRUE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
520 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
521
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
522 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
523 mswindows_disable_frame (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
524 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
525 EnableWindow (FRAME_MSWINDOWS_HANDLE (f), FALSE);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
526 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
527
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
528 static void
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 593
diff changeset
529 mswindows_set_title_from_intbyte (struct frame *f, Intbyte *title)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
531 unsigned int new_checksum = hash_string (title, qxestrlen (title));
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 546
diff changeset
532 if (new_checksum != FRAME_MSWINDOWS_TITLE_CHECKSUM (f))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 546
diff changeset
534 Extbyte *title_ext;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 546
diff changeset
535
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 546
diff changeset
536 FRAME_MSWINDOWS_TITLE_CHECKSUM (f) = new_checksum;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
537 C_STRING_TO_TSTR (title, title_ext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
538 qxeSetWindowText (FRAME_MSWINDOWS_HANDLE (f), title_ext);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 mswindows_frame_property (struct frame *f, Lisp_Object property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 if (EQ (Qleft, property) || EQ (Qtop, property))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 RECT rc;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
548 GetWindowRect (FRAME_MSWINDOWS_HANDLE (f), &rc);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 return make_int (EQ (Qtop, property) ? rc.top : rc.left);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 return Qunbound;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 mswindows_internal_frame_property_p (struct frame *f, Lisp_Object property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 return EQ (property, Qleft)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 || EQ (property, Qtop);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 /* #### frame-x.c has also this. Why?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 || STRINGP (property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 mswindows_frame_properties (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 Lisp_Object props = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 RECT rc;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
569 GetWindowRect (FRAME_MSWINDOWS_HANDLE (f), &rc);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 props = cons3 (Qtop, make_int (rc.top), props);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 props = cons3 (Qleft, make_int (rc.left), props);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 return props;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 mswindows_set_frame_properties (struct frame *f, Lisp_Object plist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 int x=-1, y=-1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 int width = -1, height = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 BOOL width_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 BOOL height_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 BOOL x_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 BOOL y_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 Lisp_Object tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 /* Extract the properties from plist */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 Lisp_Object prop = Fcar (tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 Lisp_Object val = Fcar (Fcdr (tail));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 if (SYMBOLP (prop))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 /* Kludge to handle the font property. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 if (EQ (prop, Qfont))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 /* If the value is not a string we silently ignore it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 if (STRINGP (val))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 Lisp_Object frm, font_spec;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
603
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
604 frm = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 font_spec = Fget (Fget_face (Qdefault), Qfont, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 Fadd_spec_to_specifier (font_spec, val, frm, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 update_frame_face_values (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 else if (EQ (prop, Qwidth))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 width = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 width_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 else if (EQ (prop, Qheight))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 height = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 height_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 else if (EQ (prop, Qleft))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 x = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 x_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 else if (EQ (prop, Qtop))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 y = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 y_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 /* Now we've extracted the properties, apply them.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 Do not apply geometric properties during frame creation. This
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
640 is excessive anyways, and this loses because WM_SIZE has not
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 been sent yet, so frame width and height fields are not initialized.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
642
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 unfortunately WM_SIZE loses as well since the resize is only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 applied once and the first time WM_SIZE is applied not everything
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 is initialised in the frame (toolbars for instance). enabling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 this always makes no visible difference and fixes a whole host of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 bugs (and is more consistent with X) so I am going to reenable it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 --andyp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 if ( FRAME_PIXWIDTH (f) && FRAME_PIXHEIGHT (f)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
650 && (width_specified_p || height_specified_p
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
651 || x_specified_p || y_specified_p))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 XEMACS_RECT_WH dest = { x, y, width, height };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 mswindows_size_frame_internal (f, &dest);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
659 void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
660 mswindows_size_frame_internal (struct frame *f, XEMACS_RECT_WH *dest)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
662 RECT rect, ws_rect;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 int pixel_width, pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 int size_p = (dest->width >=0 || dest->height >=0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 int move_p = (dest->top >=0 || dest->left >=0);
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
666 char_to_real_pixel_size (f, dest->width, dest->height, &pixel_width,
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
667 &pixel_height);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
668
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 if (dest->width < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 pixel_width = FRAME_PIXWIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 if (dest->height < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 pixel_height = FRAME_PIXHEIGHT (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
674 GetWindowRect (FRAME_MSWINDOWS_HANDLE (f), &rect);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 if (dest->left < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 dest->left = rect.left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 if (dest->top < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 dest->top = rect.top;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
679
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 rect.left = rect.top = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 rect.right = pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 rect.bottom = pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 AdjustWindowRectEx (&rect,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
685 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_STYLE),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
686 GetMenu (FRAME_MSWINDOWS_HANDLE (f)) != NULL,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
687 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_EXSTYLE));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
689 /* resize and move the window so that it fits in the workspace. This is
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 not restrictive since this will happen later anyway in WM_SIZE. We
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 have to do this after adjusting the rect to account for menubar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 etc. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
693 mswindows_get_workspace_coords (&ws_rect);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 pixel_width = rect.right - rect.left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 pixel_height = rect.bottom - rect.top;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
696 if (pixel_width > ws_rect.right - ws_rect.left)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
698 pixel_width = ws_rect.right - ws_rect.left;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 size_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
701 if (pixel_height > ws_rect.bottom - ws_rect.top)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
703 pixel_height = ws_rect.bottom - ws_rect.top;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 size_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
707 /* adjust position so window is in workspace */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
708 if (dest->left + pixel_width > ws_rect.right)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
710 dest->left = ws_rect.right - pixel_width;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 move_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
713 if (dest->left < ws_rect.left)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
715 dest->left = ws_rect.left;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 move_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
719 if (dest->top + pixel_height > ws_rect.bottom)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
720 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
721 dest->top = ws_rect.bottom - pixel_height;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
722 move_p=1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
723 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
724 if (dest->top < ws_rect.top)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
725 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
726 dest->top = ws_rect.top;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
727 move_p=1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
728 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
729
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
730 if (IsIconic (FRAME_MSWINDOWS_HANDLE (f))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
731 || IsZoomed (FRAME_MSWINDOWS_HANDLE (f)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
732 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_RESTORE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
734 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), NULL,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 dest->left, dest->top, pixel_width, pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSENDCHANGING
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 | (size_p ? 0 : SWP_NOSIZE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 | (move_p ? 0 : SWP_NOMOVE));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 mswindows_get_frame_parent (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
744 HWND hwnd = FRAME_MSWINDOWS_HANDLE (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 hwnd = GetParent (hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 if (hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 Lisp_Object parent;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
749 parent = VOID_TO_LISP ((void *) qxeGetWindowLong (hwnd, XWL_FRAMEOBJ));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 assert (FRAME_MSWINDOWS_P (XFRAME (parent)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 return parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 static void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
758 mswindows_update_frame_external_traits (struct frame *frm, Lisp_Object name)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 mswindows_frame_size_fixed_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 /* Frame size cannot change if the frame is maximized */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 return IsZoomed (FRAME_MSWINDOWS_HANDLE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
769 /*---------------------------------------------------------------------*/
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
770 /*----- PRINTER FRAME -----*/
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
771 /*---------------------------------------------------------------------*/
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
772
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
773 /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
774 * With some driver/os combination (I discovered this with HP drivers
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
775 * under W2K), DC geometry is reset upon StartDoc and EndPage
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
776 * calls. This is called every time one of these calls is made.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
777 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
778 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
779 apply_dc_geometry (struct frame* f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
780 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
781 HDC hdc = DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
782 SetTextAlign (hdc, TA_BASELINE | TA_LEFT | TA_NOUPDATECP);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
783 SetViewportOrgEx (hdc, FRAME_MSPRINTER_PIXLEFT(f),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
784 FRAME_MSPRINTER_PIXTOP(f), NULL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
785 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
786
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
787 void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
788 msprinter_start_page (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
789 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
790 if (!FRAME_MSPRINTER_PAGE_STARTED (f))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
791 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
792 FRAME_MSPRINTER_PAGE_STARTED (f) = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
793 StartPage (DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
794 apply_dc_geometry (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
795 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
796 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
797
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
798 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
799 error_frame_unsizable (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
800 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
801 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
802
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
803 invalid_change ("Cannot resize frame (margins) after print job has started.",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
804 frame);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
805 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
806
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
807 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
808 maybe_error_if_job_active (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
809 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
810 if (FRAME_MSPRINTER_JOB_STARTED (f))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
811 error_frame_unsizable (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
812 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
813
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
814 static void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
815 msprinter_init_frame_1 (struct frame *f, Lisp_Object props,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
816 int frame_name_is_defaulted)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
817 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
818 /* Make sure this is the only frame on device. Windows printer can
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
819 handle only one job at a time. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
820 if (!NILP (DEVICE_FRAME_LIST (XDEVICE (FRAME_DEVICE (f)))))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
821 invalid_operation ("Only one frame (print job) at a time is allowed on "
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
822 "this printer device", FRAME_DEVICE (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
823
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
824 f->frame_data = xnew_and_zero (struct msprinter_frame);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
825
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
826 FRAME_MSPRINTER_TOP_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
827 mswindows_get_default_margin (Qtop_margin);
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
828 FRAME_MSPRINTER_BOTTOM_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
829 mswindows_get_default_margin (Qbottom_margin);
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
830 FRAME_MSPRINTER_LEFT_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
831 mswindows_get_default_margin (Qleft_margin);
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
832 FRAME_MSPRINTER_RIGHT_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
833 mswindows_get_default_margin (Qright_margin);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
834
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
835 /* Negative for "uinspecified" */
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
836 FRAME_MSPRINTER_CHARWIDTH (f) = -1;
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
837 FRAME_MSPRINTER_CHARHEIGHT (f) = -1;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
838 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
839
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
840 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
841 msprinter_init_frame_3 (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
842 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
843 DOCINFOW di;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
844 struct device *device = XDEVICE (FRAME_DEVICE (f));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
845 HDC hdc;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
846 int frame_left, frame_top, frame_width, frame_height;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
847
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
848 /* DC might be recreated in msprinter_apply_devmode,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
849 so do not initialize until now */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
850 hdc = DEVICE_MSPRINTER_HDC (device);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
851
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
852 /* Compute geometry properties */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
853 frame_left = (MulDiv (GetDeviceCaps (hdc, LOGPIXELSX),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
854 FRAME_MSPRINTER_LEFT_MARGIN (f), 1440)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
855 - GetDeviceCaps (hdc, PHYSICALOFFSETX));
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
856
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
857 if (FRAME_MSPRINTER_CHARWIDTH (f) > 0)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
858 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
859 char_to_real_pixel_size (f, FRAME_MSPRINTER_CHARWIDTH (f), 0,
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
860 &frame_width, NULL);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
861 FRAME_MSPRINTER_RIGHT_MARGIN (f) =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
862 MulDiv (GetDeviceCaps (hdc, PHYSICALWIDTH)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
863 - (frame_left + frame_width), 1440,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
864 GetDeviceCaps (hdc, LOGPIXELSX));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
865 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
866 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
867 frame_width = (GetDeviceCaps (hdc, PHYSICALWIDTH)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
868 - frame_left
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
869 - MulDiv (GetDeviceCaps (hdc, LOGPIXELSX),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
870 FRAME_MSPRINTER_RIGHT_MARGIN (f), 1440));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
871
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
872 frame_top = (MulDiv (GetDeviceCaps (hdc, LOGPIXELSY),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
873 FRAME_MSPRINTER_TOP_MARGIN (f), 1440)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
874 - GetDeviceCaps (hdc, PHYSICALOFFSETY));
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
875
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
876 if (FRAME_MSPRINTER_CHARHEIGHT (f) > 0)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
877 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
878 char_to_real_pixel_size (f, 0, FRAME_MSPRINTER_CHARHEIGHT (f),
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
879 NULL, &frame_height);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
880
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
881 FRAME_MSPRINTER_BOTTOM_MARGIN (f) =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
882 MulDiv (GetDeviceCaps (hdc, PHYSICALHEIGHT)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
883 - (frame_top + frame_height), 1440,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
884 GetDeviceCaps (hdc, LOGPIXELSY));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
885 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
886 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
887 frame_height = (GetDeviceCaps (hdc, PHYSICALHEIGHT)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
888 - frame_top
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
889 - MulDiv (GetDeviceCaps (hdc, LOGPIXELSY),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
890 FRAME_MSPRINTER_BOTTOM_MARGIN (f), 1440));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
891
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
892 /* Geometry sanity checks */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
893 if (!frame_pixsize_valid_p (f, frame_width, frame_height))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
894 invalid_operation ("Area inside print margins has shrunk to naught",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
895 STRINGP (f->name) ? f->name : Qunbound);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
896
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
897 if (frame_left < 0
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
898 || frame_top < 0
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
899 || frame_left + frame_width > GetDeviceCaps (hdc, HORZRES)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
900 || frame_top + frame_height > GetDeviceCaps (hdc, VERTRES))
546
666d73d6ac56 [xemacs-hg @ 2001-05-20 01:17:07 by ben]
ben
parents: 536
diff changeset
901 invalid_operation ("Print area is outside of the printer's "
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
902 "hardware printable area",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
903 STRINGP (f->name) ? f->name : Qunbound);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
904
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
905 /* Apply XEmacs frame geometry and layout windows */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
906 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
907 int rows, columns;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
908 FRAME_PIXWIDTH (f) = frame_width;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
909 FRAME_PIXHEIGHT (f) = frame_height;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
910 pixel_to_char_size (f, frame_width, frame_height, &columns, &rows);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
911 change_frame_size (f, rows, columns, 0);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
912 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
913
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
914 FRAME_MSPRINTER_PIXLEFT(f) = frame_left;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
915 FRAME_MSPRINTER_PIXTOP(f) = frame_top;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
916
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
917 /* Start print job */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
918 di.cbSize = sizeof (di);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
919 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
920 const Extbyte *nameext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
921
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
922 if (STRINGP (f->name))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
923 LISP_STRING_TO_TSTR (f->name, nameext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
924 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
925 nameext = XETEXT ("XEmacs print document");
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
926 di.lpszDocName = (XELPTSTR) nameext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
927 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
928 di.lpszOutput = NULL;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
929 di.lpszDatatype = NULL;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
930 di.fwType = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
931
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
932 if (qxeStartDoc (hdc, &di) <= 0)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
933 invalid_operation ("Cannot start print job",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
934 STRINGP (f->name) ? f->name : Qunbound);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
935
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
936 apply_dc_geometry (f);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
937
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
938 /* Finish frame setup */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
939 FRAME_MSPRINTER_JOB_STARTED (f) = 1;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
940 FRAME_VISIBLE_P (f) = 0;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
941 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
942
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
943 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
944 msprinter_mark_frame (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
945 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
946 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
947
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
948 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
949 msprinter_delete_frame (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
950 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
951 if (f->frame_data)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
952 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
953 HDC hdc = DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
954 if (FRAME_MSPRINTER_PAGE_STARTED (f))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
955 EndPage (hdc);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
956 if (FRAME_MSPRINTER_JOB_STARTED (f))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
957 EndDoc (hdc);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
958 xfree (f->frame_data);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
959 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
960
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
961 f->frame_data = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
962 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
963
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
964 static Lisp_Object
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
965 msprinter_frame_property (struct frame *f, Lisp_Object property)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
966 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
967 if (EQ (Qleft_margin, property))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
968 return make_int (FRAME_MSPRINTER_LEFT_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
969 else if (EQ (Qtop_margin, property))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
970 return make_int (FRAME_MSPRINTER_TOP_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
971 if (EQ (Qright_margin, property))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
972 return make_int (FRAME_MSPRINTER_RIGHT_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
973 else if (EQ (Qbottom_margin, property))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
974 return make_int (FRAME_MSPRINTER_BOTTOM_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
975 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
976 return Qunbound;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
977 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
978
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
979 static int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
980 msprinter_internal_frame_property_p (struct frame *f, Lisp_Object property)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
981 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
982 return (EQ (Qleft_margin, property) || EQ (Qtop_margin, property) ||
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
983 EQ (Qright_margin, property) || EQ (Qbottom_margin, property));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
984 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
985
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
986 static Lisp_Object
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
987 msprinter_frame_properties (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
988 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
989 Lisp_Object props = Qnil;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
990 props = cons3 (Qbottom_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
991 make_int (FRAME_MSPRINTER_BOTTOM_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
992 props = cons3 (Qright_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
993 make_int (FRAME_MSPRINTER_RIGHT_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
994 props = cons3 (Qtop_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
995 make_int (FRAME_MSPRINTER_TOP_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
996 props = cons3 (Qleft_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
997 make_int (FRAME_MSPRINTER_LEFT_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
998 return props;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
999 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1000
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1001 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1002 msprinter_set_frame_properties (struct frame *f, Lisp_Object plist)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1003 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1004 Lisp_Object tail;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1005
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1006 /* Extract the properties from plist */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1007 for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail)))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1008 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1009 Lisp_Object prop = Fcar (tail);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1010 Lisp_Object val = Fcar (Fcdr (tail));
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1011
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1012 if (SYMBOLP (prop))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1013 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1014 if (EQ (prop, Qwidth))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1015 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1016 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1017 if (!NILP (val))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1018 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1019 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1020 FRAME_MSPRINTER_CHARWIDTH (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1021 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1022 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1023 if (EQ (prop, Qheight))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1024 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1025 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1026 if (!NILP (val))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1027 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1028 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1029 FRAME_MSPRINTER_CHARHEIGHT (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1030 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1031 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1032 else if (EQ (prop, Qleft_margin))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1033 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1034 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1035 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1036 FRAME_MSPRINTER_LEFT_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1037 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1038 else if (EQ (prop, Qtop_margin))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1039 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1040 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1041 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1042 FRAME_MSPRINTER_TOP_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1043 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1044 else if (EQ (prop, Qright_margin))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1045 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1046 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1047 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1048 FRAME_MSPRINTER_RIGHT_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1049 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1050 else if (EQ (prop, Qbottom_margin))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1051 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1052 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1053 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1054 FRAME_MSPRINTER_BOTTOM_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1055 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1056 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1057 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1058 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1059
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1060 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1061 msprinter_set_frame_size (struct frame *f, int width, int height)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1062 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1063 /* We're absolutely unsizeable */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1064 error_frame_unsizable (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1065 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1066
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1067 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1068 msprinter_eject_page (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1069 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1070 /* #### Should we eject empty pages? */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1071 if (FRAME_MSPRINTER_PAGE_STARTED (f))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1072 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1073 FRAME_MSPRINTER_PAGE_STARTED (f) = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1074 EndPage (DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1075 apply_dc_geometry (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1076 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1077 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1078
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1079
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 console_type_create_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1083 /* Display frames */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 CONSOLE_HAS_METHOD (mswindows, init_frame_1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1085 CONSOLE_HAS_METHOD (mswindows, init_frame_2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 CONSOLE_HAS_METHOD (mswindows, init_frame_3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087 CONSOLE_HAS_METHOD (mswindows, after_init_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 CONSOLE_HAS_METHOD (mswindows, mark_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 CONSOLE_HAS_METHOD (mswindows, focus_on_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 CONSOLE_HAS_METHOD (mswindows, delete_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 CONSOLE_HAS_METHOD (mswindows, get_mouse_position);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 CONSOLE_HAS_METHOD (mswindows, set_mouse_position);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 CONSOLE_HAS_METHOD (mswindows, raise_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094 CONSOLE_HAS_METHOD (mswindows, lower_frame);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1095 CONSOLE_HAS_METHOD (mswindows, enable_frame);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1096 CONSOLE_HAS_METHOD (mswindows, disable_frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 CONSOLE_HAS_METHOD (mswindows, make_frame_visible);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 CONSOLE_HAS_METHOD (mswindows, make_frame_invisible);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 CONSOLE_HAS_METHOD (mswindows, iconify_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 CONSOLE_HAS_METHOD (mswindows, set_frame_size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 CONSOLE_HAS_METHOD (mswindows, set_frame_position);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 CONSOLE_HAS_METHOD (mswindows, frame_property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 CONSOLE_HAS_METHOD (mswindows, internal_frame_property_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 CONSOLE_HAS_METHOD (mswindows, frame_properties);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 CONSOLE_HAS_METHOD (mswindows, set_frame_properties);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 593
diff changeset
1106 CONSOLE_HAS_METHOD (mswindows, set_title_from_intbyte);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 593
diff changeset
1107 /* CONSOLE_HAS_METHOD (mswindows, set_icon_name_from_intbyte); */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 CONSOLE_HAS_METHOD (mswindows, frame_visible_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109 CONSOLE_HAS_METHOD (mswindows, frame_totally_visible_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 CONSOLE_HAS_METHOD (mswindows, frame_iconified_p);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1111 CONSOLE_HAS_METHOD (mswindows, set_frame_pointer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1112 CONSOLE_HAS_METHOD (mswindows, set_frame_icon);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 CONSOLE_HAS_METHOD (mswindows, get_frame_parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114 CONSOLE_HAS_METHOD (mswindows, update_frame_external_traits);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 CONSOLE_HAS_METHOD (mswindows, frame_size_fixed_p);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1116
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1117 /* Printer frames, aka print jobs */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1118 CONSOLE_HAS_METHOD (msprinter, init_frame_1);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1119 CONSOLE_HAS_METHOD (msprinter, init_frame_3);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1120 CONSOLE_HAS_METHOD (msprinter, mark_frame);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1121 CONSOLE_HAS_METHOD (msprinter, delete_frame);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1122 CONSOLE_HAS_METHOD (msprinter, frame_property);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1123 CONSOLE_HAS_METHOD (msprinter, internal_frame_property_p);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1124 CONSOLE_HAS_METHOD (msprinter, frame_properties);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1125 CONSOLE_HAS_METHOD (msprinter, set_frame_properties);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1126 CONSOLE_HAS_METHOD (msprinter, set_frame_size);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1127 CONSOLE_HAS_METHOD (msprinter, eject_page);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131 syms_of_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1132 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136 reinit_vars_of_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 /* Needn't staticpro -- see comment above. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 Vmswindows_frame_being_created = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 vars_of_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 reinit_vars_of_frame_mswindows ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147 DEFVAR_LISP ("mswindows-use-system-frame-size-defaults", &Vmswindows_use_system_frame_size_defaults /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 Controls whether to use system or XEmacs defaults for frame size.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1149 If nil then reasonable defaults are used for initial frame sizes. If t
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 then the system will choose default sizes for the frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 Vmswindows_use_system_frame_size_defaults = Qnil;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1153
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 DEFVAR_LISP ("default-mswindows-frame-plist", &Vdefault_mswindows_frame_plist /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 Plist of default frame-creation properties for mswindows frames.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 These override what is specified in `default-frame-plist', but are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 overridden by the arguments to the particular call to `make-frame'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 Note: In many cases, properties of a frame are available as specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 instead of through the frame-properties mechanism.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 Here is a list of recognized frame properties, other than those
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 documented in `set-frame-properties' (they can be queried and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 set at any time, except as otherwise noted):
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 initially-unmapped If non-nil, the frame will not be visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1167 when it is created. In this case, you
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168 need to call `make-frame-visible' to make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169 the frame appear.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 popup If non-nil, it should be a frame, and this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 frame will be created as a "popup" frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172 whose parent is the given frame. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 will make the window manager treat the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174 frame as a dialog box, which may entail
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 doing different things (e.g. not asking
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 for positioning, and not iconifying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 separate from its parent).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178 top Y position (in pixels) of the upper-left
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 outermost corner of the frame (i.e. the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1180 upper-left of the window-manager
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181 decorations).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182 left X position (in pixels) of the upper-left
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 outermost corner of the frame (i.e. the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 upper-left of the window-manager
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 decorations).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1187 See also `default-frame-plist', which specifies properties which apply
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188 to all frames, not just mswindows frames.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1189 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1190 Vdefault_mswindows_frame_plist = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 mswindows_console_methods->device_specific_frame_props =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 &Vdefault_mswindows_frame_plist;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1194
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1195 DEFVAR_LISP ("default-msprinter-frame-plist", &Vdefault_msprinter_frame_plist /*
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1196 Plist of default frame-creation properties for msprinter print job frames.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1197 These override what is specified in `default-frame-plist', but are
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1198 overridden by the arguments to the particular call to `make-frame'.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1199
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1200 Note: In many cases, properties of a frame are available as specifiers
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1201 instead of through the frame-properties mechanism.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1202
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1203 Here is a list of recognized frame properties, other than those
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1204 documented in `set-frame-properties' (they can be queried and
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1205 set at any time, except as otherwise noted):
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1206
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1207 left-margin Margin of the page, in twips. Twip is a
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1208 top-margin typographical unit of measurement,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1209 right-margin equal to 1/1440 of an inch, or 1/20 of a
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1210 bottom-margin point, and roughly equal to 7/400 of a
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1211 millimeter. If not specified, the left
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1212 and right margins default to 1 inch
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1213 (25.4 mm) and the top and bottom margins
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1214 to 0.5 inch (12.7 mm).
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1215
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1216 MARGINS NOTE. right-margin and bottom-margin are overridden by
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1217 the height and width properties. If you want to specify size
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1218 of the printable area in character, as with the rest of XEmacs,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1219 use these properties. If height and/or width are nil, then
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1220 corresponding margin setting is taken into account. If you
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1221 specify height and/or width in `default-frame-plist', but still
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1222 want to specify right/bottom margins, set height/width in this
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1223 plist to nil, as in this example:
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1224
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1225 (setq default-frame-plist '(height 55 width 80)
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1226 default-msprinter-frame-plist '(height nil width nil))
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1227
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1228 See also `default-frame-plist', which specifies properties which apply
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1229 to all frames, not just mswindows frames.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1230 */ );
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1231 Vdefault_msprinter_frame_plist = Qnil;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1232
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1233 msprinter_console_methods->device_specific_frame_props =
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1234 &Vdefault_msprinter_frame_plist;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 }