comparison src/xterm.c @ 1020:7c2565dd644c

* xterm.c (x_wm_hints): Variable deleted. This has to be per-screen. Duh. * xterm.c (x_wm_set_window_state, x_wm_set_icon_pixmap, x_wm_set_icon_position): Use F->display.x->wm_hints, rather than x_wm_hints. (x_term_init): Don't initialize x_wm_hints here. * xterm.c (x_set_text_property): Properly balance the BLOCK_INPUTs and UNBLOCK_INPUTs. And remember that VALUE is the strin we want to set the name to, not PROPERTY. * xterm.c (x_set_text_property): Define this appropriately for X11R3 and X11R4. * xterm.c (x_set_text_property): Make this take a Lisp_Object string as an argument, rather than a pointer and a length. * xterm.c: Doc fixes. * xterm.c [USG5]: Don't include <sys/types.h>. * xterm.c (x_make_frame_invisible): Instead of calling XWithdraw window, which isn't widely available, write out what it does, since that's not much. (x_iconify_frame): Explicitly perform both the X11R3 and X11R4 methods for iconification; don't use XIconifyWindow, since that's not present in R3. * xterm.c (x_wm_set_size_hint): Don't bother setting the base_width and base_height members; their function is performed just as well by the min_width and min_height members, and if we use XSetNormalHints instead of XSetWMNormalHints, we can be compatible with R3. * xterm.c (x_error_handler): There is no way to invoke the default error handler which works on all versions of X11, so don't bother; call XGetErrorText and print the message ourselves. * xterm.c (x_term_init): Don't use MAXHOSTNAMELEN; this isn't defined on all systems. Since we only use that as an initial guess anyway, it's not very important. * xterm.c (x_set_text_property): New function.

1019:aaa628aaf808

/* This may include sys/types.h, and that somehow loses
   if this is not done before the other system files.  */
#include "xterm.h"

/* Load sys/types.h if not already loaded.
   In some systems loading it twice is suicidal.  */
#ifndef makedev
#include <sys/types.h>
#endif

#ifdef BSD
#include <sys/ioctl.h>
#include <strings.h>

extern Lisp_Object Vcommand_line_args;
char *hostname, *x_id_name;
Lisp_Object invocation_name;

/* These are the current window manager hints.  It seems that
   XSetWMHints, when presented with an unset bit in the `flags' member
   of the hints structure, does not leave the corresponding attribute
   unchanged; rather, it resets that attribute to its default value.
   For example, unless you set the `icon_pixmap' field and the
   `IconPixmapHint' bit, XSetWMHints will forget what your icon pixmap
   was.  This is rather troublesome, since some of the members (for
   example, `input' and `icon_pixmap') want to stay the same
   throughout the execution of Emacs.  So, we keep this structure
   around, just leaving values in it and adding new bits to the mask
   as we go.  */
XWMHints x_wm_hints;

/* This is the X connection that we are using.  */

Display *x_current_display;

/* Frame being updated by update_frame.  */

#endif

void dumpborder ();
static int XTcursor_to ();
static int XTclear_end_of_line ();

/* These hooks are called by update_frame at the beginning and end
   of a frame update.  We record in `updating_frame' the identity
   of the frame being updated, so that the XT... functions do not
   need to take a frame as argument.  Most of the XT... functions

}

/* Handling X errors.  */

/* A handler for SIGPIPE, when it occurs on the X server's connection.
   This basically does an orderly shutdown of Emacs.  */
static SIGTYPE
x_death_handler ()
{
  if (_Xdebug)
    abort ();

  "SetModifierMapping",
  "GetModifierMapping",
  "NoOperation"
};

#define acceptable_x_error_p(type) ((type) == 94)

