src/m17n-gui.c

   1 /* m17n-gui.c -- body of the GUI API.
   2    Copyright (C) 2003, 2004
   3      National Institute of Advanced Industrial Science and Technology (AIST)
   4      Registration Number H15PRO112
   5
   6    This file is part of the m17n library.
   7
   8    The m17n library is free software; you can redistribute it and/or
   9    modify it under the terms of the GNU Lesser General Public License
  10    as published by the Free Software Foundation; either version 2.1 of
  11    the License, or (at your option) any later version.
  12
  13    The m17n library is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16    Lesser General Public License for more details.
  17
  18    You should have received a copy of the GNU Lesser General Public
  19    License along with the m17n library; if not, write to the Free
  20    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  21    02111-1307, USA.  */
  22
  23 /***en
  24     @addtogroup m17nGUI
  25     @brief GUI support for a window system.
  26
  27     This section defines the m17n GUI API concerning M-text drawing
  28     and inputting under a window system.
  29
  30     All the definitions here are independent of window systems.  An
  31     actual library file, however, can depend on a specific window
  32     system.  For instance, the library file m17n-X.so is an example of
  33     implementation of the m17n GUI API for the X Window System.
  34
  35     Actually the GUI API is mainly for toolkit libraries or to
  36     implement XOM, not for direct use from application programs.
  37 */
  38
  39 /***ja
  40     @addtogroup m17nGUI
  41     @brief ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¾å¤Î GUI ¥µ¥Ý¡¼¥È.
  42
  43     ¤³¤Î¥»¥¯¥·¥ç¥ó¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Î¤â¤È¤Ç¤Î M-text ¤ÎÉ½¼¨¤ÈÆþÎÏ¤Ë¤«¤«¤ï¤ë
  44     m17n GUI API ¤òÄêµÁ¤¹¤ë¡£
  45
  46     ¤³¤³¤Ç¤Î¤¹¤Ù¤Æ¤ÎÄêµÁ¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤È¤ÏÆÈÎ©¤Ç¤¢¤ë¡£
  47     ¤·¤«¤·¡¢¼ÂºÝ¤Î¥é¥¤¥Ö¥é¥ê¥Õ¥¡¥¤¥ë¤Ï¸ÄÊÌ¤Î¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¾ì¹ç¤¬¤¢¤ë¡£
  48     ¤¿¤È¤¨¤Ð¥é¥¤¥Ö¥é¥ê¥Õ¥¡¥¤¥ë m17n-X.so ¤Ï¡¢m17n GUI API ¤Î X
  49     ¥¦¥£¥ó¥É¥¦ÍÑ¤Î¼ÂÁõÎã¤Ç¤¢¤ë¡£
  50
  51     ¸½¼Â¤Ë¤Ï¡¢GUI API ¤Ï¼ç¤Ë¥Ä¡¼¥ë¥¥Ã¥È¥é¥¤¥Ö¥é¥ê¸þ¤±¤Ç¤¢¤ë¤«¡¢¤Þ¤¿¤Ï
  52     XOM ¤ò¼ÂÁõ¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤Æ¤ª¤ê¡¢¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¥×¥í¥°¥é¥à¤«¤é¤ÎÄ¾ÀÜ¤ÎÍøÍÑ¤òÇ°Æ¬¤Ë¤ª¤¤¤¿¤â¤Î¤Ç¤Ï¤Ê¤¤¡£
  53 */
  54
  55 /*=*/
  56
  57 #if !defined (FOR_DOXYGEN) || defined (DOXYGEN_INTERNAL_MODULE)
  58 /*** @addtogroup m17nInternal
  59      @{ */
  60
  61 #include "config.h"
  62
  63 #include <stdio.h>
  64 #include <string.h>
  65 #include <stdlib.h>
  66
  67 #include "config.h"
  68 #ifdef HAVE_DLFCN_H
  69 #include <dlfcn.h>
  70 #endif
  71
  72 #include "m17n-gui.h"
  73 #include "m17n-misc.h"
  74 #include "internal.h"
  75 #include "plist.h"
  76 #include "internal-gui.h"
  77 #include "font.h"
  78 #include "fontset.h"
  79 #include "face.h"
  80
  81 #ifndef DLOPEN_SHLIB_EXT
  82 #define DLOPEN_SHLIB_EXT ".so"
  83 #endif
  84
  85 /** Information about a dynamic library supporting a specific graphic
  86     device.  */
  87 typedef struct
  88 {
  89   /** Name of the dynamic library (e.g. "libm17n-X.so").  */
  90   char *library;
  91   /** Handle fo the dynamic library.  */
  92   void *handle;
  93   /** Function to call just after loading the library.  */
  94   int (*init) ();
  95   /** Function to call to open a frame on the graphic device.  */
  96   int (*open) (MFrame *frame, MPlist *param);
  97   /** Function to call just before unloading the library.  */
  98   int (*fini) ();
  99 } MDeviceLibraryInterface;
 100
 101
 102 /** Plist of device symbol vs MDeviceLibraryInterface.  */
 103
 104 static MPlist *device_library_list;
 105
 106 /** Close MFrame and free it.  */
 107
 108 static void
 109 free_frame (void *object)
 110 {
 111   MFrame *frame = (MFrame *) object;
 112
 113   (*frame->driver->close) (frame);
 114   M17N_OBJECT_UNREF (frame->face);
 115   free (frame->font);
 116   M17N_OBJECT_UNREF (frame->font_driver_list);
 117   free (object);
 118 }
 119
 120
 121 /** Register a dynamic library of name LIB by a key NAME.  */
 122
 123 static int
 124 register_device_library (MSymbol name, char *lib)
 125 {
 126   MDeviceLibraryInterface *interface;
 127
 128   MSTRUCT_CALLOC (interface, MERROR_WIN);
 129   interface->library = malloc (strlen (lib)
 130                                + strlen (DLOPEN_SHLIB_EXT) + 1);
 131   sprintf (interface->library, "%s%s", lib, DLOPEN_SHLIB_EXT);
 132   if (! device_library_list)
 133     device_library_list = mplist ();
 134   mplist_add (device_library_list, name, interface);
 135   return 0;
 136 }
 137
 138 \f
 139 #ifdef HAVE_FREETYPE
 140 /** Null device support.  */
 141
 142 static struct {
 143   MPlist *realized_fontset_list;
 144   MPlist *realized_font_list;
 145   MPlist *realized_face_list;
 146 } null_device;
 147
 148 static void
 149 null_device_close (MFrame *frame)
 150 {
 151 }
 152
 153 static void *
 154 null_device_get_prop (MFrame *frame, MSymbol key)
 155 {
 156   return NULL;
 157 }
 158
 159 static void
 160 null_device_realize_face (MRealizedFace *rface)
 161 {
 162   rface->info = NULL;
 163 }
 164
 165 static void
 166 null_device_free_realized_face (MRealizedFace *rface)
 167 {
 168 }
 169
 170 static MDeviceDriver null_driver =
 171   {
 172     null_device_close,
 173     null_device_get_prop,
 174     null_device_realize_face,
 175     null_device_free_realized_face
 176   };
 177
 178 static int
 179 null_device_init ()
 180 {
 181   null_device.realized_fontset_list = mplist ();
 182   null_device.realized_font_list = mplist ();
 183   null_device.realized_face_list = mplist ();
 184   return 0;
 185 }
 186
 187 static int
 188 null_device_fini ()
 189 {
 190   MPlist *plist;
 191
 192   MPLIST_DO (plist, null_device.realized_fontset_list)
 193     mfont__free_realized_fontset ((MRealizedFontset *) MPLIST_VAL (plist));
 194   M17N_OBJECT_UNREF (null_device.realized_fontset_list);
 195
 196   MPLIST_DO (plist, null_device.realized_face_list)
 197     mface__free_realized ((MRealizedFace *) MPLIST_VAL (plist));
 198   M17N_OBJECT_UNREF (null_device.realized_face_list);
 199
 200   MPLIST_DO (plist, null_device.realized_font_list)
 201     mfont__free_realized ((MRealizedFont *) MPLIST_VAL (plist));
 202   M17N_OBJECT_UNREF (null_device.realized_font_list);
 203   return 0;
 204 }
 205
 206 static int
 207 null_device_open (MFrame *frame, MPlist *param)
 208 {
 209   MFace *face;
 210
 211   frame->device = NULL;
 212   frame->device_type = 0;
 213   frame->driver = &null_driver;
 214   frame->font_driver_list = mplist ();
 215   mplist_add (frame->font_driver_list, Mfreetype, &mfont__ft_driver);
 216   frame->realized_font_list = null_device.realized_font_list;
 217   frame->realized_face_list = null_device.realized_face_list;
 218   frame->realized_fontset_list = null_device.realized_fontset_list;
 219   face = mface_copy (mface__default);
 220   mplist_push (param, Mface, face);
 221   M17N_OBJECT_UNREF (face);
 222   return 0;
 223 }
 224
 225 static MDeviceLibraryInterface null_interface =
 226   { NULL, NULL, null_device_init, null_device_open, null_device_fini };
 227
 228 #endif
 229 \f
 230 /* Internal API */
 231
 232 \f
 233 /* External API */
 234
 235 void
 236 m17n_init_win (void)
 237 {
 238   int mdebug_mask = MDEBUG_INIT;
 239
 240   merror_code = MERROR_NONE;
 241   if (m17n__gui_initialized++)
 242     return;
 243   m17n_init ();
 244   if (merror_code != MERROR_NONE)
 245     {
 246       m17n__gui_initialized--;
 247       return;
 248     }
 249
 250   MDEBUG_PUSH_TIME ();
 251
 252   Mgd = msymbol ("gd");
 253
 254   Mfont = msymbol ("font");
 255   Mfont_width = msymbol ("font-width");
 256   Mfont_ascent = msymbol ("font-ascent");
 257   Mfont_descent = msymbol ("font-descent");
 258   Mdevice = msymbol ("device");
 259
 260   Mdisplay = msymbol ("display");
 261   Mscreen = msymbol ("screen");
 262   Mdrawable = msymbol ("drawable");
 263   Mdepth = msymbol ("depth");
 264   Mwidget = msymbol ("widget");
 265
 266   MDEBUG_PUSH_TIME ();
 267   if (mfont__init () < 0)
 268     goto err;
 269   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize font module."));
 270   if (mfont__fontset_init () < 0)
 271     goto err;
 272   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize fontset module."));
 273   if (mface__init () < 0)
 274     goto err;
 275   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize face module."));
 276   if (mdraw__init () < 0)
 277     goto err;
 278   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize draw module."));
 279   if (minput__win_init () < 0)
 280     goto err;
 281   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize input-win module."));
 282   mframe_default = NULL;
 283
 284   register_device_library (Mx, "libm17n-X");
 285   register_device_library (Mgd, "libm17n-gd");
 286   return;
 287
 288  err:
 289   MDEBUG_POP_TIME ();
 290   MDEBUG_PRINT_TIME ("INIT", (stderr, " to initialize the m17n GUI module."));
 291   MDEBUG_POP_TIME ();
 292 }
 293
 294 void
 295 m17n_fini_win (void)
 296 {
 297   int mdebug_mask = MDEBUG_FINI;
 298   MPlist *plist;
 299
 300   if (m17n__gui_initialized == 0
 301       || --m17n__gui_initialized > 0)
 302     return;
 303
 304   MDEBUG_PUSH_TIME ();
 305   MDEBUG_PUSH_TIME ();
 306   MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize device modules."));
 307   MPLIST_DO (plist, device_library_list)
 308     {
 309       MDeviceLibraryInterface *interface = MPLIST_VAL (plist);
 310
 311       if (interface->handle && interface->fini)
 312         {
 313           (*interface->fini) ();
 314           dlclose (interface->handle);
 315         }
 316       free (interface->library);
 317     }
 318 #ifdef HAVE_FREETYPE
 319   if (null_interface.handle)
 320     (*null_interface.fini) ();
 321 #endif  /* not HAVE_FREETYPE */
 322   M17N_OBJECT_UNREF (device_library_list);
 323   MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize input-gui module."));
 324   minput__win_fini ();
 325   MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize draw module."));
 326   mdraw__fini ();
 327   MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize face module."));
 328   mface__fini ();
 329   MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize fontset module."));
 330   mfont__fontset_fini ();
 331   MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize font module."));
 332   mfont__fini ();
 333   mframe_default = NULL;
 334   MDEBUG_POP_TIME ();
 335   MDEBUG_PRINT_TIME ("FINI", (stderr, " to finalize the gui modules."));
 336   MDEBUG_POP_TIME ();
 337   m17n_fini ();
 338 }
 339
 340 /*** @} */
 341 #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */
 342
 343 /*** @addtogroup m17nFrame */
 344 /***en
 345     @brief A @e frame is an object corresponding to the graphic device.
 346
 347     A @e frame is an object of the type #MFrame to hold various
 348     information about each display/input device.  Almost all m17n GUI
 349     functions require a pointer to a frame as an argument.  */
 350 /***ja
 351     @brief @e ¥Õ¥ì¡¼¥à ¤È¤Ï¥°¥é¥Õ¥£¥Ã¥¯¥Ç¥Ð¥¤¥¹¤ËÂÐ±þ¤¹¤ë¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ë.
 352
 353     @e ¥Õ¥ì¡¼¥à ¤È¤Ï #MFrame
 354     ·¿¤Î¥ª¥Ö¥¸¥§¥¯¥È¤Ç¤¢¤ê¡¢¸Ä¡¹¤ÎÉ½¼¨¡¿ÆþÎÏ¥Ç¥Ð¥¤¥¹¤Î¾ðÊó¤ò³ÊÇ¼¤¹¤ë¤¿¤á¤ËÍÑ¤¤¤é¤ì¤ë¡£
 355     ¤Û¤È¤ó¤É¤¹¤Ù¤Æ¤Î m17n GUI´Ø¿ô¤Ï¡¢°ú¿ô¤È¤·¤Æ¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÍ×µá¤¹¤ë¡£  */
 356
 357 /*** @{ */
 358 /*=*/
 359
 360 /***en
 361     @name Variables: Keys of frame parameter
 362
 363     These are the symbols to use in a parameter to create a frame.  See
 364     the function mframe () for details.
 365
 366     #Mdevice, #Mdisplay, #Mscreen, #Mdrawable, #Mdepth, and #Mcolormap
 367     are also keys of a frame property.  */
 368
 369 /***ja
 370     @name ÊÑ¿ô¡§ ¥Õ¥ì¡¼¥à¥Ñ¥é¥á¡¼¥¿ÍÑ¥¡¼
 371
 372     ¥Õ¥ì¡¼¥à¤òÀ¸À®¤¹¤ëºÝ¤Î¥Ñ¥é¥á¡¼¥¿¤ËÍÑ¤¤¤ë¥·¥ó¥Ü¥ë¡£¾Ü¤·¤¯¤Ï´Ø¿ô
 373     mframe () ¤ÎÀâÌÀ»²¾È¡£
 374
 375     #Mdevice¡¢ #Mdisplay¡¢ #Mscreen¡¢ #Mdrawable¡¢ #Mdepth¡¢#Mcolormap
 376     ¤Ï¥Õ¥ì¡¼¥à¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼¤Ç¤â¤¢¤ë¡£  */
 377
 378 /*=*/
 379
 380 MSymbol Mdevice, Mdisplay, Mscreen, Mdrawable, Mdepth, Mcolormap, Mwidget;
 381
 382 MSymbol Mgd;
 383
 384 /*=*/
 385
 386 /***en
 387     @name Variables: Keys of frame property
 388
 389     These are the symbols to use as an argument to the function
 390     mframe_get_prop ().  */
 391 /***ja
 392     @name ÊÑ¿ô¡§ ¥Õ¥ì¡¼¥à¥×¥í¥Ñ¥Æ¥£¤Î¥¡¼
 393
 394     ´Ø¿ô mframe_get_prop () ¤Î°ú¿ô¤ËÍÑ¤¤¤é¤ì¤ë¥·¥ó¥Ü¥ë¡£  */
 395 /*** @{ */
 396 /*=*/
 397 MSymbol Mfont;
 398 MSymbol Mfont_width;
 399 MSymbol Mfont_ascent;
 400 MSymbol Mfont_descent;
 401
 402 /*=*/
 403
 404 /*** @} */
 405 /*=*/
 406
 407 /***en
 408     @brief Create a new frame.
 409
 410     The mframe () function creates a new frame with parameters listed
 411     in $PLIST which may be @c NULL.
 412
 413     The recognized keys in $PLIST are window system dependent.
 414
 415     The following key is always recognized.
 416
 417     <ul>
 418
 419     <li> #Mdevice, the value must be one of #Mx, #Mgd, and #Mnil.
 420
 421     If the value is #Mx, the frame is for X Window System.  The
 422     argument #MDrawWindow specified together with the frame must be of
 423     type @c Window.  The frame is both readable and writable, thus all
 424     GUI functions can be used.
 425
 426     If the value is #Mgd, the frame is for an image object of GD
 427     library.  The argument #MDrawWindow specified together with the
 428     frame must be of type @c gdImagePtr.  The frame is writable
 429     only, thus functions minput_XXX can't be used for the frame.
 430
 431     If the value is #Mnil, the frame is for a null device.  The frame
 432     is not writable nor readable, thus functions mdraw_XXX that
 433     require the argument #MDrawWindow and functions minput_XXX can't
 434     be used for the frame.
 435
 436     <li> #Mface, the value must be a pointer to #MFace.
 437
 438     The value is used as the default face of the frame.
 439
 440     </ul>
 441
 442     In addition, if the value of the key #Mdevice is #Mx, the
 443     following keys are recognized.  They are to specify the root
 444     window and the depth of drawables that can be used with the frame.
 445
 446     <ul>
 447
 448     <li> #Mdrawable, the value type must be <tt>Drawable</tt>.
 449
 450     A parameter of key #Mdisplay must also be specified.  The
 451     created frame can be used for drawables whose root window and
 452     depth are the same as those of the specified drawable on the
 453     specified display.
 454
 455     When this parameter is specified, the parameter of key #Mscreen
 456     is ignored.
 457
 458     <li> #Mwidget, the value type must be <tt>Widget</tt>.
 459
 460     The created frame can be used for drawables whose root window and
 461     depth are the same as those of the specified widget.
 462
 463     If a parameter of key #Mface is not specified, the default face
 464     is created from the resources of the widget.
 465
 466     When this parameter is specified, the parameters of key #Mdisplay,
 467     #Mscreen, #Mdrawable, #Mdepth are ignored.
 468
 469     <li> #Mdepth, the value type must be <tt>unsigned</tt>.
 470
 471     The created frame can be used for drawables of the specified
 472     depth.
 473
 474     <li> #Mscreen, the value type must be <tt>(Screen *)</tt>.
 475
 476     The created frame can be used for drawables whose root window is
 477     the same as the root window of the specified screen, and depth is
 478     the same at the default depth of the screen.
 479
 480     When this parameter is specified, parameter of key #Mdisplay is
 481     ignored.
 482
 483     <li> #Mdisplay, the value type must be <tt>(Display *)</tt>.
 484
 485     The created frame can be used for drawables whose root window is
 486     the same as the root window for the default screen of the display,
 487     and depth is the same as the default depth of the screen.
 488
 489     <li> #Mcolormap, the value type must be <tt>(Colormap)</tt>.
 490
 491     The created frame uses the specified colormap.
 492
 493     <li> #Mfont, the value must be #Mx, #Mfreetype, or #Mxft.
 494
 495     The created frame uses the specified font backend.  The value #Mx
 496     instructs to use X core fonts, #Mfreetype to use local fonts
 497     supported by FreeType fonts, and #Mxft to use local fonts via Xft
 498     library.  You can specify this parameter more than once with
 499     different values if you want to use multiple font backends.  This
 500     is ignored if the specified font backend is not supported on the
 501     device.
 502
 503     When this parameter is not specified, all font backend supported
 504     on the device are used.
 505
 506     </ul>
 507
 508     @return
 509     If the operation was successful, mframe () returns a pointer to a
 510     newly created frame.  Otherwise, it returns @c NULL.  */
 511
 512 /***ja
 513     @brief ¿·¤·¤¤¥Õ¥ì¡¼¥à¤òºî¤ë.
 514
 515     ´Ø¿ô mframe () ¤Ï $PLIST Ãæ¤Î¥Ñ¥é¥á¡¼¥¿¤ò»ý¤Ä¿·¤·¤¤¥Õ¥ì¡¼¥à¤òºî¤ë¡£
 516     $PLIST ¤Ï @c NULL ¤Ç¤âÎÉ¤¤¡£
 517
 518     $PLIST ¤Ë¸½¤ï¤ì¤ë¥¡¼¤Î¤¦¤Á¤É¤ì¤¬Ç§¼±¤µ¤ì¤ë¤«¤Ï¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥à¤Ë°ÍÂ¸¤¹¤ë¡£
 519
 520     °Ê²¼¤Î¥¡¼¤Ï¾ï¤ËÇ§¼±¤µ¤ì¤ë¡£
 521
 522     <ul>
 523
 524     <li> #Mdevice. ÃÍ¤Ï #Mx, #Mgd, #Mnil ¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 525
 526     ÃÍ¤¬ #Mx ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï X ¥¦¥£¥ó¥É¥¦¥·¥¹¥Æ¥àÍÑ¤Ç¤¢¤ë¡£
 527     ¤³¤Î¥Õ¥ì¡¼¥à¤È¶¦¤Ë»ØÄê¤µ¤ì¤¿°ú¿ô #MDrawWindow ¤Ï¡¢ @c Window
 528     ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Õ¥ì¡¼¥à¤ÏÆÉ¤ß½ñ¤¤È¤â¤Ë²ÄÇ½¤Ç¤¢¤ê¡¢¤¹¤Ù¤Æ¤ÎGUI
 529     ´Ø¿ô¤¬»ÈÍÑ¤Ç¤¤ë¡£
 530
 531     ÃÍ¤¬ #Mgd ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï GD
 532     ¥é¥¤¥Ö¥é¥ê¤Î¥¤¥á¡¼¥¸¥ª¥Ö¥¸¥§¥¯¥ÈÍÑ¤Ç¤¢¤ë¡£¤³¤Î¥Õ¥ì¡¼¥à¤È¶¦¤Ë»ØÄê¤µ¤ì¤¿°ú¿ô
 533     #MDrawWindow ¤Ï¡¢ @c gdImagePtr ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£¥Õ¥ì¡¼¥à¤Ï½ñ¤½Ð¤·ÀìÍÑ¤Ç¤¢¤ê¡¢
 534     minput_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤Ï»ÈÍÑ¤Ç¤¤Ê¤¤¡£
 535
 536     ÃÍ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ï, null
 537     ¥Ç¥Ð¥¤¥¹ÍÑ¤Ç¤¢¤ë¡£¤³¤Î¥Õ¥ì¡¼¥à¤ÏÆÉ¤ß½ñ¤¤Ç¤¤Ê¤¤¤Î¤Ç¡¢°ú¿ô #MDrawWindow
 538     ¤òÉ¬Í×¤È¤¹¤ëmdraw_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤ä¡¢minput_ ¤Ç»Ï¤Þ¤ëÌ¾Á°¤Î´Ø¿ô¤Ï»ÈÍÑ¤Ç¤¤Ê¤¤¡£
 539
 540     <li> #Mface. ÃÍ¤Ï #MFace ¤Ø¤Î¥Ý¥¤¥ó¥¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 541
 542     ¤³¤ÎÃÍ¤Ï¥Õ¥ì¡¼¥à¤Î¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹¤È¤·¤ÆÍÑ¤¤¤é¤ì¤ë¡£
 543
 544     </ul>
 545
 546     ¤³¤ì¤é¤Î¥¡¼¤Ë²Ã¤¨¡¢#Mdevice ¤Î¥¡¼¤¬ #Mx
 547     ¤Ç¤¢¤ë¾ì¹ç¤Ë¸Â¤ê°Ê²¼¤Î¥¡¼¤âÇ§¼±¤µ¤ì¤ë¡£°Ê²¼¤Î¥¡¼¤Ï¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È¡¢¥Õ¥ì¡¼¥à¤ÇÍøÍÑ¤Ç¤¤ë
 548     drawable ¤Î¿¼¤µ¤ò»ØÄê¤¹¤ë¡£
 549
 550     <ul>
 551
 552     <li> #Mdrawable. ÃÍ¤Ï <tt>Drawable</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 553
 554     ¥¡¼ #Mdisplay ¤ò»ý¤Ä¥Ñ¥é¥á¡¼¥¿¤â»ØÄê¤µ¤ì¤Æ¤¤¤ëÉ¬Í×¤¬¤¢¤ë¡£
 555     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤µ¤ì¤¿¥Ç¥£¥¹¥×¥ì¥¤¾å¤Î»ØÄê¤µ¤ì¤¿ drawable
 556     ¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 557
 558     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mscreen ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£
 559
 560     <li> #Mwidget. ÃÍ¤Ï <tt>Widget</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 561
 562     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥¦¥£¥¸¥§¥Ã¥È¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤È¿¼¤µ¤ò»ý¤Ä
 563     drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 564
 565     ¥¡¼ #Mface ¤ò»ý¤Ä¥Ñ¥é¥á¡¼¥¿¤¬¤Ê¤±¤ì¤Ð¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹¤Ï¤³¤Î
 566     ¥¦¥£¥¸¥§¥Ã¥È¤Î¥ê¥½¡¼¥¹¤«¤éºî¤é¤ì¤ë¡£
 567
 568     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mdisplay, #Mscreen, #Mdrawable,
 569     #Mdepth ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£
 570
 571     <li> #Mdepth. ÃÍ¤Ï <tt>unsigned</tt>  ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 572
 573     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¿¼¤µ¤Î drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 574
 575     <li> #Mscreen. ÃÍ¤Ï <tt>(Screen *)</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 576
 577     À¸À®¤·¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥¹¥¯¥ê¡¼¥ó¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤ò»ý¤Á¡¢¥¹¥¯¥ê¡¼¥ó¤Î¥Ç¥Õ¥©¥ë¥È¤Î¿¼¤µ¤ÈÆ±¤¸¿¼¤µ¤ò»ý¤Ä drawable ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 578
 579     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬¤¢¤ë¾ì¹ç¤Ë¤Ï¡¢#Mdisplay ¤ò¥¡¼¤È¤¹¤ë¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£
 580
 581     <li> #Mdisplay. ÃÍ¤Ï <tt>(Display *)</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 582
 583     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥Ç¥£¥¹¥×¥ì¥¤¤Î¥Ç¥Õ¥©¥ë¥È¥¹¥¯¥ê¡¼¥ó¤ÈÆ±¤¸¥ë¡¼¥È¥¦¥£¥ó¥É¥¦¤ÈÆ±¤¸¿¼¤µ¤ò»ý¤Ädrawables ¤ËÍÑ¤¤¤é¤ì¤ë¡£
 584
 585     <li> #Mcolormap. ÃÍ¤Ï <tt>(Colormap)</tt> ·¿¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
 586
 587     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï¡¢»ØÄê¤·¤¿¥«¥é¡¼¥Þ¥Ã¥×¤ò»ÈÍÑ¤¹¤ë¡£
 588
 589     <li> #Mfont. ÃÍ¤Ï¡¢#Mx, #Mfreetype, #Mxft ¤Î¤¤¤º¤ì¤«¡£
 590
 591     À¸À®¤µ¤ì¤¿¥Õ¥ì¡¼¥à¤Ï»ØÄê¤·¤¿¥Õ¥©¥ó¥È¥Ð¥Ã¥¯¥¨¥ó¥É¤ò»ÈÍÑ¤¹¤ë¡£ÃÍ¤¬
 592     #Mx ¤Ç¤¢¤ì¤Ð X ¤Î¥³¥¢¥Õ¥©¥ó¥È¡¢#Mfreetype ¤Ç¤¢¤ì¤Ð FreeType
 593     ¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤ë¥í¡¼¥«¥ë¥Õ¥©¥ó¥È¡¢#Mxft ¤Ç¤¢¤ì¤Ð Xft
 594     ¥é¥¤¥Ö¥é¥ê·ÐÍ³¤ÇÍÑ¤¤¤ë¥í¡¼¥«¥ë¥Õ¥©¥ó¥È¤ò»ÈÍÑ¤¹¤ë¡£
 595     Ê£¿ô¤Î¥Õ¥©¥ó¥È¥Ð¥Ã¥¯¥¨¥ó¥É¤ò»ÈÍÑ¤·¤¿¤¤¾ì¹ç¤Ë¤Ï¡¢¤³¤Î¥Ñ¥é¥á¡¼¥¿¤òÊ£¿ô²ó¡¢°Û¤Ê¤ëÃÍ¤Ç»ØÄê¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£
 596     »ØÄê¤·¤¿¥Ð¥Ã¥¯¥¨¥ó¥É¤¬¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤Ê¤¤¥Ç¥Ð¥¤¥¹¤Ç¤Ï¡¢¤³¤Î¥Ñ¥é¥á¡¼¥¿¤ÏÌµ»ë¤µ¤ì¤ë¡£
 597
 598     ¤³¤Î¥Ñ¥é¥á¡¼¥¿¤¬Ìµ¤¤¾ì¹ç¤Ë¤Ï¡¢¥Ç¥Ð¥¤¥¹¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤ë¤¹¤Ù¤Æ¤Î¥Õ¥©¥ó¥È¥Ð¥Ã¥¯¥¨¥ó¥É¤òÍøÍÑ¤¹¤ë¡£
 599
 600     </ul>
 601
 602     @return
 603     À®¸ù¤¹¤ì¤Ð mframe() ¤Ï¿·¤·¤¤¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤òÊÖ¤¹¡£¤½¤¦¤Ç¤Ê¤±¤ì¤Ð
 604     @c NULL ¤òÊÖ¤¹¡£  */
 605
 606 MFrame *
 607 mframe (MPlist *plist)
 608 {
 609   MFrame *frame;
 610   int plist_created = 0;
 611   MPlist *pl;
 612   MSymbol device;
 613   MDeviceLibraryInterface *interface;
 614
 615   if (plist)
 616     {
 617       pl = mplist_find_by_key (plist, Mdevice);
 618       if (pl)
 619         device = MPLIST_VAL (pl);
 620       else
 621         device = Mx;
 622     }
 623   else
 624     {
 625       plist = mplist ();
 626       plist_created = 1;
 627       device = Mx;
 628     }
 629
 630   if (device == Mnil)
 631     {
 632 #ifdef HAVE_FREETYPE
 633       interface = &null_interface;
 634       if (! interface->handle)
 635         {
 636           (*interface->init) ();
 637           interface->handle = (void *) 1;
 638         }
 639 #else  /* not HAVE_FREETYPE */
 640       MERROR (MERROR_WIN, NULL);
 641 #endif  /* not HAVE_FREETYPE */
 642     }
 643   else
 644     {
 645       interface = mplist_get (device_library_list, device);
 646       if (! interface)
 647         MERROR (MERROR_WIN, NULL);
 648       if (! interface->handle)
 649         {
 650           if (! (interface->handle = dlopen (interface->library, RTLD_NOW))
 651               || ! (interface->init = dlsym (interface->handle, "device_init"))
 652               || ! (interface->open = dlsym (interface->handle, "device_open"))
 653               || ! (interface->fini = dlsym (interface->handle, "device_fini"))
 654               || (*interface->init) () < 0)
 655             {
 656               fprintf (stderr, "%s\n", (char *) dlerror ());
 657               if (interface->handle)
 658                 dlclose (interface->handle);
 659               MERROR (MERROR_WIN, NULL);
 660             }
 661         }
 662     }
 663
 664   M17N_OBJECT (frame, free_frame, MERROR_FRAME);
 665   if ((*interface->open) (frame, plist) < 0)
 666     {
 667       free (frame);
 668       MERROR (MERROR_WIN, NULL);
 669     }
 670
 671   if (! mframe_default)
 672     mframe_default = frame;
 673
 674   frame->face = mface ();
 675   MPLIST_DO (pl, plist)
 676     if (MPLIST_KEY (pl) == Mface)
 677       mface_merge (frame->face, (MFace *) MPLIST_VAL (pl));
 678   mface__update_frame_face (frame);
 679
 680   if (plist_created)
 681     M17N_OBJECT_UNREF (plist);
 682   return frame;
 683 }
 684
 685 /*=*/
 686
 687 /***en
 688     @brief Return property value of frame.
 689
 690     The mframe_get_prop () function returns a value of property $KEY
 691     of frame $FRAME.  The valid keys and the corresponding return
 692     values are as follows.
 693
 694 @verbatim
 695
 696         key             type of value   meaning of value
 697         ---             -------------   ----------------
 698         Mface           MFace *         The default face.
 699
 700         Mfont           MFont *         The default font.
 701
 702         Mfont_width     int             Width of the default font.
 703
 704         Mfont_ascent    int             Ascent of the default font.
 705
 706         Mfont_descent   int             Descent of the default font.
 707
 708 @endverbatim
 709
 710     In the m17n-X library, the followings are also accepted.
 711
 712 @verbatim
 713
 714         key             type of value   meaning of value
 715         ---             -------------   ----------------
 716         Mdisplay        Display *       Display associated with the frame.
 717
 718         Mscreen         int             Screen number of a screen associated
 719                                         with the frame.
 720
 721         Mcolormap       Colormap        Colormap of the frame.
 722
 723         Mdepth          unsigned        Depth of the frame.
 724 @endverbatim
 725 */
 726
 727 /***ja
 728     @brief ¥Õ¥ì¡¼¥à¤Î¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹.
 729
 730     ´Ø¿ô mframe_get_prop () ¤Ï¥Õ¥ì¡¼¥à $FRAME ¤Î¥¡¼ $KEY
 731     ¤ò»ý¤Ä¥×¥í¥Ñ¥Æ¥£¤ÎÃÍ¤òÊÖ¤¹¡£Í¸ú¤Ê¥¡¼¤È¤½¤ÎÃÍ¤Ï°Ê²¼¤ÎÄÌ¤ê¡£
 732
 733 @verbatim
 734
 735         ¥¡¼            ÃÍ¤Î·¿          ÃÍ¤Î°ÕÌ£
 736         ---             -------------   ----------------
 737         Mface           MFace *         ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥§¡¼¥¹
 738
 739         Mfont           MFont *         ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È
 740
 741         Mfont_width     int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤ÎÉý
 742
 743         Mfont_ascent    int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤Î ascent
 744
 745         Mfont_descent   int             ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥©¥ó¥È¤Î descent
 746
 747 @endverbatim
 748
 749      m17n-X ¥é¥¤¥Ö¥é¥ê¤Ç¤Ï¡¢°Ê²¼¤Î¥¡¼¤â»ÈÍÑ¤Ç¤¤ë¡£
 750
 751 @verbatim
 752
 753         ¥¡¼            ÃÍ¤Î·¿          ÃÍ¤Î°ÕÌ£
 754         ---             -------------   ----------------
 755         Mdisplay        Display *       ¥Õ¥ì¡¼¥à¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥Ç¥£¥¹¥×¥ì¥¤
 756
 757         Mscreen         int             ¥Õ¥ì¡¼¥à¤È´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥¹¥¯¥ê¡¼¥ó
 758                                         ¤Î¥¹¥¯¥ê¡¼¥ó¥Ê¥ó¥Ð
 759
 760         Mcolormap       Colormap        ¥Õ¥ì¡¼¥à¤Î¥«¥é¡¼¥Þ¥Ã¥×
 761
 762         Mdepth          unsigned        ¥Õ¥ì¡¼¥à¤Î¿¼¤µ
 763 @endverbatim
 764
 765 */
 766
 767 void *
 768 mframe_get_prop (MFrame *frame, MSymbol key)
 769 {
 770   if (key == Mface)
 771     return frame->face;
 772   if (key == Mfont)
 773     return &frame->rface->rfont->font;
 774   if (key == Mfont_width)
 775     return (void *) (frame->space_width);
 776   if (key == Mfont_ascent)
 777     return (void *) (frame->ascent);
 778   if (key == Mfont_descent)
 779     return (void *) (frame->descent);
 780   return (*frame->driver->get_prop) (frame, key);
 781 }
 782
 783 /*=*/
 784
 785 /***en
 786     @brief The default frame.
 787
 788     The external variable #mframe_default contains a pointer to the
 789     default frame that is created by the first call of mframe ().  */
 790
 791 /***ja
 792     @brief ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à.
 793
 794     ³°ÉôÊÑ¿ô #mframe_default ¤Ï¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à¤Ø¤Î¥Ý¥¤¥ó¥¿¤ò»ý¤Ä¡£
 795     ¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥ì¡¼¥à¤Ï¡¢ºÇ½é¤Ë mframe () ¤¬¸Æ¤Ó½Ð¤µ¤ì¤¿¤È¤¤Ëºî¤é¤ì¤ë¡£  */
 796
 797 MFrame *mframe_default;
 798
 799 /*** @} */
 800
 801 /*
 802   Local Variables:
 803   coding: euc-japan
 804   End:
 805 */