src/input-method-motif.c

   1 /* Various functions for X11R5+ input methods, using the Motif XmIm* functions.
   2    input-method-xlib.c provides a lower-level implementation.
   3    Copyright (C) 1996 Sun Microsystems.
   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
  24 /* Written by Martin Buchholz. */
  25
  26 #include <config.h>
  27 #include <X11/Xlocale.h>        /* More portable than <locale.h> ? */
  28 #include "lisp.h"
  29 #include "console-x.h"
  30 #include "device.h"
  31 #include "frame.h"
  32 #include "EmacsFrame.h"
  33 #include <Xm/Xm.h>
  34
  35 #ifndef XIM_MOTIF
  36 #error  XIM_MOTIF is not defined??
  37 #endif
  38
  39 void
  40 Initialize_Locale (void)
  41 {
  42   char *locale;
  43
  44   /* dverna - Nov. 98: #### DON'T DO THIS !!! The default XtLanguageProc
  45      routine calls setlocale(LC_ALL, lang) which fucks up our lower-level
  46      locale management, and especially the value of LC_NUMERIC. Anyway, since
  47      at this point, we don't know yet whether we're gonna need an X11 frame,
  48      we should really do it manually and not use Xlib's dumb default routine */
  49   /*XtSetLanguageProc (NULL, (XtLanguageProc) NULL, NULL);*/
  50   if ((locale = setlocale (LC_ALL, "")) == NULL)
  51     {
  52       stderr_out ("Can't set locale.\n");
  53       stderr_out ("Using C locale instead.\n");
  54       putenv ("LANG=C");
  55       putenv ("LC_ALL=C");
  56       if ((locale = setlocale (LC_ALL, "C")) == NULL)
  57         {
  58           stderr_out ("Can't even set locale to `C'!\n");
  59           return;
  60         }
  61     }
  62
  63   if (!XSupportsLocale ())
  64     {
  65       stderr_out ("X Windows does not support locale `%s'\n", locale);
  66       stderr_out ("Using C Locale instead\n");
  67       putenv ("LANG=C");
  68       putenv ("LC_ALL=C");
  69       if ((locale = setlocale (LC_ALL, "C")) == NULL)
  70         {
  71           stderr_out ("Can't even set locale to `C'!\n");
  72           return;
  73         }
  74       if (!XSupportsLocale ())
  75         {
  76           stderr_out ("X Windows does not even support locale `C'!\n");
  77           return;
  78         }
  79     }
  80
  81   setlocale(LC_NUMERIC, "C");
  82
  83   if (XSetLocaleModifiers ("") == NULL)
  84     {
  85       stderr_out ("XSetLocaleModifiers(\"\") failed\n");
  86       stderr_out ("Check the value of the XMODIFIERS environment variable.\n");
  87     }
  88 }
  89
  90 /* Create X input method for device */
  91 void
  92 XIM_init_device (struct device *d)
  93 {
  94   /* Nothing to do */
  95 }
  96
  97 /* Callback for the deleting frame. */
  98 static void
  99 XIM_delete_frame (Widget w, XtPointer client_data, XtPointer call_data)
 100 {
 101   XmImUnregister ((Widget) client_data);
 102 }
 103
 104 void
 105 XIM_init_frame (struct frame *f)
 106 {
 107   Widget w = FRAME_X_TEXT_WIDGET (f);
 108   XPoint spot = {0,0};
 109   XmFontList fontlist;
 110   XmFontListEntry fontlistEntry;
 111
 112   typedef struct
 113     {
 114       XFontSet  fontset;
 115       Pixel     fg;
 116       Pixel     bg;
 117     } xim_resources_t;
 118
 119   xim_resources_t xim_resources;
 120
 121   /* mrb: #### Fix so that background and foreground is set from
 122      default face, rather than foreground and background resources, or
 123      that the user can use set-frame-parameters to set xic attributes */
 124
 125 #define res(name, class, representation, field, default_value)  \
 126   { name, class, representation, sizeof(xim_resources.field),   \
 127     XtOffsetOf(xim_resources_t, field),                         \
 128     XtRString, (XtPointer) (default_value) }
 129
 130   static XtResource resources[] =
 131   {
 132     /*  name              class          represent'n field    default value */
 133     res(XtNfontSet,       XtCFontSet,    XtRFontSet, fontset, XtDefaultFontSet),
 134     res(XtNximForeground, XtCForeground, XtRPixel,   fg,      XtDefaultForeground),
 135     res(XtNximBackground, XtCBackground, XtRPixel,   bg,      XtDefaultBackground)
 136   };
 137
 138   XtGetApplicationResources (w, &xim_resources,
 139                              resources, XtNumber (resources),
 140                              NULL, 0);
 141
 142   if (! xim_resources.fontset)
 143     {
 144       stderr_out ("Can't get fontset resource for Input Method\n");
 145       return;
 146     }
 147
 148   fontlistEntry = XmFontListEntryCreate(XmFONTLIST_DEFAULT_TAG,
 149                                         XmFONT_IS_FONTSET,
 150                                         (XtPointer) xim_resources.fontset);
 151   fontlist = XmFontListAppendEntry (NULL, fontlistEntry);
 152   XmImRegister (w, 0);
 153   XmImVaSetValues (w,
 154                    XmNfontList,     fontlist,
 155                    XmNforeground,   xim_resources.fg,
 156                    XmNbackground,   xim_resources.bg,
 157                    XmNspotLocation, &spot,
 158                    /*   XmNlineSpace, 0, */
 159                    NULL);
 160
 161   XmFontListEntryFree (&fontlistEntry);
 162
 163   XtAddCallback (w, XmNdestroyCallback, XIM_delete_frame, (XtPointer) w);
 164 }
 165
 166 void
 167 XIM_SetGeometry (struct frame *f)
 168 {
 169 }
 170
 171 void
 172 XIM_SetSpotLocation (struct frame *f, int x, int y)
 173 {
 174   /* #### FIX: Must make sure spot fits within Preedit Area */
 175   XPoint *spot = &(FRAME_X_XIC_SPOT (f));
 176   if (spot->x == (short) x &&
 177       spot->y == (short) y)
 178     return;
 179
 180   spot->x = (short) x;
 181   spot->y = (short) y;
 182
 183   XmImVaSetValues (FRAME_X_TEXT_WIDGET (f), XmNspotLocation, spot, NULL);
 184 }
 185
 186 void
 187 XIM_focus_event (struct frame *f, int in_p)
 188 {
 189   if (in_p)
 190     XmImVaSetFocusValues (FRAME_X_TEXT_WIDGET (f), NULL);
 191   else
 192     XmImUnsetFocus (FRAME_X_TEXT_WIDGET (f));
 193 }
 194
 195 void
 196 vars_of_input_method_motif (void)
 197 {
 198   Fprovide (intern ("xim"));
 199 }