x_handle_error_gracefully (event)
     XErrorEvent *event;
{

extern int x_converting_selection;
#endif

/* Handle X Errors.  If the error is not traumatic,
   just call error ().  Otherwise print a (hopefully) interesting
   message and quit.

   The arg to Fkill_emacs is an exit status value
   and also prevents any questions.  */

x_error_handler (disp, event)
     Display *disp;
#ifdef HAVE_X11
     XErrorEvent *event;

      else
#endif
#endif
      if (acceptable_x_error_p (event->request_code))
	x_handle_error_gracefully (event);
      else
	_XDefaultError (disp, event);
    }
  else
    {
      disp->flags |= XlibDisplayIOError;
      _XDefaultIOError (disp);
    }
  UNBLOCK_INPUT;

  x_death_handler ();
}

  if (! f->visible)
    return;

  BLOCK_INPUT;
#ifdef HAVE_X11
#if 0
  if (! EQ (Vx_no_window_manager, Qt))
    {
      XUnmapEvent unmap;

      unmap.type = UnmapNotify;
      unmap.window = f->display.x->window_desc;
      unmap.event = DefaultRootWindow (x_current_display);
      unmap.from_configure = False;
      XSendEvent (x_current_display, DefaultRootWindow (x_current_display),
		  False, SubstructureRedirectMask|SubstructureNotifyMask,
		  &unmap);
    }

  /* The new function below does the same as the above code, plus unmapping
     the window.  Sending the event without actually unmapping can make
     the window manager start ignoring the window (i.e., no more title bar,
     icon manager stuff.) */
#endif

  /* New function available with R4 */
  if (! XWithdrawWindow (x_current_display, f->display.x->window_desc,
			 DefaultScreen (x_current_display)))
    {
      UNBLOCK_INPUT_RESIGNAL;
      error ("Can't notify window manager of iconification.");
    }

#else
  XUnmapWindow (XDISPLAY f->display.x->window_desc);

  f->visible = 0;		/* Handled by the UnMap event for X11 */
  if (f->display.x->icon_desc != 0)

  XFlushQueue ();
  UNBLOCK_INPUT;
}

 /* Window manager communication.  Created in Fx_open_connection. */
extern Atom Xatom_wm_change_state;

/* Change window state from mapped to iconified. */

x_iconify_frame (f)

    return;

  BLOCK_INPUT;

#ifdef HAVE_X11
  if (! EQ (Vx_no_window_manager, Qt))
    if (! XIconifyWindow (x_current_display, f->display.x->window_desc,
			  DefaultScreen (x_current_display)))
      {
	UNBLOCK_INPUT_RESIGNAL;
	error ("Can't notify window manager of iconification.");
      }

  f->iconified = 1;
  
#if 0
    {
      XClientMessageEvent message;
    
      message.window = f->display.x->window_desc;
      message.type = ClientMessage;
      message.message_type = Xatom_wm_change_state;
      message.format = 32;
      message.data.l[0] = IconicState;

      if (! XSendEvent (x_current_display,
			DefaultRootWindow (x_current_display),
			False,
			SubstructureRedirectMask | SubstructureNotifyMask,
			&message))
	{
	  UNBLOCK_INPUT_RESIGNAL;
	  error ("Can't notify window manager of iconification.");
	}
    }
#endif
#else /* X10 */
  XUnmapWindow (XDISPLAY f->display.x->window_desc);

  f->visible = 0;		/* Handled in the UnMap event for X11. */
  if (f->display.x->icon_desc != 0)

		       + f->display.x->v_scrollbar_width));
  size_hints.max_height =
    (x_screen_height - ((2 * f->display.x->internal_border_width)
			+ f->display.x->h_scrollbar_height));
  {
    int base_width = ((2 * f->display.x->internal_border_width)
		      + f->display.x->v_scrollbar_width);
    int base_height = ((2 * f->display.x->internal_border_width)
		       + f->display.x->h_scrollbar_height);

#ifdef PBaseSize
    size_hints.flags |= PBaseSize;
    size_hints.base_width = base_width;
    size_hints.base_height = base_height;
#endif

    {
      int min_rows = 0, min_cols = 0;
      check_frame_size (f, &min_rows, &min_cols);
      size_hints.min_width  = base_width  + min_cols * size_hints.width_inc;
      size_hints.min_height = base_height + min_rows * size_hints.height_inc;
    }
  }

  if (prompting)
    size_hints.flags |= prompting;
  else

      if (hints.flags & USPosition)
	size_hints.flags |= USPosition;
      if (hints.flags & USSize)
	size_hints.flags |= USSize;
    }
  
