428
+ − 1 /* mswindows GUI code. (menubars, scrollbars, toolbars, dialogs)
+ − 2 Copyright (C) 1998 Andy Piper.
1204
+ − 3 Copyright (C) 2002 Ben Wing.
428
+ − 4
+ − 5 This file is part of XEmacs.
+ − 6
+ − 7 XEmacs is free software; you can redistribute it and/or modify it
+ − 8 under the terms of the GNU General Public License as published by the
+ − 9 Free Software Foundation; either version 2, or (at your option) any
+ − 10 later version.
+ − 11
+ − 12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 15 for more details.
+ − 16
+ − 17 You should have received a copy of the GNU General Public License
+ − 18 along with XEmacs; see the file COPYING. If not, write to
+ − 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 20 Boston, MA 02111-1307, USA. */
+ − 21
+ − 22 /* Synched up with: Not in FSF. */
+ − 23
771
+ − 24 /* This file essentially Mule-ized (except perhaps some Unicode splitting).
+ − 25 5-2000. */
+ − 26
428
+ − 27 #include <config.h>
+ − 28 #include "lisp.h"
872
+ − 29 #include "console-msw-impl.h"
442
+ − 30 #include "redisplay.h"
428
+ − 31 #include "gui.h"
442
+ − 32 #include "glyphs.h"
872
+ − 33 #include "frame-impl.h"
428
+ − 34 #include "elhash.h"
442
+ − 35 #include "events.h"
440
+ − 36 #include "buffer.h"
428
+ − 37
+ − 38 /*
+ − 39 * Return value is Qt if we have dispatched the command,
+ − 40 * or Qnil if id has not been mapped to a callback.
+ − 41 * Window procedure may try other targets to route the
+ − 42 * command if we return nil
+ − 43 */
+ − 44 Lisp_Object
2286
+ − 45 mswindows_handle_gui_wm_command (struct frame *f, HWND UNUSED (ctrl),
+ − 46 LPARAM id)
428
+ − 47 {
+ − 48 /* Try to map the command id through the proper hash table */
442
+ − 49 Lisp_Object callback, callback_ex, image_instance, frame, event;
+ − 50
793
+ − 51 frame = wrap_frame (f);
428
+ − 52
826
+ − 53 image_instance = Fgethash (make_int_verify (id),
442
+ − 54 FRAME_MSWINDOWS_WIDGET_HASH_TABLE1 (f), Qnil);
+ − 55 /* It is possible for a widget action to cause it to get out of sync
+ − 56 with its instantiator. Thus it is necessary to signal this
+ − 57 possibility. */
+ − 58 if (IMAGE_INSTANCEP (image_instance))
+ − 59 XIMAGE_INSTANCE_WIDGET_ACTION_OCCURRED (image_instance) = 1;
+ − 60 callback = Fgethash (make_int (id),
+ − 61 FRAME_MSWINDOWS_WIDGET_HASH_TABLE2 (f), Qnil);
+ − 62 callback_ex = Fgethash (make_int (id),
+ − 63 FRAME_MSWINDOWS_WIDGET_HASH_TABLE3 (f), Qnil);
428
+ − 64
442
+ − 65 if (!NILP (callback_ex) && !UNBOUNDP (callback_ex))
+ − 66 {
+ − 67 event = Fmake_event (Qnil, Qnil);
440
+ − 68
964
+ − 69 XSET_EVENT_TYPE (event, misc_user_event);
+ − 70 XSET_EVENT_CHANNEL (event, frame);
+ − 71 XSET_EVENT_TIMESTAMP (event, GetTickCount());
1204
+ − 72 XSET_EVENT_MISC_USER_FUNCTION (event, Qeval);
+ − 73 XSET_EVENT_MISC_USER_OBJECT (event,
964
+ − 74 list4 (Qfuncall, callback_ex, image_instance, event));
442
+ − 75 }
+ − 76 else if (NILP (callback) || UNBOUNDP (callback))
+ − 77 return Qnil;
+ − 78 else
+ − 79 {
+ − 80 Lisp_Object fn, arg;
440
+ − 81
442
+ − 82 event = Fmake_event (Qnil, Qnil);
440
+ − 83
442
+ − 84 get_gui_callback (callback, &fn, &arg);
964
+ − 85 XSET_EVENT_TYPE (event, misc_user_event);
+ − 86 XSET_EVENT_CHANNEL (event, frame);
+ − 87 XSET_EVENT_TIMESTAMP (event, GetTickCount());
1204
+ − 88 XSET_EVENT_MISC_USER_FUNCTION (event, fn);
+ − 89 XSET_EVENT_MISC_USER_OBJECT (event, arg);
442
+ − 90 }
+ − 91
+ − 92 mswindows_enqueue_dispatch_event (event);
+ − 93 /* The result of this evaluation could cause other instances to change so
+ − 94 enqueue an update callback to check this. */
+ − 95 enqueue_magic_eval_event (update_widget_instances, frame);
+ − 96 return Qt;
440
+ − 97 }
+ − 98
1204
+ − 99 /*
+ − 100 * Translate X accelerator syntax to win32 accelerator syntax.
+ − 101 * accel = (Ichar*) to receive the accelerator character
+ − 102 * or NULL to suppress accelerators in the menu or dialog item.
+ − 103 *
+ − 104 * %% is replaced with %
+ − 105 * if accel is NULL:
+ − 106 * %_ is removed.
+ − 107 * if accel is non-NULL:
+ − 108 * %_ is replaced with &.
+ − 109 * The accelerator character is passed back in *accel.
+ − 110 * (If there is no accelerator, it will be added on the first character.)
+ − 111 *
+ − 112 */
+ − 113
+ − 114 Lisp_Object
+ − 115 mswindows_translate_menu_or_dialog_item (Lisp_Object item, Ichar *accel)
+ − 116 {
+ − 117 Bytecount len = XSTRING_LENGTH (item);
2367
+ − 118 Ibyte *it = alloca_ibytes (2 * len + 42), *ptr = it;
1204
+ − 119
+ − 120 memcpy (ptr, XSTRING_DATA (item), len + 1);
+ − 121 if (accel)
+ − 122 *accel = '\0';
+ − 123
+ − 124 /* Escape '&' as '&&' */
+ − 125
+ − 126 while ((ptr = (Ibyte *) memchr (ptr, '&', len - (ptr - it))) != NULL)
+ − 127 {
+ − 128 memmove (ptr + 1, ptr, (len - (ptr - it)) + 1);
+ − 129 len++;
+ − 130 ptr += 2;
+ − 131 }
+ − 132
+ − 133 /* Replace XEmacs accelerator '%_' with Windows accelerator '&'
+ − 134 and `%%' with `%'. */
+ − 135 ptr = it;
+ − 136 while ((ptr = (Ibyte *) memchr (ptr, '%', len - (ptr - it))) != NULL)
+ − 137 {
+ − 138 if (*(ptr + 1) == '_')
+ − 139 {
+ − 140 if (accel)
+ − 141 {
+ − 142 *ptr = '&';
+ − 143 if (!*accel)
+ − 144 *accel = DOWNCASE (0, itext_ichar (ptr + 2));
+ − 145 memmove (ptr + 1, ptr + 2, len - (ptr - it + 2) + 1);
+ − 146 len--;
+ − 147 }
+ − 148 else /* Skip accelerator */
+ − 149 {
+ − 150 memmove (ptr, ptr + 2, len - (ptr - it + 2) + 1);
+ − 151 len -= 2;
+ − 152 }
+ − 153 }
+ − 154 else if (*(ptr + 1) == '%')
+ − 155 {
+ − 156 memmove (ptr + 1, ptr + 2, len - (ptr - it + 2) + 1);
+ − 157 len--;
+ − 158 ptr++;
+ − 159 }
+ − 160 else /* % on its own - shouldn't happen */
+ − 161 ptr++;
+ − 162 }
+ − 163
+ − 164 if (accel && !*accel)
+ − 165 {
+ − 166 /* Force a default accelerator */
+ − 167 ptr = it;
+ − 168 memmove (ptr + 1, ptr, len + 1);
+ − 169 *accel = DOWNCASE (0, itext_ichar (ptr + 1));
+ − 170 *ptr = '&';
+ − 171
+ − 172 len++;
+ − 173 }
+ − 174
+ − 175 return make_string (it, len);
+ − 176 }
+ − 177
440
+ − 178 void
+ − 179 syms_of_gui_mswindows (void)
+ − 180 {
+ − 181 }
