comparison src/macterm.h @ 83556:07774e5c3ff5

Merged from [e-mail] Patches applied: * [e-mail]/emacs--devo--0--patch-619 Update from CVS * [e-mail]/emacs--devo--0--patch-620 Update from CVS * [e-mail]/emacs--devo--0--patch-621 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-622 Update from CVS * [e-mail]/emacs--devo--0--patch-623 Remove RCS keywords * [e-mail]/emacs--devo--0--patch-624 Update from CVS * [e-mail]/emacs--devo--0--patch-625 Update from CVS * [e-mail]/emacs--devo--0--patch-626 Update from CVS * [e-mail]/emacs--devo--0--patch-627 Update from CVS * [e-mail]/emacs--devo--0--patch-628 Update from CVS * [e-mail]/emacs--devo--0--patch-629 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-630 Update from CVS * [e-mail]/emacs--devo--0--patch-631 Update from CVS * [e-mail]/emacs--devo--0--patch-632 Update from CVS * [e-mail]/emacs--devo--0--patch-633 Update from CVS * [e-mail]/emacs--devo--0--patch-634 Update from CVS * [e-mail]/emacs--devo--0--patch-635 Update from CVS * [e-mail]/emacs--devo--0--patch-636 Update from CVS * [e-mail]/emacs--devo--0--patch-637 Remove RCS keywords * [e-mail]/emacs--devo--0--patch-638 Update from CVS * [e-mail]/emacs--devo--0--patch-639 Update from CVS * [e-mail]/emacs--devo--0--patch-640 Update from CVS * [e-mail]/emacs--devo--0--patch-641 Update from CVS * [e-mail]/emacs--devo--0--patch-642 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-643 Update from CVS * [e-mail]/emacs--devo--0--patch-644 Update from CVS * [e-mail]/emacs--devo--0--patch-645 Update from CVS * [e-mail]/emacs--devo--0--patch-646 Update from CVS * [e-mail]/emacs--devo--0--patch-647 Update from CVS * [e-mail]/emacs--devo--0--patch-648 Update from CVS * [e-mail]/emacs--devo--0--patch-649 Update from CVS * [e-mail]/gnus--rel--5.10--patch-197 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-198 Update from CVS * [e-mail]/gnus--rel--5.10--patch-199 Update from CVS * [e-mail]/gnus--rel--5.10--patch-200 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-201 Update from CVS: lisp/nnweb.el (nnweb-google-parse-1): Update parser. * [e-mail]/gnus--rel--5.10--patch-202 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-596

83555:053bf1a38bfa

   one for each element of x_display_list and in the same order.
   NAME is the name of the frame.
   FONT-LIST-CACHE records previous values returned by x-list-fonts.  */
extern Lisp_Object x_display_name_list;

extern struct x_display_info *x_display_info_for_display P_ ((Display *));
extern struct x_display_info *x_display_info_for_name P_ ((Lisp_Object));

extern struct mac_display_info *mac_term_init P_ ((Lisp_Object, char *, char *));

extern Lisp_Object x_list_fonts P_ ((struct frame *, Lisp_Object, int, int));

  Lisp_Object window;

  /* The next and previous in the chain of scroll bars in this frame.  */
  Lisp_Object next, prev;

  /* The Mac control handle of this scroll bar.  Since this is a full
     32-bit quantity, we store it split into two 32-bit values.  */
  Lisp_Object control_handle_low, control_handle_high;

  /* The position and size of the scroll bar in pixels, relative to the
     frame.  */
  Lisp_Object top, left, width, height;

     different co-ordinate system.  */
  Lisp_Object start, end;

  /* If the scroll bar handle is currently being dragged by the user,
     this is the number of pixels from the top of the handle to the
     place where the user grabbed it.  If the handle isn't currently
     being dragged, this is Qnil.  */
  Lisp_Object dragging;

#ifdef USE_TOOLKIT_SCROLL_BARS
  /* The position and size of the scroll bar handle track area in
     pixels, relative to the frame.  */
  Lisp_Object track_top, track_height;
#endif
};

/* The number of elements a vector holding a struct scroll_bar needs.  */
#define SCROLL_BAR_VEC_SIZE					\