#if 0				/* R3 */
  XSetNormalHints (x_current_display, window, &size_hints);
#endif
  XSetWMNormalHints (x_current_display, window, &size_hints);
}

/* Used for IconicState or NormalState */
x_wm_set_window_state (f, state)
     struct frame *f;
     int state;
{
  Window window = f->display.x->window_desc;

  x_wm_hints.flags |= StateHint;
  x_wm_hints.initial_state = state;

  XSetWMHints (x_current_display, window, &x_wm_hints);
}

x_wm_set_icon_pixmap (f, icon_pixmap)
     struct frame *f;
     Pixmap icon_pixmap;
{
  Window window = f->display.x->window_desc;

  if (icon_pixmap)
    {
      x_wm_hints.flags |= IconPixmapHint;
      x_wm_hints.icon_pixmap = icon_pixmap;
    }
  else
    x_wm_hints.flags &= ~IconPixmapHint;

  XSetWMHints (x_current_display, window, &x_wm_hints);
}

x_wm_set_icon_position (f, icon_x, icon_y)
     struct frame *f;
     int icon_x, icon_y;
{
  Window window = f->display.x->window_desc;

  x_wm_hints.flags |= IconPositionHint;
  x_wm_hints.icon_x = icon_x;
  x_wm_hints.icon_y = icon_y;

  XSetWMHints (x_current_display, window, &x_wm_hints);
}


void
x_term_init (display_name)

    fatal ("X server %s not responding; check the DISPLAY environment variable or use \"-d\"\n",
	   display_name);

#ifdef HAVE_X11
  {
    int hostname_size = MAXHOSTNAMELEN + 1;

    hostname = (char *) xmalloc (hostname_size);

#if 0
    XSetAfterFunction (x_current_display, x_trace_wire);

#ifdef SIGWINCH
  signal (SIGWINCH, SIG_DFL);
#endif /* SIGWINCH */

  signal (SIGPIPE, x_death_handler);

  /* When XSetWMHints eventually gets called, this will indicate that
     we use the "Passive Input" input model.  Unless we do this, we
     don't get the Focus{In,Out} events that we need to draw the
     cursor correctly.  Accursed bureaucrats.

     We set this here and leave it, because we know, being decidedly
     non-humble programmers (nay, weigh'd low by our hubris!), that
     Fx_create_frame calls x_icon which begat x_wm_set_window_state
     which begat XSetWMHints, which will get this information to the
     right parties.

  XWhipsAndChains (x_current_display, IronMaiden, &TheRack);  */

  x_wm_hints.input = True;
  x_wm_hints.flags |= InputHint;
}

