[bpt/emacs.git] / src / macgui.h

/* Definitions and headers for communication on the Mac OS.
   Copyright (C) 2000, 2001 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */

/* Contributed by Andrew Choi (akochoi@mac.com).  */

#ifndef EMACS_MACGUI_H
#define EMACS_MACGUI_H

typedef int Display;  /* fix later */

typedef Lisp_Object XrmDatabase;

typedef unsigned long Time;

#ifdef HAVE_CARBON
#undef Z
#ifdef MAC_OSX
#if ! HAVE_MKTIME || BROKEN_MKTIME
#undef mktime
#endif
#undef DEBUG
#undef free
#undef malloc
#undef realloc
/* Macros max and min defined in lisp.h conflict with those in
   precompiled header Carbon.h.  */
#undef max
#undef min
#undef init_process
#include <Carbon/Carbon.h>
#if ! HAVE_MKTIME || BROKEN_MKTIME
#undef mktime
#define mktime emacs_mktime
#endif
#undef free
#define free unexec_free
#undef malloc
#define malloc unexec_malloc
#undef realloc
#define realloc unexec_realloc
#undef min
#define min(a, b) ((a) < (b) ? (a) : (b))
#undef max
#define max(a, b) ((a) > (b) ? (a) : (b))
#undef init_process
#define init_process emacs_init_process
#undef INFINITY
#else  /* not MAC_OSX */
#undef SIGHUP
#define OLDP2C 1
#include <Carbon.h>
#endif  /* not MAC_OSX */
#undef Z
#define Z (current_buffer->text->z)
#else /* not HAVE_CARBON */
#include <QuickDraw.h>		/* for WindowPtr */
#include <QDOffscreen.h>	/* for GWorldPtr */
#include <Appearance.h>		/* for ThemeCursor */
#include <Windows.h>
#include <Controls.h>
#include <Gestalt.h>
#endif /* not HAVE_CARBON */

typedef WindowPtr Window;
typedef GWorldPtr Pixmap;

#define Cursor ThemeCursor
#define No_Cursor (-1)

#define FACE_DEFAULT (~0)


/* Emulate XCharStruct.  */
typedef struct _XCharStruct
{
  int rbearing;
  int lbearing;
  int width;
  int ascent;
  int descent;
} XCharStruct;

#define STORE_XCHARSTRUCT(xcs, w, bds)			\
  ((xcs).width = (w),					\
   (xcs).lbearing = (bds).left,				\
   (xcs).rbearing = (bds).right,			\
   (xcs).ascent = -(bds).top,				\
   (xcs).descent = (bds).bottom)

struct MacFontStruct {
  char *full_name;

  short mac_fontnum;  /* font number of font used in this window */
  int mac_fontsize;  /* size of font */
  short mac_fontface;  /* plain, bold, italics, etc. */
#if TARGET_API_MAC_CARBON
  int mac_scriptcode;  /* Mac OS script code for font used */
#else
  short mac_scriptcode;  /* Mac OS script code for font used */
#endif

#if 0
  SInt16 mFontNum;  /* font number of font used in this window */
  short mScriptCode;  /* Mac OS script code for font used */
  int mFontSize;  /* size of font */
  Style mFontFace;  /* plain, bold, italics, etc. */
  int mHeight;  /* height of one line of text in pixels */
  int mWidth;  /* width of one character in pixels */
  int mAscent;
  int mDescent;
  int mLeading;
  char mTwoByte;  /* true for two-byte font */
#endif /* 0 */

/* from Xlib.h */
#if 0
  XExtData *ext_data;      /* hook for extension to hang data */
  Font fid;                /* Font id for this font */
  unsigned direction;      /* hint about the direction font is painted */
#endif /* 0 */
  unsigned min_char_or_byte2;/* first character */
  unsigned max_char_or_byte2;/* last character */
  unsigned min_byte1;      /* first row that exists */
  unsigned max_byte1;      /* last row that exists */
#if 0
  Bool all_chars_exist;    /* flag if all characters have nonzero size */
  unsigned default_char;   /* char to print for undefined character */
  int n_properties;        /* how many properties there are */
  XFontProp *properties;   /* pointer to array of additional properties */
#endif /* 0 */
  XCharStruct min_bounds;  /* minimum bounds over all existing char */
  XCharStruct max_bounds;  /* maximum bounds over all existing char */
  XCharStruct *per_char;   /* first_char to last_char information */
  int ascent;              /* logical extent above baseline for spacing */
  int descent;             /* logical decent below baseline for spacing */
};

