comparison src/macterm.c @ 60623:5a3fa411c713

(activate_scroll_bars, deactivate_scroll_bars): Remove functions and declarations. (mac_set_colors): Take argument for saving background color. All callers changed. (XDrawLine, XClearArea, mac_draw_bitmap, XFillRectangle) (mac_draw_rectangle, mac_draw_string_common): Save and Restore background color. (x_update_end, mac_do_track_drag): Don't reset background color. (mac_define_frame_cursor) [!TARGET_API_MAC_CARBON]: Use SetThemeCursor. (x_set_window_size) [TARGET_API_MAC_CARBON]: Move progress indicator control to the upper-right corner of the window. (arrow_cursor) [!TARGET_API_MAC_CARBON]: Remove variable. (do_init_managers) [!TARGET_API_MAC_CARBON]: Don't initialize it. (do_window_update): Update controls after updating content area. (mac_handle_window_event): Remove unused extern. (XTread_socket): Check both control handle and control part code to determine whether a scroll bar is clicked. Activate/deactivate root control instead of contained scroll bar controls. (make_mac_terminal_frame): Use ThemeCursor constants.

60622:005d5b72126b

static void x_flush P_ ((struct frame *f));
static void x_update_begin P_ ((struct frame *));
static void x_update_window_begin P_ ((struct window *));
static void x_after_update_window_line P_ ((struct glyph_row *));

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 *);

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

static void
mac_set_colors (GC gc)
{
  mac_set_forecolor (gc->foreground);
  mac_set_backcolor (gc->background);
}

/* Mac version of XDrawLine.  */

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

  mac_set_colors (gc);

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

void
mac_draw_line_to_pixmap (display, p, gc, x1, y1, x2, y2)
     Display *display;

  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));

     int exposures;
{
  struct mac_output *mwp = (mac_output *) GetWRefCon (w);
  Rect r;
  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);
}

/* Mac version of XClearWindow.  */

static void

  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
  {
    Rect r;

     unsigned short *bits;
     int overlay_p;
{
  BitMap bitmap;
  Rect r;

  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
  LockPortBits (GetWindowPort (w));
  CopyBits (&bitmap, GetPortBitMapForCopyBits (GetWindowPort (w)),

  UnlockPortBits (GetWindowPort (w));
#else /* not TARGET_API_MAC_CARBON */
  CopyBits (&bitmap, &(w->portBits), &(bitmap.bounds), &r,
	    overlay_p ? srcOr : srcCopy, 0);
#endif /* not TARGET_API_MAC_CARBON */
}


/* Mac replacement for XSetClipRectangles.  */

     GC gc;
     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 */
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
static void

  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));

     GC gc;
     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 */
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
/* Mac replacement for XDrawRectangle: dest is a Pixmap.  */

  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));

     GC gc;
     int x, y;
     char *buf;
     int nchars, mode, bytes_per_char;
{
  SetPortWindowPort (w);
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  UInt32 textFlags, savedFlags;
  if (!NILP(Vmac_use_core_graphics)) {
    textFlags = kQDUseCGTextRendering;
    savedFlags = SwapQDTextFlags(textFlags);
  }
#endif

  mac_set_colors (gc);

  TextFont (gc->font->mac_fontnum);
  TextSize (gc->font->mac_fontsize);
  TextFace (gc->font->mac_fontface);
  TextMode (mode);

  MoveTo (x, y);
  DrawText (buf, 0, nchars * bytes_per_char);
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  if (!NILP(Vmac_use_core_graphics))
    SwapQDTextFlags(savedFlags);
#endif
}

#else /* not TARGET_API_MAC_CARBON */
  Rect src_r, dest_r;

  SetPort (w);
#if 0
  mac_set_colors (gc);
#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);

     color mapping in CopyBits.  Otherwise, it will be slow.  */
  ForeColor (blackColor);
  BackColor (whiteColor);
  CopyBits (&(w->portBits), &(w->portBits), &src_r, &dest_r, srcCopy, 0);

  mac_set_colors (gc);
#endif
#endif /* not TARGET_API_MAC_CARBON */
}

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

  BLOCK_INPUT;
  /* 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));

#if TARGET_API_MAC_CARBON
  EnableScreenUpdates ();
#endif
  XFlush (FRAME_MAC_DISPLAY (f));
  UNBLOCK_INPUT;

  /* Now there should be no references to the condemned scroll bars,
     and they should get garbage-collected.  */
}


