Add mappings between CJK Ext-B and CNS 11643 plain 7.
[chise/xemacs-chise.git.1] / src / gui-msw.c
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 "console-msw.h"
26 #include "redisplay.h"
27 #include "gui.h"
28 #include "glyphs.h"
29 #include "frame.h"
30 #include "elhash.h"
31 #include "events.h"
32 #include "buffer.h"
33
34 /*
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
39  */
40 Lisp_Object
41 mswindows_handle_gui_wm_command (struct frame* f, HWND ctrl, LPARAM id)
42 {
43   /* Try to map the command id through the proper hash table */
44   Lisp_Object callback, callback_ex, image_instance, frame, event;
45
46   XSETFRAME (frame, f);
47
48   /* #### make_int should assert that --kkm */
49   assert (XINT (make_int (id)) == id);
50
51   image_instance = Fgethash (make_int (id), 
52                              FRAME_MSWINDOWS_WIDGET_HASH_TABLE1 (f), Qnil);
53   /* It is possible for a widget action to cause it to get out of sync
54      with its instantiator. Thus it is necessary to signal this
55      possibility. */
56   if (IMAGE_INSTANCEP (image_instance))
57     XIMAGE_INSTANCE_WIDGET_ACTION_OCCURRED (image_instance) = 1;
58   callback = Fgethash (make_int (id), 
59                        FRAME_MSWINDOWS_WIDGET_HASH_TABLE2 (f), Qnil);
60   callback_ex = Fgethash (make_int (id), 
61                           FRAME_MSWINDOWS_WIDGET_HASH_TABLE3 (f), Qnil);
62
63   if (!NILP (callback_ex) && !UNBOUNDP (callback_ex))
64     {
65       event = Fmake_event (Qnil, Qnil);
66
67       XEVENT (event)->event_type = misc_user_event;
68       XEVENT (event)->channel = frame;
69       XEVENT (event)->timestamp = GetTickCount ();
70       XEVENT (event)->event.eval.function = Qeval;
71       XEVENT (event)->event.eval.object =
72         list4 (Qfuncall, callback_ex, image_instance, event);
73     }
74   else if (NILP (callback) || UNBOUNDP (callback))
75     return Qnil;
76   else
77     {
78       Lisp_Object fn, arg;
79
80       event = Fmake_event (Qnil, Qnil);
81
82       get_gui_callback (callback, &fn, &arg);
83       XEVENT (event)->event_type = misc_user_event;
84       XEVENT (event)->channel = frame;
85       XEVENT (event)->timestamp = GetTickCount ();
86       XEVENT (event)->event.eval.function = fn;
87       XEVENT (event)->event.eval.object = arg;
88     }
89
90   mswindows_enqueue_dispatch_event (event);
91   /* The result of this evaluation could cause other instances to change so 
92      enqueue an update callback to check this. */
93   enqueue_magic_eval_event (update_widget_instances, frame);
94   return Qt;
95 }
96
97 void
98 syms_of_gui_mswindows (void)
99 {
100 }