Mercurial > hg > xemacs-beta

comparison src/gutter.h @ 422:95016f13131a r21-2-19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents
children 11054d720c21
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
1 /* Define general gutter support.
2 Copyright (C) 1999 Andy Piper.
3
4 This file is part of XEmacs.
5
6 XEmacs is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any
9 later version.
10
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with XEmacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
20
21 /* Synched up with: Not in FSF. */
22
23 #ifndef _XEMACS_GUTTER_H_
24 #define _XEMACS_GUTTER_H_
25
26 #include "specifier.h"
27
28 #define DEVICE_SUPPORTS_GUTTERS_P(d) \
29 (HAS_DEVMETH_P ((d), output_frame_gutters))
30
31 DECLARE_SPECIFIER_TYPE (gutter);
32 #define XGUTTER_SPECIFIER(x) XSPECIFIER_TYPE (x, gutter)
33 #define XSETGUTTER_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, gutter)
34 #define GUTTER_SPECIFIERP(x) SPECIFIER_TYPEP (x, gutter)
35 #define CHECK_GUTTER_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, gutter)
36 #define CONCHECK_GUTTER_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, gutter)
37
38 #define DEFAULT_GUTTER_WIDTH 40
39 #define DEFAULT_GUTTER_BORDER_WIDTH 2
40
41 enum gutter_pos
42 {
43 TOP_GUTTER,
44 BOTTOM_GUTTER,
45 LEFT_GUTTER,
46 RIGHT_GUTTER
47 };
48
49 extern Lisp_Object Qgutter;
50
51 extern Lisp_Object Vgutter_size[4];
52 extern Lisp_Object Vgutter_border_width[4];
53 void update_frame_gutters (struct frame *f);
54 void init_frame_gutters (struct frame *f);
55 void init_device_gutters (struct device *d);
56 void init_global_gutters (struct device *d);
57 void free_frame_gutters (struct frame *f);
58 void redraw_exposed_gutters (struct frame *f, int x, int y, int width,
59 int height);
60
61 #define WINDOW_GUTTER_BORDER_WIDTH(w, pos) \
62 (NILP ((w)->gutter_border_width[pos]) ? 0 : XINT ((w)->gutter_border_width[pos]))
63 #define WINDOW_GUTTER_SIZE(w, pos) \
64 (NILP ((w)->gutter_size[pos]) ? 0 : XINT ((w)->gutter_size[pos]))
65 #define WINDOW_GUTTER_SIZE_INTERNAL(w, pos) \
66 (NILP ((w)->real_gutter_size[pos]) ? 0 : XINT ((w)->real_gutter_size[pos]))
67 #define WINDOW_GUTTER_VISIBLE(w, pos) \
68 ((w)->gutter_visible_p[pos])
69 #define WINDOW_GUTTER(w, pos) \
70 ((w)->gutter[pos])
71
72 #define WINDOW_REAL_GUTTER_SIZE(w, pos) \
73 (!NILP (WINDOW_GUTTER_VISIBLE (w, pos)) \
74 ? WINDOW_GUTTER_SIZE_INTERNAL (w, pos) \
75 : 0)
76 #define WINDOW_REAL_GUTTER_VISIBLE(f, pos) \
77 (WINDOW_REAL_GUTTER_SIZE (f, pos) > 0)
78 #define WINDOW_REAL_GUTTER_BORDER_WIDTH(f, pos) \
79 ((!NILP (WINDOW_GUTTER_VISIBLE (f, pos)) \
80 && WINDOW_GUTTER_SIZE_INTERNAL (f,pos) > 0) \
81 ? WINDOW_GUTTER_BORDER_WIDTH (f, pos) \
82 : 0)
83 #define WINDOW_REAL_GUTTER_BOUNDS(f, pos) \
84 (WINDOW_REAL_GUTTER_SIZE (f,pos) + \
85 2 * WINDOW_REAL_GUTTER_BORDER_WIDTH (f,pos))
86
87 /* these macros predicate size on position and type of window */
88 #define WINDOW_REAL_TOP_GUTTER_BOUNDS(w) \
89 ((!MINI_WINDOW_P (w) && window_is_highest (w)) ? \
90 WINDOW_REAL_GUTTER_BOUNDS (w,TOP_GUTTER) : 0)
91 #define WINDOW_REAL_BOTTOM_GUTTER_BOUNDS(w) \
92 ((!MINI_WINDOW_P (w) && window_is_lowest (w)) ? \
93 WINDOW_REAL_GUTTER_BOUNDS (w,BOTTOM_GUTTER) : 0)
94 #define WINDOW_REAL_LEFT_GUTTER_BOUNDS(w) \
95 ((!MINI_WINDOW_P (w) && window_is_leftmost (w)) ? \
96 WINDOW_REAL_GUTTER_BOUNDS (w,LEFT_GUTTER) : 0)
97 #define WINDOW_REAL_RIGHT_GUTTER_BOUNDS(w) \
98 ((!MINI_WINDOW_P (w) && window_is_rightmost (w)) ? \
99 WINDOW_REAL_GUTTER_BOUNDS (w,RIGHT_GUTTER) : 0)
100
101 #define FRAME_GUTTER_VISIBLE(f, pos) \
102 WINDOW_REAL_GUTTER_VISIBLE (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), pos)
103 #define FRAME_GUTTER_SIZE(f, pos) \
104 WINDOW_REAL_GUTTER_SIZE (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), pos)
105 #define FRAME_GUTTER_BOUNDS(f, pos) \
106 WINDOW_REAL_GUTTER_BOUNDS (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), pos)
107 #define FRAME_GUTTER_BORDER_WIDTH(f, pos) \
108 WINDOW_REAL_GUTTER_BORDER_WIDTH (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), pos)
109
110 #define FRAME_GUTTER(f, pos) \
111 WINDOW_GUTTER (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), pos)
112
113 /* these macros predicate size on position and type of window */
114 #define FRAME_TOP_GUTTER_BOUNDS(f) \
115 WINDOW_REAL_GUTTER_BOUNDS (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), TOP_GUTTER)
116 #define FRAME_BOTTOM_GUTTER_BOUNDS(f) \
117 WINDOW_REAL_GUTTER_BOUNDS (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), BOTTOM_GUTTER)
118 #define FRAME_LEFT_GUTTER_BOUNDS(f) \
119 WINDOW_REAL_GUTTER_BOUNDS (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), LEFT_GUTTER)
120 #define FRAME_RIGHT_GUTTER_BOUNDS(f) \
121 WINDOW_REAL_GUTTER_BOUNDS (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)), RIGHT_GUTTER)
122
123 #endif /* _XEMACS_GUTTER_H_ */