comparison src/macterm.c @ 89943:4c90ffeb71c5

Revision: [e-mail]--gnu-2004/emacs--unicode--0--patch-15 Merge from emacs--cvs-trunk--0 Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-218 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-220 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-221 Restore deleted tagline in etc/TUTORIAL.ru * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-222 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-228 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-229 Remove TeX output files from the archive * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-230 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-247 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-248 src/lisp.h (CYCLE_CHECK): Macro moved from xfaces.c * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-249 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-256 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-258 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-263 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-264 Update from CVS: lispref/display.texi: emacs -> Emacs. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-265 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-274 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-275 Update from CVS: man/makefile.w32-in: Revert last change * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-276 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-295 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-296 Allow restarting an existing debugger session that's exited * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-297 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-299 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-300 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-327 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-328 Update from CVS: src/.gdbinit (xsymbol): Fix last change. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-329 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-344 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-345 Tweak source regexps so that building in place won't cause problems * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-346 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-351 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-352 Update from CVS: lisp/flymake.el: New file. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-353 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-361 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-362 Support " [...]" style defaults in minibuffer-electric-default-mode * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-363 (read-number): Use canonical format for default in prompt. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-364 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-367 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-368 Improve display-supports-face-attributes-p on non-ttys * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-369 Rewrite face-differs-from-default-p * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-370 Move `display-supports-face-attributes-p' entirely into C code * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-371 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-372 Simplify face-differs-from-default-p; don't consider :stipple. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-373 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-374 (tty_supports_face_attributes_p): Ensure attributes differ from default * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-375 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-376 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-377 (Fdisplay_supports_face_attributes_p): Work around bootstrapping problem * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-378 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-380 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-381 Face merging cleanups * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-382 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-384 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-385 src/xfaces.c (push_named_merge_point): Return 0 if a cycle is detected * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-386 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-395 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-396 Tweak arch tagging to make build/install-in-place less annoying * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-397 Work around vc-arch problems when building eshell * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-398 Tweak permissions * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-399 Tweak directory permissions * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-400 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-401 More build-in-place tweaking of arch tagging * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-402 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-403 Yet more build-in-place tweaking of arch tagging * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-404 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-409 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-410 Make sure image types are initialized for lookup too * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-411 - [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-416 Update from CVS

89942:9cb747ae49af

#include <LowMem.h>
#include <Controls.h>
#if defined (__MRC__) || (__MSL__ >= 0x6000)
#include <ControlDefinitions.h>
#endif
#include <Gestalt.h>

#if __profile__
#include <profiler.h>
#endif
#endif /* not MAC_OSX */

   along with the position query.  So, we just keep track of the time
   of the last movement we received, and return that in hopes that
   it's somewhat accurate.  */

static Time last_mouse_movement_time;

enum mouse_tracking_type {
  mouse_tracking_none,
  mouse_tracking_mouse_movement,
  mouse_tracking_scroll_bar
};

enum mouse_tracking_type mouse_tracking_in_progress = mouse_tracking_none;

struct scroll_bar *tracked_scroll_bar = NULL;

/* Incremented by XTread_socket whenever it really tries to read
   events.  */

void activate_scroll_bars (FRAME_PTR);
void deactivate_scroll_bars (FRAME_PTR);

static int is_emacs_window (WindowPtr);

extern int image_ascent (struct image *, struct face *);
int x_bitmap_icon (struct frame *, Lisp_Object);
void x_make_frame_visible (struct frame *);

extern void window_scroll (Lisp_Object, int, int, int);

void
XFreePixmap (display, pixmap)
     Display *display;		/* not used */
     Pixmap pixmap;
{
  DisposeGWorld (pixmap); 
}


/* Set foreground color for subsequent QuickDraw commands.  Assume
   graphic port has already been set.  */

     Display *display;
     WindowPtr w;
     GC gc;
     int x1, y1, x2, y2;
{
#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  mac_set_colors (gc);

  MoveTo (x1, y1);
  LineTo (x2, y2);

     Display *display;
     Pixmap p;
     GC gc;
     int x1, y1, x2, y2;
{
  SetGWorld (p, NULL);

  mac_set_colors (gc);

  LockPixels (GetGWorldPixMap (p));
  MoveTo (x1, y1);
  LineTo (x2, y2);
  UnlockPixels (GetGWorldPixMap (p));
}

/* Mac version of XClearArea.  */

void

  XGCValues xgc;

  xgc.foreground = mwp->x_compatible.foreground_pixel;
  xgc.background = mwp->x_compatible.background_pixel;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  mac_set_colors (&xgc);
  SetRect (&r, x, y, x + width, y + height);

  EraseRect (&r);

  XGCValues xgc;

  xgc.foreground = mwp->x_compatible.foreground_pixel;
  xgc.background = mwp->x_compatible.background_pixel;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  mac_set_colors (&xgc);

#if TARGET_API_MAC_CARBON
  {

  bitmap.rowBytes = sizeof(unsigned short);
  bitmap.baseAddr = (char *)bits;
  SetRect (&(bitmap.bounds), 0, 0, width, height);

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  mac_set_colors (gc);
  SetRect (&r, x, y, x + width, y + height);

#if TARGET_API_MAC_CARBON

mac_set_clip_rectangle (display, w, r)
     Display *display;
     WindowPtr w;
     Rect *r;
{
#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  ClipRect (r);
}

     Display *display;
     WindowPtr w;
{
  Rect r;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  SetRect (&r, -32767, -32767, 32767, 32767);
  ClipRect (&r);
}

{
  Pixmap pixmap;
  Rect r;
  QDErr err;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  SetRect (&r, 0, 0, width, height);
  err = NewGWorld (&pixmap, depth, &r, NULL, NULL, 0);
  if (err != noErr)
    return NULL;

     unsigned long fg, bg;
     unsigned int depth;	/* not used */
{
  Pixmap pixmap;
  BitMap bitmap;

  pixmap = XCreatePixmap (display, w, width, height, depth);
  if (pixmap == NULL)
    return NULL;

  SetGWorld (pixmap, NULL);
  mac_create_bitmap_from_bitmap_data (&bitmap, data, width, height);
  mac_set_forecolor (fg);
  mac_set_backcolor (bg);
  LockPixels (GetGWorldPixMap (pixmap));

#else /* not TARGET_API_MAC_CARBON */
  CopyBits (&bitmap, &(((GrafPtr)pixmap)->portBits),
	    &bitmap.bounds, &bitmap.bounds, srcCopy, 0);
#endif /* not TARGET_API_MAC_CARBON */
  UnlockPixels (GetGWorldPixMap (pixmap));
  mac_free_bitmap (&bitmap);

  return pixmap;
}

     int x, y;
     unsigned int width, height;
{
  Rect r;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  mac_set_colors (gc);
  SetRect (&r, x, y, x + width, y + height);

  PaintRect (&r); /* using foreground color of gc */

     Pixmap p;
     GC gc;
     int x, y;
     unsigned int width, height;
{
  Rect r;

  SetGWorld (p, NULL);
  mac_set_colors (gc);
  SetRect (&r, x, y, x + width, y + height);

  LockPixels (GetGWorldPixMap (p));
  PaintRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));
}


/* Mac replacement for XDrawRectangle: dest is a window.  */

     int x, y;
     unsigned int width, height;
{
  Rect r;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  mac_set_colors (gc);
  SetRect (&r, x, y, x + width + 1, y + height + 1);

  FrameRect (&r); /* using foreground color of gc */

     Pixmap p;
     GC gc;
     int x, y;
     unsigned int width, height;
{
  Rect r;

  SetGWorld (p, NULL);
  mac_set_colors (gc);
  SetRect (&r, x, y, x + width + 1, y + height + 1);

  LockPixels (GetGWorldPixMap (p));
  FrameRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));
}


static void
mac_draw_string_common (display, w, gc, x, y, buf, nchars, mode,

     GC gc;
     int x, y;
     char *buf;
     int nchars, mode, bytes_per_char;
{
#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  mac_set_colors (gc);

  TextFont (gc->font->mac_fontnum);
  TextSize (gc->font->mac_fontsize);

     unsigned int width, height;
     int dest_x, dest_y;
{
  Rect src_r, dest_r;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (dest));
#else
  SetPort (dest);
#endif

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height);

  ForeColor (blackColor);

     unsigned int width, height;
     int dest_x, dest_y;
{
  Rect src_r, dest_r;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (dest));
#else
  SetPort (dest);
#endif

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height);

  ForeColor (blackColor);

  Rect gw_r, src_r, dest_r;

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height);

  SetPort (GetWindowPort (w));

  ForeColor (blackColor);
  BackColor (whiteColor);

  LockPortBits (GetWindowPort (w));

     GC gc;
     int src_x, src_y;
     unsigned int width, height;
     int dest_x, dest_y;
{
  Rect src_r, dest_r;

  SetGWorld (dest, NULL);
  ForeColor (blackColor);
  BackColor (whiteColor);

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);

  CopyBits (&(((GrafPtr)src)->portBits), &(((GrafPtr)dest)->portBits),
	    &src_r, &dest_r, srcCopy, 0);
#endif /* not TARGET_API_MAC_CARBON */
  UnlockPixels (GetGWorldPixMap (dest));
  UnlockPixels (GetGWorldPixMap (src));
}


static void
mac_copy_area_with_mask_to_pixmap (display, src, mask, dest, gc, src_x, src_y,

     GC gc;
     int src_x, src_y;
     unsigned int width, height;
     int dest_x, dest_y;
{
  Rect src_r, dest_r;

  SetGWorld (dest, NULL);
  ForeColor (blackColor);
  BackColor (whiteColor);

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);

	    &(((GrafPtr)dest)->portBits), &src_r, &src_r, &dest_r);
#endif /* not TARGET_API_MAC_CARBON */
  UnlockPixels (GetGWorldPixMap (dest));
  UnlockPixels (GetGWorldPixMap (mask));
  UnlockPixels (GetGWorldPixMap (src));
}


/* Mac replacement for XChangeGC.  */

    {
      Lisp_Object rest, frame;
      FOR_EACH_FRAME (rest, frame)
	x_flush (XFRAME (frame));
    }
  else if (FRAME_X_P (f))
    XFlush (FRAME_MAC_DISPLAY (f));
  UNBLOCK_INPUT;
#endif /* TARGET_API_MAC_CARBON */
}

      if (!NILP (display_info->mouse_face_window)
	  && w == XWINDOW (display_info->mouse_face_window))
	{
	  int i;

          for (i = 0; i < w->desired_matrix->nrows; ++i)
	    if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i))
	      break;

	  if (i < w->desired_matrix->nrows)
	    clear_mouse_face (display_info);

mac_draw_vertical_window_border (w, x, y0, y1)
     struct window *w;
     int x, y0, y1;
{
  struct frame *f = XFRAME (WINDOW_FRAME (w));
  
  XDrawLine (FRAME_MAC_DISPLAY (f), FRAME_MAC_WINDOW (f),
	     f->output_data.mac->normal_gc, x, y0, x, y1);
}

     struct frame *f;
{
  /* Reset the background color of Mac OS Window to that of the frame after
     update so that it is used by Mac Toolbox to clear the update region before
     an update event is generated.  */
#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (FRAME_MAC_WINDOW (f)));
#else
  SetPort (FRAME_MAC_WINDOW (f));
#endif

  mac_set_backcolor (FRAME_BACKGROUND_PIXEL (f));

  /* Mouse highlight may be displayed again.  */
  FRAME_MAC_DISPLAY_INFO (f)->mouse_face_defer = 0;

static void
XTframe_up_to_date (f)
     struct frame *f;
{
  if (FRAME_X_P (f))
    {
      struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);

      if (dpyinfo->mouse_face_deferred_gc
	  || f == dpyinfo->mouse_face_mouse_frame)

			? (p->overlay_p ? face->background
			   : f->output_data.mac->cursor_pixel)
			: face->foreground);
      gcv.background = face->background;

      mac_draw_bitmap (display, window, &gcv, p->x, p->y, 
		       p->wd, p->h, bits, p->overlay_p);
    }

  mac_reset_clipping (display, window);
}

static void x_draw_image_foreground P_ ((struct glyph_string *));
static void x_draw_image_foreground_1 P_ ((struct glyph_string *, Pixmap));
static void x_clear_glyph_string_rect P_ ((struct glyph_string *, int,
					   int, int, int));
static void x_draw_relief_rect P_ ((struct frame *, int, int, int, int,
				    int, int, int, int, Rect *));
static void x_draw_box_rect P_ ((struct glyph_string *, int, int, int, int,
				 int, int, int, Rect *));

#if GLYPH_DEBUG
static void x_check_font P_ ((struct frame *, XFontStruct *));

   side of the rectangle.  CLIP_RECT is the clipping rectangle to use
   when drawing.  */

static void
x_draw_relief_rect (f, left_x, top_y, right_x, bottom_y, width,
		    raised_p, left_p, right_p, clip_rect)
     struct frame *f;
     int left_x, top_y, right_x, bottom_y, width, left_p, right_p, raised_p;
     Rect *clip_rect;
{
  Display *dpy = FRAME_MAC_DISPLAY (f);
  Window window = FRAME_MAC_WINDOW (f);
  int i;

  else
    gc = f->output_data.mac->black_relief.gc;
  mac_set_clip_rectangle (dpy, window, clip_rect);

  /* Top.  */
  for (i = 0; i < width; ++i)
    XDrawLine (dpy, window, gc,
	       left_x + i * left_p, top_y + i,
	       right_x - i * right_p, top_y + i);

  /* Left.  */
  if (left_p)
    for (i = 0; i < width; ++i)
      XDrawLine (dpy, window, gc,

    gc = f->output_data.mac->white_relief.gc;
  mac_set_clip_rectangle (dpy, window,
			  clip_rect);

  /* Bottom.  */
  for (i = 0; i < width; ++i)
    XDrawLine (dpy, window, gc,
	       left_x + i * left_p, bottom_y - i,
	       right_x - i * right_p, bottom_y - i);

  /* Right.  */
  if (right_p)
    for (i = 0; i < width; ++i)
      XDrawLine (dpy, window, gc,

		     left_p, right_p, &clip_rect);
  else
    {
      x_setup_relief_colors (s);
      x_draw_relief_rect (s->f, left_x, top_y, right_x, bottom_y,
			  width, raised_p, left_p, right_p, &clip_rect);
    }
}


/* Draw foreground of image glyph string S.  */

static void
x_draw_image_foreground (s)
     struct glyph_string *s;
{
  int x;
  int y = s->ybase - image_ascent (s->img, s->face);

  /* If first glyph of S has a left box line, start drawing it to the
     right of that line.  */
  if (s->face->box != FACE_NO_BOX
      && s->first_glyph->left_box_line_p)
    x = s->x + abs (s->face->box_line_width);
  else
    x = s->x;

  /* If there is a margin around the image, adjust x- and y-position
     by that margin.  */
  x += s->img->hmargin;
  y += s->img->vmargin;

  if (s->img->pixmap)
    {
      if (s->img->mask)
	{

	  get_glyph_string_clip_rect (s, &nr);
	  CONVERT_TO_XRECT (clip_rect, nr);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->img->width;
	  image_rect.height = s->img->height;
	  if (x_intersect_rectangles (&clip_rect, &image_rect, &r))
	    mac_copy_area_with_mask (s->display, s->img->pixmap, s->img->mask,
				     s->window, s->gc, r.x - x, r.y - y,
				     r.width, r.height, r.x, r.y);
	}
      else
	{
	  Rect nr;

	  get_glyph_string_clip_rect (s, &nr);
	  CONVERT_TO_XRECT (clip_rect, nr);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->img->width;
	  image_rect.height = s->img->height;
	  if (x_intersect_rectangles (&clip_rect, &image_rect, &r))
	    mac_copy_area (s->display, s->img->pixmap, s->window, s->gc,
			   r.x - x, r.y - y, r.width, r.height, r.x, r.y);

	  /* When the image has a mask, we can expect that at
	     least part of a mouse highlight or a block cursor will
	     be visible.  If the image doesn't have a mask, make
	     a block cursor visible by drawing a rectangle around

	  if (s->hl == DRAW_CURSOR)
	    {
	      int r = s->img->relief;
	      if (r < 0) r = -r;
	      mac_draw_rectangle (s->display, s->window, s->gc, x - r, y - r,
				  s->img->width + r*2 - 1, s->img->height + r*2 - 1);
	    }
	}
    }
  else
    /* Draw a rectangle if image could not be loaded.  */
    mac_draw_rectangle (s->display, s->window, s->gc, x, y,
		      s->img->width - 1, s->img->height - 1);
}


/* Draw a relief around the image glyph string S.  */

static void
x_draw_image_relief (s)
     struct glyph_string *s;
{
  int x0, y0, x1, y1, thick, raised_p;
  Rect r;
  int x;
  int y = s->ybase - image_ascent (s->img, s->face);

  /* If first glyph of S has a left box line, start drawing it to the
     right of that line.  */
  if (s->face->box != FACE_NO_BOX
      && s->first_glyph->left_box_line_p)
    x = s->x + abs (s->face->box_line_width);
  else
    x = s->x;

  /* If there is a margin around the image, adjust x- and y-position
     by that margin.  */
  x += s->img->hmargin;
  y += s->img->vmargin;

  if (s->hl == DRAW_IMAGE_SUNKEN
      || s->hl == DRAW_IMAGE_RAISED)
    {
      thick = tool_bar_button_relief >= 0 ? tool_bar_button_relief : DEFAULT_TOOL_BAR_BUTTON_RELIEF;
      raised_p = s->hl == DRAW_IMAGE_RAISED;
    }
  else
    {
      thick = abs (s->img->relief);
      raised_p = s->img->relief > 0;
    }

  x0 = x - thick;
  y0 = y - thick;
  x1 = x + s->img->width + thick - 1;
  y1 = y + s->img->height + thick - 1;

  x_setup_relief_colors (s);
  get_glyph_string_clip_rect (s, &r);
  x_draw_relief_rect (s->f, x0, y0, x1, y1, thick, raised_p, 1, 1, &r);
}


/* Draw the foreground of image glyph string S to PIXMAP.  */

static void
x_draw_image_foreground_1 (s, pixmap)
     struct glyph_string *s;
     Pixmap pixmap;
{
  int x;
  int y = s->ybase - s->y - image_ascent (s->img, s->face);

  /* If first glyph of S has a left box line, start drawing it to the
     right of that line.  */
  if (s->face->box != FACE_NO_BOX
      && s->first_glyph->left_box_line_p)
    x = abs (s->face->box_line_width);
  else
    x = 0;

  /* If there is a margin around the image, adjust x- and y-position
     by that margin.  */
  x += s->img->hmargin;
  y += s->img->vmargin;

  if (s->img->pixmap)
    {
      if (s->img->mask)
	mac_copy_area_with_mask_to_pixmap (s->display, s->img->pixmap,
					   s->img->mask, pixmap, s->gc,
					   0, 0, s->img->width, s->img->height,
					   x, y);
      else
	{
	  mac_copy_area_to_pixmap (s->display, s->img->pixmap, pixmap, s->gc,
		               0, 0, s->img->width, s->img->height, x, y);

	  /* When the image has a mask, we can expect that at
	     least part of a mouse highlight or a block cursor will
	     be visible.  If the image doesn't have a mask, make
	     a block cursor visible by drawing a rectangle around
	     the image.  I believe it's looking better if we do
	     nothing here for mouse-face.  */
	  if (s->hl == DRAW_CURSOR)
	    {
	      int r = s->img->relief;
	      if (r < 0) r = -r;
	      mac_draw_rectangle (s->display, s->window, s->gc, x - r, y - r,
				  s->img->width + r*2 - 1,
				  s->img->height + r*2 - 1);
	    }
	}
    }
  else
    /* Draw a rectangle if image could not be loaded.  */
    mac_draw_rectangle_to_pixmap (s->display, pixmap, s->gc, x, y,
				  s->img->width - 1, s->img->height - 1);
}


/* Draw part of the background of glyph string S.  X, Y, W, and H
   give the rectangle to draw.  */

  /* Fill background with face under the image.  Do it only if row is
     taller than image or if image has a clip mask to reduce
     flickering.  */
  s->stippled_p = s->face->stipple != 0;
  if (height > s->img->height
      || s->img->hmargin
      || s->img->vmargin
      || s->img->mask
      || s->img->pixmap == 0
      || s->width != s->background_width)
    {
      if (box_line_hwidth && s->first_glyph->left_box_line_p)
	x = s->x + box_line_hwidth;
      else
	x = s->x;

      y = s->y + box_line_vwidth;

      if (s->img->mask)
	{
	  /* Create a pixmap as large as the glyph string.  Fill it
	     with the background color.  Copy the image to it, using

  result->timestamp = event->when;
  result->modifiers = event->what == mouseDown ? down_modifier : up_modifier;

  mouseLoc = event->where;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (FRAME_MAC_WINDOW (f)));
#else
  SetPort (FRAME_MAC_WINDOW (f));
#endif

  GlobalToLocal (&mouseLoc);
  XSETINT (result->x, mouseLoc.h);
  XSETINT (result->y, mouseLoc.v);

static void
note_mouse_movement (frame, pos)
     FRAME_PTR frame;
     Point *pos;
{
#if TARGET_API_MAC_CARBON
  Rect r;
#endif

  last_mouse_movement_time = TickCount () * (1000 / 60);  /* to milliseconds */

  if (!PtInRect (*pos, GetWindowPortBounds (FRAME_MAC_WINDOW (frame), &r)))
#else
  if (!PtInRect (*pos, &FRAME_MAC_WINDOW (frame)->portRect))
#endif
    {
      frame->mouse_moved = 1;
      last_mouse_scroll_bar = Qnil;
      note_mouse_highlight (frame, -1, -1);
    }
  /* Has the mouse moved off the glyph it was on at the last sighting?  */
  else if (pos->h < last_mouse_glyph.left
	   || pos->h >= last_mouse_glyph.right
	   || pos->v < last_mouse_glyph.top

		  return 1;
		}

	    /* x is to the right of the last glyph in the row.  */
	    rect->left = WINDOW_TO_FRAME_PIXEL_X (w, gx);
	    /* Shouldn't this be a pixel value?  
	       WINDOW_RIGHT_EDGE_X (w) seems to be the right value.
	       ++KFS */
	    rect->right = WINDOW_RIGHT_EDGE_COL (w);
	    return 1;
	  }

      last_mouse_glyph.bottom = gy + height;
    }
}


/* Return the current position of the mouse.
   *fp should be a frame which indicates which display to ask about.

   If the mouse movement started in a scroll bar, set *fp, *bar_window,
   and *part to the frame, window, and scroll bar part that the mouse

     Lisp_Object *x, *y;
     unsigned long *time;
{
  Point mouse_pos;
  int ignore1, ignore2;
  WindowPtr wp = FrontWindow ();
  struct frame *f;
  Lisp_Object frame, tail;

  if (is_emacs_window(wp))
    f = ((mac_output *) GetWRefCon (wp))->mFP;

  BLOCK_INPUT;

  if (! NILP (last_mouse_scroll_bar) && insist == 0)
    x_scroll_bar_report_motion (fp, bar_window, part, x, y, time);

      FOR_EACH_FRAME (tail, frame)
        XFRAME (frame)->mouse_moved = 0;

      last_mouse_scroll_bar = Qnil;

#if TARGET_API_MAC_CARBON
      SetPort (GetWindowPort (wp));
#else
      SetPort (wp);
#endif

      GetMouse (&mouse_pos);

      pixel_to_glyph_coords (f, mouse_pos.h, mouse_pos.v, &ignore1, &ignore2,
                             &last_mouse_glyph, insist);

  int y = button_event->where.v;

  if (button_event->what == mouseDown)
    handle_tool_bar_click (f, x, y, 1, 0);
  else
    handle_tool_bar_click (f, x, y, 0, 
			   x_mac_to_emacs_modifiers (FRAME_MAC_DISPLAY_INFO (f),
						     button_event->modifiers));
}



     struct scroll_bar *bar;
     int part_code;
     EventRecord *er;
     struct input_event *bufp;
{
  if (! GC_WINDOWP (bar->window))
    abort ();

  bufp->kind = SCROLL_BAR_CLICK_EVENT;
  bufp->frame_or_window = bar->window;

        bar->dragging = make_number (0);
      XSETVECTOR (last_mouse_scroll_bar, bar);
      bufp->part = scroll_bar_handle;
      break;
    }
}


/* Handle some mouse motion while someone is dragging the scroll bar.

     enum scroll_bar_part *part;
     Lisp_Object *x, *y;
     unsigned long *time;
{
  struct scroll_bar *bar = XSCROLL_BAR (last_mouse_scroll_bar);
  WindowPtr wp = FrontWindow ();
  Point mouse_pos;
  struct frame *f = ((mac_output *) GetWRefCon (wp))->mFP;
  int win_y, top_range;

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (wp));
#else
  SetPort (wp);
#endif

  GetMouse (&mouse_pos);

  win_y = mouse_pos.v - XINT (bar->top);
  top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));

  y = WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y);

  /* Compute the proper height and ascent of the rectangle, based
     on the actual glyph.  Using the full height of the row looks
     bad when there are tall images on that row.  */
  h = max (FRAME_LINE_HEIGHT (f), cursor_glyph->ascent + cursor_glyph->descent);
  if (h < row->height)
    y += row->ascent /* - w->phys_cursor_ascent */ + cursor_glyph->descent - h;
  h--;

  /* The foreground of cursor_gc is typically the same as the normal

static void
mac_define_frame_cursor (f, cursor)
     struct frame *f;
     Cursor cursor;
{
  /* MAC TODO */
}


/* RIF: Clear area on frame F.  */

  /* Compute the scroll bar width in character columns.  */
  if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0)
    {
      int wid = FRAME_COLUMN_WIDTH (f);
      FRAME_CONFIG_SCROLL_BAR_COLS (f) 
	= (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) + wid-1) / wid;
    }
  else
    {
      int wid = FRAME_COLUMN_WIDTH (f);

  if (f->output_data.mac->parent_desc != FRAME_MAC_DISPLAY_INFO (f)->root_window)
    {
      GrafPtr savePort;
      GetPort (&savePort);

#if TARGET_API_MAC_CARBON
      SetPort (GetWindowPort (FRAME_MAC_WINDOW (f)));
#else
      SetPort (FRAME_MAC_WINDOW (f));
#endif

#if TARGET_API_MAC_CARBON
      {
        Rect r;

void
x_free_frame_resources (f)
     struct frame *f;
{
  struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);

  BLOCK_INPUT;

  DisposeWindow (FRAME_MAC_WINDOW (f));

  free_frame_menubar (f);

  if (FRAME_FACE_CACHE (f))
    free_frame_faces (f);

    case smJapanese:
      coding_system = Qsjis;
      break;
    case smKorean:
      coding_system = Qeuc_kr;
      break;        
    default:
      return;
    }

  setup_coding_system (coding_system, &coding);

		   ptr + sizeof ("-0-0-75-75-m-0-") - 1);
	  fontname = build_string (scaled);
	  if (fast_string_match (pattern_regex, fontname) >= 0)
	    {
	      font_list = Fcons (fontname, font_list);
	      
	      n_fonts++;
	      if (maxnames > 0 && n_fonts >= maxnames)
		break;
	    }
	}

Lisp_Object drag_and_drop_file_list;

Point saved_menu_event_location;

/* Apple Events */
static void init_required_apple_events (void);
static pascal OSErr
do_ae_open_application (const AppleEvent *, AppleEvent *, long);
static pascal OSErr

static int
mac_get_emulated_btn ( UInt32 modifiers )
{
  int result = 0;
  if (Vmac_emulate_three_button_mouse != Qnil) {
    int cmdIs3 = (Vmac_emulate_three_button_mouse != Qreverse);
    if (modifiers & controlKey)
      result = cmdIs3 ? 2 : 1;
    else if (modifiers & optionKey)
      result = cmdIs3 ? 1 : 2;      
  }
  return result;
}

#if USE_CARBON_EVENTS

mac_event_to_emacs_modifiers (EventRef eventRef)
{
  UInt32 mods = 0;
  GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32, NULL,
		    sizeof (UInt32), NULL, &mods);
  if (Vmac_emulate_three_button_mouse != Qnil &&
      GetEventClass(eventRef) == kEventClassMouse)
    {
      mods &= ~(optionKey & cmdKey);
    }
  return mac_to_emacs_modifiers (mods);

  GetEventParameter (ref, kEventParamMouseButton, typeMouseButton, NULL,
		    sizeof (EventMouseButton), NULL, &result);
  switch (result)
    {
    case kEventMouseButtonPrimary:
      if (Vmac_emulate_three_button_mouse == Qnil) 
	return 0;
      else {
	UInt32 mods = 0;
	GetEventParameter (ref, kEventParamKeyModifiers, typeUInt32, NULL,
			   sizeof (UInt32), NULL, &mods);

  InitDialogs (NULL);
#endif /* !TARGET_API_MAC_CARBON */
  InitCursor ();

#if !TARGET_API_MAC_CARBON
  /* set up some extra stack space for use by emacs */
  SetApplLimit ((Ptr) ((long) GetApplLimit () - EXTRA_STACK_ALLOC));

  /* MaxApplZone must be called for AppleScript to execute more
     complicated scripts */

}

static void
do_window_update (WindowPtr win)
{
  struct mac_output *mwp = (mac_output *) GetWRefCon (win);
  struct frame *f = mwp->mFP;

  if (f)
    {
      if (f->async_visible == 0)
        {

}

static void
do_window_activate (WindowPtr win)
{
  mac_output *mwp;
  struct frame *f;

  if (is_emacs_window (win))
    {
      mwp = (mac_output *) GetWRefCon (win);
      f = mwp->mFP;

      if (f)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), f);
	  activate_scroll_bars (f);

}

static void
do_window_deactivate (WindowPtr win)
{
  mac_output *mwp;
  struct frame *f;

  if (is_emacs_window (win))
    {
      mwp = (mac_output *) GetWRefCon (win);
      f = mwp->mFP;

      if (f == FRAME_MAC_DISPLAY_INFO (f)->x_focus_frame)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), 0);
	  deactivate_scroll_bars (f);

static void
do_app_resume ()
{
  WindowPtr wp;
  mac_output *mwp;
  struct frame *f;

  wp = FrontWindow();
  if (is_emacs_window (wp))
    {
      mwp = (mac_output *) GetWRefCon (wp);
      f = mwp->mFP;

      if (f)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), f);
	  activate_scroll_bars (f);

static void
do_app_suspend ()
{
  WindowPtr wp;
  mac_output *mwp;
  struct frame *f;

  wp = FrontWindow();
  if (is_emacs_window (wp))
    {
      mwp = (mac_output *) GetWRefCon (wp);
      f = mwp->mFP;

      if (f == FRAME_MAC_DISPLAY_INFO (f)->x_focus_frame)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), 0);
	  deactivate_scroll_bars (f);

  app_sleep_time = WNE_SLEEP_AT_SUSPEND;
}


static void
do_mouse_moved (Point mouse_pos)
{
  WindowPtr wp = FrontWindow ();
  struct frame *f;

  if (is_emacs_window (wp))
    {
      f = ((mac_output *) GetWRefCon (wp))->mFP;

#if TARGET_API_MAC_CARBON
      SetPort (GetWindowPort (wp));
#else
      SetPort (wp);
#endif

      GlobalToLocal (&mouse_pos);

      note_mouse_movement (f, &mouse_pos);
    }
}


static void
do_os_event (EventRecord *erp)
{
  switch((erp->message >> 24) & 0x000000FF)
    {
    case suspendResumeMessage:
      if((erp->message & resumeFlag) == 1)
	do_app_resume ();
      else
	do_app_suspend ();
      break;

    case mouseMovedMessage:
      do_mouse_moved (erp->where);
      break;
    }
}

static void
do_events (EventRecord *erp)
{
  switch (erp->what)
    {
    case updateEvt:
      do_window_update ((WindowPtr) erp->message);
      break;

    case osEvt:
      do_os_event (erp);
      break;

    case activateEvt:
      if ((erp->modifiers & activeFlag) != 0)
	do_window_activate ((WindowPtr) erp->message);
      else
	do_window_deactivate ((WindowPtr) erp->message);
      break;
    }
}

static void
do_apple_menu (SInt16 menu_item)
{
#if !TARGET_API_MAC_CARBON

      do_apple_menu (menu_item);
      break;

    default:
      {
        WindowPtr wp = FrontWindow ();
        struct frame *f = ((mac_output *) GetWRefCon (wp))->mFP;
        MenuHandle menu = GetMenuHandle (menu_id);
        if (menu)
          {
            UInt32 refcon;

do_grow_window (WindowPtr w, EventRecord *e)
{
  long grow_size;
  Rect limit_rect;
  int rows, columns;
  mac_output *mwp = (mac_output *) GetWRefCon (w);
  struct frame *f = mwp->mFP;

  SetRect(&limit_rect, MIN_DOC_SIZE, MIN_DOC_SIZE, MAX_DOC_SIZE, MAX_DOC_SIZE);

  grow_size = GrowWindow (w, e->where, &limit_rect);

{
  GrafPtr save_port;
  Rect zoom_rect, port_rect;
  Point top_left;
  int w_title_height, columns, rows, width, height, dummy, x, y;
  mac_output *mwp = (mac_output *) GetWRefCon (w);
  struct frame *f = mwp->mFP;

  GetPort (&save_port);

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (w));
#else
  SetPort (w);
#endif

  /* Clear window to avoid flicker.  */
#if TARGET_API_MAC_CARBON
  {
    Rect r;

      (**((WStateDataHandle) ((WindowPeek) w)->dataHandle)).stdState
	= zoom_rect;
    }
#endif /* not TARGET_API_MAC_CARBON */

  ZoomWindow (w, zoom_in_or_out, w == FrontWindow ());

  /* retrieve window size and update application values */
#if TARGET_API_MAC_CARBON
  GetWindowPortBounds (w, &port_rect);
#else
  port_rect = w->portRect;
#endif
  rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f, port_rect.bottom - port_rect.top);
  columns = FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f, port_rect.right - port_rect.left);
  x_set_window_size (mwp->mFP, 0, columns, rows);

  SetPort (save_port);
}

/* Initialize Drag And Drop to allow files to be dropped onto emacs frames */

     the queue like an interrupt using kbd_buffer_store_event.  */
  if (!NILP (drag_and_drop_file_list))
    {
      struct input_event event;
      Lisp_Object frame;
      struct frame *f = ((mac_output *) GetWRefCon(window))->mFP;
      SetPort (GetWindowPort (window));
      GlobalToLocal (&mouse);

      event.kind = DRAG_N_DROP_EVENT;
      event.code = 0;
      event.modifiers = 0;

}

/* Emacs calls this whenever it wants to read an input event from the
   user. */
int
XTread_socket (int sd, int expected, struct input_event *hold_quit)
{
  struct input_event inev;
  int count = 0;
#if USE_CARBON_EVENTS
  OSStatus rneResult;
  EventRef eventRef;
  EventMouseButton mouseBtn;
#endif
  EventRecord er;
  int the_modifiers;
  EventMask event_mask;

#if 0
  if (interrupt_input_blocked)
    {
      interrupt_input_pending = 1;
      return -1;
    }
#endif

  interrupt_input_pending = 0;
  BLOCK_INPUT;

  /* So people can tell when we have read the available input.  */

    }

  if (terminate_flag)
    Fkill_emacs (make_number (1));

  /* It is necessary to set this (additional) argument slot of an
     event to nil because keyboard.c protects incompletely processed
     event from being garbage collected by placing them in the
     kbd_buffer_gcpro vector.  */
  EVENT_INIT (inev);
  inev.kind = NO_EVENT;
  inev.arg = Qnil;

  event_mask = everyEvent;
  if (NILP (Fboundp (Qmac_ready_for_drag_n_drop)))
    event_mask -= highLevelEventMask;

#if USE_CARBON_EVENTS
  rneResult = ReceiveNextEvent (0, NULL,
				expected
				? TicksToEventTime (app_sleep_time)
				: 0,
				kEventRemoveFromQueue, &eventRef);
  if (!rneResult)
    {
      /* Handle new events */
      if (!mac_convert_event_ref (eventRef, &er))
	switch (GetEventClass (eventRef))
	  {
	  case kEventClassMouse:
	    if (GetEventKind (eventRef) == kEventMouseWheelMoved)
	      {
		SInt32 delta;
		Point point;
		WindowPtr window_ptr = FrontNonFloatingWindow ();
		struct mac_output *mwp = (mac_output *) GetWRefCon (window_ptr);
		if (!IsValidWindowPtr (window_ptr))
		  {
		    SysBeep(1);
		    UNBLOCK_INPUT;
		    return 0;
		  }

		GetEventParameter(eventRef, kEventParamMouseWheelDelta,
				  typeSInt32, NULL, sizeof (SInt32),
				  NULL, &delta);
		GetEventParameter(eventRef, kEventParamMouseLocation,
				  typeQDPoint, NULL, sizeof (Point),
				  NULL, &point);
		inev.kind = WHEEL_EVENT;
		inev.code = 0;
		inev.modifiers = (mac_event_to_emacs_modifiers(eventRef)
				  | ((delta < 0) ? down_modifier
				     : up_modifier));
		SetPort (GetWindowPort (window_ptr));
		GlobalToLocal (&point);
		XSETINT (inev.x, point.h);
		XSETINT (inev.y, point.v);
		XSETFRAME (inev.frame_or_window, mwp->mFP);
		inev.timestamp = EventTimeToTicks (GetEventTime (eventRef))*(1000/60);
	      }
	    else
	      SendEventToEventTarget (eventRef, GetEventDispatcherTarget ());

	    break;
	  default:
	    /* Send the event to the appropriate receiver.  */
	    SendEventToEventTarget (eventRef, GetEventDispatcherTarget ());
	  }
      else
#else
  if (WaitNextEvent (event_mask, &er, (expected ? app_sleep_time : 0L), NULL))
#endif /* USE_CARBON_EVENTS */
    switch (er.what)
      {
      case mouseDown:
      case mouseUp:
	{
	  WindowPtr window_ptr = FrontWindow ();
	  SInt16 part_code;

#if USE_CARBON_EVENTS
	  /* This is needed to send mouse events like aqua window buttons
	     to the correct handler.  */
	  if (eventNotHandledErr != SendEventToEventTarget (eventRef, GetEventDispatcherTarget ())) {
	    break;
	  }

	  if (!is_emacs_window(window_ptr))
	    break;
#endif

          if (mouse_tracking_in_progress == mouse_tracking_scroll_bar
	      && er.what == mouseUp)
            {
	      struct mac_output *mwp = (mac_output *) GetWRefCon (window_ptr);
	      Point mouse_loc = er.where;

	      /* Convert to local coordinates of new window.  */
#if TARGET_API_MAC_CARBON
              SetPort (GetWindowPort (window_ptr));
#else
              SetPort (window_ptr);
#endif

	      GlobalToLocal (&mouse_loc);

#if USE_CARBON_EVENTS
	      inev.code = mac_get_mouse_btn (eventRef);
#else
	      inev.code = mac_get_emulate_btn (er.modifiers);
#endif
              inev.kind = SCROLL_BAR_CLICK_EVENT;
              inev.frame_or_window = tracked_scroll_bar->window;
              inev.part = scroll_bar_handle;
#if USE_CARBON_EVENTS
	      inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else
	      inev.modifiers = mac_to_emacs_modifiers (er.modifiers);
#endif
              inev.modifiers |= up_modifier;
	      inev.timestamp = er.when * (1000 / 60);
	        /* ticks to milliseconds */

              XSETINT (inev.x, tracked_scroll_bar->left + 2);
              XSETINT (inev.y, mouse_loc.v - 24);
              tracked_scroll_bar->dragging = Qnil;
              mouse_tracking_in_progress = mouse_tracking_none;
              tracked_scroll_bar = NULL;
              break;
            }

	  part_code = FindWindow (er.where, &window_ptr);

	  switch (part_code)
	    {
	    case inMenuBar:
	      if (er.what == mouseDown)  
		{
		  struct frame *f = ((mac_output *)
				     GetWRefCon (FrontWindow ()))->mFP;
		  saved_menu_event_location = er.where;
		  inev.kind = MENU_BAR_ACTIVATE_EVENT;
		  XSETFRAME (inev.frame_or_window, f);
		}
	      break;

	    case inContent:
	      if (window_ptr != FrontWindow ())
		SelectWindow (window_ptr);
	      else
	        {
		  SInt16 control_part_code;
		  ControlHandle ch;
		  struct mac_output *mwp = (mac_output *)
		    GetWRefCon (window_ptr);
		  Point mouse_loc = er.where;

		  /* convert to local coordinates of new window */
#if TARGET_API_MAC_CARBON
                  SetPort (GetWindowPort (window_ptr));
#else
                  SetPort (window_ptr);
#endif

		  GlobalToLocal (&mouse_loc);
#if TARGET_API_MAC_CARBON
		  ch = FindControlUnderMouse (mouse_loc, window_ptr,
					      &control_part_code);
#else
		  control_part_code = FindControl (mouse_loc, window_ptr, &ch);
#endif

#if USE_CARBON_EVENTS
		  inev.code = mac_get_mouse_btn (eventRef);
#else
		  inev.code = mac_get_emulate_btn (er.modifiers);
#endif
		  XSETINT (inev.x, mouse_loc.h);
		  XSETINT (inev.y, mouse_loc.v);
		  inev.timestamp = er.when * (1000 / 60);
		    /* ticks to milliseconds */

#if TARGET_API_MAC_CARBON
		  if (ch != 0)
#else
		  if (control_part_code != 0)
#endif
		    {
		      struct scroll_bar *bar = (struct scroll_bar *)
			GetControlReference (ch);
		      x_scroll_bar_handle_click (bar, control_part_code, &er,
						 &inev);
		      if (er.what == mouseDown
			  && control_part_code == kControlIndicatorPart)
		        {
		          mouse_tracking_in_progress
			    = mouse_tracking_scroll_bar;
		          tracked_scroll_bar = bar;
		        }
		      else
		        {
		          mouse_tracking_in_progress = mouse_tracking_none;
		          tracked_scroll_bar = NULL;
		        }
		    }
		  else
	            {
		      Lisp_Object window;

		      XSETFRAME (inev.frame_or_window, mwp->mFP);
		      if (er.what == mouseDown)
			mouse_tracking_in_progress
			  = mouse_tracking_mouse_movement;
		      else
			mouse_tracking_in_progress = mouse_tracking_none;
		      window = window_from_coordinates (mwp->mFP, inev.x, inev.y, 0, 0, 0, 1);
		      
		      if (EQ (window, mwp->mFP->tool_bar_window))
			{
			  if (er.what == mouseDown)
			    handle_tool_bar_click (mwp->mFP, inev.x, inev.y, 1, 0);
			  else
			    handle_tool_bar_click (mwp->mFP, inev.x, inev.y, 0,
#if USE_CARBON_EVENTS
						   mac_event_to_emacs_modifiers (eventRef)
#else
						   er.modifiers
#endif
						   );
			  break;
			}
		      else
			inev.kind = MOUSE_CLICK_EVENT;
		    }

#if USE_CARBON_EVENTS
		  inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else
		  inev.modifiers = mac_to_emacs_modifiers (er.modifiers);
#endif

	          switch (er.what)
		    {
		    case mouseDown:
		      inev.modifiers |= down_modifier;
		      break;
		    case mouseUp:
		      inev.modifiers |= up_modifier;
		      break;
		    }
	        }
	      break;

	    case inDrag:
#if TARGET_API_MAC_CARBON
              if (er.what == mouseDown)  
		{
		  BitMap bm;
		  
		  GetQDGlobalsScreenBits (&bm);
		  DragWindow (window_ptr, er.where, &bm.bounds);
		}
#else /* not TARGET_API_MAC_CARBON */
	      DragWindow (window_ptr, er.where, &qd.screenBits.bounds);
#endif /* not TARGET_API_MAC_CARBON */
	      break;

	    case inGoAway:
	      if (TrackGoAway (window_ptr, er.where))
	        {
	          inev.kind = DELETE_WINDOW_EVENT;
	          XSETFRAME (inev.frame_or_window,
			     ((mac_output *) GetWRefCon (window_ptr))->mFP);
	        }
	      break;

	    /* window resize handling added --ben */
	    case inGrow:
              if (er.what == mouseDown)  
		{
		  do_grow_window(window_ptr, &er);
		  break;
		}

	    /* window zoom handling added --ben */
	    case inZoomIn:
	    case inZoomOut:
	      if (TrackBox (window_ptr, er.where, part_code))
	        do_zoom_window (window_ptr, part_code);
	      break;

	    default:
	      break;
	    }
	}
	break;

      case updateEvt:
      case osEvt:
      case activateEvt:
#if USE_CARBON_EVENTS
	if (eventNotHandledErr == SendEventToEventTarget (eventRef, GetEventDispatcherTarget ()))
#endif
    	do_events (&er);
	break;

      case keyDown:
      case autoKey:
	{
	  int keycode = (er.message & keyCodeMask) >> 8;
	  int xkeysym;

#if USE_CARBON_EVENTS
	  /* When using Carbon Events, we need to pass raw keyboard events
	     to the TSM ourselves.  If TSM handles it, it will pass back
	     noErr, otherwise it will pass back "eventNotHandledErr" and
	     we can process it normally.   */
	  if ((!NILP (Vmac_pass_command_to_system)
	       || !(er.modifiers & cmdKey))
	      && (!NILP (Vmac_pass_control_to_system)
		  || !(er.modifiers & controlKey)))
	    {
	      OSStatus err;
	      err = SendEventToEventTarget (eventRef,
					    GetEventDispatcherTarget ());
	      if (err != eventNotHandledErr)
		break;
	    }
#endif

	  if (!IsValidWindowPtr (FrontNonFloatingWindow ()))
	    {
	      SysBeep (1);
	      UNBLOCK_INPUT;
	      return 0;
	    }

	  ObscureCursor ();

	  if (keycode_to_xkeysym (keycode, &xkeysym))
	    {
	      inev.code = 0xff00 | xkeysym;
	      inev.kind = NON_ASCII_KEYSTROKE_EVENT;
	    }
	  else
	    {
	      if (er.modifiers & (controlKey |
				  (NILP (Vmac_command_key_is_meta) ? optionKey
				   : cmdKey)))
		{
		  /* This code comes from Keyboard Resource, Appendix
		     C of IM - Text.  This is necessary since shift is
		     ignored in KCHR table translation when option or
		     command is pressed.  It also does not translate
		     correctly control-shift chars like C-% so mask off
		     shift here also */
		  int new_modifiers = er.modifiers & 0xe600;
		  /* mask off option and command */
		  int new_keycode = keycode | new_modifiers;
		  Ptr kchr_ptr = (Ptr) GetScriptManagerVariable (smKCHRCache);
		  unsigned long some_state = 0;
		  inev.code = KeyTranslate (kchr_ptr, new_keycode,
					    &some_state) & 0xff;
		}
	      else
		inev.code = er.message & charCodeMask;
	      inev.kind = ASCII_KEYSTROKE_EVENT;
	    }
	}

	/* If variable mac-convert-keyboard-input-to-latin-1 is non-nil,
	   convert non-ASCII characters typed at the Mac keyboard
	   (presumed to be in the Mac Roman encoding) to iso-latin-1
	   encoding before they are passed to Emacs.  This enables the
	   Mac keyboard to be used to enter non-ASCII iso-latin-1
	   characters directly.  */
	if (mac_keyboard_text_encoding != kTextEncodingMacRoman
	    && inev.kind == ASCII_KEYSTROKE_EVENT && inev.code >= 128)
	  {
	    static TECObjectRef converter = NULL;
	    OSStatus the_err = noErr;
	    OSStatus convert_status = noErr;

	    if (converter ==  NULL)
	      {
		the_err = TECCreateConverter (&converter,
					      kTextEncodingMacRoman,
					      mac_keyboard_text_encoding);
		current_mac_keyboard_text_encoding
		  = mac_keyboard_text_encoding;
	      }
	    else if (mac_keyboard_text_encoding
		     != current_mac_keyboard_text_encoding)
	      {
		/* Free the converter for the current encoding before
		   creating a new one.  */
		TECDisposeConverter (converter);
		the_err = TECCreateConverter (&converter,
					      kTextEncodingMacRoman,
					      mac_keyboard_text_encoding);
		current_mac_keyboard_text_encoding
		  = mac_keyboard_text_encoding;
	      }

	    if (the_err == noErr)
	      {
		unsigned char ch = inev.code;
		ByteCount actual_input_length, actual_output_length;
		unsigned char outch;

		convert_status = TECConvertText (converter, &ch, 1,
						 &actual_input_length,
						 &outch, 1,
						 &actual_output_length);
		if (convert_status == noErr
		    && actual_input_length == 1
		    && actual_output_length == 1)
		  inev.code = outch;
	      }
	  }

#if USE_CARBON_EVENTS
	inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else
	inev.modifiers = mac_to_emacs_modifiers (er.modifiers);
#endif

	{
	  mac_output *mwp
	    = (mac_output *) GetWRefCon (FrontNonFloatingWindow ());
	  XSETFRAME (inev.frame_or_window, mwp->mFP);
	}

	inev.timestamp = er.when * (1000 / 60);  /* ticks to milliseconds */
	break;

      case kHighLevelEvent:
        drag_and_drop_file_list = Qnil;

        AEProcessAppleEvent(&er);

        /* Build a DRAG_N_DROP_EVENT type event as is done in
           constuct_drag_n_drop in w32term.c.  */
        if (!NILP (drag_and_drop_file_list))
          {
            struct frame *f = NULL;
            WindowPtr wp;
            Lisp_Object frame;

            wp = FrontNonFloatingWindow ();

	    if (!wp)
	      {
		struct frame *f = XFRAME (XCAR (Vframe_list));
		CollapseWindow (FRAME_MAC_WINDOW (f), false);
		wp = FrontNonFloatingWindow ();
	      }

            if (wp && is_emacs_window(wp))
	        f = ((mac_output *) GetWRefCon (wp))->mFP;

            inev.kind = DRAG_N_DROP_EVENT;
            inev.code = 0;
            inev.timestamp = er.when * (1000 / 60);
	      /* ticks to milliseconds */
#if USE_CARBON_EVENTS
	    inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else
	    inev.modifiers = mac_to_emacs_modifiers (er.modifiers);
#endif

            XSETINT (inev.x, 0);
            XSETINT (inev.y, 0);

            XSETFRAME (frame, f);
            inev.frame_or_window = Fcons (frame, drag_and_drop_file_list);

            /* Regardless of whether Emacs was suspended or in the
               foreground, ask it to redraw its entire screen.
               Otherwise parts of the screen can be left in an
               inconsistent state.  */
            if (wp)
#if TARGET_API_MAC_CARBON
	      {
	        Rect r;

	        GetWindowPortBounds (wp, &r);
	        InvalWindowRect (wp, &r);
	      }
#else /* not TARGET_API_MAC_CARBON */
              InvalRect (&(wp->portRect));
#endif /* not TARGET_API_MAC_CARBON */
          }
      default:
	break;
      }
#if USE_CARBON_EVENTS
      ReleaseEvent (eventRef);
    }
#endif

  /* If the focus was just given to an autoraising frame,
     raise it now.  */
  /* ??? This ought to be able to handle more than one such frame.  */
  if (pending_autoraise_frame)

    }

#if !TARGET_API_MAC_CARBON
  check_alarm ();  /* simulate the handling of a SIGALRM */
#endif

  {
    static Point old_mouse_pos = { -1, -1 };

    if (app_is_suspended)
      {
        old_mouse_pos.h = -1;
        old_mouse_pos.v = -1;
      }
    else
      {
        Point mouse_pos;
        WindowPtr wp;
        struct frame *f;
        Lisp_Object bar;
        struct scroll_bar *sb;

        wp = FrontWindow ();
	if (is_emacs_window (wp))
	  {
	    f = ((mac_output *) GetWRefCon (wp))->mFP;

#if TARGET_API_MAC_CARBON
	    SetPort (GetWindowPort (wp));
#else
	    SetPort (wp);
#endif

	    GetMouse (&mouse_pos);

	    if (!EqualPt (mouse_pos, old_mouse_pos))
	      {
		if (mouse_tracking_in_progress == mouse_tracking_scroll_bar
		    && tracked_scroll_bar)
		  x_scroll_bar_note_movement (tracked_scroll_bar,
					      mouse_pos.v
					      - XINT (tracked_scroll_bar->top),
					      TickCount() * (1000 / 60));
		else
		  note_mouse_movement (f, &mouse_pos);

		old_mouse_pos = mouse_pos;
	      }
	  }
      }
  }

  if (inev.kind != NO_EVENT)
    {
      kbd_buffer_store_event_hold (&inev, hold_quit);
      count++;
    }

  UNBLOCK_INPUT;
  return count;
}

/* Initialize the struct pointed to by MW to represent a new COLS x
   ROWS Macintosh window, using font with name FONTNAME and size
   FONTSIZE.  */
void
NewMacWindow (FRAME_PTR fp)
{
  mac_output *mwp;
#if TARGET_API_MAC_CARBON
  static int making_terminal_window = 0;
#else

				      (WindowPtr) -1)))
        abort ();
      making_terminal_window = 0;
    }
  else
    if (!(mwp->mWP = GetNewCWindow (WINDOW_RESOURCE, NULL, (WindowPtr) -1)))
      abort ();

  SetWRefCon (mwp->mWP, (long) mwp);
    /* so that update events can find this mac_output struct */
  mwp->mFP = fp;  /* point back to emacs frame */

#if TARGET_API_MAC_CARBON
  SetPort (GetWindowPort (mwp->mWP));
#else
  SetPort (mwp->mWP);
#endif

  mwp->fontset = -1;

  SizeWindow (mwp->mWP, FRAME_PIXEL_WIDTH (fp), FRAME_PIXEL_HEIGHT (fp), false);
  ShowWindow (mwp->mWP);

}


void
make_mac_frame (struct frame *f)
{
  FRAME_DESIRED_CURSOR (f) = FILLED_BOX_CURSOR;

  NewMacWindow(f);

  f->output_data.mac->cursor_pixel = 0;
  f->output_data.mac->border_pixel = 0x00ff00;
  f->output_data.mac->mouse_pixel = 0xff00ff;
  f->output_data.mac->cursor_foreground_pixel = 0x0000ff;

  FRAME_FONTSET (f) = -1;
  f->output_data.mac->scroll_bar_foreground_pixel = -1;
  f->output_data.mac->scroll_bar_background_pixel = -1;
  f->output_data.mac->explicit_parent = 0;
  f->left_pos = 4;
  f->top_pos = 4;
  f->border_width = 0;

  f->internal_border_width = 0;

  f->output_method = output_mac;

  f->auto_raise = 1;
  f->auto_lower = 1;

  f->new_text_cols = 0;
  f->new_text_lines = 0;
}

void
make_mac_terminal_frame (struct frame *f)
{
  Lisp_Object frame;

  XSETFRAME (frame, f);

  f->output_method = output_mac;
  f->output_data.mac = (struct mac_output *)
    xmalloc (sizeof (struct mac_output));
  bzero (f->output_data.mac, sizeof (struct mac_output));
  FRAME_FONTSET (f) = -1;
  f->output_data.mac->scroll_bar_foreground_pixel = -1;
  f->output_data.mac->scroll_bar_background_pixel = -1;

  XSETFRAME (FRAME_KBOARD (f)->Vdefault_minibuffer_frame, f);

  FRAME_COLS (f) = 96;
  FRAME_LINES (f) = 4;

  FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_right;

  make_mac_frame (f);

  x_make_gc (f);

                            Fcons (Fcons (Qforeground_color,
                                          build_string ("black")), Qnil));
  Fmodify_frame_parameters (frame,
                            Fcons (Fcons (Qbackground_color,
                                          build_string ("white")), Qnil));
}


/***********************************************************************
			    Initialization

  dpyinfo->reference_count = 0;
  dpyinfo->resx = 75.0;
  dpyinfo->resy = 75.0;
  dpyinfo->color_p = TestDeviceAttribute (main_device_handle, gdDevType);
  for (dpyinfo->n_planes = 32; dpyinfo->n_planes > 0; dpyinfo->n_planes >>= 1)
    if (HasDepth (main_device_handle, dpyinfo->n_planes,
		  gdDevType, dpyinfo->color_p))
      break;
  dpyinfo->height = (**main_device_handle).gdRect.bottom;
  dpyinfo->width = (**main_device_handle).gdRect.right;
  dpyinfo->grabbed = 0;
  dpyinfo->root_window = NULL;
  dpyinfo->image_cache = make_image_cache ();

  dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
  dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
  dpyinfo->mouse_face_face_id = DEFAULT_FACE_ID;
  dpyinfo->mouse_face_window = Qnil;
}

struct mac_display_info *
mac_term_init (display_name, xrm_option, resource_name)
     Lisp_Object display_name;

  /* Redetermine modifiers because they are based on lisp variables */
  mac_determine_quit_char_modifiers ();

  /* Fill the queue with events */
  ReceiveNextEvent (0, NULL, kEventDurationNoWait, false, &event);
  event = FindSpecificEventInQueue (GetMainEventQueue (), quit_char_comp,
				    NULL);
  if (event)
    {
      struct input_event e;
      struct mac_output *mwp =
	(mac_output *) GetWRefCon (FrontNonFloatingWindow ());
      /* Use an input_event to emulate what the interrupt handler does. */
      EVENT_INIT (e);
      e.kind = ASCII_KEYSTROKE_EVENT;
      e.code = quit_char;
      e.arg = NULL;
      e.modifiers = NULL;
      e.timestamp = EventTimeToTicks (GetEventTime (event)) * (1000/60);
      XSETFRAME (e.frame_or_window, mwp->mFP);
      /* Remove event from queue to prevent looping. */
      RemoveEventFromQueue (GetMainEventQueue (), event);
      ReleaseEvent (event);
      kbd_buffer_store_event (&e);
    }

  DEFVAR_LISP ("mac-reverse-ctrl-meta", &Vmac_reverse_ctrl_meta,
    doc: /* Non-nil means that the control and meta keys are reversed.  This is
	    useful for non-standard keyboard layouts.  */);
  Vmac_reverse_ctrl_meta = Qnil;

  DEFVAR_LISP ("mac-emulate-three-button-mouse", 
	       &Vmac_emulate_three_button_mouse,
    doc: /* t means that when the option-key is held down while pressing the
    mouse button, the click will register as mouse-2 and while the 
    command-key is held down, the click will register as mouse-3.
    'reverse means that the the option-key will register for mouse-3
    and the command-key will register for mouse-2.  nil means that
    not emulation should be done and the modifiers should be placed
    on the mouse-1 event. */);

89943:4c90ffeb71c5

#include <LowMem.h>
#include <Controls.h>
#if defined (__MRC__) || (__MSL__ >= 0x6000)
#include <ControlDefinitions.h>
#endif

#if __profile__
#include <profiler.h>
#endif
#endif /* not MAC_OSX */

   along with the position query.  So, we just keep track of the time
   of the last movement we received, and return that in hopes that
   it's somewhat accurate.  */

static Time last_mouse_movement_time;

struct scroll_bar *tracked_scroll_bar = NULL;

/* Incremented by XTread_socket whenever it really tries to read
   events.  */

void activate_scroll_bars (FRAME_PTR);
void deactivate_scroll_bars (FRAME_PTR);

static int is_emacs_window (WindowPtr);

int x_bitmap_icon (struct frame *, Lisp_Object);
void x_make_frame_visible (struct frame *);

extern void window_scroll (Lisp_Object, int, int, int);

void
XFreePixmap (display, pixmap)
     Display *display;		/* not used */
     Pixmap pixmap;
{
  DisposeGWorld (pixmap);
}


/* Set foreground color for subsequent QuickDraw commands.  Assume
   graphic port has already been set.  */

     Display *display;
     WindowPtr w;
     GC gc;
     int x1, y1, x2, y2;
{
  SetPortWindowPort (w);

  mac_set_colors (gc);

  MoveTo (x1, y1);
  LineTo (x2, y2);

     Display *display;
     Pixmap p;
     GC gc;
     int x1, y1, x2, y2;
{
  CGrafPtr old_port;
  GDHandle old_gdh;

  GetGWorld (&old_port, &old_gdh);
  SetGWorld (p, NULL);

  mac_set_colors (gc);

  LockPixels (GetGWorldPixMap (p));
  MoveTo (x1, y1);
  LineTo (x2, y2);
  UnlockPixels (GetGWorldPixMap (p));

  SetGWorld (old_port, old_gdh);
}

/* Mac version of XClearArea.  */

void

  XGCValues xgc;

  xgc.foreground = mwp->x_compatible.foreground_pixel;
  xgc.background = mwp->x_compatible.background_pixel;

  SetPortWindowPort (w);

  mac_set_colors (&xgc);
  SetRect (&r, x, y, x + width, y + height);

  EraseRect (&r);

  XGCValues xgc;

  xgc.foreground = mwp->x_compatible.foreground_pixel;
  xgc.background = mwp->x_compatible.background_pixel;

  SetPortWindowPort (w);

  mac_set_colors (&xgc);

#if TARGET_API_MAC_CARBON
  {

  bitmap.rowBytes = sizeof(unsigned short);
  bitmap.baseAddr = (char *)bits;
  SetRect (&(bitmap.bounds), 0, 0, width, height);

  SetPortWindowPort (w);

  mac_set_colors (gc);
  SetRect (&r, x, y, x + width, y + height);

#if TARGET_API_MAC_CARBON

mac_set_clip_rectangle (display, w, r)
     Display *display;
     WindowPtr w;
     Rect *r;
{
  SetPortWindowPort (w);

  ClipRect (r);
}

     Display *display;
     WindowPtr w;
{
  Rect r;

  SetPortWindowPort (w);

  SetRect (&r, -32767, -32767, 32767, 32767);
  ClipRect (&r);
}

{
  Pixmap pixmap;
  Rect r;
  QDErr err;

  SetPortWindowPort (w);

  SetRect (&r, 0, 0, width, height);
  err = NewGWorld (&pixmap, depth, &r, NULL, NULL, 0);
  if (err != noErr)
    return NULL;

     unsigned long fg, bg;
     unsigned int depth;	/* not used */
{
  Pixmap pixmap;
  BitMap bitmap;
  CGrafPtr old_port;
  GDHandle old_gdh;

  pixmap = XCreatePixmap (display, w, width, height, depth);
  if (pixmap == NULL)
    return NULL;

  GetGWorld (&old_port, &old_gdh);
  SetGWorld (pixmap, NULL);
  mac_create_bitmap_from_bitmap_data (&bitmap, data, width, height);
  mac_set_forecolor (fg);
  mac_set_backcolor (bg);
  LockPixels (GetGWorldPixMap (pixmap));

#else /* not TARGET_API_MAC_CARBON */
  CopyBits (&bitmap, &(((GrafPtr)pixmap)->portBits),
	    &bitmap.bounds, &bitmap.bounds, srcCopy, 0);
#endif /* not TARGET_API_MAC_CARBON */
  UnlockPixels (GetGWorldPixMap (pixmap));
  SetGWorld (old_port, old_gdh);
  mac_free_bitmap (&bitmap);

  return pixmap;
}

     int x, y;
     unsigned int width, height;
{
  Rect r;

  SetPortWindowPort (w);

  mac_set_colors (gc);
  SetRect (&r, x, y, x + width, y + height);

  PaintRect (&r); /* using foreground color of gc */

     Pixmap p;
     GC gc;
     int x, y;
     unsigned int width, height;
{
  CGrafPtr old_port;
  GDHandle old_gdh;
  Rect r;

  GetGWorld (&old_port, &old_gdh);
  SetGWorld (p, NULL);
  mac_set_colors (gc);
  SetRect (&r, x, y, x + width, y + height);

  LockPixels (GetGWorldPixMap (p));
  PaintRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));

  SetGWorld (old_port, old_gdh);
}


/* Mac replacement for XDrawRectangle: dest is a window.  */

     int x, y;
     unsigned int width, height;
{
  Rect r;

  SetPortWindowPort (w);

  mac_set_colors (gc);
  SetRect (&r, x, y, x + width + 1, y + height + 1);

  FrameRect (&r); /* using foreground color of gc */

     Pixmap p;
     GC gc;
     int x, y;
     unsigned int width, height;
{
  CGrafPtr old_port;
  GDHandle old_gdh;
  Rect r;

  GetGWorld (&old_port, &old_gdh);
  SetGWorld (p, NULL);
  mac_set_colors (gc);
  SetRect (&r, x, y, x + width + 1, y + height + 1);

  LockPixels (GetGWorldPixMap (p));
  FrameRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));

  SetGWorld (old_port, old_gdh);
}


static void
mac_draw_string_common (display, w, gc, x, y, buf, nchars, mode,

     GC gc;
     int x, y;
     char *buf;
     int nchars, mode, bytes_per_char;
{
  SetPortWindowPort (w);

  mac_set_colors (gc);

  TextFont (gc->font->mac_fontnum);
  TextSize (gc->font->mac_fontsize);

     unsigned int width, height;
     int dest_x, dest_y;
{
  Rect src_r, dest_r;

  SetPortWindowPort (dest);

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height);

  ForeColor (blackColor);

     unsigned int width, height;
     int dest_x, dest_y;
{
  Rect src_r, dest_r;

  SetPortWindowPort (dest);

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height);

  ForeColor (blackColor);

  Rect gw_r, src_r, dest_r;

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height);

  SetPortWindowPort (w);

  ForeColor (blackColor);
  BackColor (whiteColor);

  LockPortBits (GetWindowPort (w));

     GC gc;
     int src_x, src_y;
     unsigned int width, height;
     int dest_x, dest_y;
{
  CGrafPtr old_port;
  GDHandle old_gdh;
  Rect src_r, dest_r;

  GetGWorld (&old_port, &old_gdh);
  SetGWorld (dest, NULL);
  ForeColor (blackColor);
  BackColor (whiteColor);

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);

  CopyBits (&(((GrafPtr)src)->portBits), &(((GrafPtr)dest)->portBits),
	    &src_r, &dest_r, srcCopy, 0);
#endif /* not TARGET_API_MAC_CARBON */
  UnlockPixels (GetGWorldPixMap (dest));
  UnlockPixels (GetGWorldPixMap (src));

  SetGWorld (old_port, old_gdh);
}


static void
mac_copy_area_with_mask_to_pixmap (display, src, mask, dest, gc, src_x, src_y,

     GC gc;
     int src_x, src_y;
     unsigned int width, height;
     int dest_x, dest_y;
{
  CGrafPtr old_port;
  GDHandle old_gdh;
  Rect src_r, dest_r;

  GetGWorld (&old_port, &old_gdh);
  SetGWorld (dest, NULL);
  ForeColor (blackColor);
  BackColor (whiteColor);

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);

	    &(((GrafPtr)dest)->portBits), &src_r, &src_r, &dest_r);
#endif /* not TARGET_API_MAC_CARBON */
  UnlockPixels (GetGWorldPixMap (dest));
  UnlockPixels (GetGWorldPixMap (mask));
  UnlockPixels (GetGWorldPixMap (src));

  SetGWorld (old_port, old_gdh);
}


/* Mac replacement for XChangeGC.  */

    {
      Lisp_Object rest, frame;
      FOR_EACH_FRAME (rest, frame)
	x_flush (XFRAME (frame));
    }
  else if (FRAME_MAC_P (f))
    XFlush (FRAME_MAC_DISPLAY (f));
  UNBLOCK_INPUT;
#endif /* TARGET_API_MAC_CARBON */
}

      if (!NILP (display_info->mouse_face_window)
	  && w == XWINDOW (display_info->mouse_face_window))
	{
	  int i;

	  for (i = 0; i < w->desired_matrix->nrows; ++i)
	    if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i))
	      break;

	  if (i < w->desired_matrix->nrows)
	    clear_mouse_face (display_info);

mac_draw_vertical_window_border (w, x, y0, y1)
     struct window *w;
     int x, y0, y1;
{
  struct frame *f = XFRAME (WINDOW_FRAME (w));

  XDrawLine (FRAME_MAC_DISPLAY (f), FRAME_MAC_WINDOW (f),
	     f->output_data.mac->normal_gc, x, y0, x, y1);
}

     struct frame *f;
{
  /* Reset the background color of Mac OS Window to that of the frame after
     update so that it is used by Mac Toolbox to clear the update region before
     an update event is generated.  */
  SetPortWindowPort (FRAME_MAC_WINDOW (f));

  mac_set_backcolor (FRAME_BACKGROUND_PIXEL (f));

  /* Mouse highlight may be displayed again.  */
  FRAME_MAC_DISPLAY_INFO (f)->mouse_face_defer = 0;

static void
XTframe_up_to_date (f)
     struct frame *f;
{
  if (FRAME_MAC_P (f))
    {
      struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);

      if (dpyinfo->mouse_face_deferred_gc
	  || f == dpyinfo->mouse_face_mouse_frame)

			? (p->overlay_p ? face->background
			   : f->output_data.mac->cursor_pixel)
			: face->foreground);
      gcv.background = face->background;

      mac_draw_bitmap (display, window, &gcv, p->x, p->y,
		       p->wd, p->h, bits, p->overlay_p);
    }

  mac_reset_clipping (display, window);
}

static void x_draw_image_foreground P_ ((struct glyph_string *));
static void x_draw_image_foreground_1 P_ ((struct glyph_string *, Pixmap));
static void x_clear_glyph_string_rect P_ ((struct glyph_string *, int,
					   int, int, int));
static void x_draw_relief_rect P_ ((struct frame *, int, int, int, int,
				    int, int, int, int, int, int,
				    Rect *));
static void x_draw_box_rect P_ ((struct glyph_string *, int, int, int, int,
				 int, int, int, Rect *));

#if GLYPH_DEBUG
static void x_check_font P_ ((struct frame *, XFontStruct *));

   side of the rectangle.  CLIP_RECT is the clipping rectangle to use
   when drawing.  */

static void
x_draw_relief_rect (f, left_x, top_y, right_x, bottom_y, width,
		    raised_p, top_p, bot_p, left_p, right_p, clip_rect)
     struct frame *f;
     int left_x, top_y, right_x, bottom_y, width;
     int top_p, bot_p, left_p, right_p, raised_p;
     Rect *clip_rect;
{
  Display *dpy = FRAME_MAC_DISPLAY (f);
  Window window = FRAME_MAC_WINDOW (f);
  int i;

  else
    gc = f->output_data.mac->black_relief.gc;
  mac_set_clip_rectangle (dpy, window, clip_rect);

  /* Top.  */
  if (top_p)
    for (i = 0; i < width; ++i)
      XDrawLine (dpy, window, gc,
		 left_x + i * left_p, top_y + i,
		 right_x - i * right_p, top_y + i);

  /* Left.  */
  if (left_p)
    for (i = 0; i < width; ++i)
      XDrawLine (dpy, window, gc,

    gc = f->output_data.mac->white_relief.gc;
  mac_set_clip_rectangle (dpy, window,
			  clip_rect);

  /* Bottom.  */
  if (bot_p)
    for (i = 0; i < width; ++i)
      XDrawLine (dpy, window, gc,
		 left_x + i * left_p, bottom_y - i,
		 right_x - i * right_p, bottom_y - i);

  /* Right.  */
  if (right_p)
    for (i = 0; i < width; ++i)
      XDrawLine (dpy, window, gc,

		     left_p, right_p, &clip_rect);
  else
    {
      x_setup_relief_colors (s);
      x_draw_relief_rect (s->f, left_x, top_y, right_x, bottom_y,
			  width, raised_p, 1, 1, left_p, right_p, &clip_rect);
    }
}


/* Draw foreground of image glyph string S.  */

static void
x_draw_image_foreground (s)
     struct glyph_string *s;
{
  int x = s->x;
  int y = s->ybase - image_ascent (s->img, s->face, &s->slice);

  /* If first glyph of S has a left box line, start drawing it to the
     right of that line.  */
  if (s->face->box != FACE_NO_BOX
      && s->first_glyph->left_box_line_p
      && s->slice.x == 0)
    x += abs (s->face->box_line_width);

  /* If there is a margin around the image, adjust x- and y-position
     by that margin.  */
  if (s->slice.x == 0)
    x += s->img->hmargin;
  if (s->slice.y == 0)
    y += s->img->vmargin;

  if (s->img->pixmap)
    {
      if (s->img->mask)
	{

	  get_glyph_string_clip_rect (s, &nr);
	  CONVERT_TO_XRECT (clip_rect, nr);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->slice.width;
	  image_rect.height = s->slice.height;
	  if (x_intersect_rectangles (&clip_rect, &image_rect, &r))
	    mac_copy_area_with_mask (s->display, s->img->pixmap, s->img->mask,
				     s->window, s->gc,
				     s->slice.x + r.x - x, s->slice.y + r.y - y,
				     r.width, r.height, r.x, r.y);
	}
      else
	{
	  Rect nr;

	  get_glyph_string_clip_rect (s, &nr);
	  CONVERT_TO_XRECT (clip_rect, nr);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->slice.width;
	  image_rect.height = s->slice.height;
	  if (x_intersect_rectangles (&clip_rect, &image_rect, &r))
	    mac_copy_area (s->display, s->img->pixmap, s->window, s->gc,
			   s->slice.x + r.x - x, s->slice.y + r.y - y,
			   r.width, r.height, r.x, r.y);

	  /* When the image has a mask, we can expect that at
	     least part of a mouse highlight or a block cursor will
	     be visible.  If the image doesn't have a mask, make
	     a block cursor visible by drawing a rectangle around
	     the image.  I believe it's looking better if we do
	     nothing here for mouse-face.  */
	  if (s->hl == DRAW_CURSOR)
	    {
	      int r = s->img->relief;
	      if (r < 0) r = -r;
	      mac_draw_rectangle (s->display, s->window, s->gc,
				  x - r, y - r,
				  s->slice.width + r*2 - 1,
				  s->slice.height + r*2 - 1);
	    }
	}
    }
  else
    /* Draw a rectangle if image could not be loaded.  */
    mac_draw_rectangle (s->display, s->window, s->gc, x, y,
			s->slice.width - 1, s->slice.height - 1);
}


/* Draw a relief around the image glyph string S.  */

static void
x_draw_image_relief (s)
     struct glyph_string *s;
{
  int x0, y0, x1, y1, thick, raised_p;
  Rect r;
  int x = s->x;
  int y = s->ybase - image_ascent (s->img, s->face, &s->slice);

  /* If first glyph of S has a left box line, start drawing it to the
     right of that line.  */
  if (s->face->box != FACE_NO_BOX
      && s->first_glyph->left_box_line_p
      && s->slice.x == 0)
    x += abs (s->face->box_line_width);

  /* If there is a margin around the image, adjust x- and y-position
     by that margin.  */
  if (s->slice.x == 0)
    x += s->img->hmargin;
  if (s->slice.y == 0)
    y += s->img->vmargin;

  if (s->hl == DRAW_IMAGE_SUNKEN
      || s->hl == DRAW_IMAGE_RAISED)
    {
      thick = tool_bar_button_relief >= 0 ? tool_bar_button_relief : DEFAULT_TOOL_BAR_BUTTON_RELIEF;
      raised_p = s->hl == DRAW_IMAGE_RAISED;
    }
  else
    {
      thick = abs (s->img->relief);
      raised_p = s->img->relief > 0;
    }

  x0 = x - thick;
  y0 = y - thick;
  x1 = x + s->slice.width + thick - 1;
  y1 = y + s->slice.height + thick - 1;

  x_setup_relief_colors (s);
  get_glyph_string_clip_rect (s, &r);
  x_draw_relief_rect (s->f, x0, y0, x1, y1, thick, raised_p,
		      s->slice.y == 0,
		      s->slice.y + s->slice.height == s->img->height,
		      s->slice.x == 0,
		      s->slice.x + s->slice.width == s->img->width,
		      &r);
}


/* Draw the foreground of image glyph string S to PIXMAP.  */

static void
x_draw_image_foreground_1 (s, pixmap)
     struct glyph_string *s;
     Pixmap pixmap;
{
  int x = 0;
  int y = s->ybase - s->y - image_ascent (s->img, s->face, &s->slice);

  /* If first glyph of S has a left box line, start drawing it to the
     right of that line.  */
  if (s->face->box != FACE_NO_BOX
      && s->first_glyph->left_box_line_p
      && s->slice.x == 0)
    x += abs (s->face->box_line_width);

  /* If there is a margin around the image, adjust x- and y-position
     by that margin.  */
  if (s->slice.x == 0)
    x += s->img->hmargin;
  if (s->slice.y == 0)
    y += s->img->vmargin;

  if (s->img->pixmap)
    {
      if (s->img->mask)
	mac_copy_area_with_mask_to_pixmap (s->display, s->img->pixmap,
					   s->img->mask, pixmap, s->gc,
					   s->slice.x, s->slice.y,
					   s->slice.width, s->slice.height,
					   x, y);
      else
	{
	  mac_copy_area_to_pixmap (s->display, s->img->pixmap, pixmap, s->gc,
				   s->slice.x, s->slice.y,
				   s->slice.width, s->slice.height,
				   x, y);

	  /* When the image has a mask, we can expect that at
	     least part of a mouse highlight or a block cursor will
	     be visible.  If the image doesn't have a mask, make
	     a block cursor visible by drawing a rectangle around

	  if (s->hl == DRAW_CURSOR)
	    {
	      int r = s->img->relief;
	      if (r < 0) r = -r;
	      mac_draw_rectangle (s->display, s->window, s->gc, x - r, y - r,
				  s->slice.width + r*2 - 1,
				  s->slice.height + r*2 - 1);
	    }
	}
    }
  else
    /* Draw a rectangle if image could not be loaded.  */
    mac_draw_rectangle_to_pixmap (s->display, pixmap, s->gc, x, y,
				  s->slice.width - 1, s->slice.height - 1);
}


/* Draw part of the background of glyph string S.  X, Y, W, and H
   give the rectangle to draw.  */

  /* Fill background with face under the image.  Do it only if row is
     taller than image or if image has a clip mask to reduce
     flickering.  */
  s->stippled_p = s->face->stipple != 0;
  if (height > s->slice.height
      || s->img->hmargin
      || s->img->vmargin
      || s->img->mask
      || s->img->pixmap == 0
      || s->width != s->background_width)
    {
      x = s->x;
      if (s->first_glyph->left_box_line_p
	  && s->slice.x == 0)
	x += box_line_hwidth;

      y = s->y;
      if (s->slice.y == 0)
	y += box_line_vwidth;

      if (s->img->mask)
	{
	  /* Create a pixmap as large as the glyph string.  Fill it
	     with the background color.  Copy the image to it, using

  result->timestamp = event->when;
  result->modifiers = event->what == mouseDown ? down_modifier : up_modifier;

  mouseLoc = event->where;

  SetPortWindowPort (FRAME_MAC_WINDOW (f));

  GlobalToLocal (&mouseLoc);
  XSETINT (result->x, mouseLoc.h);
  XSETINT (result->y, mouseLoc.v);

static void
note_mouse_movement (frame, pos)
     FRAME_PTR frame;
     Point *pos;
{
  struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (frame);
#if TARGET_API_MAC_CARBON
  Rect r;
#endif

  last_mouse_movement_time = TickCount () * (1000 / 60);  /* to milliseconds */

  if (!PtInRect (*pos, GetWindowPortBounds (FRAME_MAC_WINDOW (frame), &r)))
#else
  if (!PtInRect (*pos, &FRAME_MAC_WINDOW (frame)->portRect))
#endif
    {
      if (frame == dpyinfo->mouse_face_mouse_frame)
	/* This case corresponds to LeaveNotify in X11.  */
	{
	  /* If we move outside the frame, then we're certainly no
	     longer on any text in the frame.  */
	  clear_mouse_face (dpyinfo);
	  dpyinfo->mouse_face_mouse_frame = 0;
	  if (!dpyinfo->grabbed)
	    rif->define_frame_cursor (frame,
				      frame->output_data.mac->nontext_cursor);
	}
    }
  /* Has the mouse moved off the glyph it was on at the last sighting?  */
  else if (pos->h < last_mouse_glyph.left
	   || pos->h >= last_mouse_glyph.right
	   || pos->v < last_mouse_glyph.top

		  return 1;
		}

	    /* x is to the right of the last glyph in the row.  */
	    rect->left = WINDOW_TO_FRAME_PIXEL_X (w, gx);
	    /* Shouldn't this be a pixel value?
	       WINDOW_RIGHT_EDGE_X (w) seems to be the right value.
	       ++KFS */
	    rect->right = WINDOW_RIGHT_EDGE_COL (w);
	    return 1;
	  }

      last_mouse_glyph.bottom = gy + height;
    }
}


static WindowPtr
mac_front_window ()
{
#if TARGET_API_MAC_CARBON
  return GetFrontWindowOfClass (kDocumentWindowClass, true);
#else
  WindowPtr front_window = FrontWindow ();

  if (tip_window && front_window == tip_window)
    return GetNextWindow (front_window);
  else
    return front_window;
#endif
}

#define mac_window_to_frame(wp) (((mac_output *) GetWRefCon (wp))->mFP)

/* Return the current position of the mouse.
   *fp should be a frame which indicates which display to ask about.

   If the mouse movement started in a scroll bar, set *fp, *bar_window,
   and *part to the frame, window, and scroll bar part that the mouse

     Lisp_Object *x, *y;
     unsigned long *time;
{
  Point mouse_pos;
  int ignore1, ignore2;
  WindowPtr wp = mac_front_window ();
  struct frame *f;
  Lisp_Object frame, tail;

  if (is_emacs_window(wp))
    f = mac_window_to_frame (wp);

  BLOCK_INPUT;

  if (! NILP (last_mouse_scroll_bar) && insist == 0)
    x_scroll_bar_report_motion (fp, bar_window, part, x, y, time);

      FOR_EACH_FRAME (tail, frame)
        XFRAME (frame)->mouse_moved = 0;

      last_mouse_scroll_bar = Qnil;

      SetPortWindowPort (wp);

      GetMouse (&mouse_pos);

      pixel_to_glyph_coords (f, mouse_pos.h, mouse_pos.v, &ignore1, &ignore2,
                             &last_mouse_glyph, insist);

  int y = button_event->where.v;

  if (button_event->what == mouseDown)
    handle_tool_bar_click (f, x, y, 1, 0);
  else
    handle_tool_bar_click (f, x, y, 0,
			   x_mac_to_emacs_modifiers (FRAME_MAC_DISPLAY_INFO (f),
						     button_event->modifiers));
}



     struct scroll_bar *bar;
     int part_code;
     EventRecord *er;
     struct input_event *bufp;
{
  int win_y, top_range;

  if (! GC_WINDOWP (bar->window))
    abort ();

  bufp->kind = SCROLL_BAR_CLICK_EVENT;
  bufp->frame_or_window = bar->window;

        bar->dragging = make_number (0);
      XSETVECTOR (last_mouse_scroll_bar, bar);
      bufp->part = scroll_bar_handle;
      break;
    }

  win_y = XINT (bufp->y) - XINT (bar->top);
  top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (0/*dummy*/, XINT (bar->height));

  win_y -= VERTICAL_SCROLL_BAR_TOP_BORDER;

  win_y -= 24;

  if (! NILP (bar->dragging))
    win_y -= XINT (bar->dragging);

  if (win_y < 0)
    win_y = 0;
  if (win_y > top_range)
    win_y = top_range;

  XSETINT (bufp->x, win_y);
  XSETINT (bufp->y, top_range);
}


/* Handle some mouse motion while someone is dragging the scroll bar.

     enum scroll_bar_part *part;
     Lisp_Object *x, *y;
     unsigned long *time;
{
  struct scroll_bar *bar = XSCROLL_BAR (last_mouse_scroll_bar);
  WindowPtr wp = mac_front_window ();
  Point mouse_pos;
  struct frame *f = mac_window_to_frame (wp);
  int win_y, top_range;

  SetPortWindowPort (wp);

  GetMouse (&mouse_pos);

  win_y = mouse_pos.v - XINT (bar->top);
  top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));

  y = WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y);

  /* Compute the proper height and ascent of the rectangle, based
     on the actual glyph.  Using the full height of the row looks
     bad when there are tall images on that row.  */
  h = max (min (FRAME_LINE_HEIGHT (f), row->height),
	   cursor_glyph->ascent + cursor_glyph->descent);
  if (h < row->height)
    y += row->ascent /* - w->phys_cursor_ascent */ + cursor_glyph->descent - h;
  h--;

  /* The foreground of cursor_gc is typically the same as the normal

static void
mac_define_frame_cursor (f, cursor)
     struct frame *f;
     Cursor cursor;
{
#if TARGET_API_MAC_CARBON
  SetThemeCursor (cursor);
#else
  SetCursor (*cursor);
#endif
}


/* RIF: Clear area on frame F.  */

  /* Compute the scroll bar width in character columns.  */
  if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0)
    {
      int wid = FRAME_COLUMN_WIDTH (f);
      FRAME_CONFIG_SCROLL_BAR_COLS (f)
	= (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) + wid-1) / wid;
    }
  else
    {
      int wid = FRAME_COLUMN_WIDTH (f);

  if (f->output_data.mac->parent_desc != FRAME_MAC_DISPLAY_INFO (f)->root_window)
    {
      GrafPtr savePort;
      GetPort (&savePort);

      SetPortWindowPort (FRAME_MAC_WINDOW (f));

#if TARGET_API_MAC_CARBON
      {
        Rect r;

void
x_free_frame_resources (f)
     struct frame *f;
{
  struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f);
  WindowPtr wp = FRAME_MAC_WINDOW (f);

  BLOCK_INPUT;

  DisposeWindow (wp);
  if (wp == tip_window)
    /* Neither WaitNextEvent nor ReceiveNextEvent receives `window
       closed' event.  So we reset tip_window here.  */
    tip_window = NULL;

  free_frame_menubar (f);

  if (FRAME_FACE_CACHE (f))
    free_frame_faces (f);

    case smJapanese:
      coding_system = Qsjis;
      break;
    case smKorean:
      coding_system = Qeuc_kr;
      break;
    default:
      return;
    }

  setup_coding_system (coding_system, &coding);

		   ptr + sizeof ("-0-0-75-75-m-0-") - 1);
	  fontname = build_string (scaled);
	  if (fast_string_match (pattern_regex, fontname) >= 0)
	    {
	      font_list = Fcons (fontname, font_list);

	      n_fonts++;
	      if (maxnames > 0 && n_fonts >= maxnames)
		break;
	    }
	}

