comparison src/xterm.c @ 52752:751a01f97570

Make (modify-frame-parameters nil '((top . 0))) work for all types of window managers in X.

52751:5a2170a28c60

static void x_scroll_bar_report_motion P_ ((struct frame **, Lisp_Object *,
					    enum scroll_bar_part *,
					    Lisp_Object *, Lisp_Object *,
					    unsigned long *));
static void x_check_fullscreen P_ ((struct frame *));
static void x_check_fullscreen_move P_ ((struct frame *));
static int handle_one_xevent P_ ((struct x_display_info *,
                                  XEvent *,
                                  struct input_event **,
                                  int *,
                                  int *));

          int x, y;
          f->output_data.x->parent_desc = event.xreparent.parent;
          x_real_positions (f, &x, &y);
          f->left_pos = x;
          f->top_pos = y;
        }
      goto OTHER;
      break;

    case Expose:

            {
	      /* What we have now is the position of Emacs's own window.
		 Convert that to the position of the window manager window.  */
	      x_real_positions (f, &f->left_pos, &f->top_pos);

	      x_check_fullscreen_move (f);
	      if (f->want_fullscreen & FULLSCREEN_WAIT)
		f->want_fullscreen &= ~(FULLSCREEN_WAIT|FULLSCREEN_BOTH);
            }

#ifdef HAVE_X_I18N

  BLOCK_INPUT;
  x_wm_set_size_hint (f, (long) 0, 0);

  modified_left = f->left_pos;
  modified_top = f->top_pos;
  modified_left += FRAME_X_OUTPUT (f)->x_pixels_outer_diff;
  modified_top += FRAME_X_OUTPUT (f)->y_pixels_outer_diff;

#if 0 /* Running on psilocin (Debian), and displaying on the NCD X-terminal,
	 this seems to be unnecessary and incorrect.  rms, 4/17/97.  */
  /* It is a mystery why we need to add the border_width here
     when the frame is already visible, but experiment says we do.  */

      modified_left += f->border_width;
      modified_top += f->border_width;
    }
#endif

  XMoveWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f),
               modified_left, modified_top);
  UNBLOCK_INPUT;
}

/* Check if we need to resize the frame due to a fullscreen request.
   If so needed, resize the frame. */

      x_fullscreen_adjust (f, &width, &height, &ign, &ign);

      /* We do not need to move the window, it shall be taken care of
         when setting WM manager hints.
         If the frame is visible already, the position is checked by
         x_check_fullscreen_move. */
      if (FRAME_COLS (f) != width || FRAME_LINES (f) != height)
        {
          change_frame_size (f, height, width, 0, 1, 0);
          SET_FRAME_GARBAGED (f);
          cancel_mouse_face (f);

        }
    }
}

/* If frame parameters are set after the frame is mapped, we need to move
   the window.  This is done in xfns.c.
   Some window managers moves the window to the right position, some
   moves the outer window manager window to the specified position.
   Here we check that we are in the right spot.  If not, make a second
   move, assuming we are dealing with the second kind of window manager. */
static void
x_check_fullscreen_move (f)
     struct frame *f;
{
  if (f->want_fullscreen & FULLSCREEN_MOVE_WAIT)
  {
    int expect_top = f->top_pos;
    int expect_left = f->left_pos;

    if (f->want_fullscreen & FULLSCREEN_HEIGHT)
      expect_top = 0;
    if (f->want_fullscreen & FULLSCREEN_WIDTH)
      expect_left = 0;

    if (expect_top != f->top_pos || expect_left != f->left_pos)
      x_set_offset (f, expect_left, expect_top, 1);

    /* Just do this once */
    f->want_fullscreen &= ~FULLSCREEN_MOVE_WAIT;
  }
}


/* Change the size of frame F's X window to COLS/ROWS in the case F

  dpyinfo->mouse_face_hidden = 0;
  dpyinfo->x_focus_frame = 0;
  dpyinfo->x_focus_event_frame = 0;
  dpyinfo->x_highlight_frame = 0;
  dpyinfo->image_cache = make_image_cache ();

  /* See if we can construct pixel values from RGB values.  */
  dpyinfo->red_bits = dpyinfo->blue_bits = dpyinfo->green_bits = 0;
  dpyinfo->red_offset = dpyinfo->blue_offset = dpyinfo->green_offset = 0;

52752:751a01f97570

static void x_scroll_bar_report_motion P_ ((struct frame **, Lisp_Object *,
					    enum scroll_bar_part *,
					    Lisp_Object *, Lisp_Object *,
					    unsigned long *));