/* Turning a lisp vector value into a pointer to a struct scroll_bar.  */
#define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec))


/* Building a 32-bit C integer from two 16-bit lisp integers.  */
#define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low))

/* Setting two lisp integers to the low and high words of a 32-bit C int.  */
#define SCROLL_BAR_UNPACK(low, high, int32) \
  (XSETINT ((low),   (int32)        & 0xffff), \
   XSETINT ((high), ((int32) >> 16) & 0xffff))


/* Extract the Mac control handle of the scroll bar from a struct
   scroll_bar.  */
#define SCROLL_BAR_CONTROL_HANDLE(ptr) \
  ((ControlHandle) SCROLL_BAR_PACK ((ptr)->control_handle_low, \
                                    (ptr)->control_handle_high))

/* Store a Mac control handle in a struct scroll_bar.  */
#define SET_SCROLL_BAR_CONTROL_HANDLE(ptr, id) \
  (SCROLL_BAR_UNPACK ((ptr)->control_handle_low, \
                      (ptr)->control_handle_high, (int) id))

/* Return the inside width of a vertical scroll bar, given the outside
   width.  */
#define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f, width) \
  ((width) \

83556:07774e5c3ff5

   one for each element of x_display_list and in the same order.
   NAME is the name of the frame.
   FONT-LIST-CACHE records previous values returned by x-list-fonts.  */
extern Lisp_Object x_display_name_list;

extern struct x_display_info *x_display_info_for_name P_ ((Lisp_Object));

extern struct mac_display_info *mac_term_init P_ ((Lisp_Object, char *, char *));

extern Lisp_Object x_list_fonts P_ ((struct frame *, Lisp_Object, int, int));

  Lisp_Object window;

  /* The next and previous in the chain of scroll bars in this frame.  */
  Lisp_Object next, prev;

  /* The Mac control handle of this scroll bar.  Since this is a
     pointer value, we store it split into two Lisp integers.  */
  Lisp_Object control_handle_low, control_handle_high;

  /* The position and size of the scroll bar in pixels, relative to the
     frame.  */
  Lisp_Object top, left, width, height;

     different co-ordinate system.  */
  Lisp_Object start, end;

  /* If the scroll bar handle is currently being dragged by the user,
     this is the number of pixels from the top of the handle to the
     place where the user grabbed it.  If the handle is pressed but
     not dragged yet, this is a negative integer whose absolute value
     is the number of pixels plus 1.  If the handle isn't currently
     being dragged, this is Qnil.  */
  Lisp_Object dragging;

#ifdef USE_TOOLKIT_SCROLL_BARS
  /* The position and size of the scroll bar handle track area in
     pixels, relative to the frame.  */
  Lisp_Object track_top, track_height;

  /* Minimum length of the scroll bar handle, in pixels.  */
  Lisp_Object min_handle;
#endif
};

/* The number of elements a vector holding a struct scroll_bar needs.  */
#define SCROLL_BAR_VEC_SIZE					\

/* Turning a lisp vector value into a pointer to a struct scroll_bar.  */
#define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec))


/* Building a C long integer from two lisp integers.  */
#define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low))

/* Setting two lisp integers to two parts of a C unsigned long.  */
#define SCROLL_BAR_UNPACK(low, high, ulong) \
  (XSETINT ((low),  (ulong) & 0xffff), \
   XSETINT ((high), (ulong) >> 16))


/* Extract the Mac control handle of the scroll bar from a struct
   scroll_bar.  */
#define SCROLL_BAR_CONTROL_HANDLE(ptr) \
  ((ControlHandle) SCROLL_BAR_PACK ((ptr)->control_handle_low, \
                                    (ptr)->control_handle_high))

/* Store a Mac control handle in a struct scroll_bar.  */
#define SET_SCROLL_BAR_CONTROL_HANDLE(ptr, handle) \
  (SCROLL_BAR_UNPACK ((ptr)->control_handle_low, \
                      (ptr)->control_handle_high, (unsigned long) (handle)))

/* Return the inside width of a vertical scroll bar, given the outside
   width.  */
#define VERTICAL_SCROLL_BAR_INSIDE_WIDTH(f, width) \
  ((width) \