Lisp_Object drag_and_drop_file_list;

Point saved_menu_event_location;

#if !TARGET_API_MAC_CARBON
/* Place holder for the default arrow cursor.  */
CursPtr arrow_cursor;
#endif

/* Apple Events */
static void init_required_apple_events (void);
static pascal OSErr
do_ae_open_application (const AppleEvent *, AppleEvent *, long);
static pascal OSErr

static int
mac_get_emulated_btn ( UInt32 modifiers )
{
  int result = 0;
  if (!NILP (Vmac_emulate_three_button_mouse)) {
    int cmdIs3 = !EQ (Vmac_emulate_three_button_mouse, Qreverse);
    if (modifiers & controlKey)
      result = cmdIs3 ? 2 : 1;
    else if (modifiers & optionKey)
      result = cmdIs3 ? 1 : 2;
  }
  return result;
}

#if USE_CARBON_EVENTS

mac_event_to_emacs_modifiers (EventRef eventRef)
{
  UInt32 mods = 0;
  GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32, NULL,
		    sizeof (UInt32), NULL, &mods);
  if (!NILP (Vmac_emulate_three_button_mouse) &&
      GetEventClass(eventRef) == kEventClassMouse)
    {
      mods &= ~(optionKey & cmdKey);
    }
  return mac_to_emacs_modifiers (mods);

  GetEventParameter (ref, kEventParamMouseButton, typeMouseButton, NULL,
		    sizeof (EventMouseButton), NULL, &result);
  switch (result)
    {
    case kEventMouseButtonPrimary:
      if (NILP (Vmac_emulate_three_button_mouse))
	return 0;
      else {
	UInt32 mods = 0;
	GetEventParameter (ref, kEventParamKeyModifiers, typeUInt32, NULL,
			   sizeof (UInt32), NULL, &mods);

  InitDialogs (NULL);
#endif /* !TARGET_API_MAC_CARBON */
  InitCursor ();

#if !TARGET_API_MAC_CARBON
  arrow_cursor = &qd.arrow;

  /* set up some extra stack space for use by emacs */
  SetApplLimit ((Ptr) ((long) GetApplLimit () - EXTRA_STACK_ALLOC));

  /* MaxApplZone must be called for AppleScript to execute more
     complicated scripts */

}

static void
do_window_update (WindowPtr win)
{
  struct frame *f = mac_window_to_frame (win);

  if (win == tip_window)
    /* The tooltip has been drawn already.  Avoid the
       SET_FRAME_GARBAGED below.  */
    return;

  if (f)
    {
      if (f->async_visible == 0)
        {

}

static void
do_window_activate (WindowPtr win)
{
  struct frame *f;

  if (is_emacs_window (win))
    {
      f = mac_window_to_frame (win);

      if (f)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), f);
	  activate_scroll_bars (f);

}

static void
do_window_deactivate (WindowPtr win)
{
  struct frame *f;

  if (is_emacs_window (win))
    {
      f = mac_window_to_frame (win);

      if (f == FRAME_MAC_DISPLAY_INFO (f)->x_focus_frame)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), 0);
	  deactivate_scroll_bars (f);

static void
do_app_resume ()
{
  WindowPtr wp;
  struct frame *f;

  wp = mac_front_window ();
  if (is_emacs_window (wp))
    {
      f = mac_window_to_frame (wp);

      if (f)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), f);
	  activate_scroll_bars (f);

static void
do_app_suspend ()
{
  WindowPtr wp;
  struct frame *f;

  wp = mac_front_window ();
  if (is_emacs_window (wp))
    {
      f = mac_window_to_frame (wp);

      if (f == FRAME_MAC_DISPLAY_INFO (f)->x_focus_frame)
	{
	  x_new_focus_frame (FRAME_MAC_DISPLAY_INFO (f), 0);
	  deactivate_scroll_bars (f);

  app_sleep_time = WNE_SLEEP_AT_SUSPEND;
}


static void
do_mouse_moved (mouse_pos, f)
     Point mouse_pos;
     FRAME_PTR *f;
{
  WindowPtr wp = mac_front_window ();
  struct x_display_info *dpyinfo;

  if (is_emacs_window (wp))
    {
      *f = mac_window_to_frame (wp);
      dpyinfo = FRAME_MAC_DISPLAY_INFO (*f);

      if (dpyinfo->mouse_face_hidden)
	{
	  dpyinfo->mouse_face_hidden = 0;
	  clear_mouse_face (dpyinfo);
	}

      SetPortWindowPort (wp);

      GlobalToLocal (&mouse_pos);

      if (dpyinfo->grabbed && tracked_scroll_bar)
	x_scroll_bar_note_movement (tracked_scroll_bar,
				    mouse_pos.v
				    - XINT (tracked_scroll_bar->top),
				    TickCount() * (1000 / 60));
      else
	note_mouse_movement (*f, &mouse_pos);
    }
}


static void
do_apple_menu (SInt16 menu_item)
{
#if !TARGET_API_MAC_CARBON

      do_apple_menu (menu_item);
      break;

    default:
      {
        struct frame *f = mac_window_to_frame (mac_front_window ());
        MenuHandle menu = GetMenuHandle (menu_id);
        if (menu)
          {
            UInt32 refcon;

do_grow_window (WindowPtr w, EventRecord *e)
{
  long grow_size;
  Rect limit_rect;
  int rows, columns;
  struct frame *f = mac_window_to_frame (w);

  SetRect(&limit_rect, MIN_DOC_SIZE, MIN_DOC_SIZE, MAX_DOC_SIZE, MAX_DOC_SIZE);

  grow_size = GrowWindow (w, e->where, &limit_rect);

{
  GrafPtr save_port;
  Rect zoom_rect, port_rect;
  Point top_left;
  int w_title_height, columns, rows, width, height, dummy, x, y;
  struct frame *f = mac_window_to_frame (w);

  GetPort (&save_port);

  SetPortWindowPort (w);

  /* Clear window to avoid flicker.  */
#if TARGET_API_MAC_CARBON
  {
    Rect r;

      (**((WStateDataHandle) ((WindowPeek) w)->dataHandle)).stdState
	= zoom_rect;
    }
#endif /* not TARGET_API_MAC_CARBON */

  ZoomWindow (w, zoom_in_or_out, w == mac_front_window ());

  /* retrieve window size and update application values */
#if TARGET_API_MAC_CARBON
  GetWindowPortBounds (w, &port_rect);
#else
  port_rect = w->portRect;
#endif
  rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f, port_rect.bottom - port_rect.top);
  columns = FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f, port_rect.right - port_rect.left);
  x_set_window_size (f, 0, columns, rows);

  SetPort (save_port);
}

/* Initialize Drag And Drop to allow files to be dropped onto emacs frames */

     the queue like an interrupt using kbd_buffer_store_event.  */
  if (!NILP (drag_and_drop_file_list))
    {
      struct input_event event;
      Lisp_Object frame;
      struct frame *f = mac_window_to_frame (window);
      SetPortWindowPort (window);
      GlobalToLocal (&mouse);

      event.kind = DRAG_N_DROP_EVENT;
      event.code = 0;
      event.modifiers = 0;

}

/* Emacs calls this whenever it wants to read an input event from the
   user. */
int
XTread_socket (sd, expected, hold_quit)
     int sd, expected;
     struct input_event *hold_quit;
{
  struct input_event inev;
  int count = 0;
#if USE_CARBON_EVENTS
  EventRef eventRef;
  EventTargetRef toolbox_dispatcher = GetEventDispatcherTarget ();
#else
  EventMask event_mask;
#endif
  EventRecord er;
  struct mac_display_info *dpyinfo = &one_mac_display_info;

  if (interrupt_input_blocked)
    {
      interrupt_input_pending = 1;
      return -1;
    }

  interrupt_input_pending = 0;
  BLOCK_INPUT;

  /* So people can tell when we have read the available input.  */

    }

  if (terminate_flag)
    Fkill_emacs (make_number (1));

#if !USE_CARBON_EVENTS
  event_mask = everyEvent;
  if (NILP (Fboundp (Qmac_ready_for_drag_n_drop)))
    event_mask -= highLevelEventMask;

  while (WaitNextEvent (event_mask, &er,
			(expected ? app_sleep_time : 0L), NULL))
#else
  while (!ReceiveNextEvent (0, NULL,
			    (expected ? TicksToEventTime (app_sleep_time) : 0),
			    kEventRemoveFromQueue, &eventRef))
#endif /* !USE_CARBON_EVENTS */
    {
      int do_help = 0;
      struct frame *f;

      expected = 0;

      /* It is necessary to set this (additional) argument slot of an
	 event to nil because keyboard.c protects incompletely
	 processed event from being garbage collected by placing them
	 in the kbd_buffer_gcpro vector.  */
      EVENT_INIT (inev);
      inev.kind = NO_EVENT;
      inev.arg = Qnil;

#if USE_CARBON_EVENTS
      /* Handle new events */
      if (!mac_convert_event_ref (eventRef, &er))
	switch (GetEventClass (eventRef))
	  {
	  case kEventClassMouse:
	    if (GetEventKind (eventRef) == kEventMouseWheelMoved)
	      {
		SInt32 delta;
		Point point;
		WindowPtr window_ptr = mac_front_window ();

		if (!IsValidWindowPtr (window_ptr))
		  {
		    SysBeep(1);
		    break;
		  }

		GetEventParameter(eventRef, kEventParamMouseWheelDelta,
				  typeSInt32, NULL, sizeof (SInt32),
				  NULL, &delta);
		GetEventParameter(eventRef, kEventParamMouseLocation,
				  typeQDPoint, NULL, sizeof (Point),
				  NULL, &point);
		inev.kind = WHEEL_EVENT;
		inev.code = 0;
		inev.modifiers = (mac_event_to_emacs_modifiers (eventRef)
				  | ((delta < 0) ? down_modifier
				     : up_modifier));
		SetPortWindowPort (window_ptr);
		GlobalToLocal (&point);
		XSETINT (inev.x, point.h);
		XSETINT (inev.y, point.v);
		XSETFRAME (inev.frame_or_window,
			   mac_window_to_frame (window_ptr));
		inev.timestamp = EventTimeToTicks (GetEventTime (eventRef))*(1000/60);
	      }
	    else
	      SendEventToEventTarget (eventRef, toolbox_dispatcher);

	    break;
	  default:
	    /* Send the event to the appropriate receiver.  */
	    SendEventToEventTarget (eventRef, toolbox_dispatcher);
	  }
      else
#endif /* USE_CARBON_EVENTS */
      switch (er.what)
	{
	case mouseDown:
	case mouseUp:
	  {
	    WindowPtr window_ptr;
	    SInt16 part_code;
	    int tool_bar_p = 0;

	    if (dpyinfo->grabbed && last_mouse_frame
		&& FRAME_LIVE_P (last_mouse_frame))
	      {
		window_ptr = FRAME_MAC_WINDOW (last_mouse_frame);
		part_code = inContent;
	      }
	    else
	      {
		window_ptr = FrontWindow ();
		if (tip_window && window_ptr == tip_window)
		  {
		    HideWindow (tip_window);
		    window_ptr = FrontWindow ();
		  }

#if USE_CARBON_EVENTS
		/* This is needed to send mouse events like aqua
		   window buttons to the correct handler.  */
		if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
		    != eventNotHandledErr)
		  break;

		if (!is_emacs_window (window_ptr))
		  break;
#endif
		part_code = FindWindow (er.where, &window_ptr);
	      }

	    switch (part_code)
	      {
	      case inMenuBar:
		if (er.what == mouseDown)
		  {
		    f = mac_window_to_frame (mac_front_window ());
		    saved_menu_event_location = er.where;
		    inev.kind = MENU_BAR_ACTIVATE_EVENT;
		    XSETFRAME (inev.frame_or_window, f);
		  }
		break;

	      case inContent:
		if (window_ptr != mac_front_window ())
		  SelectWindow (window_ptr);
		else
		  {
		    SInt16 control_part_code;
		    ControlHandle ch;
		    Point mouse_loc = er.where;

		    f = mac_window_to_frame (window_ptr);
		    /* convert to local coordinates of new window */
		    SetPortWindowPort (window_ptr);

		    GlobalToLocal (&mouse_loc);
#if TARGET_API_MAC_CARBON
		    ch = FindControlUnderMouse (mouse_loc, window_ptr,
						&control_part_code);
#else
		    control_part_code = FindControl (mouse_loc, window_ptr,
						     &ch);
#endif

#if USE_CARBON_EVENTS
		    inev.code = mac_get_mouse_btn (eventRef);
		    inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else
		    inev.code = mac_get_emulated_btn (er.modifiers);
		    inev.modifiers = mac_to_emacs_modifiers (er.modifiers);
#endif
		    XSETINT (inev.x, mouse_loc.h);
		    XSETINT (inev.y, mouse_loc.v);
		    inev.timestamp = er.when * (1000 / 60);
		    /* ticks to milliseconds */

		    if (dpyinfo->grabbed && tracked_scroll_bar
#if TARGET_API_MAC_CARBON
			|| ch != 0
#else
			|| control_part_code != 0
#endif
			)
		      {
			struct scroll_bar *bar;

			if (dpyinfo->grabbed && tracked_scroll_bar)
			  {
			    bar = tracked_scroll_bar;
			    control_part_code = kControlIndicatorPart;
			  }
			else
			  bar = (struct scroll_bar *) GetControlReference (ch);
			x_scroll_bar_handle_click (bar, control_part_code,
						   &er, &inev);
			if (er.what == mouseDown
			    && control_part_code == kControlIndicatorPart)
			  tracked_scroll_bar = bar;
			else
			  tracked_scroll_bar = NULL;
		      }
		    else
		      {
			Lisp_Object window;
			int x = mouse_loc.h;
			int y = mouse_loc.v;

			window = window_from_coordinates (f, x, y, 0, 0, 0, 1);
			if (EQ (window, f->tool_bar_window))
			  {
			    if (er.what == mouseDown)
			      handle_tool_bar_click (f, x, y, 1, 0);
			    else
			      handle_tool_bar_click (f, x, y, 0,
						     inev.modifiers);
			    tool_bar_p = 1;
			  }
			else
			  {
			    XSETFRAME (inev.frame_or_window, f);
			    inev.kind = MOUSE_CLICK_EVENT;
			  }
		      }

		    if (er.what == mouseDown)
		      {
			dpyinfo->grabbed |= (1 << inev.code);
			last_mouse_frame = f;
			/* Ignore any mouse motion that happened
			   before this event; any subsequent
			   mouse-movement Emacs events should reflect
			   only motion after the ButtonPress.  */
			if (f != 0)
			  f->mouse_moved = 0;

			if (!tool_bar_p)
			  last_tool_bar_item = -1;
		      }
		    else
		      {
			if (dpyinfo->grabbed & (1 << inev.code) == 0)
			  /* If a button is released though it was not
			     previously pressed, that would be because
			     of multi-button emulation.  */
			  dpyinfo->grabbed = 0;
			else
			  dpyinfo->grabbed &= ~(1 << inev.code);
		      }

		    switch (er.what)
		      {
		      case mouseDown:
			inev.modifiers |= down_modifier;
			break;
		      case mouseUp:
			inev.modifiers |= up_modifier;
			break;
		      }
		  }
		break;

	      case inDrag:
#if TARGET_API_MAC_CARBON
		if (er.what == mouseDown)
		  {
		    BitMap bm;

		    GetQDGlobalsScreenBits (&bm);
		    DragWindow (window_ptr, er.where, &bm.bounds);
		  }
#else /* not TARGET_API_MAC_CARBON */
		DragWindow (window_ptr, er.where, &qd.screenBits.bounds);
#endif /* not TARGET_API_MAC_CARBON */
		break;

	      case inGoAway:
		if (TrackGoAway (window_ptr, er.where))
		  {
		    inev.kind = DELETE_WINDOW_EVENT;
		    XSETFRAME (inev.frame_or_window,
			       mac_window_to_frame (window_ptr));
		  }
		break;

		/* window resize handling added --ben */
	      case inGrow:
		if (er.what == mouseDown)
		  {
		    do_grow_window(window_ptr, &er);
		    break;
		  }

		/* window zoom handling added --ben */
	      case inZoomIn:
	      case inZoomOut:
		if (TrackBox (window_ptr, er.where, part_code))
		  do_zoom_window (window_ptr, part_code);
		break;

	      default:
		break;
	      }
	  }
	  break;

	case updateEvt:
#if USE_CARBON_EVENTS
	  if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
	      != eventNotHandledErr)
	    break;
#endif
	  do_window_update ((WindowPtr) er.message);
	  break;

	case osEvt:
#if USE_CARBON_EVENTS
	  if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
	      != eventNotHandledErr)
	    break;
#endif
	  switch ((er.message >> 24) & 0x000000FF)
	    {
	    case suspendResumeMessage:
	      if ((er.message & resumeFlag) == 1)
		do_app_resume ();
	      else
		do_app_suspend ();
	      break;

	    case mouseMovedMessage:
	      previous_help_echo_string = help_echo_string;
	      help_echo_string = help_echo_object = help_echo_window = Qnil;
	      help_echo_pos = -1;

	      do_mouse_moved (er.where, &f);

	      /* If the contents of the global variable
		 help_echo_string has changed, generate a
		 HELP_EVENT.  */
	      if (!NILP (help_echo_string) || !NILP (previous_help_echo_string))
		do_help = 1;
	      break;
	    }
	  break;

	case activateEvt:
	  {
	    WindowPtr window_ptr = (WindowPtr) er.message;

#if USE_CARBON_EVENTS
	    if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
		!= eventNotHandledErr)
	      break;
#endif
	    if (window_ptr == tip_window)
	      {
		HideWindow (tip_window);
		break;
	      }

	    if ((er.modifiers & activeFlag) != 0)
	      {
		Point mouse_loc = er.where;

		do_window_activate (window_ptr);

		SetPortWindowPort (window_ptr);
		GlobalToLocal (&mouse_loc);
		/* activateEvt counts as mouse movement,
		   so update things that depend on mouse position.  */
		note_mouse_movement (mac_window_to_frame (window_ptr),
				     &mouse_loc);
	      }
	    else
	      {
		do_window_deactivate (window_ptr);

		f = mac_window_to_frame (window_ptr);
		if (f == dpyinfo->mouse_face_mouse_frame)
		  {
		    /* If we move outside the frame, then we're
		       certainly no longer on any text in the
		       frame.  */
		    clear_mouse_face (dpyinfo);
		    dpyinfo->mouse_face_mouse_frame = 0;
		  }

		/* Generate a nil HELP_EVENT to cancel a help-echo.
		   Do it only if there's something to cancel.
		   Otherwise, the startup message is cleared when the
		   mouse leaves the frame.  */
		if (any_help_event_p)
		  do_help = -1;
	      }
	  }
	  break;

	case keyDown:
	case autoKey:
	  {
	    int keycode = (er.message & keyCodeMask) >> 8;
	    int xkeysym;

#if USE_CARBON_EVENTS
	    /* When using Carbon Events, we need to pass raw keyboard
	       events to the TSM ourselves.  If TSM handles it, it
	       will pass back noErr, otherwise it will pass back
	       "eventNotHandledErr" and we can process it
	       normally.  */
	    if ((!NILP (Vmac_pass_command_to_system)
		 || !(er.modifiers & cmdKey))
		&& (!NILP (Vmac_pass_control_to_system)
		    || !(er.modifiers & controlKey)))
	      if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
		  != eventNotHandledErr)
		break;
#endif

#if TARGET_API_MAC_CARBON
	    if (!IsValidWindowPtr (mac_front_window ()))
	      {
		SysBeep (1);
		break;
	      }
#endif

	    ObscureCursor ();

	    if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
	      {
		clear_mouse_face (dpyinfo);
		dpyinfo->mouse_face_hidden = 1;
	      }

	    if (keycode_to_xkeysym (keycode, &xkeysym))
	      {
		inev.code = 0xff00 | xkeysym;
		inev.kind = NON_ASCII_KEYSTROKE_EVENT;
	      }
	    else
	      {
		if (er.modifiers & (controlKey |
				    (NILP (Vmac_command_key_is_meta) ? optionKey
				     : cmdKey)))
		  {
		    /* This code comes from Keyboard Resource,
		       Appendix C of IM - Text.  This is necessary
		       since shift is ignored in KCHR table
		       translation when option or command is pressed.
		       It also does not translate correctly
		       control-shift chars like C-% so mask off shift
		       here also */
		    int new_modifiers = er.modifiers & 0xe600;
		    /* mask off option and command */
		    int new_keycode = keycode | new_modifiers;
		    Ptr kchr_ptr = (Ptr) GetScriptManagerVariable (smKCHRCache);
		    unsigned long some_state = 0;
		    inev.code = KeyTranslate (kchr_ptr, new_keycode,
					      &some_state) & 0xff;
		  }
		else
		  inev.code = er.message & charCodeMask;
		inev.kind = ASCII_KEYSTROKE_EVENT;
	      }
	  }

	  /* If variable mac-convert-keyboard-input-to-latin-1 is
	     non-nil, convert non-ASCII characters typed at the Mac
	     keyboard (presumed to be in the Mac Roman encoding) to
	     iso-latin-1 encoding before they are passed to Emacs.
	     This enables the Mac keyboard to be used to enter
	     non-ASCII iso-latin-1 characters directly.  */
	  if (mac_keyboard_text_encoding != kTextEncodingMacRoman
	      && inev.kind == ASCII_KEYSTROKE_EVENT && inev.code >= 128)
	    {
	      static TECObjectRef converter = NULL;
	      OSStatus the_err = noErr;
	      OSStatus convert_status = noErr;

	      if (converter ==  NULL)
		{
		  the_err = TECCreateConverter (&converter,
						kTextEncodingMacRoman,
						mac_keyboard_text_encoding);
		  current_mac_keyboard_text_encoding
		    = mac_keyboard_text_encoding;
		}
	      else if (mac_keyboard_text_encoding
		       != current_mac_keyboard_text_encoding)
		{
		  /* Free the converter for the current encoding
		     before creating a new one.  */
		  TECDisposeConverter (converter);
		  the_err = TECCreateConverter (&converter,
						kTextEncodingMacRoman,
						mac_keyboard_text_encoding);
		  current_mac_keyboard_text_encoding
		    = mac_keyboard_text_encoding;
		}

	      if (the_err == noErr)
		{
		  unsigned char ch = inev.code;
		  ByteCount actual_input_length, actual_output_length;
		  unsigned char outch;

		  convert_status = TECConvertText (converter, &ch, 1,
						   &actual_input_length,
						   &outch, 1,
						   &actual_output_length);
		  if (convert_status == noErr
		      && actual_input_length == 1
		      && actual_output_length == 1)
		    inev.code = outch;
		}
	    }

#if USE_CARBON_EVENTS
	  inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else
	  inev.modifiers = mac_to_emacs_modifiers (er.modifiers);
#endif
	  XSETFRAME (inev.frame_or_window,
		     mac_window_to_frame (mac_front_window ()));
	  inev.timestamp = er.when * (1000 / 60);  /* ticks to milliseconds */
	  break;

	case kHighLevelEvent:
	  drag_and_drop_file_list = Qnil;

	  AEProcessAppleEvent(&er);

	  /* Build a DRAG_N_DROP_EVENT type event as is done in
	     constuct_drag_n_drop in w32term.c.  */
	  if (!NILP (drag_and_drop_file_list))
	    {
	      struct frame *f = NULL;
	      WindowPtr wp;
	      Lisp_Object frame;

	      wp = mac_front_window ();

	      if (!wp)
		{
		  struct frame *f = XFRAME (XCAR (Vframe_list));
		  CollapseWindow (FRAME_MAC_WINDOW (f), false);
		  wp = mac_front_window ();
		}

	      if (wp && is_emacs_window (wp))
		f = mac_window_to_frame (wp);

	      inev.kind = DRAG_N_DROP_EVENT;
	      inev.code = 0;
	      inev.timestamp = er.when * (1000 / 60);
	      /* ticks to milliseconds */
#if USE_CARBON_EVENTS
	      inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else
	      inev.modifiers = mac_to_emacs_modifiers (er.modifiers);
#endif

	      XSETINT (inev.x, 0);
	      XSETINT (inev.y, 0);

	      XSETFRAME (frame, f);
	      inev.frame_or_window = Fcons (frame, drag_and_drop_file_list);

	      /* Regardless of whether Emacs was suspended or in the
		 foreground, ask it to redraw its entire screen.
		 Otherwise parts of the screen can be left in an
		 inconsistent state.  */
	      if (wp)
#if TARGET_API_MAC_CARBON
		{
		  Rect r;

		  GetWindowPortBounds (wp, &r);
		  InvalWindowRect (wp, &r);
		}
#else /* not TARGET_API_MAC_CARBON */
                InvalRect (&(wp->portRect));
#endif /* not TARGET_API_MAC_CARBON */
	    }
	default:
	  break;
	}
#if USE_CARBON_EVENTS
      ReleaseEvent (eventRef);
#endif

      if (inev.kind != NO_EVENT)
	{
	  kbd_buffer_store_event_hold (&inev, hold_quit);
	  count++;
	}

      if (do_help
	  && !(hold_quit && hold_quit->kind != NO_EVENT))
	{
	  Lisp_Object frame;

	  if (f)
	    XSETFRAME (frame, f);
	  else
	    frame = Qnil;

	  if (do_help > 0)
	    {
	      any_help_event_p = 1;
	      gen_help_event (help_echo_string, frame, help_echo_window,
			      help_echo_object, help_echo_pos);
	    }
	  else
	    {
	      help_echo_string = Qnil;
	      gen_help_event (Qnil, frame, Qnil, Qnil, 0);
	    }
	  count++;
	}

    }

  /* If the focus was just given to an autoraising frame,
     raise it now.  */
  /* ??? This ought to be able to handle more than one such frame.  */
  if (pending_autoraise_frame)

    }

