annotate src/balloon_help.c @ 136:b980b6286996 r20-2b2

Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 34a5b81f86ba
children 43dd3413c7c7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
1 /* Balloon Help
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
2 Copyright (c) 1997 Douglas Keller
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
3
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
4 This file is part of XEmacs.
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
5
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
6 XEmacs is free software; you can redistribute it and/or modify it
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
7 under the terms of the GNU General Public License as published by the
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
8 Free Software Foundation; either version 2, or (at your option) any
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
9 later version.
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
10
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
14 for more details.
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
15
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
16 You should have received a copy of the GNU General Public License
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
17 along with XEmacs; see the file COPYING. If not, write to
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
19 Boston, MA 02111-1307, USA. */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
20
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
21 /* Synched up with: Not in FSF. */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
22
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
23 /*
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
24 * Balloon Help
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
25 *
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
26 * Version: 1.337 (Sun Apr 13 04:52:10 1997)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
27 *
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
28 * Written by Douglas Keller <dkeller@vnet.ibm.com>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
29 *
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
30 *
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
31 */
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
32
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
33 #include <string.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
34 #include <stdio.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
35 #include <stdlib.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
36 #include <assert.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
37
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
38 #include <X11/Xlib.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
39 #include <X11/Xutil.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
40 #include <X11/extensions/shape.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
41
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
42 #include <X11/Intrinsic.h>
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
43
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
44 #include "balloon_help.h"
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
45
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
46 #define max(x,y) (x>y?x:y)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
47
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
48 #undef bool
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
49 #define bool int
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
50
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
51 #define MARGIN_WIDTH 4
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
52 #define POINTER_OFFSET 8
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
53 #define BORDER_WIDTH 2
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
54 #define BORDER_WIDTH_HALF 1
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
55
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
56 #define CONE_HEIGHT 20
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
57 #define CONE_WIDTH 50
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
58
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
59 #define SHAPE_CONE_TOP (1<<0)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
60 #define SHAPE_CONE_LEFT (1<<1)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
61 #define SHAPE_CONE_TOP_LEFT (SHAPE_CONE_TOP | SHAPE_CONE_LEFT)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
62 #define SHAPE_CONE_TOP_RIGHT (SHAPE_CONE_TOP)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
63 #define SHAPE_CONE_BOTTOM_LEFT (SHAPE_CONE_LEFT)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
64 #define SHAPE_CONE_BOTTOM_RIGHT (0)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
65 #define SHAPE_CONE_FREE (-1)
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
66
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
67
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
68 static Display* b_dpy;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
69
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
70 static XFontStruct* b_fontStruct;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
71 static GC b_gc;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
72
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
73 static GC b_shineGC;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
74 static GC b_shadowGC;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
75
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
76 static Window b_win;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
77 static bool b_winMapped;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
78
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
79 static Pixmap b_mask;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
80 static int b_maskWidth, b_maskHeight;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
81 static GC b_maskGC;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
82
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
83 static const char* b_text;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
84 static int b_width, b_height;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
85
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
86 static int b_lastX, b_lastY;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
87
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
88 static XtIntervalId b_timer;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
89 static unsigned long b_delay;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
90
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
91 static int b_screenWidth, b_screenHeight;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
92
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
93 static int b_lastShape;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
94
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
95 /*============================================================================
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
96
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
97 ============================================================================*/
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
98
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
99 static GC
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
100 create_gc (Display* dpy, Window win, unsigned long fg, unsigned long bg,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
101 XFontStruct* fontStruct)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
102 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
103 XGCValues gcv;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
104 unsigned long mask;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
105
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
106 gcv.foreground = fg;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
107 gcv.background = bg;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
108 gcv.font = fontStruct->fid;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
109 gcv.join_style = JoinMiter;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
110 gcv.line_width = BORDER_WIDTH;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
111
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
112 mask = GCFont | GCBackground | GCForeground | GCJoinStyle | GCLineWidth;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
113
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
114 return XCreateGC (dpy, win, mask, &gcv);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
115 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
116
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
117 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
118 destroy_gc (Display* dpy, GC gc)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
119 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
120 if (gc)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
121 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
122 XFreeGC (dpy, gc);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
123 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
124 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
125
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
126 /*============================================================================
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
127
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
128 ============================================================================*/
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
129
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
130 static Window
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
131 create_window (Display* dpy, unsigned long bg)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
132 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
133 Window win;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
134 XSetWindowAttributes attr;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
135 unsigned long attr_mask;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
136
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
137 attr_mask = CWOverrideRedirect | CWBackPixel | CWSaveUnder;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
138 attr.override_redirect = True;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
139 attr.background_pixel = bg;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
140 attr.save_under = True;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
141
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
142 win =
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
143 XCreateWindow (dpy,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
144 DefaultRootWindow (dpy),
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
145 0, 0, 1, 1,
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
146 0,
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
147 CopyFromParent, InputOutput, CopyFromParent,
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
148 attr_mask, &attr);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
149
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
150 XSelectInput (dpy, win,
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
151 SubstructureRedirectMask |
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
152 SubstructureNotifyMask |
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
153 ExposureMask |
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
154 EnterWindowMask |
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
155 LeaveWindowMask);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
156 return win;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
157 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
158
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
159 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
160 destroy_window (Display* dpy, Window win)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
161 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
162 if (win)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
163 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
164 XDestroyWindow (dpy, win);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
165 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
166 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
167
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
168 /*============================================================================
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
169
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
170 ============================================================================*/
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
171
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
172 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
173 get_pointer_xy (Display* dpy, int* x_return, int* y_return)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
174 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
175 int dummy;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
176 unsigned int mask;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
177 Window dummy_win;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
178
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
179 XQueryPointer (dpy, RootWindow(dpy, DefaultScreen(dpy)), &dummy_win, &dummy_win,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
180 x_return, y_return, &dummy, &dummy, &mask);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
181 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
182
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
183 /*============================================================================
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
184
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
185 ============================================================================*/
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
186
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
187 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
188 create_pixmap_mask (int width, int height)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
189 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
190 b_maskWidth = width;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
191 b_maskHeight = height;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
192 b_mask = XCreatePixmap (b_dpy, b_win, width, height, 1);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
193 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
194
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
195 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
196 destroy_pixmap_mask(void)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
197 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
198 XFreePixmap (b_dpy, b_mask);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
199 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
200
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
201 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
202 grow_pixmap_mask (int width, int height)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
203 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
204 if (width > b_maskWidth || height > b_maskHeight)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
205 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
206 destroy_pixmap_mask ();
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
207 create_pixmap_mask (width, height);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
208 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
209 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
210
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
211 /*============================================================================
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
212
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
213 ============================================================================*/
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
214
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
215 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
216 text_extent (XFontStruct* fontStruct, const char* text, int len,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
217 int* width, int* height)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
218 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
219 XCharStruct extent;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
220 int dummy;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
221
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
222 XTextExtents (fontStruct, text, len, &dummy, &dummy, &dummy, &extent);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
223
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
224 *width = extent.width;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
225 *height = fontStruct->ascent + fontStruct->descent;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
226 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
227
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
228 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
229 get_text_size (Display* dpy, XFontStruct* fontStruct, const char* text,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
230 int* max_width, int* max_height)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
231 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
232 int width;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
233 int height;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
234 const char* start;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
235 const char* end;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
236
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
237 *max_width = *max_height = 0;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
238
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
239 start = text;
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
240 while ((end = strchr(start, '\n')))
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
241 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
242 text_extent (fontStruct, start, end - start, &width, &height);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
243 *max_width = max (width, *max_width);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
244 *max_height += height;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
245
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
246 start = end + 1;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
247 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
248 text_extent (fontStruct, start, strlen (start), &width, &height);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
249 *max_width = max (width, *max_width);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
250 *max_height += height;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
251
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
252 /* Min width */
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
253 *max_width = max (*max_width, CONE_WIDTH / 2 * 3);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
254
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
255 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
256
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
257 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
258 draw_text (Display* dpy, Window win, GC gc, XFontStruct* fontStruct,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
259 int x, int y, const char* text)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
260 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
261 const char* start;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
262 const char* end;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
263 int font_height;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
264
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
265 y += fontStruct->ascent;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
266
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
267 font_height = fontStruct->ascent + fontStruct->descent;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
268
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
269 start = text;
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
270 while ((end = strchr(start, '\n')))
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
271 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
272 XDrawString (dpy, win, gc, x, y, start, end - start);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
273
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
274 start = end + 1;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
275 y += font_height;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
276 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
277 XDrawString (dpy, win, gc, x, y, start, strlen (start));
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
278 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
279
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
280 /*============================================================================
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
281
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
282 ============================================================================*/
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
283
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
284 static int
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
285 get_shape (int last_shape, int x, int y, int width, int height,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
286 int screen_width, int screen_height)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
287 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
288 /* Can we use last_shape */
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
289 if (SHAPE_CONE_TOP_LEFT == last_shape)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
290 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
291 if ((x + width < screen_width) && (y + height < screen_height))
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
292 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
293 return last_shape;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
294 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
295 }
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
296 else if (SHAPE_CONE_TOP_RIGHT == last_shape)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
297 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
298 if ((x - width > 0) && (y + height < screen_height))
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
299 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
300 return last_shape;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
301 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
302 }
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
303 else if (SHAPE_CONE_BOTTOM_LEFT == last_shape)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
304 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
305 if ((x + width < screen_width) && (y - height > 0))
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
306 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
307 return last_shape;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
308 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
309 }
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
310 else if (SHAPE_CONE_BOTTOM_RIGHT == last_shape)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
311 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
312 if ((x - width > 0) && (y - height > 0))
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
313 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
314 return last_shape;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
315 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
316 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
317
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
318 /* Try to pick a shape that will not get changed, ie if top left quadrant, top_left */
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
319 if (x < screen_width / 2)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
320 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
321 if (y < screen_height / 2)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
322 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
323 return SHAPE_CONE_TOP_LEFT;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
324 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
325 else
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
326 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
327 return SHAPE_CONE_BOTTOM_LEFT;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
328 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
329 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
330 else
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
331 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
332 if (y < screen_height / 2)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
333 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
334 return SHAPE_CONE_TOP_RIGHT;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
335 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
336 else
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
337 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
338 return SHAPE_CONE_BOTTOM_RIGHT;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
339 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
340 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
341
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
342 /* ### if width or height is greater than 1/2 the width or height then we might
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
343 run off the screen */
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
344
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
345 abort ();
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
346
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
347 return 0;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
348 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
349
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
350 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
351 make_mask (int shape, int x, int y, int width, int height)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
352 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
353 XPoint cone[ 3 ];
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
354
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
355 grow_pixmap_mask (width, height);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
356
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
357 /* Clear mask */
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
358 XSetForeground (b_dpy, b_maskGC, 0);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
359 XFillRectangle (b_dpy, b_mask, b_maskGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
360 0, 0, width, height);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
361
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
362 /* Enable text area */
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
363 XSetForeground (b_dpy, b_maskGC, 1);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
364 XFillRectangle (b_dpy, b_mask, b_maskGC, 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
365 shape & SHAPE_CONE_TOP ? CONE_HEIGHT : 0, width, height - CONE_HEIGHT);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
366
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
367 /* Enable for cone area */
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
368 cone[0].x = (shape & SHAPE_CONE_LEFT) ? CONE_WIDTH / 2 : width - (CONE_WIDTH / 2);
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
369 cone[0].y = (shape & SHAPE_CONE_TOP) ? CONE_HEIGHT : height - CONE_HEIGHT;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
370 cone[1].x = (shape & SHAPE_CONE_LEFT) ? 0 : width;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
371 cone[1].y = (shape & SHAPE_CONE_TOP) ? 0 : height;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
372 cone[2].x = (shape & SHAPE_CONE_LEFT) ? CONE_WIDTH : width - CONE_WIDTH;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
373 cone[2].y = (shape & SHAPE_CONE_TOP) ? CONE_HEIGHT : height - CONE_HEIGHT;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
374
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
375 XFillPolygon (b_dpy, b_mask, b_maskGC, cone, 3, Nonconvex, CoordModeOrigin);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
376
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
377 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
378
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
379 static void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
380 show_help (XtPointer data, XtIntervalId* id)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
381 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
382 int x, y;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
383 int shape;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
384 XPoint border[ 3 ];
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
385
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
386 if (id == NULL || (id && b_timer) && b_text)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
387 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
388 b_timer = None;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
389
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
390 /* size */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
391 get_text_size (b_dpy, b_fontStruct, b_text, &b_width, &b_height);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
392 b_width += 2 * MARGIN_WIDTH + 2 * BORDER_WIDTH;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
393 b_height += 2 * MARGIN_WIDTH + 2 * BORDER_WIDTH + CONE_HEIGHT;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
394
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
395 /* origin */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
396 get_pointer_xy (b_dpy, &x, &y);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
397
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
398 /* guess at shape */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
399 shape = get_shape(b_lastShape, x, y, b_width, b_height,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
400 b_screenWidth, b_screenHeight);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
401
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
402 x += (shape & SHAPE_CONE_LEFT) ? POINTER_OFFSET : -POINTER_OFFSET;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
403 y += (shape & SHAPE_CONE_TOP) ? POINTER_OFFSET : -POINTER_OFFSET;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
404
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
405 /* make sure it is still ok with offset */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
406 shape = get_shape (shape, x, y, b_width, b_height, b_screenWidth, b_screenHeight);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
407
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
408 b_lastX = x;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
409 b_lastY = y;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
410 b_lastShape = shape;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
411
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
412
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
413 make_mask (shape, x, y, b_width, b_height);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
414
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
415 XShapeCombineMask (b_dpy, b_win, ShapeBounding, 0, 0, b_mask, ShapeSet);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
416
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
417 XMoveResizeWindow(b_dpy, b_win,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
418 (shape & SHAPE_CONE_LEFT) ? x : x - b_width,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
419 (shape & SHAPE_CONE_TOP) ? y : y - b_height,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
420 b_width, b_height);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
421
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
422 XClearWindow (b_dpy, b_win);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
423
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
424 XMapRaised (b_dpy, b_win);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
425 b_winMapped = True;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
426
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
427 draw_text (b_dpy, b_win, b_gc, b_fontStruct,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
428 BORDER_WIDTH + MARGIN_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
429 BORDER_WIDTH + MARGIN_WIDTH + ((shape & SHAPE_CONE_TOP) ? CONE_HEIGHT : 0),
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
430 b_text);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
431
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
432 /* 3d border */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
433 /* shine- top left */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
434 border[0].x = 0 + BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
435 border[0].y = ((shape & SHAPE_CONE_TOP) ? b_height : b_height - CONE_HEIGHT) - BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
436 border[1].x = 0 + BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
437 border[1].y = ((shape & SHAPE_CONE_TOP) ? CONE_HEIGHT : 0) + BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
438 border[2].x = b_width - BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
439 border[2].y = border[1].y;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
440 XDrawLines (b_dpy, b_win, b_shineGC, border, 3, CoordModeOrigin);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
441
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
442 /* shadow- bottom right */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
443 border[0].x = 0 + BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
444 border[0].y = ((shape & SHAPE_CONE_TOP) ? b_height : b_height - CONE_HEIGHT) - BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
445 border[1].x = b_width - BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
446 border[1].y = border[0].y;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
447 border[2].x = b_width - BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
448 border[2].y = ((shape & SHAPE_CONE_TOP) ? CONE_HEIGHT : 0) + BORDER_WIDTH_HALF;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
449 XDrawLines (b_dpy, b_win, b_shadowGC, border, 3, CoordModeOrigin);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
450
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
451 /* cone */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
452 if (SHAPE_CONE_TOP_LEFT == shape)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
453 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
454 XClearArea (b_dpy, b_win,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
455 CONE_WIDTH / 2 + BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
456 CONE_HEIGHT,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
457 CONE_WIDTH / 2 - BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
458 BORDER_WIDTH, False);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
459 XDrawLine (b_dpy, b_win, b_shadowGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
460 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
461 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
462 CONE_WIDTH / 2 + BORDER_WIDTH_HALF,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
463 CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
464 XDrawLine (b_dpy, b_win, b_shineGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
465 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
466 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
467 CONE_WIDTH - BORDER_WIDTH_HALF,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
468 CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
469 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
470 else if (SHAPE_CONE_TOP_RIGHT == shape)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
471 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
472 XClearArea (b_dpy, b_win,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
473 b_width - CONE_WIDTH + BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
474 CONE_HEIGHT,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
475 CONE_WIDTH / 2 - BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
476 BORDER_WIDTH, False);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
477 XDrawLine (b_dpy, b_win, b_shadowGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
478 b_width,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
479 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
480 b_width - CONE_WIDTH / 2 - BORDER_WIDTH_HALF,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
481 CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
482 XDrawLine (b_dpy, b_win, b_shineGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
483 b_width,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
484 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
485 b_width - CONE_WIDTH + BORDER_WIDTH_HALF,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
486 CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
487 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
488 else if (SHAPE_CONE_BOTTOM_LEFT == shape)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
489 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
490 XClearArea (b_dpy, b_win,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
491 CONE_WIDTH / 2 + BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
492 b_height - CONE_HEIGHT - BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
493 CONE_WIDTH / 2 - BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
494 BORDER_WIDTH, False);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
495 XDrawLine (b_dpy, b_win, b_shadowGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
496 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
497 b_height - 1,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
498 CONE_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
499 b_height - 1 - CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
500 XDrawLine (b_dpy, b_win, b_shineGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
501 0,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
502 b_height - 1,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
503 CONE_WIDTH / 2 + BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
504 b_height - 1 - CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
505 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
506 else if (SHAPE_CONE_BOTTOM_RIGHT == shape)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
507 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
508 XClearArea (b_dpy, b_win,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
509 b_width - 1 - CONE_WIDTH + BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
510 b_height - CONE_HEIGHT - BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
511 CONE_WIDTH / 2 - BORDER_WIDTH - 1,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
512 BORDER_WIDTH, False);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
513 XDrawLine (b_dpy, b_win, b_shadowGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
514 b_width - 1,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
515 b_height - 1,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
516 b_width - 1 - CONE_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
517 b_height - 1 - CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
518 XDrawLine (b_dpy, b_win, b_shineGC,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
519 b_width - 1,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
520 b_height - 1,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
521 b_width - 1 - CONE_WIDTH / 2 - BORDER_WIDTH,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
522 b_height - 1 - CONE_HEIGHT);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
523 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
524 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
525
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
526 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
527
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
528 /*============================================================================
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
529
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
530 ============================================================================*/
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
531
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
532 void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
533 balloon_help_create (Display* dpy,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
534 Pixel fg, Pixel bg, Pixel shine, Pixel shadow,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
535 XFontStruct* font)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
536 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
537 if (b_dpy) balloon_help_destroy ();
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
538
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
539 b_dpy = dpy;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
540
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
541 b_fontStruct = font;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
542
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
543 b_win = create_window (dpy, bg);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
544 b_gc = create_gc (dpy, b_win, fg, bg, b_fontStruct);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
545
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
546 b_shineGC = create_gc (dpy, b_win, shine, bg, b_fontStruct);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
547 b_shadowGC = create_gc (dpy, b_win, shadow, bg, b_fontStruct);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
548
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
549 create_pixmap_mask (1, 1);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
550 b_maskGC = create_gc (dpy, b_mask, bg, fg, b_fontStruct);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
551
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
552 b_winMapped = False;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
553 b_timer = None;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
554 b_delay = 500;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
555
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
556 b_screenWidth = DisplayWidth (b_dpy, DefaultScreen(b_dpy));
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
557 b_screenHeight = DisplayHeight (b_dpy, DefaultScreen(b_dpy));
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
558
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
559 b_lastShape = SHAPE_CONE_FREE;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
560 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
561
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
562 void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
563 balloon_help_destroy (void)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
564 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
565 assert (b_dpy != NULL);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
566 b_dpy = NULL;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
567
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
568 destroy_window (b_dpy, b_win);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
569 destroy_gc (b_dpy, b_gc);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
570
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
571 destroy_gc (b_dpy, b_shineGC);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
572 destroy_gc (b_dpy, b_shadowGC);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
573
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
574 destroy_pixmap_mask ();
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
575 destroy_gc (b_dpy, b_maskGC);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
576
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
577 if (b_timer) XtRemoveTimeOut (b_timer);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
578 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
579
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
580 void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
581 balloon_help_set_delay (unsigned long milliseconds)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
582 {
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
583 b_delay = milliseconds;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
584 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
585
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
586 void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
587 balloon_help_show (const char* text)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
588 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
589 assert (b_dpy != NULL);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
590
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
591 /* We don't copy the text */
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
592 b_text = text;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
593 b_lastShape = SHAPE_CONE_FREE;
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
594
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
595 if (b_winMapped)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
596 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
597 /* If help is already being shown, don't delay just update */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
598 show_help (NULL, NULL);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
599 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
600 else
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
601 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
602 b_timer =
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
603 XtAppAddTimeOut (XtDisplayToApplicationContext(b_dpy),
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
604 b_delay, show_help, NULL);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
605 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
606 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
607
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
608 void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
609 balloon_help_hide (void)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
610 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
611 assert (b_dpy != NULL);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
612
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
613 b_text = NULL;
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
614 XUnmapWindow (b_dpy, b_win);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
615 b_winMapped = False;
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
616 if (b_timer)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
617 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
618 XtRemoveTimeOut (b_timer);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
619 b_timer = None;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
620 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
621 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
622
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
623 void
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
624 balloon_help_move_to_pointer (void)
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
625 {
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
626 assert (b_dpy != NULL);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
627
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
628 if (b_winMapped)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
629 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
630 int x, y;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
631 int shape = b_lastShape;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
632
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
633 get_pointer_xy (b_dpy, &x, &y);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
634
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
635 x += (shape & SHAPE_CONE_LEFT) ? POINTER_OFFSET : -POINTER_OFFSET;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
636 y += (shape & SHAPE_CONE_TOP) ? POINTER_OFFSET : -POINTER_OFFSET;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
637
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
638 shape = get_shape (shape, x, y, b_width, b_height, b_screenWidth, b_screenHeight);
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
639
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
640 if (shape == b_lastShape)
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
641 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
642 b_lastX = x;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
643 b_lastY = y;
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
644
136
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
645 XMoveWindow (b_dpy, b_win,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
646 shape & SHAPE_CONE_LEFT ? x : x - b_width,
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
647 shape & SHAPE_CONE_TOP ? y : y - b_height);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
648 }
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
649 else
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
650 {
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
651 /* text would be off screen, rebuild with new shape */
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
652 b_lastShape = SHAPE_CONE_FREE;
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
653 show_help (NULL, NULL);
b980b6286996 Import from CVS: tag r20-2b2
cvs
parents: 134
diff changeset
654 }
134
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
655 }
34a5b81f86ba Import from CVS: tag r20-2b1
cvs
parents:
diff changeset
656 }