comparison src/macterm.c @ 83561:dc002877ce12

Merged from [e-mail] Patches applied: * [e-mail]/emacs--devo--0--patch-674 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-675 Update from CVS * [e-mail]/emacs--devo--0--patch-676 Update from CVS * [e-mail]/emacs--devo--0--patch-677 Update from CVS * [e-mail]/emacs--devo--0--patch-678 Update from CVS * [e-mail]/emacs--devo--0--patch-679 Update from CVS * [e-mail]/emacs--devo--0--patch-680 Update from CVS * [e-mail]/emacs--devo--0--patch-681 Update from CVS * [e-mail]/emacs--devo--0--patch-682 Update from CVS * [e-mail]/emacs--devo--0--patch-683 Update from CVS * [e-mail]/emacs--devo--0--patch-684 Update from CVS * [e-mail]/emacs--devo--0--patch-685 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-686 Update from CVS * [e-mail]/emacs--devo--0--patch-687 Release ERC 5.2. * [e-mail]/emacs--devo--0--patch-688 Update from CVS * [e-mail]/emacs--devo--0--patch-689 Update from CVS * [e-mail]/emacs--devo--0--patch-690 Update from CVS * [e-mail]/emacs--devo--0--patch-691 Update from CVS * [e-mail]/emacs--devo--0--patch-692 Update from CVS * [e-mail]/emacs--devo--0--patch-693 Update from CVS * [e-mail]/emacs--devo--0--patch-694 Update from CVS * [e-mail]/emacs--devo--0--patch-695 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-696 Update from CVS * [e-mail]/emacs--devo--0--patch-697 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-698 Update from CVS * [e-mail]/emacs--devo--0--patch-699 Update from CVS * [e-mail]/emacs--devo--0--patch-700 Update from CVS * [e-mail]/emacs--devo--0--patch-701 Update from CVS * [e-mail]/gnus--rel--5.10--patch-209 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-210 Update from CVS * [e-mail]/gnus--rel--5.10--patch-211 Update from CVS * [e-mail]/gnus--rel--5.10--patch-212 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-213 Update from CVS * [e-mail]/gnus--rel--5.10--patch-214 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-215 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-601

83560:738ce3540ffb

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