#if !TARGET_API_MAC_CARBON
  check_alarm ();  /* simulate the handling of a SIGALRM */
#endif

  UNBLOCK_INPUT;
  return count;
}

/* Initialize the struct pointed to by MW to represent a new COLS x
   ROWS Macintosh window, using font with name FONTNAME and size
   FONTSIZE.  */
void
make_mac_frame (FRAME_PTR fp)
{
  mac_output *mwp;
#if TARGET_API_MAC_CARBON
  static int making_terminal_window = 0;
#else

				      (WindowPtr) -1)))
        abort ();
      making_terminal_window = 0;
    }
  else
    {
#if TARGET_API_MAC_CARBON
      Rect r;

      SetRect (&r, 0, 0, 1, 1);
      if (CreateNewWindow (kDocumentWindowClass,
			   kWindowStandardDocumentAttributes
			   /* | kWindowToolbarButtonAttribute */,
			   &r, &mwp->mWP) != noErr)
#else
      if (!(mwp->mWP = GetNewCWindow (WINDOW_RESOURCE, NULL, (WindowPtr) -1)))
#endif
	abort ();
    }

  SetWRefCon (mwp->mWP, (long) mwp);
    /* so that update events can find this mac_output struct */
  mwp->mFP = fp;  /* point back to emacs frame */

  SetPortWindowPort (mwp->mWP);

  SizeWindow (mwp->mWP, FRAME_PIXEL_WIDTH (fp), FRAME_PIXEL_HEIGHT (fp), false);
}