void
syms_of_xterm ()
{

1020:7c2565dd644c

/* This may include sys/types.h, and that somehow loses
   if this is not done before the other system files.  */
#include "xterm.h"

#ifndef USG
/* Load sys/types.h if not already loaded.
   In some systems loading it twice is suicidal.  */
#ifndef makedev
#include <sys/types.h>
#endif
#endif

#ifdef BSD
#include <sys/ioctl.h>
#include <strings.h>

extern Lisp_Object Vcommand_line_args;
char *hostname, *x_id_name;
Lisp_Object invocation_name;

/* This is the X connection that we are using.  */

Display *x_current_display;

/* Frame being updated by update_frame.  */

#endif

void dumpborder ();
static int XTcursor_to ();
static int XTclear_end_of_line ();

/* R3/R4 compatibility stuff.  Rah.  */


/* Set the property PROPERTY on the window displaying FRAME to VALUE.
   VALUE must be a string.
   
   We use this function instead of XSetWMName and XStoreName, since
   the former isn't present in R3, while the latter isn't likely to
   stay around.  XChangeProperty, however, is likely to be around.

   I have no idea if this is the right thing to do.  Someone who is more
   hip on how X is supposed to work should let us know if this is wrong.  */

x_set_text_property (f, property, value)
     FRAME_PTR f;
     Atom property;
     Lisp_Object value;
{
  BLOCK_INPUT;

#ifdef HAVE_X11R4
  {
    XTextProperty text;
    text.value = XSTRING (value)->data;
    text.encoding = XA_STRING;
    text.format = 8;
    text.nitems = XSTRING (value)->size;
    switch (property)
      {
      case XA_WM_NAME:
	XSetWMName (x_current_display, f->display.x->window_desc, &text);
	break;
      case XA_WM_ICON_NAME:
	XSetWMIconName (x_current_display, f->display.x->window_desc, &text);
	break;
      default:
	/* If you want to use this function, you have to make sure it supports
	   the atoms you want!  Dummy.  */
	abort ();
      }
  }
#else
  XChangeProperty (x_current_display,
		   f->display.x->window_desc,
		   prop,
		   XA_STRING,	/* type */
		   8,		/* format */
		   PropModeReplace, /* mode */
		   XSTRING (value)->data,
		   XSTRING (value)->size);
#endif

  UNBLOCK_INPUT;
}


/* These hooks are called by update_frame at the beginning and end
   of a frame update.  We record in `updating_frame' the identity
   of the frame being updated, so that the XT... functions do not
   need to take a frame as argument.  Most of the XT... functions

}

/* Handling X errors.  */

/* A handler for SIGPIPE, when it occurs on the X server's connection.
   This basically does an orderly shutdown of Emacs.  The arg to
   Fkill_emacs is an exit status value and also prevents any
   questions.  */

static SIGTYPE
x_death_handler ()
{
  if (_Xdebug)
    abort ();

  "SetModifierMapping",
  "GetModifierMapping",
  "NoOperation"
};

/* 94 is the code for X_CreateGlyphCursor.  The idea is that we
   probably shouldn't let a bad mouse cursor request crash Emacs.
   You'd think we could #include <X11/Xproto.h> and use a symbolic
   constant for this, but that's been commented out above; perhaps
   that file is not available on all systems.  */
#define acceptable_x_error_p(type) ((type) == 94)

x_handle_error_gracefully (event)
     XErrorEvent *event;
{

extern int x_converting_selection;
#endif

/* Handle X Errors.  If the error is not traumatic,
   just call error ().  Otherwise print a (hopefully) interesting
   message and quit.  */
x_error_handler (disp, event)
     Display *disp;
#ifdef HAVE_X11
     XErrorEvent *event;

      else
#endif
#endif
      if (acceptable_x_error_p (event->request_code))
	x_handle_error_gracefully (event);
    }

  {
    char message[80];

    XGetErrorText (disp, event->error_code, message, sizeof (message));
    fprintf (stderr, "Fatal X error:\n%s\n", message);
  }

  UNBLOCK_INPUT;

  x_death_handler ();
}

  if (! f->visible)
    return;

  BLOCK_INPUT;
#ifdef HAVE_X11
  /* It would be nice if we didn't have to be backward compatible with
     very old versions of X, because then we could use the
     XWithdrawWindow function in R4 instead of writing it out ourselves.  */

  /*  Tell the window manager what we've done.  */
  if (! EQ (Vx_no_window_manager, Qt))
    {
      XEvent unmap;

      unmap.xunmap.type = UnmapNotify;
      unmap.xunmap.window = f->display.x->window_desc;
      unmap.xunmap.event = DefaultRootWindow (x_current_display);
      unmap.xunmap.from_configure = False;
      if (! XSendEvent (x_current_display,
			DefaultRootWindow (x_current_display),
			False,
			SubstructureRedirectMask|SubstructureNotifyMask,
			&unmap))
	{
	  UNBLOCK_INPUT_RESIGNAL;
	  error ("can't notify window manager of withdrawal");
	}
    }

  /* Unmap the window ourselves.  Cheeky!  */
  XUnmapWindow (x_current_display, f->display.x->window_desc);
#else
  XUnmapWindow (XDISPLAY f->display.x->window_desc);

  f->visible = 0;		/* Handled by the UnMap event for X11 */
  if (f->display.x->icon_desc != 0)

  XFlushQueue ();
  UNBLOCK_INPUT;
}

/* Window manager communication.  Created in Fx_open_connection. */
extern Atom Xatom_wm_change_state;

