Mercurial > hg > xemacs-beta
diff src/toolbar.h @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:45:50 +0200 |
parents | |
children | e45d5e7c476e |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/toolbar.h Mon Aug 13 08:45:50 2007 +0200 @@ -0,0 +1,127 @@ +/* Define general toolbar support. + Copyright (C) 1995 Board of Trustees, University of Illinois. + Copyright (C) 1995, 1996 Ben Wing. + Copyright (C) 1996 Chuck Thompson. + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in FSF. */ + +#ifndef _XEMACS_TOOLBAR_H_ +#define _XEMACS_TOOLBAR_H_ + +#include "specifier.h" + +#ifdef HAVE_TOOLBARS + +/* There are 4 of these per frame. They don't really need to be an + lrecord (they're not lisp-accessible) but it makes marking slightly + more modular. */ +struct toolbar_data +{ + struct lcrecord_header header; + + /* The last buffer for which the toolbars were displayed. */ + Lisp_Object last_toolbar_buffer; + + /* The actual buttons are chained through this. */ + Lisp_Object toolbar_buttons; +}; + +DECLARE_LRECORD (toolbar_data, struct toolbar_data); +#define XTOOLBAR_DATA(x) XRECORD (x, toolbar_data, struct toolbar_data) +#define XSETTOOLBAR_DATA(x, p) XSETRECORD (x, p, toolbar_data) +#define TOOLBAR_DATAP(x) RECORDP (x, toolbar_data) +#define GC_TOOLBAR_DATAP(x) GC_RECORDP (x, toolbar_data) +#define CHECK_TOOLBAR_DATA(x) CHECK_RECORD (x, toolbar_data) +#define CONCHECK_TOOLBAR_DATA(x) CONCHECK_RECORD (x, toolbar_data) + +#define FRAME_TOOLBAR_DATA(frame, position) \ + (XTOOLBAR_DATA ((frame)->toolbar_data[position])) +#define FRAME_TOOLBAR_BUFFER(frame, position) \ + (XTOOLBAR_DATA ((frame)->toolbar_data[position])->last_toolbar_buffer) + +/* These are chained together through toolbar_buttons in struct + toolbar_data. These don't need to be an lrecord either, but again, + it makes marking easier. */ +struct toolbar_button +{ + struct lcrecord_header header; + + Lisp_Object next; + Lisp_Object frame; + + Lisp_Object up_glyph; + Lisp_Object down_glyph; + Lisp_Object disabled_glyph; + + Lisp_Object cap_up_glyph; + Lisp_Object cap_down_glyph; + Lisp_Object cap_disabled_glyph; + + Lisp_Object callback; + Lisp_Object enabled_p; + Lisp_Object help_string; + + char enabled; + char down; + char pushright; + char blank; + + int x, y; + int width, height; + int dirty; +}; + +DECLARE_LRECORD (toolbar_button, struct toolbar_button); +#define XTOOLBAR_BUTTON(x) XRECORD (x, toolbar_button, struct toolbar_button) +#define XSETTOOLBAR_BUTTON(x, p) XSETRECORD (x, p, toolbar_button) +#define TOOLBAR_BUTTONP(x) RECORDP (x, toolbar_button) +#define GC_TOOLBAR_BUTTONP(x) GC_RECORDP (x, toolbar_button) +#define CHECK_TOOLBAR_BUTTON(x) CHECK_RECORD (x, toolbar_button) +#define CONCHECK_TOOLBAR_BUTTON(x) CONCHECK_RECORD (x, toolbar_button) + +extern void get_toolbar_coords (struct frame *f, enum toolbar_pos pos, int *x, + int *y, int *width, int *height, int *vert, + int for_layout); +extern Lisp_Object toolbar_button_at_pixpos (struct frame *f, int x_coord, + int y_coord); +DECLARE_SPECIFIER_TYPE (toolbar); +#define XTOOLBAR_SPECIFIER(x) XSPECIFIER_TYPE (x, toolbar) +#define XSETTOOLBAR_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, toolbar) +#define TOOLBAR_SPECIFIERP(x) SPECIFIER_TYPEP (x, toolbar) +#define CHECK_TOOLBAR_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, toolbar) +#define CONCHECK_TOOLBAR_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, toolbar) + +#define DEFAULT_TOOLBAR_HEIGHT 37 +#define DEFAULT_TOOLBAR_WIDTH 40 +#define DEFAULT_TOOLBAR_BLANK_SIZE 8 +#define MINIMUM_SHADOW_THICKNESS 2 + +extern Lisp_Object Vtoolbar_size[4]; +void update_frame_toolbars (struct frame *f); +void init_frame_toolbars (struct frame *f); +void init_device_toolbars (struct device *d); +void init_global_toolbars (struct device *d); +void free_frame_toolbars (struct frame *f); +Lisp_Object get_toolbar_button_glyph (struct window *w, + struct toolbar_button *tb); + +#endif /* HAVE_TOOLBARS */ + +#endif /* _XEMACS_TOOLBAR_H_ */