comparison src/xterm.c @ 5825:b1f35db748d8

(x_make_frame_invisible): Add USE_X_TOOLKIT conditional.

5824:afd275dcec54

#include <signal.h>

#include <config.h>

/* Need syssignal.h for various externs and definitions that may be required
 * by some configurations for calls to signal() later in this source file.
 */
#include "syssignal.h"

#ifdef HAVE_X_WINDOWS

#include "lisp.h"

/* Make audible bell.  */

#ifdef HAVE_X11
#define XRINGBELL XBell(x_current_display, 0)
#else /* ! defined (HAVE_X11) */
#define XRINGBELL XFeep(0);
#endif /* ! defined (HAVE_X11) */

XTring_bell ()
{
  if (x_current_display == 0)

	   /* This trick allows us to search both the ordinary and
              condemned scroll bar lists with one loop.  */
	   ! GC_NILP (bar) || (bar = condemned,
			       condemned = Qnil,
			       ! GC_NILP (bar));
	   bar = XSCROLL_BAR(bar)->next)
	if (SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)) == window_id)
	  return XSCROLL_BAR (bar);
    }

  return 0;

   Calling x_check_errors signals an Emacs error if an X error has
   occurred since the last call to x_catch_errors or x_check_errors.

   Calling x_uncatch_errors resumes the normal error handling.  */

void x_catch_errors(), x_check_errors (), x_uncatch_errors ();

void
x_catch_errors ()
{
  /* Make sure any errors from previous requests have been dealt with.  */

      XSetFont (x_current_display, f->display.x->reverse_gc,
		f->display.x->font->fid);
      XSetFont (x_current_display, f->display.x->cursor_gc,
		f->display.x->font->fid);

      x_set_window_size (f, f->width, f->height);
    }

  {
    Lisp_Object lispy_name = build_string (fontname);

    XLoseFont (f->display.x->font);

  f->display.x->font = temp;

  if (FRAME_X_WINDOW (f) != 0)
    x_set_window_size (f, f->width, f->height);

  return 0;
}
#endif /* ! defined (HAVE_X11) */


#else /* not USE_X_TOOLKIT */
  XMoveWindow (XDISPLAY FRAME_X_WINDOW (f),
	       f->display.x->left_pos, f->display.x->top_pos);
#endif /* not USE_X_TOOLKIT */
#ifdef HAVE_X11
  x_wm_set_size_hint (f, 0, xoff, yoff);
#endif /* ! defined (HAVE_X11) */
  UNBLOCK_INPUT;
}

/* Call this to change the size of frame F's x-window. */

x_set_window_size (f, cols, rows)
     struct frame *f;
     int cols, rows;
{
  int pixelwidth, pixelheight;
  int mask;

       : 0);
  pixelwidth = CHAR_TO_PIXEL_WIDTH (f, cols);
  pixelheight = CHAR_TO_PIXEL_HEIGHT (f, rows);

#ifdef HAVE_X11
  x_wm_set_size_hint (f, 0, 0, 0);
#endif /* ! defined (HAVE_X11) */
  XChangeWindowSize (FRAME_X_WINDOW (f), pixelwidth, pixelheight);

  /* Now, strictly speaking, we can't be sure that this is accurate,
     but the window manager will get around to dealing with the size

  BLOCK_INPUT;

#ifdef HAVE_X11R4

  if (! XWithdrawWindow (x_current_display, FRAME_X_WINDOW (f),
			 DefaultScreen (x_current_display)))
    {
      UNBLOCK_INPUT_RESIGNAL;
      error ("can't notify window manager of window withdrawal");
    }

  if (! EQ (Vx_no_window_manager, Qt))
    {
      XEvent unmap;

      unmap.xunmap.type = UnmapNotify;
      unmap.xunmap.window = FRAME_X_WINDOW (f);
      unmap.xunmap.event = DefaultRootWindow (x_current_display);
      unmap.xunmap.from_configure = False;
      if (! XSendEvent (x_current_display,
			DefaultRootWindow (x_current_display),
			False,

	  error ("can't notify window manager of withdrawal");
	}
    }

  /* Unmap the window ourselves.  Cheeky!  */
  XUnmapWindow (x_current_display, FRAME_X_WINDOW (f));

#else /* ! defined (HAVE_X11) */

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

    return;

#ifdef USE_X_TOOLKIT
  BLOCK_INPUT;
  result = XIconifyWindow (x_current_display,
			   XtWindow(f->display.x->widget),
			   DefaultScreen (x_current_display));
  UNBLOCK_INPUT;

  if (!result)
    error ("Can't notify window manager of iconification.");


/* Setting window manager hints.  */

#ifdef HAVE_X11

/* SPEC_X and SPEC_Y are the specified positions.
   We look only at their sign, to decide the gravity.  */

