|
428
|
1 /* mswindows GUI code. (menubars, scrollbars, toolbars, dialogs)
|
|
|
2 Copyright (C) 1998 Andy Piper.
|
|
|
3
|
|
|
4 This file is part of XEmacs.
|
|
|
5
|
|
|
6 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 under the terms of the GNU General Public License as published by the
|
|
|
8 Free Software Foundation; either version 2, or (at your option) any
|
|
|
9 later version.
|
|
|
10
|
|
|
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with XEmacs; see the file COPYING. If not, write to
|
|
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
19 Boston, MA 02111-1307, USA. */
|
|
|
20
|
|
|
21 /* Synched up with: Not in FSF. */
|
|
|
22
|
|
|
23 #include <config.h>
|
|
|
24 #include "lisp.h"
|
|
|
25 #include "gui.h"
|
|
|
26 #include "redisplay.h"
|
|
|
27 #include "frame.h"
|
|
|
28 #include "elhash.h"
|
|
|
29 #include "console-msw.h"
|
|
440
|
30 #include "buffer.h"
|
|
428
|
31
|
|
|
32 /*
|
|
|
33 * Return value is Qt if we have dispatched the command,
|
|
|
34 * or Qnil if id has not been mapped to a callback.
|
|
|
35 * Window procedure may try other targets to route the
|
|
|
36 * command if we return nil
|
|
|
37 */
|
|
|
38 Lisp_Object
|
|
440
|
39 mswindows_handle_gui_wm_command (struct frame* f, HWND ctrl, DWORD id)
|
|
428
|
40 {
|
|
|
41 /* Try to map the command id through the proper hash table */
|
|
|
42 Lisp_Object data, fn, arg, frame;
|
|
|
43
|
|
440
|
44 /* #### make_int should assert that --kkm */
|
|
|
45 assert (XINT (make_int (id)) == id);
|
|
|
46
|
|
428
|
47 data = Fgethash (make_int (id),
|
|
|
48 FRAME_MSWINDOWS_WIDGET_HASH_TABLE (f), Qnil);
|
|
|
49
|
|
|
50 if (NILP (data) || UNBOUNDP (data))
|
|
|
51 return Qnil;
|
|
|
52
|
|
|
53 MARK_SUBWINDOWS_STATE_CHANGED;
|
|
|
54 /* Ok, this is our one. Enqueue it. */
|
|
|
55 get_gui_callback (data, &fn, &arg);
|
|
|
56 XSETFRAME (frame, f);
|
|
|
57 mswindows_enqueue_misc_user_event (frame, fn, arg);
|
|
|
58
|
|
|
59 return Qt;
|
|
|
60 }
|
|
|
61
|
|
440
|
62 DEFUN ("mswindows-shell-execute", Fmswindows_shell_execute, 2, 4, 0, /*
|
|
|
63 Get Windows to perform OPERATION on DOCUMENT.
|
|
|
64 This is a wrapper around the ShellExecute system function, which
|
|
|
65 invokes the application registered to handle OPERATION for DOCUMENT.
|
|
|
66 OPERATION is typically \"open\", \"print\" or \"explore\" (but can be
|
|
|
67 nil for the default action), and DOCUMENT is typically the name of a
|
|
|
68 document file or URL, but can also be a program executable to run or
|
|
|
69 a directory to open in the Windows Explorer.
|
|
|
70
|
|
|
71 If DOCUMENT is a program executable, PARAMETERS can be a string
|
|
|
72 containing command line parameters, but otherwise should be nil.
|
|
|
73
|
|
|
74 SHOW-FLAG can be used to control whether the invoked application is hidden
|
|
|
75 or minimized. If SHOW-FLAG is nil, the application is displayed normally,
|
|
|
76 otherwise it is an integer representing a ShowWindow flag:
|
|
|
77
|
|
|
78 0 - start hidden
|
|
|
79 1 - start normally
|
|
|
80 3 - start maximized
|
|
|
81 6 - start minimized
|
|
|
82 */
|
|
|
83 (operation, document, parameters, show_flag))
|
|
|
84 {
|
|
|
85 Lisp_Object current_dir;
|
|
|
86
|
|
|
87 CHECK_STRING (document);
|
|
|
88
|
|
|
89 /* Encode filename and current directory. */
|
|
|
90 current_dir = current_buffer->directory;
|
|
|
91 if ((int) ShellExecute (NULL,
|
|
|
92 (STRINGP (operation) ?
|
|
|
93 XSTRING (operation)->data : NULL),
|
|
|
94 XSTRING (document)->data,
|
|
|
95 (STRINGP (parameters) ?
|
|
|
96 XSTRING (parameters)->data : NULL),
|
|
|
97 XSTRING (current_dir)->data,
|
|
|
98 (INTP (show_flag) ?
|
|
|
99 XINT (show_flag) : SW_SHOWDEFAULT))
|
|
|
100 > 32)
|
|
|
101 return Qt;
|
|
|
102
|
|
|
103 error ("ShellExecute failed");
|
|
|
104 return Qnil;
|
|
|
105 }
|
|
|
106
|
|
|
107 void
|
|
|
108 syms_of_gui_mswindows (void)
|
|
|
109 {
|
|
|
110 DEFSUBR (Fmswindows_shell_execute);
|
|
|
111 }
|