typedef struct MacFontStruct MacFontStruct;
typedef struct MacFontStruct XFontStruct;

/* Structure borrowed from Xlib.h to represent two-byte characters.  */

typedef struct {
  unsigned char byte1;
  unsigned char byte2;
} XChar2b;

#define STORE_XCHAR2B(chp, b1, b2) \
  ((chp)->byte1 = (b1), (chp)->byte2 = (b2))

#define XCHAR2B_BYTE1(chp) \
  ((chp)->byte1)

#define XCHAR2B_BYTE2(chp) \
  ((chp)->byte2)


/* Emulate X GC's by keeping color and font info in a structure.  */
typedef struct _XGCValues
{
  unsigned long foreground;
  unsigned long background;
  XFontStruct *font;
} XGCValues;

typedef XGCValues *GC;

extern XGCValues *
XCreateGC (void *, Window, unsigned long, XGCValues *);

#define GCForeground 0x01
#define GCBackground 0x02
#define GCFont 0x03
#define GCGraphicsExposures 0

/* Bit Gravity */

#define ForgetGravity		0
#define NorthWestGravity	1
#define NorthGravity		2
#define NorthEastGravity	3
#define WestGravity		4
#define CenterGravity		5
#define EastGravity		6
#define SouthWestGravity	7
#define SouthGravity		8
#define SouthEastGravity	9
#define StaticGravity		10

#define NoValue		0x0000
#define XValue  	0x0001
#define YValue		0x0002
#define WidthValue  	0x0004
#define HeightValue  	0x0008
#define AllValues 	0x000F
#define XNegative 	0x0010
#define YNegative 	0x0020

typedef struct {
    	long flags;	/* marks which fields in this structure are defined */
#if 0
	int x, y;		/* obsolete for new window mgrs, but clients */
	int width, height;	/* should set so old wm's don't mess up */
#endif
	int min_width, min_height;
#if 0
	int max_width, max_height;
#endif
    	int width_inc, height_inc;
#if 0
	struct {
		int x;	/* numerator */
		int y;	/* denominator */
	} min_aspect, max_aspect;
#endif
	int base_width, base_height;		/* added by ICCCM version 1 */
#if 0
	int win_gravity;			/* added by ICCCM version 1 */
#endif
} XSizeHints;

#define USPosition	(1L << 0) /* user specified x, y */
#define USSize		(1L << 1) /* user specified width, height */

#define PPosition	(1L << 2) /* program specified position */
#define PSize		(1L << 3) /* program specified size */
#define PMinSize	(1L << 4) /* program specified minimum size */
#define PMaxSize	(1L << 5) /* program specified maximum size */
#define PResizeInc	(1L << 6) /* program specified resize increments */
#define PAspect		(1L << 7) /* program specified min and max aspect ratios */
#define PBaseSize	(1L << 8) /* program specified base for incrementing */
#define PWinGravity	(1L << 9) /* program specified window gravity */

extern int XParseGeometry ();

typedef struct {
    int x, y;
    unsigned width, height;
} XRectangle;

#define NativeRectangle Rect

#define CONVERT_TO_XRECT(xr,nr)			\
  ((xr).x = (nr).left,				\
   (xr).y = (nr).top,				\
   (xr).width = ((nr).right - (nr).left),	\
   (xr).height = ((nr).bottom - (nr).top))

