annotate src/scrollbar-x.c @ 380:8626e4521993 r21-2-5

Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* scrollbar implementation -- X interface.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
380
8626e4521993 Import from CVS: tag r21-2-5
cvs
parents: 371
diff changeset
3 Copyright (C) 1994 Amdahl Corporation.
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 Copyright (C) 1995 Sun Microsystems, Inc.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 Copyright (C) 1995 Darrell Kindred <dkindred+@cmu.edu>.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 This file is part of XEmacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 XEmacs is free software; you can redistribute it and/or modify it
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 under the terms of the GNU General Public License as published by the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 Free Software Foundation; either version 2, or (at your option) any
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 along with XEmacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 Boston, MA 02111-1307, USA. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 /* Synched up with: Not in FSF. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 #include <config.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 #include "lisp.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 #include "console-x.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 #include "glyphs-x.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 #include "gui-x.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 #include "scrollbar-x.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 #include "frame.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 #include "window.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 static void x_update_vertical_scrollbar_callback (Widget widget, LWLIB_ID id,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 XtPointer client_data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 static void x_update_horizontal_scrollbar_callback (Widget widget, LWLIB_ID id,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 XtPointer client_data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
42 /* Used to prevent changing the size of the slider while drag
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 scrolling, under Motif. This is necessary because the Motif
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
44 scrollbar is incredibly stupid about updating the slider and causes
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 lots of flicker if it is done too often. */
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
46 static int inhibit_slider_size_change;
86
364816949b59 Import from CVS: tag r20-0b93
cvs
parents: 84
diff changeset
47 int stupid_vertical_scrollbar_drag_hack;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
49 /* Doesn't work with athena */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 static int vertical_drag_in_progress;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 /* A device method. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 static int
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
57 x_inhibit_scrollbar_slider_size_change (void)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 {
84
ac0620f6398e Import from CVS: tag r20-0b92
cvs
parents: 82
diff changeset
59 /* Doesn't work with Athena */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID)
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
61 return inhibit_slider_size_change;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 #else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 return 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 /* A device method. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 x_free_scrollbar_instance (struct scrollbar_instance *instance)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 if (SCROLLBAR_X_NAME (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 xfree (SCROLLBAR_X_NAME (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 if (SCROLLBAR_X_WIDGET (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 if (XtIsManaged (SCROLLBAR_X_WIDGET (instance)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 XtUnmanageChild (SCROLLBAR_X_WIDGET (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79 lw_destroy_all_widgets (SCROLLBAR_X_ID (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 if (instance->scrollbar_data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 xfree (instance->scrollbar_data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 /* A device method. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 x_release_scrollbar_instance (struct scrollbar_instance *instance)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 if (XtIsManaged (SCROLLBAR_X_WIDGET (instance)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 XtUnmanageChild (SCROLLBAR_X_WIDGET (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 /* A device method. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 x_create_scrollbar_instance (struct frame *f, int vertical,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 struct scrollbar_instance *instance)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 char buffer[32];
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 /* initialize the X specific data section. */
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
102 instance->scrollbar_data = xnew_and_zero (struct x_scrollbar_data);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104 SCROLLBAR_X_ID (instance) = new_lwlib_id ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 sprintf (buffer, "scrollbar_%d", SCROLLBAR_X_ID (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 SCROLLBAR_X_NAME (instance) = xstrdup (buffer);
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
107 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) || \
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
108 defined (LWLIB_SCROLLBARS_ATHENA3D)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 SCROLLBAR_X_VDRAG_ORIG_VALUE (instance) = -1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 if (vertical)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 SCROLLBAR_X_WIDGET (instance) =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115 lw_create_widget ("vertical-scrollbar", SCROLLBAR_X_NAME (instance),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 SCROLLBAR_X_ID (instance),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 NULL, FRAME_X_CONTAINER_WIDGET (f), 0,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 x_update_vertical_scrollbar_callback, NULL, NULL);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 SCROLLBAR_X_WIDGET (instance) =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123 lw_create_widget ("horizontal-scrollbar", SCROLLBAR_X_NAME (instance),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 SCROLLBAR_X_ID (instance),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 NULL, FRAME_X_CONTAINER_WIDGET (f), 0,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 x_update_horizontal_scrollbar_callback, NULL, NULL);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
130 #define UPDATE_DATA_FIELD(field) \
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
131 if (new_##field >= 0 && \
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
132 SCROLLBAR_X_POS_DATA (inst).field != new_##field) { \
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
133 SCROLLBAR_X_POS_DATA (inst).field = new_##field; \
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
134 inst->scrollbar_instance_changed = 1; \
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 /* A device method. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 /* #### The -1 check is such a hack. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 x_update_scrollbar_instance_values (struct window *w,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 struct scrollbar_instance *inst,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142 int new_line_increment,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 int new_page_increment,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 int new_minimum, int new_maximum,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145 int new_slider_size,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 int new_slider_position,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 int new_scrollbar_width,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148 int new_scrollbar_height,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 int new_scrollbar_x, int new_scrollbar_y)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 UPDATE_DATA_FIELD (line_increment);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 UPDATE_DATA_FIELD (page_increment);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 UPDATE_DATA_FIELD (minimum);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154 UPDATE_DATA_FIELD (maximum);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 UPDATE_DATA_FIELD (slider_size);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 UPDATE_DATA_FIELD (slider_position);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 UPDATE_DATA_FIELD (scrollbar_width);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 UPDATE_DATA_FIELD (scrollbar_height);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 UPDATE_DATA_FIELD (scrollbar_x);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160 UPDATE_DATA_FIELD (scrollbar_y);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
162 /* This doesn't work with Athena, why? */
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 if (w && !vertical_drag_in_progress)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166 int new_vov = SCROLLBAR_X_POS_DATA (inst).slider_position;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 int new_vows = marker_position (w->start[CURRENT_DISP]);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 if (SCROLLBAR_X_VDRAG_ORIG_VALUE (inst) != new_vov)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 SCROLLBAR_X_VDRAG_ORIG_VALUE (inst) = new_vov;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 inst->scrollbar_instance_changed = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 if (SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (inst) != new_vows)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (inst) = new_vows;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177 inst->scrollbar_instance_changed = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 /* Used by x_update_scrollbar_instance_status. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 update_one_scrollbar_bs (struct frame *f, Widget sb_widget)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187 Boolean use_backing_store;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
189 Xt_GET_VALUE (FRAME_X_TEXT_WIDGET (f), XtNuseBackingStore, &use_backing_store);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 if (use_backing_store && sb_widget)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 unsigned long mask = CWBackingStore;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 XSetWindowAttributes attrs;
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
195
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 attrs.backing_store = Always;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197 XChangeWindowAttributes (XtDisplay (sb_widget),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198 XtWindow (sb_widget),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199 mask,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 &attrs);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 /* Create a widget value structure for passing down to lwlib so that
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 it can update the scrollbar widgets. Used by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206 x_update_scrollbar_instance_status. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207 static widget_value *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208 scrollbar_instance_to_widget_value (struct scrollbar_instance *instance)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210 widget_value *wv;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212 wv = xmalloc_widget_value ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 /* #### maybe should add malloc_scrollbar_values to resource these? */
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
214 wv->scrollbar_data = xnew (scrollbar_values);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216 wv->name = SCROLLBAR_X_NAME (instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 wv->value = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218 wv->key = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 wv->enabled = instance->scrollbar_is_active;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 wv->selected = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 wv->call_data = NULL;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 *wv->scrollbar_data = SCROLLBAR_X_POS_DATA (instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 wv->next = NULL;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227 return wv;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 /* Used by x_update_scrollbar_instance_status. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232 update_one_widget_scrollbar_pointer (struct window *w, Widget wid)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234 if (POINTER_IMAGE_INSTANCEP (w->scrollbar_pointer))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235 {
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
236 XDefineCursor (XtDisplay (wid), XtWindow (wid),
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
237 XIMAGE_INSTANCE_X_CURSOR (w->scrollbar_pointer));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
238 XSync (XtDisplay (wid), False);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
239 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
240 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
241
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
242 /* A device method. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
243 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
244 x_update_scrollbar_instance_status (struct window *w, int active, int size,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
245 struct scrollbar_instance *instance)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
246 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
247 struct frame *f = XFRAME (w->frame);
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
248 Boolean managed = XtIsManaged (SCROLLBAR_X_WIDGET (instance));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
249
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
250 if (active && size)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
251 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
252 widget_value *wv = scrollbar_instance_to_widget_value (instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
253
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
254 if (instance->scrollbar_instance_changed)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
255 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
256 lw_modify_all_widgets (SCROLLBAR_X_ID (instance), wv, 0);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
257 instance->scrollbar_instance_changed = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
258 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
259
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
260 if (!managed)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
261 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
262 XtManageChild (SCROLLBAR_X_WIDGET (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
263 if (XtWindow (SCROLLBAR_X_WIDGET (instance)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
264 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
265 /* Raise this window so that it's visible on top of the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
266 text window below it. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
267 XRaiseWindow (XtDisplay (SCROLLBAR_X_WIDGET (instance)),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
268 XtWindow (SCROLLBAR_X_WIDGET (instance)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
269 update_one_widget_scrollbar_pointer
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
270 (w, SCROLLBAR_X_WIDGET (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
271 if (!SCROLLBAR_X_BACKING_STORE_INITIALIZED (instance))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
272 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
273 update_one_scrollbar_bs (f, SCROLLBAR_X_WIDGET (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
274 SCROLLBAR_X_BACKING_STORE_INITIALIZED (instance) = 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
275 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
276 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
277 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
278
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
279 if (!wv->scrollbar_data) abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
280 xfree (wv->scrollbar_data);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
281 wv->scrollbar_data = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
282 free_widget_value (wv);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
283 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
284 else if (managed)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
285 {
201
eb5470882647 Import from CVS: tag r20-3b27
cvs
parents: 185
diff changeset
286 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID)
eb5470882647 Import from CVS: tag r20-3b27
cvs
parents: 185
diff changeset
287 /* This isn't needed with Athena Scrollbars. It might not be needed */
eb5470882647 Import from CVS: tag r20-3b27
cvs
parents: 185
diff changeset
288 /* with Motif scrollbars (it is apparently needed with Lesstif). */
eb5470882647 Import from CVS: tag r20-3b27
cvs
parents: 185
diff changeset
289 XtUngrabKeyboard (SCROLLBAR_X_WIDGET (instance), CurrentTime);
eb5470882647 Import from CVS: tag r20-3b27
cvs
parents: 185
diff changeset
290 #endif
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
291 XtUnmanageChild (SCROLLBAR_X_WIDGET (instance));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
292 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
293 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
294
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
295 enum x_scrollbar_loop
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
296 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
297 X_FIND_SCROLLBAR_WINDOW_MIRROR,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
298 X_SET_SCROLLBAR_POINTER,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
299 X_WINDOW_IS_SCROLLBAR,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
300 X_UPDATE_FRAME_SCROLLBARS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
301 };
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
302
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
303 static struct window_mirror *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
304 x_scrollbar_loop (enum x_scrollbar_loop type, Lisp_Object window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
305 struct window_mirror *mir,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
306 LWLIB_ID id, Window x_win)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
307 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
308 struct window_mirror *retval = NULL;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
309
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
310 while (mir)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
311 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
312 struct scrollbar_instance *vinstance = mir->scrollbar_vertical_instance;
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
313 struct scrollbar_instance *hinstance = mir->scrollbar_horizontal_instance;
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
314 struct window *w = XWINDOW (window);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
315
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
316 if (mir->vchild)
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
317 retval = x_scrollbar_loop (type, w->vchild, mir->vchild, id, x_win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
318 else if (mir->hchild)
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
319 retval = x_scrollbar_loop (type, w->hchild, mir->hchild, id, x_win);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
320 if (retval)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
321 return retval;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
322
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
323 if (hinstance || vinstance)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
324 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
325 switch (type)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
326 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
327 case X_FIND_SCROLLBAR_WINDOW_MIRROR:
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
328 if ((vinstance && SCROLLBAR_X_ID (vinstance) == id) ||
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
329 (hinstance && SCROLLBAR_X_ID (hinstance) == id))
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
330 return mir;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
331 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
332 case X_UPDATE_FRAME_SCROLLBARS:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
333 if (!mir->vchild && !mir->hchild)
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
334 update_window_scrollbars (w, mir, 1, 0);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
335 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
336 case X_SET_SCROLLBAR_POINTER:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
337 if (!mir->vchild && !mir->hchild)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
338 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
339 Widget widget;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
340
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
341 widget = SCROLLBAR_X_WIDGET (hinstance);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
342 if (widget && XtIsManaged (widget))
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
343 update_one_widget_scrollbar_pointer (w, widget);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
344
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
345 widget = SCROLLBAR_X_WIDGET (vinstance);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
346 if (widget && XtIsManaged (widget))
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
347 update_one_widget_scrollbar_pointer (w, widget);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
348 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
349 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
350 case X_WINDOW_IS_SCROLLBAR:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
351 if (!mir->vchild && !mir->hchild)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
352 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
353 Widget widget;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
354
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
355 widget = SCROLLBAR_X_WIDGET (hinstance);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
356 if (widget && XtIsManaged (widget) &&
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
357 XtWindow (widget) == x_win)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
358 return (struct window_mirror *) 1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
359
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
360 widget = SCROLLBAR_X_WIDGET (vinstance);
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
361 if (widget && XtIsManaged (widget) &&
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
362 XtWindow (widget) == x_win)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
363 return (struct window_mirror *) 1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
364 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
365 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
366 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
367 abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
368 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
369 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
370
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
371 mir = mir->next;
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
372 window = w->next;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
373 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
374
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
375 return NULL;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
376 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
377
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
378 /* Used by callbacks. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
379 static struct window_mirror *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
380 find_scrollbar_window_mirror (struct frame *f, LWLIB_ID id)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
381 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
382 if (f->mirror_dirty)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
383 update_frame_window_mirror (f);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
384 return x_scrollbar_loop (X_FIND_SCROLLBAR_WINDOW_MIRROR, f->root_window,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
385 f->root_mirror, id, (Window) NULL);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
386 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
387
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
388 /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
389 * This is the only callback provided for vertical scrollbars. It
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
390 * should be able to handle all of the scrollbar events in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
391 * scroll_action (see lwlib.h). The client data will be of type
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
392 * scroll_event (see lwlib.h). */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
393 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
394 x_update_vertical_scrollbar_callback (Widget widget, LWLIB_ID id,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
395 XtPointer client_data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
396 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
397 /* This function can GC */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
398 scroll_event *data = (scroll_event *) client_data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
399 struct device *d = get_device_from_display (XtDisplay (widget));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
400 struct frame *f = x_any_window_to_frame (d, XtWindow (widget));
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
401 Lisp_Object win, frame;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
402 struct scrollbar_instance *instance;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
403 struct window_mirror *mirror;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
404
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
405 if (!f)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
406 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
407
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
408 mirror = find_scrollbar_window_mirror (f, id);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
409 win = real_window (mirror, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
410
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
411 if (NILP (win))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
412 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
413 instance = mirror->scrollbar_vertical_instance;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
414 frame = WINDOW_FRAME (XWINDOW (win));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
415
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
416 /* It seems that this is necessary whenever signal_special_Xt_user_event()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
417 is called. #### Why??? */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
418 DEVICE_X_MOUSE_TIMESTAMP (d) = DEVICE_X_GLOBAL_MOUSE_TIMESTAMP (d);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
419
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
420 switch (data->action)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
421 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
422 case SCROLLBAR_LINE_UP:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
423 signal_special_Xt_user_event (frame, Qscrollbar_line_up, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
424 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
425
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
426 case SCROLLBAR_LINE_DOWN:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
427 signal_special_Xt_user_event (frame, Qscrollbar_line_down, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
428 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
429
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
430 /* The Athena scrollbar paging behavior is that of xterms.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
431 Depending on where you click the size of the page varies.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
432 Motif always does a standard Emacs page. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
433 case SCROLLBAR_PAGE_UP:
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
434 #if !defined (LWLIB_SCROLLBARS_MOTIF) && !defined (LWLIB_SCROLLBARS_LUCID) && \
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
435 !defined (LWLIB_SCROLLBARS_ATHENA3D)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
436 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
437 double tmp = ((double) data->slider_value /
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
438 (double) SCROLLBAR_X_POS_DATA(instance).scrollbar_height);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
439 double line = tmp *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
440 (double) window_displayed_height (XWINDOW (win));
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
441
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
442 if (line > -1.0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
443 line = -1.0;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
444 signal_special_Xt_user_event (frame, Qscrollbar_page_up,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
445 Fcons (win, make_int ((int) line)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
446 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
447 #else
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
448 signal_special_Xt_user_event (frame, Qscrollbar_page_up,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
449 Fcons (win, Qnil));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
450 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
451 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
452
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
453 case SCROLLBAR_PAGE_DOWN:
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
454 #if !defined (LWLIB_SCROLLBARS_MOTIF) && !defined (LWLIB_SCROLLBARS_LUCID) && \
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
455 !defined (LWLIB_SCROLLBARS_ATHENA3D)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
456 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
457 double tmp = ((double) data->slider_value /
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
458 (double) SCROLLBAR_X_POS_DATA(instance).scrollbar_height);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
459 double line = tmp *
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
460 (double) window_displayed_height (XWINDOW (win));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
461
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
462 if (SCROLLBAR_X_POS_DATA(instance).maximum >
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
463 (SCROLLBAR_X_POS_DATA(instance).slider_size + SCROLLBAR_X_POS_DATA(instance).slider_position))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
464 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
465 if (line < 1.0)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
466 line = 1.0;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
467 signal_special_Xt_user_event (frame, Qscrollbar_page_down,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
468 Fcons (win,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
469 make_int ((int) line)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
470 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
471 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
472 #else
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
473 signal_special_Xt_user_event (frame, Qscrollbar_page_down,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
474 Fcons (win, Qnil));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
475 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
476 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
477
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
478 case SCROLLBAR_TOP:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
479 signal_special_Xt_user_event (frame, Qscrollbar_to_top, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
480 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
481
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
482 case SCROLLBAR_BOTTOM:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
483 signal_special_Xt_user_event (frame, Qscrollbar_to_bottom, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
484 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
485
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
486
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
487 case SCROLLBAR_CHANGE:
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
488 inhibit_slider_size_change = 0;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
489 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
490 vertical_drag_in_progress = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
491 SCROLLBAR_X_VDRAG_ORIG_VALUE (instance) = data->slider_value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
492 SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (instance) =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
493 XINT (Fwindow_start (win));
84
ac0620f6398e Import from CVS: tag r20-0b92
cvs
parents: 82
diff changeset
494 #else
ac0620f6398e Import from CVS: tag r20-0b92
cvs
parents: 82
diff changeset
495 stupid_vertical_scrollbar_drag_hack = 0;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
496 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
497 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
498
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
499 case SCROLLBAR_DRAG:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
500 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
501 int value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
502
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
503 inhibit_slider_size_change = 1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
504
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
505 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
506 /* Doing drags with Motif-like scrollbars is a mess, since we
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
507 want to avoid having the window position jump when you
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
508 first grab the scrollbar, but we also want to ensure that
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
509 you can scroll all the way to the top or bottom of the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
510 buffer. This can all be replaced with something sane when
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
511 we get line-based scrolling. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
512
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
513 vertical_drag_in_progress = 1;
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
514
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
515 if (SCROLLBAR_X_VDRAG_ORIG_VALUE (instance) < 0)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
516 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
517 SCROLLBAR_X_VDRAG_ORIG_VALUE (instance) = data->slider_value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
518 SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (instance) =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
519 XINT (Fwindow_start (win));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
520 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
521
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
522 /* Could replace this piecewise linear scrolling with a
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
523 quadratic through the three points, but I'm not sure that
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
524 would feel any nicer in practice. */
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
525 if (data->slider_value < SCROLLBAR_X_VDRAG_ORIG_VALUE (instance))
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
526 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
527 /* We've dragged up; slide linearly from original position to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
528 window-start=data.minimum, slider-value=data.minimum. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
529
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
530 if (SCROLLBAR_X_VDRAG_ORIG_VALUE (instance)
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
531 <= SCROLLBAR_X_POS_DATA (instance).minimum)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
532 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
533 /* shouldn't get here, but just in case */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
534 value = SCROLLBAR_X_POS_DATA (instance).minimum;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
535 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
536 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
537 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
538 value = (int)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
539 (SCROLLBAR_X_POS_DATA (instance).minimum
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
540 + (((double)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
541 (SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (instance)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
542 - SCROLLBAR_X_POS_DATA (instance).minimum)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
543 * (data->slider_value -
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
544 SCROLLBAR_X_POS_DATA (instance).minimum))
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
545 / (SCROLLBAR_X_VDRAG_ORIG_VALUE (instance)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
546 - SCROLLBAR_X_POS_DATA (instance).minimum)));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
547 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
548 }
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
549 else
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
550 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
551 /* We've dragged down; slide linearly from original position to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
552 window-start=data.maximum, slider-value=data.maximum. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
553
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
554 if (SCROLLBAR_X_VDRAG_ORIG_VALUE (instance)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
555 >= (SCROLLBAR_X_POS_DATA (instance).maximum -
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
556 SCROLLBAR_X_POS_DATA (instance).slider_size))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
557 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
558 /* avoid divide by zero */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
559 value = SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (instance);
185
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
560 }
3d6bfa290dbd Import from CVS: tag r20-3b19
cvs
parents: 165
diff changeset
561 else
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
562 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
563 value = (int)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
564 (SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (instance)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
565 + (((double)
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
566 (SCROLLBAR_X_POS_DATA (instance).maximum
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
567 - SCROLLBAR_X_VDRAG_ORIG_WINDOW_START (instance))
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
568 * (data->slider_value
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
569 - SCROLLBAR_X_VDRAG_ORIG_VALUE (instance)))
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
570 / (SCROLLBAR_X_POS_DATA (instance).maximum
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
571 - SCROLLBAR_X_POS_DATA (instance).slider_size
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
572 - SCROLLBAR_X_VDRAG_ORIG_VALUE (instance))));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
573 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
574 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
575 #else
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
576 stupid_vertical_scrollbar_drag_hack = 0;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
577 value = data->slider_value;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
578 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
579
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
580 if (value >= SCROLLBAR_X_POS_DATA (instance).maximum)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
581 value = SCROLLBAR_X_POS_DATA (instance).maximum - 1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
582 if (value < SCROLLBAR_X_POS_DATA (instance).minimum)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
583 value = SCROLLBAR_X_POS_DATA (instance).minimum;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
584
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
585 signal_special_Xt_user_event (frame, Qscrollbar_vertical_drag,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
586 Fcons (win, make_int (value)));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
587 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
588 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
589
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
590 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
591 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
592
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
593 /*
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
594 * This is the only callback provided for horizontal scrollbars. It
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
595 * should be able to handle all of the scrollbar events in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
596 * scroll_action (see lwlib.h). The client data will be of type
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
597 * scroll_event (see lwlib.h). */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
598 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
599 x_update_horizontal_scrollbar_callback (Widget widget, LWLIB_ID id,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
600 XtPointer client_data)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
601 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
602 scroll_event *data = (scroll_event *) client_data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
603 struct device *d = get_device_from_display (XtDisplay (widget));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
604 struct frame *f = x_any_window_to_frame (d, XtWindow (widget));
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
605 Lisp_Object win, frame;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
606 struct window_mirror *mirror;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
607
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
608 if (!f)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
609 return;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
610
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
611 mirror = find_scrollbar_window_mirror (f, id);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
612 win = real_window (mirror, 1);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
613
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
614 if (NILP (win))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
615 return;
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
616 frame = WINDOW_FRAME (XWINDOW (win));
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
617
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
618 /* It seems that this is necessary whenever signal_special_Xt_user_event()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
619 is called. #### Why??? */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
620 DEVICE_X_MOUSE_TIMESTAMP (d) = DEVICE_X_GLOBAL_MOUSE_TIMESTAMP (d);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
621
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
622 switch (data->action)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
623 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
624 case SCROLLBAR_LINE_UP:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
625 signal_special_Xt_user_event (frame, Qscrollbar_char_left, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
626 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
627 case SCROLLBAR_LINE_DOWN:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
628 signal_special_Xt_user_event (frame, Qscrollbar_char_right, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
629 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
630 case SCROLLBAR_PAGE_UP:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
631 signal_special_Xt_user_event (frame, Qscrollbar_page_left, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
632 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
633 case SCROLLBAR_PAGE_DOWN:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
634 signal_special_Xt_user_event (frame, Qscrollbar_page_right, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
635 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
636 case SCROLLBAR_TOP:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
637 signal_special_Xt_user_event (frame, Qscrollbar_to_left, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
638 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
639 case SCROLLBAR_BOTTOM:
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
640 signal_special_Xt_user_event (frame, Qscrollbar_to_right, win);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
641 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
642 case SCROLLBAR_CHANGE:
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
643 inhibit_slider_size_change = 0;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
644 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
645 case SCROLLBAR_DRAG:
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
646 inhibit_slider_size_change = 1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
647 /* #### Fix the damn toolkit code so they all work the same way.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
648 Lucid is the one mostly wrong.*/
82
6a378aca36af Import from CVS: tag r20-0b91
cvs
parents: 70
diff changeset
649 #if defined (LWLIB_SCROLLBARS_LUCID) || defined (LWLIB_SCROLLBARS_ATHENA3D)
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
650 signal_special_Xt_user_event (frame, Qscrollbar_horizontal_drag,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
651 (Fcons
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
652 (win, make_int (data->slider_value))));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
653 #else
288
e11d67e05968 Import from CVS: tag r21-0b42
cvs
parents: 282
diff changeset
654 signal_special_Xt_user_event (frame, Qscrollbar_horizontal_drag,
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
655 (Fcons
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
656 (win,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
657 make_int (data->slider_value - 1))));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
658 #endif
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
659 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
660 default:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
661 break;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
662 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
663 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
664
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
665 static void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
666 x_scrollbar_pointer_changed_in_window (struct window *w)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
667 {
272
c5d627a313b1 Import from CVS: tag r21-0b34
cvs
parents: 201
diff changeset
668 Lisp_Object window;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
669
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
670 XSETWINDOW (window, w);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
671 x_scrollbar_loop (X_SET_SCROLLBAR_POINTER, window, find_window_mirror (w),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
672 0, (Window) NULL);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
673 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
674
371
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
675 /* Called directly from x_any_window_to_frame in frame-x.c */
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
676 EMACS_INT
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
677 x_window_is_scrollbar (struct frame *f, Window win)
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
678 {
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
679 if (!FRAME_X_P (f))
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
680 return 0;
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
681
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
682 if (f->mirror_dirty)
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
683 update_frame_window_mirror (f);
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
684 return (EMACS_INT) x_scrollbar_loop (X_WINDOW_IS_SCROLLBAR, f->root_window,
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
685 f->root_mirror, 0, win);
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
686 }
cc15677e0335 Import from CVS: tag r21-2b1
cvs
parents: 361
diff changeset
687
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
688 /* Make sure that all scrollbars on frame are up-to-date. Called
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
689 directly from x_set_frame_properties in frame-x.c*/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
690 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
691 x_update_frame_scrollbars (struct frame *f)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
692 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
693 /* Consider this code to be "in_display" so that we abort() if Fsignal()
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
694 gets called. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
695 in_display++;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
696 x_scrollbar_loop (X_UPDATE_FRAME_SCROLLBARS, f->root_window, f->root_mirror,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
697 0, (Window) NULL);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
698 in_display--;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
699 if (in_display < 0) abort ();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
700 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
701
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
702 #ifdef MEMORY_USAGE_STATS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
703
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
704 static int
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
705 x_compute_scrollbar_instance_usage (struct device *d,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
706 struct scrollbar_instance *inst,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
707 struct overhead_stats *ovstats)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
708 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
709 int total = 0;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
710
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
711 while (inst)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
712 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
713 struct x_scrollbar_data *data =
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
714 (struct x_scrollbar_data *) inst->scrollbar_data;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
715
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
716 total += malloced_storage_size (data, sizeof (*data), ovstats);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
717 total += malloced_storage_size (data->name, 1 + strlen (data->name),
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
718 ovstats);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
719 inst = inst->next;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
720 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
721
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
722 return total;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
723 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
724
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
725 #endif /* MEMORY_USAGE_STATS */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
726
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
727
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
728 /************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
729 /* initialization */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
730 /************************************************************************/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
731
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
732 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
733 console_type_create_scrollbar_x (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
734 {
102
a145efe76779 Import from CVS: tag r20-1b3
cvs
parents: 86
diff changeset
735 CONSOLE_HAS_METHOD (x, inhibit_scrollbar_slider_size_change);
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
736 CONSOLE_HAS_METHOD (x, free_scrollbar_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
737 CONSOLE_HAS_METHOD (x, release_scrollbar_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
738 CONSOLE_HAS_METHOD (x, create_scrollbar_instance);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
739 CONSOLE_HAS_METHOD (x, update_scrollbar_instance_values);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
740 CONSOLE_HAS_METHOD (x, update_scrollbar_instance_status);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
741 CONSOLE_HAS_METHOD (x, scrollbar_pointer_changed_in_window);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
742 #ifdef MEMORY_USAGE_STATS
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
743 CONSOLE_HAS_METHOD (x, compute_scrollbar_instance_usage);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
744 #endif /* MEMORY_USAGE_STATS */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
745 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
746
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
747 void
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
748 vars_of_scrollbar_x (void)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
749 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
750 #if defined (LWLIB_SCROLLBARS_LUCID)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
751 Fprovide (intern ("lucid-scrollbars"));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
752 #elif defined (LWLIB_SCROLLBARS_MOTIF)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
753 Fprovide (intern ("motif-scrollbars"));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
754 #elif defined (LWLIB_SCROLLBARS_ATHENA)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
755 Fprovide (intern ("athena-scrollbars"));
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
756 #endif
86
364816949b59 Import from CVS: tag r20-0b93
cvs
parents: 84
diff changeset
757 stupid_vertical_scrollbar_drag_hack = 1;
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
758 }