void
activate_scroll_bars (frame)
     FRAME_PTR frame;
{
  Lisp_Object bar;
  ControlHandle ch;

  bar = FRAME_SCROLL_BARS (frame);
  while (! NILP (bar))
    {
      ch = SCROLL_BAR_CONTROL_HANDLE (XSCROLL_BAR (bar));
#if 1 /* TARGET_API_MAC_CARBON */
      ActivateControl (ch);
#else
      SetControlMaximum (ch,
			 VERTICAL_SCROLL_BAR_TOP_RANGE (frame,
							XINT (XSCROLL_BAR (bar)
							      ->height)) - 1);
#endif
      bar = XSCROLL_BAR (bar)->next;
    }
}


void
deactivate_scroll_bars (frame)
     FRAME_PTR frame;
{
  Lisp_Object bar;
  ControlHandle ch;

  bar = FRAME_SCROLL_BARS (frame);
  while (! NILP (bar))
    {
      ch = SCROLL_BAR_CONTROL_HANDLE (XSCROLL_BAR (bar));
#if 1 /* TARGET_API_MAC_CARBON */
      DeactivateControl (ch);
#else
      SetControlMaximum (ch, -1);
#endif
      bar = XSCROLL_BAR (bar)->next;
    }
}

/* Handle a mouse click on the scroll bar BAR.  If *EMACS_EVENT's kind
   is set to something other than NO_EVENT, it is enqueued.

   This may be called from a signal handler, so we have to ignore GC
   mark bits.  */

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.  */

  f->win_gravity = NorthWestGravity;
  x_wm_set_size_hint (f, (long) 0, 0);

  SizeWindow (FRAME_MAC_WINDOW (f), pixelwidth, pixelheight, 0);

  /* Now, strictly speaking, we can't be sure that this is accurate,
     but the window manager will get around to dealing with the size
     change request eventually, and we'll hear how it went when the
     ConfigureNotify event gets here.

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

  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 */

#if TARGET_API_MAC_CARBON
	  {
	    RgnHandle region = NewRgn ();

	    GetPortVisibleRegion (GetWindowPort (win), region);
	    UpdateControls (win, region);
	    GetRegionBounds (region, &r);
	    DisposeRgn (region);
	  }
#else
	  UpdateControls (win, win->visRgn);
	  r = (*win->visRgn)->rgnBBox;
#endif
	  expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top);

          handling_window_update = 0;
        }
    }