#define CONVERT_FROM_XRECT(xr,nr)		\
  ((nr).left = (xr).x,				\
   (nr).top = (xr).y,				\
   (nr).right = ((xr).x + (xr).width),		\
   (nr).bottom = ((xr).y + (xr).height))

#define STORE_NATIVE_RECT(nr,x,y,width,height)	\
  ((nr).left = (x),				\
   (nr).top = (y),				\
   (nr).right = ((nr).left + (width)),		\
   (nr).bottom = ((nr).top + (height)))

#endif /* EMACS_MACGUI_H */

/* arch-tag: 5a0da49a-35e2-418b-a58c-8a55778ae849
   (do not change this comment) */
Commit	Line	Data
1a578e9b	1	/* Definitions and headers for communication on the Mac OS.
e0f712ba	2	Copyright (C) 2000, 2001 Free Software Foundation, Inc.
1a578e9b AC	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., 59 Temple Place - Suite 330,
	19	Boston, MA 02111-1307, USA. */
	20
e0f712ba	21	/* Contributed by Andrew Choi (akochoi@mac.com). */
1a578e9b AC	22
	23	#ifndef EMACS_MACGUI_H
	24	#define EMACS_MACGUI_H
	25
1a578e9b AC	26	typedef int Display; /* fix later */
1a578e9b AC	27
e7474cdd	28	typedef Lisp_Object XrmDatabase;
574bdd83	29
1a578e9b	30	typedef unsigned long Time;
e0f712ba	31
24972bf6 YM	32	#ifdef HAVE_CARBON
	33	#undef Z
	34	#ifdef MAC_OSX