x_wm_set_size_hint (f, prompting, spec_x, spec_y)
     struct frame *f;
     long prompting;
     int spec_x, spec_y;
{
  XSizeHints size_hints;

#ifdef USE_X_TOOLKIT
  Window window = XtWindow(f->display.x->widget);
#else /* not USE_X_TOOLKIT */
  Window window = FRAME_X_WINDOW (f);
#endif /* not USE_X_TOOLKIT */

  size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */;

	size_hints.flags |= USPosition;
      if (hints.flags & USSize)
	size_hints.flags |= USSize;
    }
#if defined (PWinGravity)
  switch (((spec_x < 0) << 1) + (spec_y < 0))
    {
    case 0:
      size_hints.win_gravity = NorthWestGravity;
      break;
    case 1:
      size_hints.win_gravity = NorthEastGravity;
      break;
    case 2:
      size_hints.win_gravity = SouthWestGravity;
      break;
    case 3:
      size_hints.win_gravity = SouthEastGravity;
      break;
    }
  size_hints.flags |= PWinGravity;
#endif /* PWinGravity */

#ifdef HAVE_X11R4
  XSetWMNormalHints (x_current_display, window, &size_hints);

x_wm_set_window_state (f, state)
     struct frame *f;
     int state;
{
#ifdef USE_X_TOOLKIT
  Window window = XtWindow(f->display.x->widget);
#else /* not USE_X_TOOLKIT */
  Window window = FRAME_X_WINDOW (f);
#endif /* not USE_X_TOOLKIT */

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

  argv [0] = "";
  argv [1] = "-display";
  argv [2] = display_name;
  argc = 3;
  Xt_app_shell = XtAppInitialize (&Xt_app_con, "Emacs",
				  emacs_options, XtNumber(emacs_options),
				  &argc, argv,
				  NULL, NULL, 0);
  XtFree (argv);
  x_current_display = XtDisplay (Xt_app_shell);

5825:b1f35db748d8

#include <signal.h>

#include <config.h>

/* Need syssignal.h for various externs and definitions that may be required
   by some configurations for calls to signal later in this source file.  */
#include "syssignal.h"

#ifdef HAVE_X_WINDOWS

#include "lisp.h"

/* Make audible bell.  */

#ifdef HAVE_X11
#define XRINGBELL XBell (x_current_display, 0)
#else /* ! defined (HAVE_X11) */
#define XRINGBELL XFeep (0);
#endif /* ! defined (HAVE_X11) */

XTring_bell ()
{
  if (x_current_display == 0)

	   /* This trick allows us to search both the ordinary and
              condemned scroll bar lists with one loop.  */
	   ! GC_NILP (bar) || (bar = condemned,
			       condemned = Qnil,
			       ! GC_NILP (bar));
	   bar = XSCROLL_BAR (bar)->next)
	if (SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)) == window_id)
	  return XSCROLL_BAR (bar);
    }

  return 0;

   Calling x_check_errors signals an Emacs error if an X error has
   occurred since the last call to x_catch_errors or x_check_errors.

   Calling x_uncatch_errors resumes the normal error handling.  */

void x_catch_errors (), x_check_errors (), x_uncatch_errors ();

void
x_catch_errors ()
{
  /* Make sure any errors from previous requests have been dealt with.  */

      XSetFont (x_current_display, f->display.x->reverse_gc,
		f->display.x->font->fid);
      XSetFont (x_current_display, f->display.x->cursor_gc,
		f->display.x->font->fid);

      x_set_window_size (f, 0, f->width, f->height);
    }

  {
    Lisp_Object lispy_name = build_string (fontname);

    XLoseFont (f->display.x->font);

  f->display.x->font = temp;

  if (FRAME_X_WINDOW (f) != 0)
    x_set_window_size (f, 0, f->width, f->height);

  return 0;
}
#endif /* ! defined (HAVE_X11) */


#else /* not USE_X_TOOLKIT */
  XMoveWindow (XDISPLAY FRAME_X_WINDOW (f),
	       f->display.x->left_pos, f->display.x->top_pos);
#endif /* not USE_X_TOOLKIT */
#ifdef HAVE_X11
  x_wm_set_size_hint (f, 0, 1, xoff, yoff);
#endif /* ! defined (HAVE_X11) */
  UNBLOCK_INPUT;
}

/* Call this to change the size of frame F's x-window.
   If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity
   for this size change and subsequent size changes.
   Otherwise we leave the window gravity unchanged.  */

x_set_window_size (f, change_gravity, cols, rows)
     struct frame *f;
     int change_gravity;
     int cols, rows;
{
  int pixelwidth, pixelheight;
  int mask;

       : 0);
  pixelwidth = CHAR_TO_PIXEL_WIDTH (f, cols);
  pixelheight = CHAR_TO_PIXEL_HEIGHT (f, rows);

#ifdef HAVE_X11
  x_wm_set_size_hint (f, 0, change_gravity, 0, 0);