/* Change window state from mapped to iconified. */

x_iconify_frame (f)

    return;

  BLOCK_INPUT;

#ifdef HAVE_X11
  /* Since we don't know which revision of X we're running, we'll use both
     the X11R3 and X11R4 techniques.  I don't know if this is a good idea.  */

  /* X11R4: send a ClientMessage to the window manager using the
     WM_CHANGE_STATE type.  */
  {
    XEvent message;
    
    message.xclient.window = f->display.x->window_desc;
    message.xclient.type = ClientMessage;
    message.xclient.message_type = Xatom_wm_change_state;
    message.xclient.format = 32;
    message.xclient.data.l[0] = IconicState;

    if (! XSendEvent (x_current_display,
		      DefaultRootWindow (x_current_display),
		      False,
		      SubstructureRedirectMask | SubstructureNotifyMask,
		      &message))
      {
	UNBLOCK_INPUT_RESIGNAL;
	error ("Can't notify window manager of iconification.");
      }
  }

  /* X11R3: set the initial_state field of the window manager hints to 
     IconicState.  */
  x_wm_set_window_state (f, IconicState);

  f->iconified = 1;
#else /* X10 */
  XUnmapWindow (XDISPLAY f->display.x->window_desc);

  f->visible = 0;		/* Handled in the UnMap event for X11. */
  if (f->display.x->icon_desc != 0)

		       + f->display.x->v_scrollbar_width));
  size_hints.max_height =
    (x_screen_height - ((2 * f->display.x->internal_border_width)
			+ f->display.x->h_scrollbar_height));
  {
    int min_rows = 0, min_cols = 0;
    check_frame_size (f, &min_rows, &min_cols);
    size_hints.min_width  = ((2 * f->display.x->internal_border_width)
			     + min_cols * size_hints.width_inc
			     + f->display.x->v_scrollbar_width);
    size_hints.min_height = ((2 * f->display.x->internal_border_width)
			     + min_rows * size_hints.height_inc
			     + f->display.x->h_scrollbar_height);

  }

  if (prompting)
    size_hints.flags |= prompting;
  else

      if (hints.flags & USPosition)
	size_hints.flags |= USPosition;
      if (hints.flags & USSize)
	size_hints.flags |= USSize;
    }

  XSetNormalHints (x_current_display, window, &size_hints);
}

/* Used for IconicState or NormalState */
x_wm_set_window_state (f, state)
     struct frame *f;
     int state;
{
  Window window = f->display.x->window_desc;

  f->display.x->wm_hints.flags |= StateHint;
  f->display.x->wm_hints.initial_state = state;

  XSetWMHints (x_current_display, window, &f->display.x->wm_hints);
}

x_wm_set_icon_pixmap (f, icon_pixmap)
     struct frame *f;
     Pixmap icon_pixmap;
{
  Window window = f->display.x->window_desc;

  f->display.x->wm_hints.flags |= IconPixmapHint;
  f->display.x->wm_hints.icon_pixmap = icon_pixmap ? icon_pixmap : None;

  XSetWMHints (x_current_display, window, &f->display.x->wm_hints);
}

x_wm_set_icon_position (f, icon_x, icon_y)
     struct frame *f;
     int icon_x, icon_y;
{
  Window window = f->display.x->window_desc;

  f->display.x->wm_hints.flags |= IconPositionHint;
  f->display.x->wm_hints.icon_x = icon_x;
  f->display.x->wm_hints.icon_y = icon_y;

  XSetWMHints (x_current_display, window, &f->display.x->wm_hints);
}


void
x_term_init (display_name)

    fatal ("X server %s not responding; check the DISPLAY environment variable or use \"-d\"\n",
	   display_name);

#ifdef HAVE_X11
  {
    int hostname_size = 256;

    hostname = (char *) xmalloc (hostname_size);

#if 0
    XSetAfterFunction (x_current_display, x_trace_wire);

#ifdef SIGWINCH
  signal (SIGWINCH, SIG_DFL);
#endif /* SIGWINCH */

  signal (SIGPIPE, x_death_handler);
}

void
syms_of_xterm ()
{