void
make_mac_terminal_frame (struct frame *f)
{
  Lisp_Object frame;

  XSETFRAME (frame, f);

  f->output_method = output_mac;
  f->output_data.mac = (struct mac_output *)
    xmalloc (sizeof (struct mac_output));
  bzero (f->output_data.mac, sizeof (struct mac_output));

  XSETFRAME (FRAME_KBOARD (f)->Vdefault_minibuffer_frame, f);

  FRAME_COLS (f) = 96;
  FRAME_LINES (f) = 4;

  FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
  FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_right;

  FRAME_DESIRED_CURSOR (f) = FILLED_BOX_CURSOR;

  f->output_data.mac->cursor_pixel = 0;
  f->output_data.mac->border_pixel = 0x00ff00;
  f->output_data.mac->mouse_pixel = 0xff00ff;
  f->output_data.mac->cursor_foreground_pixel = 0x0000ff;

  FRAME_FONTSET (f) = -1;
  f->output_data.mac->explicit_parent = 0;
  f->left_pos = 4;
  f->top_pos = 4;
  f->border_width = 0;

  f->internal_border_width = 0;

  f->auto_raise = 1;
  f->auto_lower = 1;

  f->new_text_cols = 0;
  f->new_text_lines = 0;

  make_mac_frame (f);

  x_make_gc (f);

                            Fcons (Fcons (Qforeground_color,
                                          build_string ("black")), Qnil));
  Fmodify_frame_parameters (frame,
                            Fcons (Fcons (Qbackground_color,
                                          build_string ("white")), Qnil));

  ShowWindow (f->output_data.mac->mWP);
}


