code.delx.au - gnu-emacs/blob - src/macgui.h

   1 /* Definitions and headers for communication on the Mac OS.
   2    Copyright (C) 2000, 2001 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  19 Boston, MA 02110-1301, USA.  */
  20
  21 /* Contributed by Andrew Choi (akochoi@mac.com).  */
  22
  23 #ifndef EMACS_MACGUI_H
  24 #define EMACS_MACGUI_H
  25
  26 typedef int Display;  /* fix later */
  27
  28 typedef Lisp_Object XrmDatabase;
  29
  30 typedef unsigned long Time;
  31
  32 #ifdef HAVE_CARBON
  33 #undef Z
  34 #ifdef MAC_OSX
  35 #if ! HAVE_MKTIME || BROKEN_MKTIME
  36 #undef mktime
  37 #endif
  38 #undef DEBUG
  39 #undef free
  40 #undef malloc
  41 #undef realloc
  42 /* Macros max and min defined in lisp.h conflict with those in
  43    precompiled header Carbon.h.  */
  44 #undef max
  45 #undef min
  46 #undef init_process
  47 #include <Carbon/Carbon.h>
  48 #if ! HAVE_MKTIME || BROKEN_MKTIME
  49 #undef mktime
  50 #define mktime emacs_mktime
  51 #endif
  52 #undef free
  53 #define free unexec_free
  54 #undef malloc
  55 #define malloc unexec_malloc
  56 #undef realloc
  57 #define realloc unexec_realloc
  58 #undef min
  59 #define min(a, b) ((a) < (b) ? (a) : (b))
  60 #undef max
  61 #define max(a, b) ((a) > (b) ? (a) : (b))
  62 #undef init_process
  63 #define init_process emacs_init_process
  64 #undef INFINITY
  65 #else  /* not MAC_OSX */
  66 #undef SIGHUP
  67 #define OLDP2C 1
  68 #include <Carbon.h>
  69 #endif  /* not MAC_OSX */
  70 #undef Z
  71 #define Z (current_buffer->text->z)
  72 #else /* not HAVE_CARBON */
  73 #include <QuickDraw.h>          /* for WindowPtr */
  74 #include <QDOffscreen.h>        /* for GWorldPtr */
  75 #include <Appearance.h>         /* for ThemeCursor */
  76 #include <Windows.h>
  77 #include <Controls.h>
  78 #include <Gestalt.h>
  79 #endif /* not HAVE_CARBON */
  80
  81 typedef WindowPtr Window;
  82 typedef GWorldPtr Pixmap;
  83
  84 #define Cursor ThemeCursor
  85 #define No_Cursor (-1)
  86
  87 #define FACE_DEFAULT (~0)
  88
  89
  90 /* Emulate XCharStruct.  */
  91 typedef struct _XCharStruct
  92 {
  93   int rbearing;
  94   int lbearing;
  95   int width;
  96   int ascent;
  97   int descent;
  98 } XCharStruct;
  99
 100 #define STORE_XCHARSTRUCT(xcs, w, bds)                  \
 101   ((xcs).width = (w),                                   \
 102    (xcs).lbearing = (bds).left,                         \
 103    (xcs).rbearing = (bds).right,                        \
 104    (xcs).ascent = -(bds).top,                           \
 105    (xcs).descent = (bds).bottom)
 106
 107 struct MacFontStruct {
 108   char *full_name;
 109
 110   short mac_fontnum;  /* font number of font used in this window */
 111   int mac_fontsize;  /* size of font */
 112   short mac_fontface;  /* plain, bold, italics, etc. */
 113 #if TARGET_API_MAC_CARBON
 114   int mac_scriptcode;  /* Mac OS script code for font used */
 115 #else
 116   short mac_scriptcode;  /* Mac OS script code for font used */
 117 #endif
 118
 119 #if 0
 120   SInt16 mFontNum;  /* font number of font used in this window */
 121   short mScriptCode;  /* Mac OS script code for font used */
 122   int mFontSize;  /* size of font */
 123   Style mFontFace;  /* plain, bold, italics, etc. */
 124   int mHeight;  /* height of one line of text in pixels */
 125   int mWidth;  /* width of one character in pixels */
 126   int mAscent;
 127   int mDescent;
 128   int mLeading;
 129   char mTwoByte;  /* true for two-byte font */
 130 #endif /* 0 */
 131
 132 /* from Xlib.h */
 133 #if 0
 134   XExtData *ext_data;      /* hook for extension to hang data */
 135   Font fid;                /* Font id for this font */
 136   unsigned direction;      /* hint about the direction font is painted */
 137 #endif /* 0 */
 138   unsigned min_char_or_byte2;/* first character */
 139   unsigned max_char_or_byte2;/* last character */
 140   unsigned min_byte1;      /* first row that exists */
 141   unsigned max_byte1;      /* last row that exists */
 142 #if 0
 143   Bool all_chars_exist;    /* flag if all characters have nonzero size */
 144   unsigned default_char;   /* char to print for undefined character */
 145   int n_properties;        /* how many properties there are */
 146   XFontProp *properties;   /* pointer to array of additional properties */
 147 #endif /* 0 */
 148   XCharStruct min_bounds;  /* minimum bounds over all existing char */
 149   XCharStruct max_bounds;  /* maximum bounds over all existing char */
 150   XCharStruct *per_char;   /* first_char to last_char information */
 151   int ascent;              /* logical extent above baseline for spacing */
 152   int descent;             /* logical decent below baseline for spacing */
 153 };
 154
 155 typedef struct MacFontStruct MacFontStruct;
 156 typedef struct MacFontStruct XFontStruct;
 157
 158 /* Structure borrowed from Xlib.h to represent two-byte characters.  */
 159
 160 typedef struct {
 161   unsigned char byte1;
 162   unsigned char byte2;
 163 } XChar2b;
 164
 165 #define STORE_XCHAR2B(chp, b1, b2) \
 166   ((chp)->byte1 = (b1), (chp)->byte2 = (b2))
 167
 168 #define XCHAR2B_BYTE1(chp) \
 169   ((chp)->byte1)
 170
 171 #define XCHAR2B_BYTE2(chp) \
 172   ((chp)->byte2)
 173
 174
 175 /* Emulate X GC's by keeping color and font info in a structure.  */
 176 typedef struct _XGCValues
 177 {
 178   unsigned long foreground;
 179   unsigned long background;
 180   XFontStruct *font;
 181 } XGCValues;
 182
 183 typedef struct _XGC
 184 {
 185   /* Original value.  */
 186   XGCValues xgcv;
 187
 188   /* Cached data members follow.  */
 189
 190   /* QuickDraw foreground color.  */
 191   RGBColor fore_color;
 192
 193   /* QuickDraw background color.  */
 194   RGBColor back_color;
 195 } *GC;
 196
 197 #define GCForeground            (1L<<2)
 198 #define GCBackground            (1L<<3)
 199 #define GCFont                  (1L<<14)
 200 #define GCGraphicsExposures     0
 201
 202 /* Bit Gravity */
 203
 204 #define ForgetGravity           0
 205 #define NorthWestGravity        1
 206 #define NorthGravity            2
 207 #define NorthEastGravity        3
 208 #define WestGravity             4
 209 #define CenterGravity           5
 210 #define EastGravity             6
 211 #define SouthWestGravity        7
 212 #define SouthGravity            8
 213 #define SouthEastGravity        9
 214 #define StaticGravity           10
 215
 216 #define NoValue         0x0000
 217 #define XValue          0x0001
 218 #define YValue          0x0002
 219 #define WidthValue      0x0004
 220 #define HeightValue     0x0008
 221 #define AllValues       0x000F
 222 #define XNegative       0x0010
 223 #define YNegative       0x0020
 224
 225 typedef struct {
 226         long flags;     /* marks which fields in this structure are defined */
 227 #if 0
 228         int x, y;               /* obsolete for new window mgrs, but clients */
 229         int width, height;      /* should set so old wm's don't mess up */
 230 #endif
 231         int min_width, min_height;
 232 #if 0
 233         int max_width, max_height;
 234 #endif
 235         int width_inc, height_inc;
 236 #if 0
 237         struct {
 238                 int x;  /* numerator */
 239                 int y;  /* denominator */
 240         } min_aspect, max_aspect;
 241 #endif
 242         int base_width, base_height;            /* added by ICCCM version 1 */
 243 #if 0
 244         int win_gravity;                        /* added by ICCCM version 1 */
 245 #endif
 246 } XSizeHints;
 247
 248 #define USPosition      (1L << 0) /* user specified x, y */
 249 #define USSize          (1L << 1) /* user specified width, height */
 250
 251 #define PPosition       (1L << 2) /* program specified position */
 252 #define PSize           (1L << 3) /* program specified size */
 253 #define PMinSize        (1L << 4) /* program specified minimum size */
 254 #define PMaxSize        (1L << 5) /* program specified maximum size */
 255 #define PResizeInc      (1L << 6) /* program specified resize increments */
 256 #define PAspect         (1L << 7) /* program specified min and max aspect ratios */
 257 #define PBaseSize       (1L << 8) /* program specified base for incrementing */
 258 #define PWinGravity     (1L << 9) /* program specified window gravity */
 259
 260 typedef struct {
 261     int x, y;
 262     unsigned width, height;
 263 } XRectangle;
 264
 265 #define NativeRectangle Rect
 266
 267 #define CONVERT_TO_XRECT(xr,nr)                 \
 268   ((xr).x = (nr).left,                          \
 269    (xr).y = (nr).top,                           \
 270    (xr).width = ((nr).right - (nr).left),       \
 271    (xr).height = ((nr).bottom - (nr).top))
 272
 273 #define CONVERT_FROM_XRECT(xr,nr)               \
 274   ((nr).left = (xr).x,                          \
 275    (nr).top = (xr).y,                           \
 276    (nr).right = ((xr).x + (xr).width),          \
 277    (nr).bottom = ((xr).y + (xr).height))
 278
 279 #define STORE_NATIVE_RECT(nr,x,y,width,height)  \
 280   ((nr).left = (x),                             \
 281    (nr).top = (y),                              \
 282    (nr).right = ((nr).left + (width)),          \
 283    (nr).bottom = ((nr).top + (height)))
 284
 285 #endif /* EMACS_MACGUI_H */
 286
 287 /* arch-tag: 5a0da49a-35e2-418b-a58c-8a55778ae849
 288    (do not change this comment) */