7a92caf8	35	#if ! HAVE_MKTIME \|\| BROKEN_MKTIME
e3564461	36	#undef mktime
7a92caf8	37	#endif
e3564461	38	#undef DEBUG
e3564461 ST	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>
7a92caf8	48	#if ! HAVE_MKTIME \|\| BROKEN_MKTIME
c3f4c690 ST	49	#undef mktime
c3f4c690 ST	50	#define mktime emacs_mktime
7a92caf8	51	#endif
e3564461 ST	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
24972bf6 YM	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 */
e3564461 ST	73	#include <QuickDraw.h> /* for WindowPtr */
e3564461 ST	74	#include <QDOffscreen.h> /* for GWorldPtr */
2f063626	75	#include <Appearance.h> /* for ThemeCursor */
b15325b2	76	#include <Windows.h>
2f063626	77	#include <Controls.h>
50bf7673	78	#include <Gestalt.h>
24972bf6	79	#endif /* not HAVE_CARBON */
1a578e9b	80
b15325b2	81	typedef WindowPtr Window;
e3564461 ST	82	typedef GWorldPtr Pixmap;
e3564461 ST	83
50bf7673 ST	84	#define Cursor ThemeCursor
50bf7673 ST	85	#define No_Cursor (-1)
50bf7673	86
1a578e9b AC	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
8c2da0fa ST	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
1a578e9b	107	struct MacFontStruct {
a6d1cf01	108	char *full_name;
1a578e9b	109
e0f712ba	110	short mac_fontnum; /* font number of font used in this window */
1a578e9b	111	int mac_fontsize; /* size of font */
e0f712ba	112	short mac_fontface; /* plain, bold, italics, etc. */
a6d1cf01 YM	113	#if TARGET_API_MAC_CARBON
	114	int mac_scriptcode; /* Mac OS script code for font used */
	115	#else
1a578e9b	116	short mac_scriptcode; /* Mac OS script code for font used */
a6d1cf01	117	#endif
1a578e9b AC	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 */
e0f712ba	130	#endif /* 0 */
1a578e9b AC	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 */
e0f712ba	137	#endif /* 0 */
1a578e9b AC	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 */
e0f712ba	147	#endif /* 0 */
1a578e9b AC	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
ec480ce0 KS	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
1a578e9b AC	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 XGCValues *GC;
	184
	185	extern XGCValues *
	186	XCreateGC (void , Window, unsigned long, XGCValues );
	187
	188	#define GCForeground 0x01
	189	#define GCBackground 0x02
	190	#define GCFont 0x03
	191	#define GCGraphicsExposures 0
	192
	193	/* Bit Gravity */
	194
	195	#define ForgetGravity 0
	196	#define NorthWestGravity 1
	197	#define NorthGravity 2
	198	#define NorthEastGravity 3
	199	#define WestGravity 4
	200	#define CenterGravity 5
	201	#define EastGravity 6
	202	#define SouthWestGravity 7
	203	#define SouthGravity 8
	204	#define SouthEastGravity 9
	205	#define StaticGravity 10
	206
	207	#define NoValue 0x0000
	208	#define XValue 0x0001
	209	#define YValue 0x0002
	210	#define WidthValue 0x0004
	211	#define HeightValue 0x0008
	212	#define AllValues 0x000F
	213	#define XNegative 0x0010
	214	#define YNegative 0x0020
	215
b15325b2 ST	216	typedef struct {
	217	long flags; /* marks which fields in this structure are defined */
	218	#if 0
	219	int x, y; /* obsolete for new window mgrs, but clients */
	220	int width, height; /* should set so old wm's don't mess up */
	221	#endif
	222	int min_width, min_height;
	223	#if 0
	224	int max_width, max_height;
	225	#endif
	226	int width_inc, height_inc;
	227	#if 0
	228	struct {
	229	int x; /* numerator */
	230	int y; /* denominator */
	231	} min_aspect, max_aspect;
	232	#endif
	233	int base_width, base_height; /* added by ICCCM version 1 */
	234	#if 0
	235	int win_gravity; /* added by ICCCM version 1 */
	236	#endif
	237	} XSizeHints;
	238
1a578e9b AC	239	#define USPosition (1L << 0) /* user specified x, y */
	240	#define USSize (1L << 1) /* user specified width, height */
	241
	242	#define PPosition (1L << 2) /* program specified position */
	243	#define PSize (1L << 3) /* program specified size */
	244	#define PMinSize (1L << 4) /* program specified minimum size */
	245	#define PMaxSize (1L << 5) /* program specified maximum size */
	246	#define PResizeInc (1L << 6) /* program specified resize increments */
	247	#define PAspect (1L << 7) /* program specified min and max aspect ratios */
	248	#define PBaseSize (1L << 8) /* program specified base for incrementing */
	249	#define PWinGravity (1L << 9) /* program specified window gravity */
	250
	251	extern int XParseGeometry ();
	252
e119ad0d KS	253	typedef struct {
	254	int x, y;
	255	unsigned width, height;
	256	} XRectangle;
	257
	258	#define NativeRectangle Rect
	259
	260	#define CONVERT_TO_XRECT(xr,nr) \
	261	((xr).x = (nr).left, \
	262	(xr).y = (nr).top, \
	263	(xr).width = ((nr).right - (nr).left), \
	264	(xr).height = ((nr).bottom - (nr).top))
	265
	266	#define CONVERT_FROM_XRECT(xr,nr) \
	267	((nr).left = (xr).x, \
	268	(nr).top = (xr).y, \
	269	(nr).right = ((xr).x + (xr).width), \
	270	(nr).bottom = ((xr).y + (xr).height))
	271
	272	#define STORE_NATIVE_RECT(nr,x,y,width,height) \
	273	((nr).left = (x), \
	274	(nr).top = (y), \
	275	(nr).right = ((nr).left + (width)), \
	276	(nr).bottom = ((nr).top + (height)))
	277
1a578e9b AC	278	#endif /* EMACS_MACGUI_H */
1a578e9b AC	279
ab5796a9 MB	280	/* arch-tag: 5a0da49a-35e2-418b-a58c-8a55778ae849
ab5796a9 MB	281	(do not change this comment) */