#endif /* ! defined (HAVE_X11) */
  XChangeWindowSize (FRAME_X_WINDOW (f), pixelwidth, pixelheight);

  /* Now, strictly speaking, we can't be sure that this is accurate,
     but the window manager will get around to dealing with the size

  BLOCK_INPUT;

#ifdef HAVE_X11R4

#ifdef USE_X_TOOLKIT
  if (! XWithdrawWindow (x_current_display, XtWindow (f->display.x->widget),
			 DefaultScreen (x_current_display)))
#else /* not USE_X_TOOLKIT */
  if (! XWithdrawWindow (x_current_display, FRAME_X_WINDOW (f),
			 DefaultScreen (x_current_display)))
#endif /* not USE_X_TOOLKIT */
    {
      UNBLOCK_INPUT_RESIGNAL;
      error ("can't notify window manager of window withdrawal");
    }

  if (! EQ (Vx_no_window_manager, Qt))
    {
      XEvent unmap;

      unmap.xunmap.type = UnmapNotify;
#ifdef USE_X_TOOLKIT
      unmap.xunmap.window = XtWindow (f->display.x->widget);
#else /* not USE_X_TOOLKIT */
      unmap.xunmap.window = FRAME_X_WINDOW (f);
#endif /* not USE_X_TOOLKIT */
      unmap.xunmap.event = DefaultRootWindow (x_current_display);
      unmap.xunmap.from_configure = False;
      if (! XSendEvent (x_current_display,
			DefaultRootWindow (x_current_display),
			False,

	  error ("can't notify window manager of withdrawal");
	}
    }

  /* Unmap the window ourselves.  Cheeky!  */
#ifdef USE_X_TOOLKIT
  XUnmapWindow (x_current_display, XtWindow (f->display.x->widget));
#else /* not USE_X_TOOLKIT */
  XUnmapWindow (x_current_display, FRAME_X_WINDOW (f));
#endif /* not USE_X_TOOLKIT */
#else /* ! defined (HAVE_X11) */

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

    return;

#ifdef USE_X_TOOLKIT
  BLOCK_INPUT;
  result = XIconifyWindow (x_current_display,
			   XtWindow (f->display.x->widget),
			   DefaultScreen (x_current_display));
  UNBLOCK_INPUT;

  if (!result)
    error ("Can't notify window manager of iconification.");


/* Setting window manager hints.  */

#ifdef HAVE_X11

/* Record the gravity used previously, in case CHANGE_GRAVITY is 0.  */
static int previous_gravity;

/* SPEC_X and SPEC_Y are the specified positions.
   We look only at their sign, to decide the gravity.
   If CHANGE_GRAVITY is 0, we ignore SPEC_X and SPEC_Y
   and leave the gravity unchanged.  */

x_wm_set_size_hint (f, prompting, change_gravity, spec_x, spec_y)
     struct frame *f;
     long prompting;
     int change_gravity;
     int spec_x, spec_y;
{
  XSizeHints size_hints;

#ifdef USE_X_TOOLKIT
  Window window = XtWindow (f->display.x->widget);
#else /* not USE_X_TOOLKIT */
  Window window = FRAME_X_WINDOW (f);
#endif /* not USE_X_TOOLKIT */

  size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */;

	size_hints.flags |= USPosition;
      if (hints.flags & USSize)
	size_hints.flags |= USSize;
    }
#if defined (PWinGravity)
  if (change_gravity)
    {
      switch (((spec_x < 0) << 1) + (spec_y < 0))
	{
	case 0:
	  size_hints.win_gravity = NorthWestGravity;
	  break;
	case 1:
	  size_hints.win_gravity = NorthEastGravity;
	  break;
	case 2:
	  size_hints.win_gravity = SouthWestGravity;
	  break;
	case 3:
	  size_hints.win_gravity = SouthEastGravity;
	  break;
	}
      previous_gravity = size_hints.win_gravity;
    }
  else
    size_hints.win_gravity = previous_gravity;

  size_hints.flags |= PWinGravity;
#endif /* PWinGravity */

#ifdef HAVE_X11R4
  XSetWMNormalHints (x_current_display, window, &size_hints);

x_wm_set_window_state (f, state)
     struct frame *f;
     int state;
{
#ifdef USE_X_TOOLKIT
  Window window = XtWindow (f->display.x->widget);
#else /* not USE_X_TOOLKIT */
  Window window = FRAME_X_WINDOW (f);
#endif /* not USE_X_TOOLKIT */

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

  argv [0] = "";
  argv [1] = "-display";
  argv [2] = display_name;
  argc = 3;
  Xt_app_shell = XtAppInitialize (&Xt_app_con, "Emacs",
				  emacs_options, XtNumber (emacs_options),
				  &argc, argv,
				  NULL, NULL, 0);
  XtFree (argv);
  x_current_display = XtDisplay (Xt_app_shell);