1 /* mswindows GUI code. (menubars, scrollbars, toolbars, dialogs)
2 Copyright (C) 1998 Andy Piper.
4 This file is part of XEmacs.
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
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
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. */
21 /* Synched up with: Not in FSF. */
25 #include "redisplay.h"
31 #include "console-msw.h"
35 * Return value is Qt if we have dispatched the command,
36 * or Qnil if id has not been mapped to a callback.
37 * Window procedure may try other targets to route the
38 * command if we return nil
41 mswindows_handle_gui_wm_command (struct frame* f, HWND ctrl, LPARAM id)
43 /* Try to map the command id through the proper hash table */
44 Lisp_Object callback, callback_ex, image_instance, frame, event;
48 /* #### make_int should assert that --kkm */
49 assert (XINT (make_int (id)) == id);
51 image_instance = Fgethash (make_int (id),
52 FRAME_MSWINDOWS_WIDGET_HASH_TABLE1 (f), Qnil);
53 callback = Fgethash (make_int (id),
54 FRAME_MSWINDOWS_WIDGET_HASH_TABLE2 (f), Qnil);
55 callback_ex = Fgethash (make_int (id),
56 FRAME_MSWINDOWS_WIDGET_HASH_TABLE3 (f), Qnil);
58 if (!NILP (callback_ex) && !UNBOUNDP (callback_ex))
60 event = Fmake_event (Qnil, Qnil);
62 XEVENT (event)->event_type = misc_user_event;
63 XEVENT (event)->channel = frame;
64 XEVENT (event)->timestamp = GetTickCount ();
65 XEVENT (event)->event.eval.function = Qeval;
66 XEVENT (event)->event.eval.object =
67 list4 (Qfuncall, callback_ex, image_instance, event);
69 else if (NILP (callback) || UNBOUNDP (callback))
75 event = Fmake_event (Qnil, Qnil);
77 get_gui_callback (callback, &fn, &arg);
78 XEVENT (event)->event_type = misc_user_event;
79 XEVENT (event)->channel = frame;
80 XEVENT (event)->timestamp = GetTickCount ();
81 XEVENT (event)->event.eval.function = fn;
82 XEVENT (event)->event.eval.object = arg;
85 mswindows_enqueue_dispatch_event (event);
86 /* The result of this evaluation could cause other instances to change so
87 enqueue an update callback to check this. We also have to make sure that
88 the function does not appear in the command history.
89 #### I'm sure someone can tell me how to optimize this. */
90 mswindows_enqueue_misc_user_event
95 list2 (Qupdate_widget_instances, frame)));
99 DEFUN ("mswindows-shell-execute", Fmswindows_shell_execute, 2, 4, 0, /*
100 Get Windows to perform OPERATION on DOCUMENT.
101 This is a wrapper around the ShellExecute system function, which
102 invokes the application registered to handle OPERATION for DOCUMENT.
103 OPERATION is typically \"open\", \"print\" or \"explore\" (but can be
104 nil for the default action), and DOCUMENT is typically the name of a
105 document file or URL, but can also be a program executable to run or
106 a directory to open in the Windows Explorer.
108 If DOCUMENT is a program executable, PARAMETERS can be a string
109 containing command line parameters, but otherwise should be nil.
111 SHOW-FLAG can be used to control whether the invoked application is hidden
112 or minimized. If SHOW-FLAG is nil, the application is displayed normally,
113 otherwise it is an integer representing a ShowWindow flag:
120 (operation, document, parameters, show_flag))
122 /* Encode filename and current directory. */
123 Lisp_Object current_dir = Ffile_name_directory (document);
128 struct gcpro gcpro1, gcpro2;
130 CHECK_STRING (document);
132 if (NILP (current_dir))
133 current_dir = current_buffer->directory;
135 GCPRO2 (current_dir, document);
137 /* Use mule and cygwin-safe APIs top get at file data. */
138 if (STRINGP (current_dir))
140 TO_EXTERNAL_FORMAT (LISP_STRING, current_dir,
144 CYGWIN_WIN32_PATH (f, path);
150 if (STRINGP (document))
152 TO_EXTERNAL_FORMAT (LISP_STRING, document,
156 CYGWIN_WIN32_PATH (f, doc);
164 ret = (int) ShellExecute (NULL,
165 (STRINGP (operation) ?
166 XSTRING_DATA (operation) : NULL),
168 (STRINGP (parameters) ?
169 XSTRING_DATA (parameters) : NULL),
172 XINT (show_flag) : SW_SHOWDEFAULT));
177 if (ret == ERROR_FILE_NOT_FOUND)
178 signal_simple_error ("file not found", document);
179 else if (ret == ERROR_PATH_NOT_FOUND)
180 signal_simple_error ("path not found", current_dir);
181 else if (ret == ERROR_BAD_FORMAT)
182 signal_simple_error ("bad executable format", document);
184 error ("internal error");
190 syms_of_gui_mswindows (void)
192 DEFSUBR (Fmswindows_shell_execute);