annotate src/frame-msw.c @ 853:2b6fa2618f76

[xemacs-hg @ 2002-05-28 08:44:22 by ben] merge my stderr-proc ws make-docfile.c: Fix places where we forget to check for EOF. code-init.el: Don't use CRLF conversion by default on process output. CMD.EXE and friends work both ways but Cygwin programs don't like the CRs. code-process.el, multicast.el, process.el: Removed. Improvements to call-process-internal: -- allows a buffer to be specified for input and stderr output -- use it on all systems -- implement C-g as documented -- clean up and comment call-process-region uses new call-process facilities; no temp file. remove duplicate funs in process.el. comment exactly how coding systems work and fix various problems. open-multicast-group now does similar coding-system frobbing to open-network-stream. dumped-lisp.el, faces.el, msw-faces.el: Fix some hidden errors due to code not being defined at the right time. xemacs.mak: Add -DSTRICT. ================================================================ ALLOW SEPARATION OF STDOUT AND STDERR IN PROCESSES ================================================================ Standard output and standard error can be processed separately in a process. Each can have its own buffer, its own mark in that buffer, and its filter function. You can specify a separate buffer for stderr in `start-process' to get things started, or use the new primitives: set-process-stderr-buffer process-stderr-buffer process-stderr-mark set-process-stderr-filter process-stderr-filter Also, process-send-region takes a 4th optional arg, a buffer. Currently always uses a pipe() under Unix to read the error output. (#### Would a PTY be better?) sysdep.h, sysproc.h, unexfreebsd.c, unexsunos4.c, nt.c, emacs.c, callproc.c, symsinit.h, sysdep.c, Makefile.in.in, process-unix.c: Delete callproc.c. Move child_setup() to process-unix.c. wait_for_termination() now only needed on a few really old systems. console-msw.h, event-Xt.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.h, process-nt.c, process-unix.c, process.c, process.h, procimpl.h: Rewrite the process methods to handle a separate channel for error input. Create Lstreams for reading in the error channel. Many process methods need change. In general the changes are fairly clear as they involve duplicating what's used for reading the normal stdout and changing for stderr -- although tedious, as such changes are required throughout the entire process code. Rewrote the code that reads process output to do two loops, one for stdout and one for stderr. gpmevent.c, tooltalk.c: set_process_filter takes an argument for stderr. ================================================================ NEW ERROR-TRAPPING MECHANISM ================================================================ Totally rewrite error trapping code to be unified and support more features. Basic function is call_trapping_problems(), which lets you specify, by means of flags, what sorts of problems you want trapped. these can include -- quit -- errors -- throws past the function -- creation of "display objects" (e.g. buffers) -- deletion of already-existing "display objects" (e.g. buffers) -- modification of already-existing buffers -- entering the debugger -- gc -- errors->warnings (ala suspended errors) etc. All other error funs rewritten in terms of this one. Various older mechanisms removed or rewritten. window.c, insdel.c, console.c, buffer.c, device.c, frame.c: When creating a display object, added call to note_object_created(), for use with trapping_problems mechanism. When deleting, call check_allowed_operation() and note_object deleted(). The trapping-problems code records the objects created since the call-trapping-problems began. Those objects can be deleted, but none others (i.e. previously existing ones). bytecode.c, cmdloop.c: internal_catch takes another arg. eval.c: Add long comments describing the "five lists" used to maintain state (backtrace, gcpro, specbind, etc.) in the Lisp engine. backtrace.h, eval.c: Implement trapping-problems mechanism, eliminate old mechanisms or redo in terms of new one. frame.c, gutter.c: Flush out the concept of "critical display section", defined by the in_display() var. Use an internal_bind() to get it reset, rather than just doing it at end, because there may be a non-local exit. event-msw.c, event-stream.c, console-msw.h, device.c, dialog-msw.c, frame.c, frame.h, intl.c, toolbar.c, menubar-msw.c, redisplay.c, alloc.c, menubar-x.c: Make use of new trapping-errors stuff and rewrite code based on old mechanisms. glyphs-widget.c, redisplay.h: Protect calling Lisp in redisplay. insdel.c: Protect hooks against deleting existing buffers. frame-msw.c: Use EQ, not EQUAL in hash tables whose keys are just numbers. Otherwise we run into stickiness in redisplay because internal_equal() can QUIT. ================================================================ SIGNAL, C-G CHANGES ================================================================ Here we change the way that C-g interacts with event reading. The idea is that a C-g occurring while we're reading a user event should be read as C-g, but elsewhere should be a QUIT. The former code did all sorts of bizarreness -- requiring that no QUIT occurs anywhere in event-reading code (impossible to enforce given the stuff called or Lisp code invoked), and having some weird system involving enqueue/dequeue of a C-g and interaction with Vquit_flag -- and it didn't work. Now, we simply enclose all code where we want C-g read as an event with {begin/end}_dont_check_for_quit(). This completely turns off the mechanism that checks (and may remove or alter) C-g in the read-ahead queues, so we just get the C-g normal. Signal.c documents this very carefully. cmdloop.c: Correct use of dont_check_for_quit to new scheme, remove old out-of-date comments. event-stream.c: Fix C-g handling to actually work. device-x.c: Disable quit checking when err out. signal.c: Cleanup. Add large descriptive comment. process-unix.c, process-nt.c, sysdep.c: Use QUIT instead of REALLY_QUIT. It's not necessary to use REALLY_QUIT and just confuses the issue. lisp.h: Comment quit handlers. ================================================================ CONS CHANGES ================================================================ free_cons() now takes a Lisp_Object not the result of XCONS(). car and cdr have been renamed so that they don't get used directly; go through XCAR(), XCDR() instead. alloc.c, dired.c, editfns.c, emodules.c, fns.c, glyphs-msw.c, glyphs-x.c, glyphs.c, keymap.c, minibuf.c, search.c, eval.c, lread.c, lisp.h: Correct free_cons calling convention: now takes Lisp_Object, not Lisp_Cons chartab.c: Eliminate direct use of ->car, ->cdr, should be black box. callint.c: Rewrote using EXTERNAL_LIST_LOOP to avoid use of Lisp_Cons. ================================================================ USE INTERNAL-BIND-* ================================================================ eval.c: Cleanups of these funs. alloc.c, fileio.c, undo.c, specifier.c, text.c, profile.c, lread.c, redisplay.c, menubar-x.c, macros.c: Rewrote to use internal_bind_int() and internal_bind_lisp_object() in place of whatever varied and cumbersome mechanisms were formerly there. ================================================================ SPECBIND SANITY ================================================================ backtrace.h: - Improved comments backtrace.h, bytecode.c, eval.c: Add new mechanism check_specbind_stack_sanity() for sanity checking code each time the catchlist or specbind stack change. Removed older prototype of same mechanism. ================================================================ MISC ================================================================ lisp.h, insdel.c, window.c, device.c, console.c, buffer.c: Fleshed out authorship. device-msw.c: Correct bad Unicode-ization. print.c: Be more careful when not initialized or in fatal error handling. search.c: Eliminate running_asynch_code, an FSF holdover. alloc.c: Added comments about gc-cons-threshold. dialog-x.c: Use begin_gc_forbidden() around code to build up a widget value tree, like in menubar-x.c. gui.c: Use Qunbound not Qnil as the default for gethash. lisp-disunion.h, lisp-union.h: Added warnings on use of VOID_TO_LISP(). lisp.h: Use ERROR_CHECK_STRUCTURES to turn on ERROR_CHECK_TRAPPING_PROBLEMS and ERROR_CHECK_TYPECHECK lisp.h: Add assert_with_message. lisp.h: Add macros for gcproing entire arrays. (You could do this before but it required manual twiddling the gcpro structure.) lisp.h: Add prototypes for new functions defined elsewhere.
author ben
date Tue, 28 May 2002 08:45:36 +0000
parents 28426972f654
children 804517e16990
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
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 827
diff changeset
155 /* hashtable of instantiated glyphs on the frame.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 827
diff changeset
156 make them EQ because we only use ints as keys.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 827
diff changeset
157 otherwise we run into stickiness in redisplay because
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 827
diff changeset
158 internal_equal() can QUIT. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
159 FRAME_MSWINDOWS_WIDGET_HASH_TABLE1 (f) =
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 827
diff changeset
160 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQ);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
161 FRAME_MSWINDOWS_WIDGET_HASH_TABLE2 (f) =
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 827
diff changeset
162 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQ);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
163 FRAME_MSWINDOWS_WIDGET_HASH_TABLE3 (f) =
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 827
diff changeset
164 make_lisp_hash_table (50, HASH_TABLE_VALUE_WEAK, HASH_TABLE_EQ);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 /* Will initialize these in WM_SIZE handler. We cannot do it now,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 because we do not know what is CW_USEDEFAULT height and width */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 FRAME_WIDTH (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 FRAME_HEIGHT (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 FRAME_PIXWIDTH (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 FRAME_PIXHEIGHT (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 if (NILP (popup))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 style = MSWINDOWS_FRAME_STYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 exstyle = MSWINDOWS_FRAME_EXSTYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 hwnd_parent = NULL;
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 rect_default.left = rect_default.top = CW_USEDEFAULT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 rect_default.width = rect_default.height = CW_USEDEFAULT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 else
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 style = MSWINDOWS_POPUP_STYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 exstyle = MSWINDOWS_POPUP_EXSTYLE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 CHECK_MSWINDOWS_FRAME (popup);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 hwnd_parent = FRAME_MSWINDOWS_HANDLE (XFRAME (popup));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 assert (IsWindow (hwnd_parent));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 /* We cannot use CW_USEDEFAULT when creating a popup window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 So by default, we offset the new popup 30 pixels right
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 and down from its parent, and give it size of 30x10 characters.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 These dimensions look adequate on both high and low res monitors */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 GetWindowRect (hwnd_parent, &rect);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 rect_default.left = rect.left + POPUP_OFFSET;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 rect_default.top = rect.top + POPUP_OFFSET;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 char_to_real_pixel_size (f, POPUP_WIDTH, POPUP_HEIGHT,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 &rect_default.width, &rect_default.height);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
199 FRAME_MSWINDOWS_POPUP (f) = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
202 AdjustWindowRectEx (&rect, style, ADJR_MENUFLAG, exstyle);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
204 frame_obj = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 Vmswindows_frame_being_created = frame_obj;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
207 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
208 const Extbyte *nameext = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
210 if (STRINGP (f->name))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
211 LISP_STRING_TO_TSTR (f->name, nameext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
212 else if (STRINGP (name))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
213 LISP_STRING_TO_TSTR (name, nameext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
214 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
215 nameext = XETEXT (XEMACS_CLASS);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
216 hwnd = qxeCreateWindowEx (exstyle,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
217 XETEXT (XEMACS_CLASS),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
218 nameext,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
219 style,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
220 rect_default.left, rect_default.top,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
221 rect_default.width, rect_default.height,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
222 hwnd_parent, NULL, NULL, NULL);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
223 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 Vmswindows_frame_being_created = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 if (hwnd == NULL)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
228 invalid_operation ("System call to create frame failed",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
229 STRINGP (f->name) ? f->name :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
230 STRINGP (name) ? name :
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
231 Qunbound);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
232
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
233 FRAME_MSWINDOWS_HANDLE (f) = hwnd;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
235 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
236 FRAME_MSWINDOWS_DC (f) = GetDC (hwnd);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
237 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
238
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
239 #ifdef HAVE_DIALOGS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
240 if (FRAME_MSWINDOWS_POPUP (f))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
241 mswindows_register_popup_frame (frame_obj);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
242 #endif /* HAVE_DIALOGS */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 mswindows_init_frame_2 (struct frame *f, Lisp_Object props)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 if (NILP (Vmswindows_use_system_frame_size_defaults))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 /* I don't think anything can set the frame size before this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 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
252 at the registry. Even so these values can get overridden
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 later.*/
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
254 XEMACS_RECT_WH dest = { -1, -1, DEFAULT_FRAME_WIDTH,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 DEFAULT_FRAME_HEIGHT };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 mswindows_size_frame_internal (f, &dest);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 /* Called after frame's properties are set */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 mswindows_init_frame_3 (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 {
827
28426972f654 [xemacs-hg @ 2002-05-06 14:14:33 by jhar]
jhar
parents: 826
diff changeset
264 /* Don't do this earlier or we get a WM_PAINT before the frame is ready */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
265 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_SHOWNORMAL);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
266 SetForegroundWindow (FRAME_MSWINDOWS_HANDLE (f));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
267 DragAcceptFiles (FRAME_MSWINDOWS_HANDLE (f), TRUE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 mswindows_after_init_frame (struct frame *f, int first_on_device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 int first_on_console)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 /* Windows, unlike X, is very synchronous. After the initial
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
275 frame is created, it will never be displayed, except for
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 hollow border, unless we start pumping messages. Load progress
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 messages show in the bottom of the hollow frame, which is ugly.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 We redisplay the initial frame here, so modeline and root window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 background show.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 if (first_on_console)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 redisplay ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 mswindows_mark_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 mark_object (FRAME_MSWINDOWS_MENU_HASH_TABLE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 #ifdef HAVE_TOOLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 mark_object (FRAME_MSWINDOWS_TOOLBAR_HASH_TABLE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
292 mark_object (FRAME_MSWINDOWS_WIDGET_HASH_TABLE1 (f));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
293 mark_object (FRAME_MSWINDOWS_WIDGET_HASH_TABLE2 (f));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
294 mark_object (FRAME_MSWINDOWS_WIDGET_HASH_TABLE3 (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 mswindows_focus_on_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
300 SetForegroundWindow (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 mswindows_delete_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 if (f->frame_data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
308 #ifdef HAVE_DIALOGS
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
309 mswindows_unregister_popup_frame (wrap_frame (f));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
310 #endif
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
311 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
312 DestroyWindow (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 xfree (f->frame_data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 f->frame_data = 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 mswindows_set_frame_size (struct frame *f, int width, int height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 RECT rect;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 rect.left = rect.top = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 rect.right = width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 rect.bottom = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 AdjustWindowRectEx (&rect,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
327 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_STYLE),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
328 GetMenu (FRAME_MSWINDOWS_HANDLE (f)) != NULL,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
329 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_EXSTYLE));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
331 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
332 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_RESTORE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
334 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), NULL,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 0, 0, rect.right-rect.left, rect.bottom-rect.top,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSENDCHANGING | SWP_NOMOVE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 mswindows_set_frame_position (struct frame *f, int xoff, int yoff)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
342 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), NULL,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 xoff, yoff, 0, 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSENDCHANGING | SWP_NOSIZE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
348 mswindows_make_frame_visible (struct frame *f)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
350 if (!FRAME_VISIBLE_P (f))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
351 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_RESTORE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
353 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_SHOW);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
354 SetActiveWindow (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 f->visible = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 f->iconified = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
360 mswindows_make_frame_invisible (struct frame *f)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
362 if (!FRAME_VISIBLE_P (f))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
365 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_HIDE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 f->visible = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 mswindows_frame_totally_visible_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 RECT rc_me, rc_other, rc_temp;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
373 HWND hwnd = FRAME_MSWINDOWS_HANDLE (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 /* We test against not a whole window rectangle, only against its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 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
377 not, we return true. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 GetClientRect (hwnd, &rc_me);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 MapWindowPoints (hwnd, HWND_DESKTOP, (LPPOINT)&rc_me, 2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 /* 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
382 GetWindowRect (GetDesktopWindow (), &rc_other);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
383 UnionRect (&rc_temp, &rc_me, &rc_other);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 if (!EqualRect (&rc_temp, &rc_other))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 return 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
386
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 /* Then see if any window above us obscures us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 while ((hwnd = GetWindow (hwnd, GW_HWNDPREV)) != NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 if (IsWindowVisible (hwnd))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 GetWindowRect (hwnd, &rc_other);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
392 if (IntersectRect (&rc_temp, &rc_me, &rc_other))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 return 1;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 mswindows_frame_visible_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
402 return IsWindowVisible (FRAME_MSWINDOWS_HANDLE (f))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
403 && !IsIconic (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 mswindows_iconify_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
410 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_MINIMIZE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 f->visible = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 f->iconified = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 mswindows_frame_iconified_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
418 return IsIconic (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 mswindows_set_frame_icon (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 if (IMAGE_INSTANCEP (f->icon)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 && IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (f->icon)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 if (!XIMAGE_INSTANCE_MSWINDOWS_ICON (f->icon))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
429 mswindows_initialize_image_instance_icon (XIMAGE_INSTANCE (f->icon),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 FALSE);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
432
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
433 qxeSetClassLong (FRAME_MSWINDOWS_HANDLE (f), GCL_HICON,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
434 (LONG) XIMAGE_INSTANCE_MSWINDOWS_ICON (f->icon));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 mswindows_set_frame_pointer (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 if (IMAGE_INSTANCEP (f->pointer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 && IMAGE_INSTANCE_TYPE (XIMAGE_INSTANCE (f->pointer)) == IMAGE_POINTER)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
444 qxeSetClassLong (FRAME_MSWINDOWS_HANDLE (f), GCL_HCURSOR,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
445 (LONG) XIMAGE_INSTANCE_MSWINDOWS_ICON (f->pointer));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 /* 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
447 event and doesn't give time to event processing even if it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 did. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 SetCursor (XIMAGE_INSTANCE_MSWINDOWS_ICON (f->pointer));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 mswindows_set_mouse_position (struct window *w, int x, int y)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 POINT pt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 pt.x = w->pixel_left + x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 pt.y = w->pixel_top + y;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
461 ClientToScreen (FRAME_MSWINDOWS_HANDLE (f), &pt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 SetCursorPos (pt.x, pt.y);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 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
467 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 POINT pt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 HWND hwnd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 GetCursorPos (&pt);
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 /* What's under cursor? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 hwnd = WindowFromPoint (pt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 if (hwnd == NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 /* Get grandest parent of the window */
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 HWND hwnd_parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 while ((hwnd_parent = GetParent (hwnd)) != NULL)
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 /* Make sure it belongs to us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 if (GetWindowThreadProcessId (hwnd, NULL) != GetCurrentThreadId ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 /* 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
490 if (!mswindows_window_is_xemacs (hwnd))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
491 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 /* Yippie! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 ScreenToClient (hwnd, &pt);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
495 *frame = VOID_TO_LISP ((void *) qxeGetWindowLong (hwnd, XWL_FRAMEOBJ));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 *x = pt.x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 *y = pt.y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 mswindows_raise_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
504 BringWindowToTop (FRAME_MSWINDOWS_HANDLE (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 mswindows_lower_frame (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
510 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), HWND_BOTTOM, 0, 0, 0, 0,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 SWP_NOSIZE | SWP_NOMOVE | SWP_NOSENDCHANGING);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
515 mswindows_enable_frame (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
516 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
517 EnableWindow (FRAME_MSWINDOWS_HANDLE (f), TRUE);
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
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
520 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
521 mswindows_disable_frame (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
522 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
523 EnableWindow (FRAME_MSWINDOWS_HANDLE (f), FALSE);
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
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
526 static void
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 593
diff changeset
527 mswindows_set_title_from_intbyte (struct frame *f, Intbyte *title)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
529 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
530 if (new_checksum != FRAME_MSWINDOWS_TITLE_CHECKSUM (f))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 546
diff changeset
532 Extbyte *title_ext;
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 546
diff changeset
533
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 546
diff changeset
534 FRAME_MSWINDOWS_TITLE_CHECKSUM (f) = new_checksum;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
535 C_STRING_TO_TSTR (title, title_ext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
536 qxeSetWindowText (FRAME_MSWINDOWS_HANDLE (f), title_ext);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 }
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 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 mswindows_frame_property (struct frame *f, Lisp_Object property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 if (EQ (Qleft, property) || EQ (Qtop, 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 RECT rc;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
546 GetWindowRect (FRAME_MSWINDOWS_HANDLE (f), &rc);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 return make_int (EQ (Qtop, property) ? rc.top : rc.left);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 return Qunbound;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 mswindows_internal_frame_property_p (struct frame *f, Lisp_Object property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 return EQ (property, Qleft)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 || EQ (property, Qtop);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 /* #### frame-x.c has also this. Why?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 || STRINGP (property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 }
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 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 mswindows_frame_properties (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 Lisp_Object props = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 RECT rc;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
567 GetWindowRect (FRAME_MSWINDOWS_HANDLE (f), &rc);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 props = cons3 (Qtop, make_int (rc.top), props);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 props = cons3 (Qleft, make_int (rc.left), props);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 return 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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 mswindows_set_frame_properties (struct frame *f, Lisp_Object plist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 int x=-1, y=-1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 int width = -1, height = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 BOOL width_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 BOOL height_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 BOOL x_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 BOOL y_specified_p = FALSE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 Lisp_Object tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 /* Extract the properties from plist */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 Lisp_Object prop = Fcar (tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 Lisp_Object val = Fcar (Fcdr (tail));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 if (SYMBOLP (prop))
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 /* Kludge to handle the font property. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 if (EQ (prop, Qfont))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 /* If the value is not a string we silently ignore it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 if (STRINGP (val))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 Lisp_Object frm, font_spec;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
601
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
602 frm = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 font_spec = Fget (Fget_face (Qdefault), Qfont, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 Fadd_spec_to_specifier (font_spec, val, frm, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 update_frame_face_values (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 else if (EQ (prop, Qwidth))
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 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 width = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 width_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 else if (EQ (prop, Qheight))
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 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 height = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 height_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 else if (EQ (prop, Qleft))
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 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 x = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 x_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 else if (EQ (prop, Qtop))
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 CHECK_INT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 y = XINT (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 y_specified_p = TRUE;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 }
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 /* Now we've extracted the properties, apply them.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 Do not apply geometric properties during frame creation. This
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
638 is excessive anyways, and this loses because WM_SIZE has not
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 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
640
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 unfortunately WM_SIZE loses as well since the resize is only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 applied once and the first time WM_SIZE is applied not everything
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 is initialised in the frame (toolbars for instance). enabling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 this always makes no visible difference and fixes a whole host of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 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
646 --andyp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 if ( FRAME_PIXWIDTH (f) && FRAME_PIXHEIGHT (f)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
648 && (width_specified_p || height_specified_p
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
649 || x_specified_p || y_specified_p))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 XEMACS_RECT_WH dest = { x, y, width, height };
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 mswindows_size_frame_internal (f, &dest);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
657 void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
658 mswindows_size_frame_internal (struct frame *f, XEMACS_RECT_WH *dest)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
660 RECT rect, ws_rect;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 int pixel_width, pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 int size_p = (dest->width >=0 || dest->height >=0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 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
664 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
665 &pixel_height);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
666
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 if (dest->width < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 pixel_width = FRAME_PIXWIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 if (dest->height < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 pixel_height = FRAME_PIXHEIGHT (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
672 GetWindowRect (FRAME_MSWINDOWS_HANDLE (f), &rect);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 if (dest->left < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 dest->left = rect.left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 if (dest->top < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 dest->top = rect.top;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
677
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 rect.left = rect.top = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 rect.right = pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 rect.bottom = pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 AdjustWindowRectEx (&rect,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
683 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_STYLE),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
684 GetMenu (FRAME_MSWINDOWS_HANDLE (f)) != NULL,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
685 qxeGetWindowLong (FRAME_MSWINDOWS_HANDLE (f), GWL_EXSTYLE));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
687 /* 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
688 not restrictive since this will happen later anyway in WM_SIZE. We
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 have to do this after adjusting the rect to account for menubar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 etc. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
691 mswindows_get_workspace_coords (&ws_rect);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 pixel_width = rect.right - rect.left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 pixel_height = rect.bottom - rect.top;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
694 if (pixel_width > ws_rect.right - ws_rect.left)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
696 pixel_width = ws_rect.right - ws_rect.left;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 size_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
699 if (pixel_height > ws_rect.bottom - ws_rect.top)
428
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 pixel_height = ws_rect.bottom - ws_rect.top;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 size_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
705 /* adjust position so window is in workspace */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
706 if (dest->left + pixel_width > ws_rect.right)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
708 dest->left = ws_rect.right - pixel_width;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 move_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
711 if (dest->left < ws_rect.left)
428
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 dest->left = ws_rect.left;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 move_p=1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
717 if (dest->top + pixel_height > ws_rect.bottom)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
718 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
719 dest->top = ws_rect.bottom - pixel_height;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
720 move_p=1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
721 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
722 if (dest->top < ws_rect.top)
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 dest->top = ws_rect.top;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
725 move_p=1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
726 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
727
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
728 if (IsIconic (FRAME_MSWINDOWS_HANDLE (f))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
729 || IsZoomed (FRAME_MSWINDOWS_HANDLE (f)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
730 ShowWindow (FRAME_MSWINDOWS_HANDLE (f), SW_RESTORE);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
732 SetWindowPos (FRAME_MSWINDOWS_HANDLE (f), NULL,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 dest->left, dest->top, pixel_width, pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSENDCHANGING
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 | (size_p ? 0 : SWP_NOSIZE)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 | (move_p ? 0 : SWP_NOMOVE));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 mswindows_get_frame_parent (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
742 HWND hwnd = FRAME_MSWINDOWS_HANDLE (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 hwnd = GetParent (hwnd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 if (hwnd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 Lisp_Object parent;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
747 parent = VOID_TO_LISP ((void *) qxeGetWindowLong (hwnd, XWL_FRAMEOBJ));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 assert (FRAME_MSWINDOWS_P (XFRAME (parent)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 return parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 static void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
756 mswindows_update_frame_external_traits (struct frame *frm, Lisp_Object name)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 mswindows_frame_size_fixed_p (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 /* Frame size cannot change if the frame is maximized */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 return IsZoomed (FRAME_MSWINDOWS_HANDLE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
767 /*---------------------------------------------------------------------*/
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
768 /*----- PRINTER FRAME -----*/
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
771 /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
772 * With some driver/os combination (I discovered this with HP drivers
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
773 * under W2K), DC geometry is reset upon StartDoc and EndPage
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
774 * 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
775 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
776 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
777 apply_dc_geometry (struct frame* f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
778 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
779 HDC hdc = DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
780 SetTextAlign (hdc, TA_BASELINE | TA_LEFT | TA_NOUPDATECP);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
781 SetViewportOrgEx (hdc, FRAME_MSPRINTER_PIXLEFT(f),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
782 FRAME_MSPRINTER_PIXTOP(f), NULL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
783 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
784
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
785 void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
786 msprinter_start_page (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
787 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
788 if (!FRAME_MSPRINTER_PAGE_STARTED (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 FRAME_MSPRINTER_PAGE_STARTED (f) = 1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
791 StartPage (DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
792 apply_dc_geometry (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
793 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
794 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
795
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
796 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
797 error_frame_unsizable (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
798 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
799 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
800
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
801 invalid_change ("Cannot resize frame (margins) after print job has started.",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
802 frame);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
803 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
804
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
805 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
806 maybe_error_if_job_active (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
807 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
808 if (FRAME_MSPRINTER_JOB_STARTED (f))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
809 error_frame_unsizable (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
810 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
811
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
812 static void
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
813 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
814 int frame_name_is_defaulted)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
815 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
816 /* 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
817 handle only one job at a time. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
818 if (!NILP (DEVICE_FRAME_LIST (XDEVICE (FRAME_DEVICE (f)))))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
819 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
820 "this printer device", FRAME_DEVICE (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
821
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
822 f->frame_data = xnew_and_zero (struct msprinter_frame);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
823
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
824 FRAME_MSPRINTER_TOP_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
825 mswindows_get_default_margin (Qtop_margin);
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
826 FRAME_MSPRINTER_BOTTOM_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
827 mswindows_get_default_margin (Qbottom_margin);
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
828 FRAME_MSPRINTER_LEFT_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
829 mswindows_get_default_margin (Qleft_margin);
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
830 FRAME_MSPRINTER_RIGHT_MARGIN (f) =
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
831 mswindows_get_default_margin (Qright_margin);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
832
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
833 /* Negative for "uinspecified" */
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
834 FRAME_MSPRINTER_CHARWIDTH (f) = -1;
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
835 FRAME_MSPRINTER_CHARHEIGHT (f) = -1;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
836 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
837
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
838 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
839 msprinter_init_frame_3 (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
840 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
841 DOCINFOW di;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
842 struct device *device = XDEVICE (FRAME_DEVICE (f));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
843 HDC hdc;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
844 int frame_left, frame_top, frame_width, frame_height;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
845
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
846 /* DC might be recreated in msprinter_apply_devmode,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
847 so do not initialize until now */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
848 hdc = DEVICE_MSPRINTER_HDC (device);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
849
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
850 /* Compute geometry properties */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
851 frame_left = (MulDiv (GetDeviceCaps (hdc, LOGPIXELSX),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
852 FRAME_MSPRINTER_LEFT_MARGIN (f), 1440)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
853 - GetDeviceCaps (hdc, PHYSICALOFFSETX));
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
854
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
855 if (FRAME_MSPRINTER_CHARWIDTH (f) > 0)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
856 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
857 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
858 &frame_width, NULL);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
859 FRAME_MSPRINTER_RIGHT_MARGIN (f) =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
860 MulDiv (GetDeviceCaps (hdc, PHYSICALWIDTH)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
861 - (frame_left + frame_width), 1440,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
862 GetDeviceCaps (hdc, LOGPIXELSX));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
863 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
864 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
865 frame_width = (GetDeviceCaps (hdc, PHYSICALWIDTH)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
866 - frame_left
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
867 - MulDiv (GetDeviceCaps (hdc, LOGPIXELSX),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
868 FRAME_MSPRINTER_RIGHT_MARGIN (f), 1440));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
869
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
870 frame_top = (MulDiv (GetDeviceCaps (hdc, LOGPIXELSY),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
871 FRAME_MSPRINTER_TOP_MARGIN (f), 1440)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
872 - GetDeviceCaps (hdc, PHYSICALOFFSETY));
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
873
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
874 if (FRAME_MSPRINTER_CHARHEIGHT (f) > 0)
440
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 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
877 NULL, &frame_height);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
878
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
879 FRAME_MSPRINTER_BOTTOM_MARGIN (f) =
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
880 MulDiv (GetDeviceCaps (hdc, PHYSICALHEIGHT)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
881 - (frame_top + frame_height), 1440,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
882 GetDeviceCaps (hdc, LOGPIXELSY));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
883 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
884 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
885 frame_height = (GetDeviceCaps (hdc, PHYSICALHEIGHT)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
886 - frame_top
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
887 - MulDiv (GetDeviceCaps (hdc, LOGPIXELSY),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
888 FRAME_MSPRINTER_BOTTOM_MARGIN (f), 1440));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
889
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
890 /* Geometry sanity checks */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
891 if (!frame_pixsize_valid_p (f, frame_width, frame_height))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
892 invalid_operation ("Area inside print margins has shrunk to naught",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
893 STRINGP (f->name) ? f->name : Qunbound);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
894
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
895 if (frame_left < 0
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
896 || frame_top < 0
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
897 || frame_left + frame_width > GetDeviceCaps (hdc, HORZRES)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
898 || frame_top + frame_height > GetDeviceCaps (hdc, VERTRES))
546
666d73d6ac56 [xemacs-hg @ 2001-05-20 01:17:07 by ben]
ben
parents: 536
diff changeset
899 invalid_operation ("Print area is outside of the printer's "
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
900 "hardware printable area",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
901 STRINGP (f->name) ? f->name : Qunbound);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
902
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
903 /* Apply XEmacs frame geometry and layout windows */
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 int rows, columns;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
906 FRAME_PIXWIDTH (f) = frame_width;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
907 FRAME_PIXHEIGHT (f) = frame_height;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
908 pixel_to_char_size (f, frame_width, frame_height, &columns, &rows);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
909 change_frame_size (f, rows, columns, 0);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
910 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
911
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
912 FRAME_MSPRINTER_PIXLEFT(f) = frame_left;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
913 FRAME_MSPRINTER_PIXTOP(f) = frame_top;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
914
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
915 /* Start print job */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
916 di.cbSize = sizeof (di);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
917 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
918 const Extbyte *nameext;
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 if (STRINGP (f->name))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
921 LISP_STRING_TO_TSTR (f->name, nameext);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
922 else
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
923 nameext = XETEXT ("XEmacs print document");
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
924 di.lpszDocName = (XELPTSTR) nameext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
925 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
926 di.lpszOutput = NULL;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
927 di.lpszDatatype = NULL;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
928 di.fwType = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
929
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
930 if (qxeStartDoc (hdc, &di) <= 0)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
931 invalid_operation ("Cannot start print job",
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
932 STRINGP (f->name) ? f->name : Qunbound);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
933
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
934 apply_dc_geometry (f);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
935
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
936 /* Finish frame setup */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
937 FRAME_MSPRINTER_JOB_STARTED (f) = 1;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
938 FRAME_VISIBLE_P (f) = 0;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
939 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
940
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
941 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
942 msprinter_mark_frame (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
943 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
944 }
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 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
947 msprinter_delete_frame (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
948 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
949 if (f->frame_data)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
950 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
951 HDC hdc = DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
952 if (FRAME_MSPRINTER_PAGE_STARTED (f))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
953 EndPage (hdc);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
954 if (FRAME_MSPRINTER_JOB_STARTED (f))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
955 EndDoc (hdc);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
956 xfree (f->frame_data);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
957 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
958
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
959 f->frame_data = 0;
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
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
962 static Lisp_Object
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
963 msprinter_frame_property (struct frame *f, Lisp_Object property)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
964 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
965 if (EQ (Qleft_margin, property))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
966 return make_int (FRAME_MSPRINTER_LEFT_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
967 else if (EQ (Qtop_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_TOP_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
969 if (EQ (Qright_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_RIGHT_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
971 else if (EQ (Qbottom_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_BOTTOM_MARGIN (f));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
973 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
974 return Qunbound;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
975 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
976
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
977 static int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
978 msprinter_internal_frame_property_p (struct frame *f, Lisp_Object property)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
979 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
980 return (EQ (Qleft_margin, property) || EQ (Qtop_margin, property) ||
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
981 EQ (Qright_margin, property) || EQ (Qbottom_margin, property));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
982 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
983
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
984 static Lisp_Object
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
985 msprinter_frame_properties (struct frame *f)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
986 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
987 Lisp_Object props = Qnil;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
988 props = cons3 (Qbottom_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
989 make_int (FRAME_MSPRINTER_BOTTOM_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
990 props = cons3 (Qright_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
991 make_int (FRAME_MSPRINTER_RIGHT_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
992 props = cons3 (Qtop_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
993 make_int (FRAME_MSPRINTER_TOP_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
994 props = cons3 (Qleft_margin,
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
995 make_int (FRAME_MSPRINTER_LEFT_MARGIN (f)), props);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
996 return props;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
997 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
998
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
999 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1000 msprinter_set_frame_properties (struct frame *f, Lisp_Object plist)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1001 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1002 Lisp_Object tail;
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 /* Extract the properties from plist */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1005 for (tail = plist; !NILP (tail); tail = Fcdr (Fcdr (tail)))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1006 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1007 Lisp_Object prop = Fcar (tail);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1008 Lisp_Object val = Fcar (Fcdr (tail));
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1009
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1010 if (SYMBOLP (prop))
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 (EQ (prop, Qwidth))
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 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1015 if (!NILP (val))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1016 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1017 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1018 FRAME_MSPRINTER_CHARWIDTH (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1019 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1020 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1021 if (EQ (prop, Qheight))
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 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1024 if (!NILP (val))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1025 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1026 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1027 FRAME_MSPRINTER_CHARHEIGHT (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1028 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1029 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1030 else if (EQ (prop, Qleft_margin))
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 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1033 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1034 FRAME_MSPRINTER_LEFT_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1035 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1036 else if (EQ (prop, Qtop_margin))
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 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1039 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1040 FRAME_MSPRINTER_TOP_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1041 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1042 else if (EQ (prop, Qright_margin))
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 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1045 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1046 FRAME_MSPRINTER_RIGHT_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1047 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1048 else if (EQ (prop, Qbottom_margin))
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 maybe_error_if_job_active (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1051 CHECK_NATNUM (val);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
1052 FRAME_MSPRINTER_BOTTOM_MARGIN (f) = XINT (val);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1053 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1054 }
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 static void
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1059 msprinter_set_frame_size (struct frame *f, int width, int height)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1060 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1061 /* We're absolutely unsizeable */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1062 error_frame_unsizable (f);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1063 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1064
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1065 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1066 msprinter_eject_page (struct frame *f)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1067 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1068 /* #### Should we eject empty pages? */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1069 if (FRAME_MSPRINTER_PAGE_STARTED (f))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1070 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1071 FRAME_MSPRINTER_PAGE_STARTED (f) = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1072 EndPage (DEVICE_MSPRINTER_HDC (XDEVICE (FRAME_DEVICE (f))));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1073 apply_dc_geometry (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1074 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1075 }
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
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 console_type_create_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1081 /* Display frames */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 CONSOLE_HAS_METHOD (mswindows, init_frame_1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1083 CONSOLE_HAS_METHOD (mswindows, init_frame_2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 CONSOLE_HAS_METHOD (mswindows, init_frame_3);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 CONSOLE_HAS_METHOD (mswindows, after_init_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 CONSOLE_HAS_METHOD (mswindows, mark_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087 CONSOLE_HAS_METHOD (mswindows, focus_on_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1088 CONSOLE_HAS_METHOD (mswindows, delete_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 CONSOLE_HAS_METHOD (mswindows, get_mouse_position);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 CONSOLE_HAS_METHOD (mswindows, set_mouse_position);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 CONSOLE_HAS_METHOD (mswindows, raise_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 CONSOLE_HAS_METHOD (mswindows, lower_frame);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1093 CONSOLE_HAS_METHOD (mswindows, enable_frame);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1094 CONSOLE_HAS_METHOD (mswindows, disable_frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 CONSOLE_HAS_METHOD (mswindows, make_frame_visible);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 CONSOLE_HAS_METHOD (mswindows, make_frame_invisible);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 CONSOLE_HAS_METHOD (mswindows, iconify_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 CONSOLE_HAS_METHOD (mswindows, set_frame_size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 CONSOLE_HAS_METHOD (mswindows, set_frame_position);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 CONSOLE_HAS_METHOD (mswindows, frame_property);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 CONSOLE_HAS_METHOD (mswindows, internal_frame_property_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 CONSOLE_HAS_METHOD (mswindows, frame_properties);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 CONSOLE_HAS_METHOD (mswindows, set_frame_properties);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 593
diff changeset
1104 CONSOLE_HAS_METHOD (mswindows, set_title_from_intbyte);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 593
diff changeset
1105 /* CONSOLE_HAS_METHOD (mswindows, set_icon_name_from_intbyte); */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106 CONSOLE_HAS_METHOD (mswindows, frame_visible_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 CONSOLE_HAS_METHOD (mswindows, frame_totally_visible_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 CONSOLE_HAS_METHOD (mswindows, frame_iconified_p);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1109 CONSOLE_HAS_METHOD (mswindows, set_frame_pointer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1110 CONSOLE_HAS_METHOD (mswindows, set_frame_icon);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 CONSOLE_HAS_METHOD (mswindows, get_frame_parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 CONSOLE_HAS_METHOD (mswindows, update_frame_external_traits);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 CONSOLE_HAS_METHOD (mswindows, frame_size_fixed_p);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1114
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1115 /* Printer frames, aka print jobs */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1116 CONSOLE_HAS_METHOD (msprinter, init_frame_1);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1117 CONSOLE_HAS_METHOD (msprinter, init_frame_3);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1118 CONSOLE_HAS_METHOD (msprinter, mark_frame);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1119 CONSOLE_HAS_METHOD (msprinter, delete_frame);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1120 CONSOLE_HAS_METHOD (msprinter, frame_property);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1121 CONSOLE_HAS_METHOD (msprinter, internal_frame_property_p);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1122 CONSOLE_HAS_METHOD (msprinter, frame_properties);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1123 CONSOLE_HAS_METHOD (msprinter, set_frame_properties);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1124 CONSOLE_HAS_METHOD (msprinter, set_frame_size);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1125 CONSOLE_HAS_METHOD (msprinter, eject_page);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129 syms_of_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131 }
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 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 reinit_vars_of_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136 /* Needn't staticpro -- see comment above. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 Vmswindows_frame_being_created = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141 vars_of_frame_mswindows (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 reinit_vars_of_frame_mswindows ();
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 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
1146 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
1147 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
1148 then the system will choose default sizes for the frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 Vmswindows_use_system_frame_size_defaults = Qnil;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1151
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 DEFVAR_LISP ("default-mswindows-frame-plist", &Vdefault_mswindows_frame_plist /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 Plist of default frame-creation properties for mswindows frames.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 These override what is specified in `default-frame-plist', but are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 overridden by the arguments to the particular call to `make-frame'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 Note: In many cases, properties of a frame are available as specifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 instead of through the frame-properties mechanism.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 Here is a list of recognized frame properties, other than those
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 documented in `set-frame-properties' (they can be queried and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 set at any time, except as otherwise noted):
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 initially-unmapped If non-nil, the frame will not be visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 when it is created. In this case, you
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 need to call `make-frame-visible' to make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1167 the frame appear.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168 popup If non-nil, it should be a frame, and this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169 frame will be created as a "popup" frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 whose parent is the given frame. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 will make the window manager treat the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172 frame as a dialog box, which may entail
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 doing different things (e.g. not asking
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174 for positioning, and not iconifying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 separate from its parent).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 top Y position (in pixels) of the upper-left
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 outermost corner of the frame (i.e. the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178 upper-left of the window-manager
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 decorations).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1180 left X position (in pixels) of the upper-left
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181 outermost corner of the frame (i.e. the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182 upper-left of the window-manager
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 decorations).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 See also `default-frame-plist', which specifies properties which apply
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186 to all frames, not just mswindows frames.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1187 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188 Vdefault_mswindows_frame_plist = Qnil;
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 mswindows_console_methods->device_specific_frame_props =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191 &Vdefault_mswindows_frame_plist;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1192
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1193 DEFVAR_LISP ("default-msprinter-frame-plist", &Vdefault_msprinter_frame_plist /*
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1194 Plist of default frame-creation properties for msprinter print job frames.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1195 These override what is specified in `default-frame-plist', but are
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1196 overridden by the arguments to the particular call to `make-frame'.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1197
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1198 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
1199 instead of through the frame-properties mechanism.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1200
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1201 Here is a list of recognized frame properties, other than those
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1202 documented in `set-frame-properties' (they can be queried and
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1203 set at any time, except as otherwise noted):
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1204
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1205 left-margin Margin of the page, in twips. Twip is a
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1206 top-margin typographical unit of measurement,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1207 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
1208 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
1209 millimeter. If not specified, the left
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1210 and right margins default to 1 inch
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1211 (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
1212 to 0.5 inch (12.7 mm).
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1213
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1214 MARGINS NOTE. right-margin and bottom-margin are overridden by
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1215 the height and width properties. If you want to specify size
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1216 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
1217 use these properties. If height and/or width are nil, then
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1218 corresponding margin setting is taken into account. If you
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1219 specify height and/or width in `default-frame-plist', but still
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1220 want to specify right/bottom margins, set height/width in this
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1221 plist to nil, as in this example:
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1222
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1223 (setq default-frame-plist '(height 55 width 80)
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 464
diff changeset
1224 default-msprinter-frame-plist '(height nil width nil))
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1225
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1226 See also `default-frame-plist', which specifies properties which apply
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1227 to all frames, not just mswindows frames.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1228 */ );
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1229 Vdefault_msprinter_frame_plist = Qnil;
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 msprinter_console_methods->device_specific_frame_props =
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1232 &Vdefault_msprinter_frame_plist;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 }