mac_handle_window_event (next_handler, event, data)
     EventHandlerCallRef next_handler;
     EventRef event;
     void *data;
{
  extern Lisp_Object Qcontrol;

  WindowPtr wp;
  OSStatus result;
  UInt32 attributes;
  XSizeHints *size_hints;

	{
	  RgnHandle hilite_rgn = NewRgn ();
	  Rect r;
	  struct frame *f = mac_window_to_frame (window);

	  mac_set_backcolor (FRAME_BACKGROUND_PIXEL (f));
	  GetWindowPortBounds (window, &r);
	  OffsetRect (&r, -r.left, -r.top);
	  RectRgn (hilite_rgn, &r);
	  ShowDragHilite (theDrag, hilite_rgn, true);
	  DisposeRgn (hilite_rgn);

    case kDragTrackingLeaveWindow:
      if (can_accept)
	{
	  struct frame *f = mac_window_to_frame (window);

	  mac_set_backcolor (FRAME_BACKGROUND_PIXEL (f));
	  HideDragHilite (theDrag);
	  SetThemeCursor (kThemeArrowCursor);
	}
      break;

		    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)
			  {

	  break;

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

#if USE_CARBON_EVENTS
	    if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
		!= eventNotHandledErr)
	      break;

	    if (!is_emacs_window (window_ptr))
	      break;

	    f = mac_window_to_frame (window_ptr);

	    if ((er.modifiers & activeFlag) != 0)
	      {
		/* A window has been activated */
		Point mouse_loc = er.where;

		x_new_focus_frame (dpyinfo, f);
		activate_scroll_bars (f);

		SetPortWindowPort (window_ptr);
		GlobalToLocal (&mouse_loc);
		/* Window-activated event counts as mouse movement,
		   so update things that depend on mouse position.  */

		dpyinfo->grabbed = 0;

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


		if (f == dpyinfo->mouse_face_mouse_frame)
		  {

  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;

#if TARGET_API_MAC_CARBON
  f->output_data.mac->text_cursor = kThemeIBeamCursor;
  f->output_data.mac->nontext_cursor = kThemeArrowCursor;
  f->output_data.mac->modeline_cursor = kThemeArrowCursor;
  f->output_data.mac->hand_cursor = kThemePointingHandCursor;
  f->output_data.mac->hourglass_cursor = kThemeWatchCursor;
  f->output_data.mac->horizontal_drag_cursor = kThemeResizeLeftRightCursor;
#else
  f->output_data.mac->text_cursor = GetCursor (iBeamCursor);
  f->output_data.mac->nontext_cursor = &arrow_cursor;
  f->output_data.mac->modeline_cursor = &arrow_cursor;
  f->output_data.mac->hand_cursor = &arrow_cursor;
  f->output_data.mac->hourglass_cursor = GetCursor (watchCursor);
  f->output_data.mac->horizontal_drag_cursor = &arrow_cursor;
#endif

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

60623:5a3fa411c713

static void x_flush P_ ((struct frame *f));
static void x_update_begin P_ ((struct frame *));
static void x_update_window_begin P_ ((struct window *));
static void x_after_update_window_line P_ ((struct glyph_row *));

static int is_emacs_window (WindowPtr);

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

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

static void
mac_set_colors (gc, bg_save)
     GC gc;
     RGBColor *bg_save;
{
  if (bg_save)
    GetBackColor (bg_save);
  mac_set_forecolor (gc->foreground);
  mac_set_backcolor (gc->background);
}

/* Mac version of XDrawLine.  */

     Display *display;
     WindowPtr w;
     GC gc;
     int x1, y1, x2, y2;
{
  RGBColor old_bg;

  SetPortWindowPort (w);

  mac_set_colors (gc, &old_bg);

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

  RGBBackColor (&old_bg);
}

void
mac_draw_line_to_pixmap (display, p, gc, x1, y1, x2, y2)
     Display *display;

  GDHandle old_gdh;

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

  mac_set_colors (gc, NULL);

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

     int exposures;
{
  struct mac_output *mwp = (mac_output *) GetWRefCon (w);
  Rect r;
  XGCValues xgc;
  RGBColor old_bg;

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

  SetPortWindowPort (w);

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

  EraseRect (&r);

  RGBBackColor (&old_bg);
}

/* Mac version of XClearWindow.  */

static void

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

  SetPortWindowPort (w);

  mac_set_colors (&xgc, NULL);

#if TARGET_API_MAC_CARBON
  {
    Rect r;

     unsigned short *bits;
     int overlay_p;
{
  BitMap bitmap;
  Rect r;
  RGBColor old_bg;

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

  SetPortWindowPort (w);

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

#if TARGET_API_MAC_CARBON
  LockPortBits (GetWindowPort (w));
  CopyBits (&bitmap, GetPortBitMapForCopyBits (GetWindowPort (w)),

  UnlockPortBits (GetWindowPort (w));
#else /* not TARGET_API_MAC_CARBON */
  CopyBits (&bitmap, &(w->portBits), &(bitmap.bounds), &r,
	    overlay_p ? srcOr : srcCopy, 0);
#endif /* not TARGET_API_MAC_CARBON */

  RGBBackColor (&old_bg);
}


/* Mac replacement for XSetClipRectangles.  */

     GC gc;
     int x, y;
     unsigned int width, height;
{
  Rect r;
  RGBColor old_bg;

  SetPortWindowPort (w);

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

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

  RGBBackColor (&old_bg);
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
static void

  GDHandle old_gdh;
  Rect r;

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

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

     GC gc;
     int x, y;
     unsigned int width, height;
{
  Rect r;
  RGBColor old_bg;

  SetPortWindowPort (w);

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

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

  RGBBackColor (&old_bg);
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
/* Mac replacement for XDrawRectangle: dest is a Pixmap.  */

  GDHandle old_gdh;
  Rect r;

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

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

     GC gc;
     int x, y;
     char *buf;
     int nchars, mode, bytes_per_char;
{
  RGBColor old_bg;

  SetPortWindowPort (w);
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  UInt32 textFlags, savedFlags;
  if (!NILP(Vmac_use_core_graphics)) {
    textFlags = kQDUseCGTextRendering;
    savedFlags = SwapQDTextFlags(textFlags);
  }
#endif

  mac_set_colors (gc, &old_bg);

  TextFont (gc->font->mac_fontnum);
  TextSize (gc->font->mac_fontsize);
  TextFace (gc->font->mac_fontface);
  TextMode (mode);

  MoveTo (x, y);
  DrawText (buf, 0, nchars * bytes_per_char);

  RGBBackColor (&old_bg);
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
  if (!NILP(Vmac_use_core_graphics))
    SwapQDTextFlags(savedFlags);
#endif
}

#else /* not TARGET_API_MAC_CARBON */
  Rect src_r, dest_r;

  SetPort (w);
#if 0
  mac_set_colors (gc, NULL);
#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);

     color mapping in CopyBits.  Otherwise, it will be slow.  */
  ForeColor (blackColor);
  BackColor (whiteColor);
  CopyBits (&(w->portBits), &(w->portBits), &src_r, &dest_r, srcCopy, 0);

  mac_set_colors (gc, NULL);
#endif
#endif /* not TARGET_API_MAC_CARBON */
}

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

  BLOCK_INPUT;
#if TARGET_API_MAC_CARBON
  EnableScreenUpdates ();
#endif
  XFlush (FRAME_MAC_DISPLAY (f));
  UNBLOCK_INPUT;

  /* Now there should be no references to the condemned scroll bars,
     and they should get garbage-collected.  */
}


/* Handle a mouse click on the scroll bar BAR.  If *EMACS_EVENT's kind
   is set to something other than NO_EVENT, it is enqueued.

   This may be called from a signal handler, so we have to ignore GC
   mark bits.  */

static void
mac_define_frame_cursor (f, cursor)
     struct frame *f;
     Cursor cursor;
{
  SetThemeCursor (cursor);
}


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

  f->win_gravity = NorthWestGravity;
  x_wm_set_size_hint (f, (long) 0, 0);

  SizeWindow (FRAME_MAC_WINDOW (f), pixelwidth, pixelheight, 0);
#if TARGET_API_MAC_CARBON
  if (f->output_data.mac->hourglass_control)
    MoveControl (f->output_data.mac->hourglass_control,
		 pixelwidth - HOURGLASS_WIDTH, 0);
#endif

  /* Now, strictly speaking, we can't be sure that this is accurate,
     but the window manager will get around to dealing with the size
     change request eventually, and we'll hear how it went when the
     ConfigureNotify event gets here.

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

  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 */

#if TARGET_API_MAC_CARBON
	  {
	    RgnHandle region = NewRgn ();

	    GetPortVisibleRegion (GetWindowPort (win), region);
	    GetRegionBounds (region, &r);
	    expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top);
	    UpdateControls (win, region);
	    DisposeRgn (region);
	  }
#else
	  r = (*win->visRgn)->rgnBBox;
	  expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top);
	  UpdateControls (win, win->visRgn);
#endif

          handling_window_update = 0;
        }
    }

mac_handle_window_event (next_handler, event, data)
     EventHandlerCallRef next_handler;
     EventRef event;
     void *data;
{
  WindowPtr wp;
  OSStatus result;
  UInt32 attributes;
  XSizeHints *size_hints;

	{
	  RgnHandle hilite_rgn = NewRgn ();
	  Rect r;
	  struct frame *f = mac_window_to_frame (window);

	  GetWindowPortBounds (window, &r);
	  OffsetRect (&r, -r.left, -r.top);
	  RectRgn (hilite_rgn, &r);
	  ShowDragHilite (theDrag, hilite_rgn, true);
	  DisposeRgn (hilite_rgn);

    case kDragTrackingLeaveWindow:
      if (can_accept)
	{
	  struct frame *f = mac_window_to_frame (window);

	  HideDragHilite (theDrag);
	  SetThemeCursor (kThemeArrowCursor);
	}
      break;

		    XSETINT (inev.y, mouse_loc.v);
		    inev.timestamp = er.when * (1000 / 60);
		    /* ticks to milliseconds */

		    if (dpyinfo->grabbed && tracked_scroll_bar
			/* control_part_code becomes kControlNoPart if
			   a progress indicator is clicked.  */
			|| ch != 0 && control_part_code != kControlNoPart)
		      {
			struct scroll_bar *bar;

			if (dpyinfo->grabbed && tracked_scroll_bar)
			  {

	  break;

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

#if USE_CARBON_EVENTS
	    if (SendEventToEventTarget (eventRef, toolbox_dispatcher)
		!= eventNotHandledErr)
	      break;

	    if (!is_emacs_window (window_ptr))
	      break;

	    f = mac_window_to_frame (window_ptr);
	    GetRootControl (window_ptr, &root_control);

	    if ((er.modifiers & activeFlag) != 0)
	      {
		/* A window has been activated */
		Point mouse_loc = er.where;

		x_new_focus_frame (dpyinfo, f);
		ActivateControl (root_control);

		SetPortWindowPort (window_ptr);
		GlobalToLocal (&mouse_loc);
		/* Window-activated event counts as mouse movement,
		   so update things that depend on mouse position.  */

		dpyinfo->grabbed = 0;

		if (f == dpyinfo->x_focus_frame)
		  {
		    x_new_focus_frame (dpyinfo, 0);
		    DeactivateControl (root_control);
		  }


		if (f == dpyinfo->mouse_face_mouse_frame)
		  {

  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;

  f->output_data.mac->text_cursor = kThemeIBeamCursor;
  f->output_data.mac->nontext_cursor = kThemeArrowCursor;
  f->output_data.mac->modeline_cursor = kThemeArrowCursor;
  f->output_data.mac->hand_cursor = kThemePointingHandCursor;
  f->output_data.mac->hourglass_cursor = kThemeWatchCursor;
  f->output_data.mac->horizontal_drag_cursor = kThemeResizeLeftRightCursor;

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