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