1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
|
/*
* tkScale.h --
*
* Declarations of types and functions used to implement
* the scale widget.
*
* Copyright (c) 1996 by Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id$
*/
#ifndef _TKSCALE
#define _TKSCALE
#ifndef _TK
#include "tk.h"
#endif
#ifdef BUILD_tk
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#endif
/*
* A data structure of the following type is kept for each scale
* widget managed by this file:
*/
typedef struct TkScale {
Tk_Window tkwin; /* Window that embodies the scale. NULL
* means that the window has been destroyed
* but the data structures haven't yet been
* cleaned up.*/
Display *display; /* Display containing widget. Used, among
* other things, so that resources can be
* freed even after tkwin has gone away. */
Tcl_Interp *interp; /* Interpreter associated with scale. */
Tcl_Command widgetCmd; /* Token for scale's widget command. */
Tk_Uid orientUid; /* Orientation for window ("vertical" or
* "horizontal"). */
int vertical; /* Non-zero means vertical orientation,
* zero means horizontal. */
int width; /* Desired narrow dimension of scale,
* in pixels. */
int length; /* Desired long dimension of scale,
* in pixels. */
double value; /* Current value of scale. */
char *varName; /* Name of variable (malloc'ed) or NULL.
* If non-NULL, scale's value tracks
* the contents of this variable and
* vice versa. */
double fromValue; /* Value corresponding to left or top of
* scale. */
double toValue; /* Value corresponding to right or bottom
* of scale. */
double tickInterval; /* Distance between tick marks; 0 means
* don't display any tick marks. */
double resolution; /* If > 0, all values are rounded to an
* even multiple of this value. */
int digits; /* Number of significant digits to print
* in values. 0 means we get to choose the
* number based on resolution and/or the
* range of the scale. */
char format[10]; /* Sprintf conversion specifier computed from
* digits and other information. */
double bigIncrement; /* Amount to use for large increments to
* scale value. (0 means we pick a value). */
char *command; /* Command prefix to use when invoking Tcl
* commands because the scale value changed.
* NULL means don't invoke commands.
* Malloc'ed. */
int repeatDelay; /* How long to wait before auto-repeating
* on scrolling actions (in ms). */
int repeatInterval; /* Interval between autorepeats (in ms). */
char *label; /* Label to display above or to right of
* scale; NULL means don't display a
* label. Malloc'ed. */
int labelLength; /* Number of non-NULL chars. in label. */
Tk_Uid state; /* Normal or disabled. Value cannot be
* changed when scale is disabled. */
/*
* Information used when displaying widget:
*/
int borderWidth; /* Width of 3-D border around window. */
Tk_3DBorder bgBorder; /* Used for drawing slider and other
* background areas. */
Tk_3DBorder activeBorder; /* For drawing the slider when active. */
int sliderRelief; /* Is slider to be drawn raised, sunken, etc. */
XColor *troughColorPtr; /* Color for drawing trough. */
GC troughGC; /* For drawing trough. */
GC copyGC; /* Used for copying from pixmap onto screen. */
Tk_Font tkfont; /* Information about text font, or NULL. */
XColor *textColorPtr; /* Color for drawing text. */
GC textGC; /* GC for drawing text in normal mode. */
int relief; /* Indicates whether window as a whole is
* raised, sunken, or flat. */
int highlightWidth; /* Width in pixels of highlight to draw
* around widget when it has the focus.
* <= 0 means don't draw a highlight. */
XColor *highlightBgColorPtr;
/* Color for drawing traversal highlight
* area when highlight is off. */
XColor *highlightColorPtr; /* Color for drawing traversal highlight. */
int inset; /* Total width of all borders, including
* traversal highlight and 3-D border.
* Indicates how much interior stuff must
* be offset from outside edges to leave
* room for borders. */
int sliderLength; /* Length of slider, measured in pixels along
* long dimension of scale. */
int showValue; /* Non-zero means to display the scale value
* below or to the left of the slider; zero
* means don't display the value. */
/*
* Layout information for horizontal scales, assuming that window
* gets the size it requested:
*/
int horizLabelY; /* Y-coord at which to draw label. */
int horizValueY; /* Y-coord at which to draw value text. */
int horizTroughY; /* Y-coord of top of slider trough. */
int horizTickY; /* Y-coord at which to draw tick text. */
/*
* Layout information for vertical scales, assuming that window
* gets the size it requested:
*/
int vertTickRightX; /* X-location of right side of tick-marks. */
int vertValueRightX; /* X-location of right side of value string. */
int vertTroughX; /* X-location of scale's slider trough. */
int vertLabelX; /* X-location of origin of label. */
/*
* Miscellaneous information:
*/
Tk_Cursor cursor; /* Current cursor for window, or None. */
char *takeFocus; /* Value of -takefocus option; not used in
* the C code, but used by keyboard traversal
* scripts. Malloc'ed, but may be NULL. */
int flags; /* Various flags; see below for
* definitions. */
} TkScale;
/*
* Flag bits for scales:
*
* REDRAW_SLIDER - 1 means slider (and numerical readout) need
* to be redrawn.
* REDRAW_OTHER - 1 means other stuff besides slider and value
* need to be redrawn.
* REDRAW_ALL - 1 means the entire widget needs to be redrawn.
* ACTIVE - 1 means the widget is active (the mouse is
* in its window).
* INVOKE_COMMAND - 1 means the scale's command needs to be
* invoked during the next redisplay (the
* value of the scale has changed since the
* last time the command was invoked).
* SETTING_VAR - 1 means that the associated variable is
* being set by us, so there's no need for
* ScaleVarProc to do anything.
* NEVER_SET - 1 means that the scale's value has never
* been set before (so must invoke -command and
* set associated variable even if the value
* doesn't appear to have changed).
* GOT_FOCUS - 1 means that the focus is currently in
* this widget.
*/
#define REDRAW_SLIDER 1
#define REDRAW_OTHER 2
#define REDRAW_ALL 3
#define ACTIVE 4
#define INVOKE_COMMAND 0x10
#define SETTING_VAR 0x20
#define NEVER_SET 0x40
#define GOT_FOCUS 0x80
/*
* Symbolic values for the active parts of a slider. These are
* the values that may be returned by the ScaleElement procedure.
*/
#define OTHER 0
#define TROUGH1 1
#define SLIDER 2
#define TROUGH2 3
/*
* Space to leave between scale area and text, and between text and
* edge of window.
*/
#define SPACING 2
/*
* How many characters of space to provide when formatting the
* scale's value:
*/
#define PRINT_CHARS 150
/*
* Declaration of procedures used in the implementation of the scrollbar
* widget.
*/
EXTERN void TkEventuallyRedrawScale _ANSI_ARGS_((TkScale *scalePtr,
int what));
EXTERN double TkRoundToResolution _ANSI_ARGS_((TkScale *scalePtr,
double value));
EXTERN TkScale * TkpCreateScale _ANSI_ARGS_((Tk_Window tkwin));
EXTERN void TkpDestroyScale _ANSI_ARGS_((TkScale *scalePtr));
EXTERN void TkpDisplayScale _ANSI_ARGS_((ClientData clientData));
EXTERN double TkpPixelToValue _ANSI_ARGS_((TkScale *scalePtr,
int x, int y));
EXTERN int TkpScaleElement _ANSI_ARGS_((TkScale *scalePtr,
int x, int y));
EXTERN void TkpSetScaleValue _ANSI_ARGS_((TkScale *scalePtr,
double value, int setVar, int invokeCommand));
EXTERN int TkpValueToPixel _ANSI_ARGS_((TkScale *scalePtr,
double value));
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _TKSCALE */
|