/***********************************************************************
			    Initialization

  dpyinfo->reference_count = 0;
  dpyinfo->resx = 75.0;
  dpyinfo->resy = 75.0;
  dpyinfo->color_p = TestDeviceAttribute (main_device_handle, gdDevType);
#ifdef MAC_OSX
  /* HasDepth returns true if it is possible to have a 32 bit display,
     but this may not be what is actually used.  Mac OSX can do better.  */
  dpyinfo->n_planes = CGDisplayBitsPerPixel (CGMainDisplayID ());
#else
  for (dpyinfo->n_planes = 32; dpyinfo->n_planes > 0; dpyinfo->n_planes >>= 1)
    if (HasDepth (main_device_handle, dpyinfo->n_planes,
		  gdDevType, dpyinfo->color_p))
      break;
#endif
  dpyinfo->height = (**main_device_handle).gdRect.bottom;
  dpyinfo->width = (**main_device_handle).gdRect.right;
  dpyinfo->grabbed = 0;
  dpyinfo->root_window = NULL;
  dpyinfo->image_cache = make_image_cache ();

  dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
  dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
  dpyinfo->mouse_face_face_id = DEFAULT_FACE_ID;
  dpyinfo->mouse_face_window = Qnil;
  dpyinfo->mouse_face_overlay = Qnil;
  dpyinfo->mouse_face_hidden = 0;
}

