comparison src/window.c @ 44535:ee637a721e86

(window_part): Add ON_LEFT_MARGIN, ON_RIGHT_MARGIN. (Qleft_margin, Qright_margin): Declare. (coordinates_in_window, (Fcoordinates_in_window_p): Deal with margins.

44534:733b2505ca59

/* Window creation, deletion and examination for GNU Emacs.
   Does not include redisplay.
   Copyright (C) 1985,86,87,93,94,95,96,97,1998,2000, 2001
   Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify

  ON_TEXT,
  ON_MODE_LINE,
  ON_VERTICAL_BORDER,
  ON_HEADER_LINE,
  ON_LEFT_FRINGE,
  ON_RIGHT_FRINGE
};


Lisp_Object Qwindowp, Qwindow_live_p, Qwindow_configuration_p;
Lisp_Object Qwindow_size_fixed;
extern Lisp_Object Qheight, Qwidth;

static int displayed_window_lines P_ ((struct window *));
static struct window *decode_window P_ ((Lisp_Object));
static Lisp_Object select_window_1 P_ ((Lisp_Object, int));

   if it is on the window's modeline, return 2;
   if it is on the border between the window and its right sibling,
      return 3.
   if it is on the window's top line, return 4;
   if it is in left or right fringe of the window,
   return 5 or 6, and convert *X and *Y to window-relative corrdinates.

   X and Y are frame relative pixel coordinates.  */

static enum window_part
coordinates_in_window (w, x, y)

	  *y -= top_y;
	  part = *x < left_x ? ON_LEFT_FRINGE : ON_RIGHT_FRINGE;
	}
      else
	{
	  *x -= left_x;
	  *y -= top_y;
	  part = ON_TEXT;
	}
    }
  else
    {
      /* Need to say "*x > right_x" rather than >=, since on character

	     this area begins at RIGHT_X minus a canonical char width.  */
	  part = ON_VERTICAL_BORDER;
	}
      else
	{
	  /* Convert X and Y to window-relative pixel coordinates.  */
	  *x -= left_x;
	  *y -= top_y;
	  part = ON_TEXT;
	}
    }

  return part;
}

If they are in the mode line of WINDOW, `mode-line' is returned.
If they are in the top mode line of WINDOW, `header-line' is returned.
If they are in the left fringe of WINDOW, `left-fringe' is returned.
If they are in the right fringe of WINDOW, `right-fringe' is returned.
If they are on the border between WINDOW and its right sibling,
  `vertical-line' is returned.  */)
     (coordinates, window)
     register Lisp_Object coordinates, window;
{
  struct window *w;
  struct frame *f;

    case ON_LEFT_FRINGE:
      return Qleft_fringe;
      
    case ON_RIGHT_FRINGE:
      return Qright_fringe;

    default:
      abort ();
    }
}

44535:ee637a721e86

/* Window creation, deletion and examination for GNU Emacs.
   Does not include redisplay.
   Copyright (C) 1985,86,87,93,94,95,96,97,1998,2000, 2001, 2002
   Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify

  ON_TEXT,
  ON_MODE_LINE,
  ON_VERTICAL_BORDER,
  ON_HEADER_LINE,
  ON_LEFT_FRINGE,
  ON_RIGHT_FRINGE,
  ON_LEFT_MARGIN,
  ON_RIGHT_MARGIN
};


Lisp_Object Qwindowp, Qwindow_live_p, Qwindow_configuration_p;
Lisp_Object Qwindow_size_fixed;
extern Lisp_Object Qleft_margin, Qright_margin;
extern Lisp_Object Qheight, Qwidth;

static int displayed_window_lines P_ ((struct window *));
static struct window *decode_window P_ ((Lisp_Object));
static Lisp_Object select_window_1 P_ ((Lisp_Object, int));

   if it is on the window's modeline, return 2;
   if it is on the border between the window and its right sibling,
      return 3.
   if it is on the window's top line, return 4;
   if it is in left or right fringe of the window,
   return 5 or 6, and convert *X and *Y to window-relative coordinates;
   if it is in the marginal area to the left/right of the window,
   return 7 or 8, and convert *X and *Y to window-relative coordinates.

   X and Y are frame relative pixel coordinates.  */

static enum window_part
coordinates_in_window (w, x, y)

	  *y -= top_y;
	  part = *x < left_x ? ON_LEFT_FRINGE : ON_RIGHT_FRINGE;
	}
      else
	{
	  if (*x <= window_box_right (w, LEFT_MARGIN_AREA))
	    part = ON_LEFT_MARGIN;
	  else if (*x >= window_box_left (w, RIGHT_MARGIN_AREA))
	    part = ON_RIGHT_MARGIN;
	  else
	    {
	      part = ON_TEXT;
	      *x -= left_x;
	      *y -= top_y;
	    }
	}
    }
  else
    {
      /* Need to say "*x > right_x" rather than >=, since on character

	     this area begins at RIGHT_X minus a canonical char width.  */
	  part = ON_VERTICAL_BORDER;
	}
      else
	{
	  if (*x <= window_box_right (w, LEFT_MARGIN_AREA))
	    part = ON_LEFT_MARGIN;
	  else if (*x >= window_box_left (w, RIGHT_MARGIN_AREA))
	    part = ON_RIGHT_MARGIN;
	  else
	    {
	      part = ON_TEXT;
	      /* Convert X and Y to window-relative pixel coordinates.  */
	      *x -= left_x;
	      *y -= top_y;
	    }
	}
    }

  return part;
}

If they are in the mode line of WINDOW, `mode-line' is returned.
If they are in the top mode line of WINDOW, `header-line' is returned.
If they are in the left fringe of WINDOW, `left-fringe' is returned.
If they are in the right fringe of WINDOW, `right-fringe' is returned.
If they are on the border between WINDOW and its right sibling,
  `vertical-line' is returned.
If they are in the windows's left or right marginal areas, `left-margin'\n\
  or `right-margin' is returned.  */)
     (coordinates, window)
     register Lisp_Object coordinates, window;
{
  struct window *w;
  struct frame *f;

    case ON_LEFT_FRINGE:
      return Qleft_fringe;
      
    case ON_RIGHT_FRINGE:
      return Qright_fringe;

    case ON_LEFT_MARGIN:
      return Qleft_margin;
      
    case ON_RIGHT_MARGIN:
      return Qright_margin;

    default:
      abort ();
    }
}