#if __profile__

      Lisp_Object charset_info = XCAR (rest);
      Lisp_Object charset, coding_system, text_encoding;
      Lisp_Object existing_info;

      if (!(CONSP (charset_info)
	    && STRINGP (charset = XCAR (charset_info))
	    && CONSP (XCDR (charset_info))
	    && INTEGERP (text_encoding = XCAR (XCDR (charset_info)))
	    && CONSP (XCDR (XCDR (charset_info)))
	    && SYMBOLP (coding_system = XCAR (XCDR (XCDR (charset_info))))))
	continue;

      existing_info = assq_no_quit (text_encoding, result);
      if (NILP (existing_info))
	result = Fcons (list3 (text_encoding, coding_system, charset),

/* Points to the variable `inev' in the function XTread_socket.  It is
   used for passing an input event to the function back from
   Carbon/Apple event handlers.  */
static struct input_event *read_socket_inev = NULL;

Point saved_menu_event_location;

/* Apple Events */
#if USE_CARBON_EVENTS
static Lisp_Object Qhi_command;

{
  remove_drag_handler (window);
}


#if __profile__
void
profiler_exit_proc ()
{
  ProfilerDump ("\pEmacs.prof");

  initialize_applescript ();

  init_apple_event_handler ();

  {
    char **argv;
    int argc = 0;

    /* set up argv array from STR# resource */

		     kEventAttributeNone, &event);
  if (err == noErr)
    {
      Point mouse_pos;

      GetMouse (&mouse_pos);
      LocalToGlobal (&mouse_pos);
      err = SetEventParameter (event, kEventParamMouseLocation, typeQDPoint,
			       sizeof (Point), &mouse_pos);
    }
  if (err == noErr)
    {

    {
      x_raise_frame (pending_autoraise_frame);
      pending_autoraise_frame = 0;
    }

#if !USE_CARBON_EVENTS
  /* Check which frames are still visible.  We do this here because
     there doesn't seem to be any direct notification from the Window
     Manager that the visibility of a window has changed (at least,
     not in all cases).  */

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

int mac_initialized = 0;

void
mac_initialize_display_info ()
{
  struct mac_display_info *dpyinfo = &one_mac_display_info;

  bzero (dpyinfo, sizeof (*dpyinfo));

#ifdef MAC_OSX
  dpyinfo->mac_id_name
    = (char *) xmalloc (SCHARS (Vinvocation_name)

#endif

  dpyinfo->reference_count = 0;
  dpyinfo->resx = 72.0;
  dpyinfo->resy = 72.0;
#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->color_p = CGDisplaySamplesPerPixel (kCGDirectMainDisplay) > 1;
  dpyinfo->n_planes = CGDisplayBitsPerPixel (kCGDirectMainDisplay);
  dpyinfo->height = CGDisplayPixelsHigh (kCGDirectMainDisplay);
  dpyinfo->width = CGDisplayPixelsWide (kCGDirectMainDisplay);
#else
  {
    GDHandle main_device_handle = LMGetMainDevice();

    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;
  }
#endif
  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;
}


static XrmDatabase
mac_make_rdb (xrm_option)
     const char *xrm_option;
{
  XrmDatabase database;

  database = xrm_get_preference_database (NULL);
  if (xrm_option)
    xrm_merge_string_database (database, xrm_option);

  return database;
}

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

  BLOCK_INPUT;

  if (!mac_initialized)
    {
      mac_initialize ();
      mac_initialized = 1;
    }

  if (x_display_list)
    error ("Sorry, this version can only handle one display");

  mac_initialize_display_info ();

  dpyinfo = &one_mac_display_info;

  dpyinfo->xrdb = mac_make_rdb (xrm_option);

  /* Put this display on the chain.  */
  dpyinfo->next = x_display_list;

  UNBLOCK_INPUT;

  return dpyinfo;
}
/* Get rid of display DPYINFO, assuming all frames are already gone.  */

void
x_delete_display (dpyinfo)
     struct mac_display_info *dpyinfo;

#ifdef MAC_OSX
  init_coercion_handler ();

  init_apple_event_handler ();

  if (!inhibit_window_system)
    {
      static const ProcessSerialNumber psn = {0, kCurrentProcess};

      SetFrontProcess (&psn);

83561:dc002877ce12

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

#if __profile__

      Lisp_Object charset_info = XCAR (rest);
      Lisp_Object charset, coding_system, text_encoding;
      Lisp_Object existing_info;

      if (!(CONSP (charset_info)
	    && (charset = XCAR (charset_info),
		STRINGP (charset))
	    && CONSP (XCDR (charset_info))
	    && (text_encoding = XCAR (XCDR (charset_info)),
		INTEGERP (text_encoding))
	    && CONSP (XCDR (XCDR (charset_info)))
	    && (coding_system = XCAR (XCDR (XCDR (charset_info))),
		SYMBOLP (coding_system))))
	continue;

      existing_info = assq_no_quit (text_encoding, result);
      if (NILP (existing_info))
	result = Fcons (list3 (text_encoding, coding_system, charset),

/* Points to the variable `inev' in the function XTread_socket.  It is
   used for passing an input event to the function back from
   Carbon/Apple event handlers.  */
static struct input_event *read_socket_inev = NULL;

/* Whether or not the screen configuration has changed.  */
static int mac_screen_config_changed = 0;

Point saved_menu_event_location;

/* Apple Events */
#if USE_CARBON_EVENTS
static Lisp_Object Qhi_command;

{
  remove_drag_handler (window);
}


static pascal void
mac_handle_dm_notification (event)
     AppleEvent *event;
{
  mac_screen_config_changed = 1;
}

static OSErr
init_dm_notification_handler ()
{
  OSErr err;
  static DMNotificationUPP handle_dm_notificationUPP = NULL;
  ProcessSerialNumber psn;

  if (handle_dm_notificationUPP == NULL)
    handle_dm_notificationUPP =
      NewDMNotificationUPP (mac_handle_dm_notification);

  err = GetCurrentProcess (&psn);
  if (err == noErr)
    err = DMRegisterNotifyProc (handle_dm_notificationUPP, &psn);

  return err;
}

static void
mac_get_screen_info (dpyinfo)
     struct mac_display_info *dpyinfo;
{
#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->color_p = CGDisplaySamplesPerPixel (kCGDirectMainDisplay) > 1;
  dpyinfo->n_planes = CGDisplayBitsPerPixel (kCGDirectMainDisplay);
  {
    CGDisplayErr err;
    CGDisplayCount ndisps;
    CGDirectDisplayID *displays;

    err = CGGetActiveDisplayList (0, NULL, &ndisps);
    if (err == noErr)
      {
	displays = alloca (sizeof (CGDirectDisplayID) * ndisps);
	err = CGGetActiveDisplayList (ndisps, displays, &ndisps);
      }
    if (err == noErr)
      {
	CGRect bounds = CGRectZero;

	while (ndisps-- > 0)
	  bounds = CGRectUnion (bounds, CGDisplayBounds (displays[ndisps]));
	dpyinfo->height = CGRectGetHeight (bounds);
	dpyinfo->width = CGRectGetWidth (bounds);
      }
    else
      {
	dpyinfo->height = CGDisplayPixelsHigh (kCGDirectMainDisplay);
	dpyinfo->width = CGDisplayPixelsWide (kCGDirectMainDisplay);
      }
  }
#else  /* !MAC_OSX */
  {
    GDHandle gdh = GetMainDevice ();
    Rect rect = (**gdh).gdRect;

    dpyinfo->color_p = TestDeviceAttribute (gdh, gdDevType);
    for (dpyinfo->n_planes = 32; dpyinfo->n_planes > 0; dpyinfo->n_planes >>= 1)
      if (HasDepth (gdh, dpyinfo->n_planes, gdDevType, dpyinfo->color_p))
	break;

    for (gdh = DMGetFirstScreenDevice (dmOnlyActiveDisplays); gdh;
	 gdh = DMGetNextScreenDevice (gdh, dmOnlyActiveDisplays))
      UnionRect (&rect, &(**gdh).gdRect, &rect);

    dpyinfo->height = rect.bottom - rect.top;
    dpyinfo->width = rect.right - rect.left;
  }
#endif  /* !MAC_OSX */
}


#if __profile__
void
profiler_exit_proc ()
{
  ProfilerDump ("\pEmacs.prof");

  initialize_applescript ();

  init_apple_event_handler ();

  init_dm_notification_handler ();

  {
    char **argv;
    int argc = 0;

    /* set up argv array from STR# resource */

		     kEventAttributeNone, &event);
  if (err == noErr)
    {
      Point mouse_pos;

      GetGlobalMouse (&mouse_pos);
      err = SetEventParameter (event, kEventParamMouseLocation, typeQDPoint,
			       sizeof (Point), &mouse_pos);
    }
  if (err == noErr)
    {

    {
      x_raise_frame (pending_autoraise_frame);
      pending_autoraise_frame = 0;
    }

  if (mac_screen_config_changed)
    {
      mac_get_screen_info (dpyinfo);
      mac_screen_config_changed = 0;
    }

#if !USE_CARBON_EVENTS
  /* Check which frames are still visible.  We do this here because
     there doesn't seem to be any direct notification from the Window
     Manager that the visibility of a window has changed (at least,
     not in all cases).  */

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

static int mac_initialized = 0;

static XrmDatabase
mac_make_rdb (xrm_option)
     const char *xrm_option;
{
  XrmDatabase database;

  database = xrm_get_preference_database (NULL);
  if (xrm_option)
    xrm_merge_string_database (database, xrm_option);

  return database;
}

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

  BLOCK_INPUT;

  if (!mac_initialized)
    {
      mac_initialize ();
      mac_initialized = 1;
    }

  if (x_display_list)
    error ("Sorry, this version can only handle one display");

  dpyinfo = &one_mac_display_info;
  bzero (dpyinfo, sizeof (*dpyinfo));

#ifdef MAC_OSX
  dpyinfo->mac_id_name
    = (char *) xmalloc (SCHARS (Vinvocation_name)

#endif

  dpyinfo->reference_count = 0;
  dpyinfo->resx = 72.0;
  dpyinfo->resy = 72.0;

  mac_get_screen_info (dpyinfo);

  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;

  dpyinfo->xrdb = mac_make_rdb (xrm_option);

  /* Put this display on the chain.  */
  dpyinfo->next = x_display_list;

  UNBLOCK_INPUT;

  return dpyinfo;
}

/* Get rid of display DPYINFO, assuming all frames are already gone.  */

void
x_delete_display (dpyinfo)
     struct mac_display_info *dpyinfo;

#ifdef MAC_OSX
  init_coercion_handler ();

  init_apple_event_handler ();

  init_dm_notification_handler ();

  if (!inhibit_window_system)
    {
      static const ProcessSerialNumber psn = {0, kCurrentProcess};

      SetFrontProcess (&psn);