struct mac_display_info *
mac_term_init (display_name, xrm_option, resource_name)
     Lisp_Object display_name;

  /* Redetermine modifiers because they are based on lisp variables */
  mac_determine_quit_char_modifiers ();

  /* Fill the queue with events */
  BLOCK_INPUT;
  ReceiveNextEvent (0, NULL, kEventDurationNoWait, false, &event);
  event = FindSpecificEventInQueue (GetMainEventQueue (), quit_char_comp,
				    NULL);
  UNBLOCK_INPUT;
  if (event)
    {
      struct input_event e;

      /* Use an input_event to emulate what the interrupt handler does. */
      EVENT_INIT (e);
      e.kind = ASCII_KEYSTROKE_EVENT;
      e.code = quit_char;
      e.arg = Qnil;
      e.modifiers = NULL;
      e.timestamp = EventTimeToTicks (GetEventTime (event)) * (1000/60);
      XSETFRAME (e.frame_or_window, mac_window_to_frame (mac_front_window ()));
      /* Remove event from queue to prevent looping. */
      RemoveEventFromQueue (GetMainEventQueue (), event);
      ReleaseEvent (event);
      kbd_buffer_store_event (&e);
    }

  DEFVAR_LISP ("mac-reverse-ctrl-meta", &Vmac_reverse_ctrl_meta,
    doc: /* Non-nil means that the control and meta keys are reversed.  This is
	    useful for non-standard keyboard layouts.  */);
  Vmac_reverse_ctrl_meta = Qnil;

  DEFVAR_LISP ("mac-emulate-three-button-mouse",
	       &Vmac_emulate_three_button_mouse,
    doc: /* t means that when the option-key is held down while pressing the
    mouse button, the click will register as mouse-2 and while the
    command-key is held down, the click will register as mouse-3.
    'reverse means that the the option-key will register for mouse-3
    and the command-key will register for mouse-2.  nil means that
    not emulation should be done and the modifiers should be placed
    on the mouse-1 event. */);