static void x_check_fullscreen P_ ((struct frame *));
static void x_check_expected_move P_ ((struct frame *));
static int handle_one_xevent P_ ((struct x_display_info *,
                                  XEvent *,
                                  struct input_event **,
                                  int *,
                                  int *));

          int x, y;
          f->output_data.x->parent_desc = event.xreparent.parent;
          x_real_positions (f, &x, &y);
          f->left_pos = x;
          f->top_pos = y;

          /* Perhaps reparented due to a WM restart.  Reset this.  */
          FRAME_X_DISPLAY_INFO (f)->wm_type = X_WMTYPE_UNKNOWN;
        }
      goto OTHER;
      break;

    case Expose:

            {
	      /* What we have now is the position of Emacs's own window.
		 Convert that to the position of the window manager window.  */
	      x_real_positions (f, &f->left_pos, &f->top_pos);

	      x_check_expected_move (f);
	      if (f->want_fullscreen & FULLSCREEN_WAIT)
		f->want_fullscreen &= ~(FULLSCREEN_WAIT|FULLSCREEN_BOTH);
            }

#ifdef HAVE_X_I18N

  BLOCK_INPUT;
  x_wm_set_size_hint (f, (long) 0, 0);

  modified_left = f->left_pos;
  modified_top = f->top_pos;

#if 0 /* Running on psilocin (Debian), and displaying on the NCD X-terminal,
	 this seems to be unnecessary and incorrect.  rms, 4/17/97.  */
  /* It is a mystery why we need to add the border_width here
     when the frame is already visible, but experiment says we do.  */

      modified_left += f->border_width;
      modified_top += f->border_width;
    }
#endif

  if (FRAME_X_DISPLAY_INFO (f)->wm_type == X_WMTYPE_A)
    {
      modified_left += FRAME_X_OUTPUT (f)->x_pixels_outer_diff;
      modified_top += FRAME_X_OUTPUT (f)->y_pixels_outer_diff;
    }

  XMoveWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f),
               modified_left, modified_top);

  if (FRAME_VISIBLE_P (f)
      && FRAME_X_DISPLAY_INFO (f)->wm_type == X_WMTYPE_UNKNOWN)
    {
      FRAME_X_OUTPUT (f)->check_expected_move = 1;
      FRAME_X_OUTPUT (f)->expected_top = f->top_pos;
      FRAME_X_OUTPUT (f)->expected_left = f->left_pos;
    }

  UNBLOCK_INPUT;
}

/* Check if we need to resize the frame due to a fullscreen request.
   If so needed, resize the frame. */

      x_fullscreen_adjust (f, &width, &height, &ign, &ign);

      /* We do not need to move the window, it shall be taken care of
         when setting WM manager hints.
         If the frame is visible already, the position is checked by
         x_check_expected_move. */
      if (FRAME_COLS (f) != width || FRAME_LINES (f) != height)
        {
          change_frame_size (f, height, width, 0, 1, 0);
          SET_FRAME_GARBAGED (f);
          cancel_mouse_face (f);

        }
    }
}

/* If frame parameters are set after the frame is mapped, we need to move
   the window.
   Some window managers moves the window to the right position, some
   moves the outer window manager window to the specified position.
   Here we check that we are in the right spot.  If not, make a second
   move, assuming we are dealing with the second kind of window manager. */
static void
x_check_expected_move (f)
     struct frame *f;
{
  if (FRAME_X_OUTPUT (f)->check_expected_move)
  {
    int expect_top = FRAME_X_OUTPUT (f)->expected_top;
    int expect_left = FRAME_X_OUTPUT (f)->expected_left;
    
    if (expect_top != f->top_pos || expect_left != f->left_pos)
      {
        if (FRAME_X_DISPLAY_INFO (f)->wm_type == X_WMTYPE_UNKNOWN)
          FRAME_X_DISPLAY_INFO (f)->wm_type = X_WMTYPE_A;
        x_set_offset (f, expect_left, expect_top, 1);
      }
    else if (FRAME_X_DISPLAY_INFO (f)->wm_type == X_WMTYPE_UNKNOWN)
      FRAME_X_DISPLAY_INFO (f)->wm_type = X_WMTYPE_B;

    /* Just do this once */
    FRAME_X_OUTPUT (f)->check_expected_move = 0;
  }
}


/* Change the size of frame F's X window to COLS/ROWS in the case F

  dpyinfo->mouse_face_hidden = 0;
  dpyinfo->x_focus_frame = 0;
  dpyinfo->x_focus_event_frame = 0;
  dpyinfo->x_highlight_frame = 0;
  dpyinfo->image_cache = make_image_cache ();
  dpyinfo->wm_type = X_WMTYPE_UNKNOWN;

  /* See if we can construct pixel values from RGB values.  */
  dpyinfo->red_bits = dpyinfo->blue_bits = dpyinfo->green_bits = 0;
  dpyinfo->red_offset = dpyinfo->blue_offset = dpyinfo->green_offset = 0;