]> cvs.zerfleddert.de Git - micropolis/blame_incremental - src/tk/tkint.h
projects / micropolis / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
src/tclx/ucbsrc/tclbasic.sed: Micropolis build fixes for recent macOS
[micropolis] / src / tk / tkint.h
... / ...
CommitLineData
1/*
2 * tkInt.h --
3 *
4 * Declarations for things used internally by the Tk
5 * procedures but not exported outside the module.
6 *
7 * Copyright 1990-1992 Regents of the University of California.
8 * Permission to use, copy, modify, and distribute this
9 * software and its documentation for any purpose and without
10 * fee is hereby granted, provided that the above copyright
11 * notice appear in all copies. The University of California
12 * makes no representations about the suitability of this
13 * software for any purpose. It is provided "as is" without
14 * express or implied warranty.
15 *
16 * $Header: /user6/ouster/wish/RCS/tkInt.h,v 1.65 92/08/21 11:42:27 ouster Exp $ SPRITE (Berkeley)
17 */
18
19#ifndef _TKINT
20#define _TKINT
21
22#ifndef _XLIB_H_
23#include <X11/Xlib.h>
24#ifdef IS_LINUX
25#include <X11/Xlibint.h>
26#endif
27#endif
28#ifndef _XUTIL_H
29#include <X11/Xutil.h>
30#endif
31#ifndef _TK
32#include "tk.h"
33#endif
34#ifndef _TCL
35#include "tcl.h"
36#endif
37#ifndef _TCLHASH
38#include "tclhash.h"
39#endif
40
41#define META_MASK (AnyModifier<<1)
42#define ALT_MASK (AnyModifier<<2)
43
44#define ALL_BUTTONS \
45 (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask)
46
47/*
48 * One of the following structures is maintained for each display
49 * containing a window managed by Tk:
50 */
51
52typedef struct TkDisplay {
53 Display *display; /* Xlib's info about display. */
54 struct TkDisplay *nextPtr; /* Next in list of all displays. */
55 char *name; /* Name of display (with any screen
56 * identifier removed). Malloc-ed. */
57 Time lastEventTime; /* Time of last event received for this
58 * display. */
59
60 /*
61 * Information used by tkEvent.c only:
62 */
63
64 struct TkWindow *mouseMainPtr;
65 /* Pointer to the main window of this
66 * display that currently contains the
67 * mouse pointer. NULL means the pointer
68 * isn't in a main window managed by
69 * this process. */
70
71 /*
72 * Information used by tkBind.c only:
73 */
74
75 int firstKeycode; /* First keycode supported by
76 * display. */
77 int lastKeycode; /* Last keycode supported by
78 * display. */
79 int symsPerCode; /* Number of KeySyms in "keySyms"
80 * for each keycode. 0 means the
81 * keysym information hasn't been
82 * retrieved from the server yet. */
83 KeySym *keySyms; /* Array of KeySyms, returned by
84 * XGetKeyboardMapping. */
85 unsigned int modeModMask;
86 unsigned int metaModMask;
87 unsigned int altModMask;
88
89 /*
90 * Information used by tkError.c only:
91 */
92
93 struct TkErrorHandler *errorPtr;
94 /* First in list of error handlers
95 * for this display. NULL means
96 * no handlers exist at present. */
97 int deleteCount; /* Counts # of handlers deleted since
98 * last time inactive handlers were
99 * garbage-collected. When this number
100 * gets big, handlers get cleaned up. */
101
102 /*
103 * Information used by tkSend.c only:
104 */
105
106 Tk_Window commWindow; /* Window used for communication
107 * between interpreters during "send"
108 * commands. NULL means send info hasn't
109 * been initialized yet. */
110 Atom commProperty; /* X's name for comm property. */
111 Atom registryProperty; /* X's name for property containing
112 * registry of interpreter names. */
113
114 /*
115 * Information used by tkSelect.c only:
116 */
117
118 Tk_Window selectionOwner; /* Current owner of selection, or
119 * NULL if selection isn't owned by
120 * a window in this process. */
121 int selectionSerial; /* Serial number of last XSelectionSetOwner
122 * request we made to server (used to
123 * filter out redundant SelectionClear
124 * events. */
125 Time selectionTime; /* Timestamp used to acquire selection. */
126 Atom multipleAtom; /* Atom for MULTIPLE. None means
127 * selection stuff isn't initialized. */
128 Atom incrAtom; /* Atom for INCR. */
129 Atom targetsAtom; /* Atom for TARGETS. */
130 Atom timestampAtom; /* Atom for TIMESTAMP. */
131 Atom textAtom; /* Atom for TEXT. */
132 Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */
133
134 /*
135 * Information used by tkAtom.c only:
136 */
137
138 int atomInit; /* 0 means stuff below hasn't been
139 * initialized yet. */
140 Tcl_HashTable nameTable; /* Maps from names to Atom's. */
141 Tcl_HashTable atomTable; /* Maps from Atom's back to names. */
142
143 /*
144 * Information used by tkCursor.c only:
145 */
146
147 Font cursorFont; /* Font to use for standard cursors.
148 * None means font not loaded yet. */
149
150 /*
151 * Information used by tkGrab.c only:
152 */
153
154 struct TkWindow *grabWinPtr;
155 /* Window in which the pointer is currently
156 * grabbed, or NULL if none. */
157 struct TkWindow *ungrabWinPtr;
158 /* Window to which pointer should be returned
159 * when the current grab ends (i.e. the
160 * window that the mouse is really on top
161 * of). */
162 struct TkWindow *buttonWinPtr;
163 /* Window in which first mouse button was
164 * pressed while grab was in effect, or NULL
165 * if no such press in effect. */
166 struct TkWindow *pointerWinPtr;
167 /* The window that officially contains the
168 * pointer, as far as this application is
169 * concerned. If a grab is in effect then
170 * this may not be the window that's underneath
171 * the pointer. NULL means the application
172 * doesn't consider the pointer to be in any
173 * window. */
174 struct TkWindow *serverWinPtr;
175 /* The window that contains the pointer, as
176 * far as the X server is concerned. This
177 * field gets set on every Enter or Leave
178 * event even if the grab code eventually
179 * discards the event. NULL means the server
180 * thinks the pointer is outside any window
181 * of any application on this screen. */
182 int grabFlags; /* Miscellaneous flag values. See definitions
183 * in tkGrab.c. */
184/* XXX: FOCUS */
185 struct TkWindow *focusPtr; /* Identifies window that currently has the
186 * focus (or that will get the focus the next
187 * time the pointer enters any of the top-level
188 * windows associated with this display).
189 * NULL means nobody has the focus.
190 * Managed by tkEvent.c. */
191} TkDisplay;
192
193/*
194 * One of the following structures exists for each error handler
195 * created by a call to Tk_CreateErrorHandler. The structure
196 * is managed by tkError.c.
197 */
198
199typedef struct TkErrorHandler {
200 TkDisplay *dispPtr; /* Display to which handler applies. */
201 unsigned long firstRequest; /* Only errors with serial numbers
202 * >= to this are considered. */
203 unsigned long lastRequest; /* Only errors with serial numbers
204 * <= to this are considered. This
205 * field is filled in when XUnhandle
206 * is called. -1 means XUnhandle
207 * hasn't been called yet. */
208 int error; /* Consider only errors with this
209 * error_code (-1 means consider
210 * all errors). */
211 int request; /* Consider only errors with this
212 * major request code (-1 means
213 * consider all major codes). */
214 int minorCode; /* Consider only errors with this
215 * minor request code (-1 means
216 * consider all minor codes). */
217 Tk_ErrorProc *errorProc; /* Procedure to invoke when a matching
218 * error occurs. NULL means just ignore
219 * errors. */
220 ClientData clientData; /* Arbitrary value to pass to
221 * errorProc. */
222 struct TkErrorHandler *nextPtr;
223 /* Pointer to next older handler for
224 * this display, or NULL for end of
225 * list. */
226} TkErrorHandler;
227
228/*
229 * One of the following structures exists for each event handler
230 * created by calling Tk_CreateEventHandler. This information
231 * is used by tkEvent.c only.
232 */
233
234typedef struct TkEventHandler {
235 unsigned long mask; /* Events for which to invoke
236 * proc. */
237 Tk_EventProc *proc; /* Procedure to invoke when an event
238 * in mask occurs. */
239 ClientData clientData; /* Argument to pass to proc. */
240 struct TkEventHandler *nextPtr;
241 /* Next in list of handlers
242 * associated with window (NULL means
243 * end of list). */
244} TkEventHandler;
245
246/*
247 * One of the following structures exists for each selection
248 * handler created by calling Tk_CreateSelHandler. This
249 * information is used by tkSelect.c only.
250 */
251
252typedef struct TkSelHandler {
253 Atom target; /* Target type for selection
254 * conversion, such as TARGETS or
255 * STRING. */
256 Atom format; /* Format in which selection
257 * info will be returned, such
258 * as STRING or ATOM. */
259 Tk_SelectionProc *proc; /* Procedure to generate selection
260 * in this format. */
261 ClientData clientData; /* Argument to pass to proc. */
262 int size; /* Size of units returned by proc
263 * (8 for STRING, 32 for almost
264 * anything else). */
265 struct TkSelHandler *nextPtr;
266 /* Next selection handler associated
267 * with same window (NULL for end of
268 * list). */
269} TkSelHandler;
270
271/*
272 * Tk keeps one of the following data structures for each main
273 * window (created by a call to Tk_CreateMainWindow). It stores
274 * information that is shared by all of the windows associated
275 * with a particular main window.
276 */
277
278typedef struct TkMainInfo {
279 struct TkWindow *winPtr; /* Pointer to main window. */
280 Tcl_Interp *interp; /* Interpreter associated with application. */
281 Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow
282 * structs for all windows related to this
283 * main window. Managed by tkWindow.c. */
284 Tk_BindingTable bindingTable;
285 /* Used in conjunction with "bind" command
286 * to bind events to Tcl commands. */
287/* XXX: FOCUS */
288/* struct TkWindow *focusPtr; */ /* Identifies window that currently has the
289 * focus (or that will get the focus the next
290 * time the pointer enters any of the top-level
291 * windows associated with this display).
292 * NULL means nobody has the focus.
293 * Managed by tkEvent.c. */
294 struct ElArray *optionRootPtr;
295 /* Top level of option hierarchy for this
296 * main window. NULL means uninitialized.
297 * Managed by tkOption.c. */
298} TkMainInfo;
299
300/*
301 * Tk keeps one of the following structures for each window.
302 * Some of the information (like size and location) is a shadow
303 * of information managed by the X server, and some is special
304 * information used here, such as event and geometry management
305 * information. This information is (mostly) managed by tkWindow.c.
306 * WARNING: the declaration below must be kept consistent with the
307 * Tk_ClientWindow structure in tk.h. If you change one, be sure to
308 * change the other!!
309 */
310
311typedef struct TkWindow {
312
313 /*
314 * Structural information:
315 */
316
317 Display *display; /* Display containing window. */
318 TkDisplay *dispPtr; /* Tk's information about display
319 * for window. */
320 int screenNum; /* Index of screen for window, among all
321 * those for dispPtr. */
322 Window window; /* X's id for window. NULL means window
323 * hasn't actually been created yet, or it's
324 * been deleted. */
325 struct TkWindow *childList; /* First in list of child windows,
326 * or NULL if no children. */
327 struct TkWindow *parentPtr; /* Pointer to parent window (logical
328 * parent, not necessarily X parent), or
329 * NULL if this is a main window. */
330 struct TkWindow *nextPtr; /* Next in list of children with
331 * same parent (NULL if end of
332 * list). */
333 TkMainInfo *mainPtr; /* Information shared by all windows
334 * associated with a particular main
335 * window. NULL means this window is
336 * a rogue that isn't associated with
337 * any application (at present, there
338 * should never be any rogues). */
339
340 /*
341 * Name and type information for the window:
342 */
343
344 char *pathName; /* Path name of window (concatenation
345 * of all names between this window and
346 * its top-level ancestor). This is a
347 * pointer into an entry in
348 * mainPtr->nameTable or NULL if mainPtr
349 * is NULL. */
350 Tk_Uid nameUid; /* Name of the window within its parent
351 * (unique within the parent). */
352 Tk_Uid classUid; /* Class of the window. NULL means window
353 * hasn't been given a class yet. */
354
355 /*
356 * Geometry and other attributes of window. This information
357 * may not be updated on the server immediately; stuff that
358 * hasn't been reflected in the server yet is called "dirty".
359 * At present, information can be dirty only if the window
360 * hasn't yet been created.
361 */
362
363 XWindowChanges changes; /* Geometry and other info about
364 * window. */
365 unsigned int dirtyChanges; /* Bits indicate fields of "changes"
366 * that are dirty. */
367 XSetWindowAttributes atts; /* Current attributes of window. */
368 unsigned long dirtyAtts; /* Bits indicate fields of "atts"
369 * that are dirty. */
370
371 unsigned int flags; /* Various flag values: these are all
372 * defined in tk.h (confusing, but they're
373 * needed there for some query macros). */
374
375 /*
376 * Information kept by the event manager (tkEvent.c):
377 */
378
379 TkEventHandler *handlerList;/* First in list of event handlers
380 * declared for this window, or
381 * NULL if none. */
382 /*
383 * Information related to input focussing (tkEvent.c):
384 */
385
386 Tk_FocusProc *focusProc; /* Procedure to invoke when this window
387 * gets or loses the input focus. NULL
388 * means this window is not prepared to
389 * receive the focus. */
390 ClientData focusData; /* Arbitrary value to pass to focusProc. */
391
392 /*
393 * Information used by tkOption.c to manage options for the
394 * window.
395 */
396
397 int optionLevel; /* -1 means no option information is
398 * currently cached for this window.
399 * Otherwise this gives the level in
400 * the option stack at which info is
401 * cached. */
402 /*
403 * Information used by tkSelect.c to manage the selection.
404 */
405
406 TkSelHandler *selHandlerList;
407 /* First in list of handlers for
408 * returning the selection in various
409 * forms. */
410 Tk_LostSelProc *selClearProc;
411 ClientData selClearData; /* Info to pass to selClearProc. */
412
413 /*
414 * Information used by tkGeometry.c for geometry management.
415 */
416
417 Tk_GeometryProc *geomProc; /* Procedure to handle geometry
418 * requests (NULL means no window is
419 * unmanaged). */
420 ClientData geomData; /* Argument for geomProc. */
421 int reqWidth, reqHeight; /* Arguments from last call to
422 * Tk_GeometryRequest, or 0's if
423 * Tk_GeometryRequest hasn't been
424 * called. */
425 int internalBorderWidth; /* Width of internal border of window
426 * (0 means no internal border). Geom.
427 * mgr. should not place children on top
428 * of the border. */
429
430 /*
431 * Information maintained by tkWm.c for window manager communication.
432 */
433
434 struct TkWmInfo *wmInfoPtr; /* For top-level windows, points to
435 * structure with wm-related info (see
436 * tkWm.c). For other windows, this
437 * is NULL. */
438} TkWindow;
439
440/*
441 * The context below is used to map from an X window id to
442 * the TkWindow structure associated with the window.
443 */
444
445extern XContext tkWindowContext;
446
447/*
448 * Pointer to first entry in list of all displays currently known.
449 */
450
451extern TkDisplay *tkDisplayList;
452
453/*
454 * Flags passed to TkMeasureChars:
455 */
456
457#define TK_WHOLE_WORDS 1
458#define TK_AT_LEAST_ONE 2
459#define TK_PARTIAL_OK 4
460#define TK_NEWLINES_NOT_SPECIAL 8
461
462/*
463 * Location of library directory containing Tk scripts. This value
464 * is put in the $tkLibrary variable for each application.
465 */
466
467#ifndef TK_LIBRARY
468#ifdef MSDOS
469#define TK_LIBRARY "res/tk"
470#else
471#define TK_LIBRARY "/usr/local/lib/tk"
472#endif
473#endif
474
475/*
476 * See tkShare.c for explanation of following disgusting variable:
477 */
478
479extern XEvent *tkShareEventPtr;
480
481/*
482 * Secret way to inhibit event collapsing. -deh
483 */
484
485extern int tkCollapseMotion;
486
487/*
488 * Secret way to break out to Tk_MainLoop. -deh
489 */
490
491extern int tkMustExit;
492
493/*
494 * Miscellaneous variables shared among Tk modules but not exported
495 * to the outside world:
496 */
497
498extern Tk_Uid tkActiveUid;
499extern Tk_Uid tkDisabledUid;
500extern Tk_Uid tkNormalUid;
501
502/*
503 * Internal procedures shared among Tk modules but not exported
504 * to the outside world:
505 */
506
507extern int TkAreaToPolygon _ANSI_ARGS_((double *polyPtr,
508 int numPoints, double *rectPtr));
509extern void TkBezierPoints _ANSI_ARGS_((double control[],
510 int numSteps, double *coordPtr));
511extern void TkBindError _ANSI_ARGS_((Tcl_Interp *interp));
512extern void TkBindEventProc _ANSI_ARGS_((TkWindow *winPtr,
513 XEvent *eventPtr));
514extern Time TkCurrentTime _ANSI_ARGS_((TkDisplay *dispPtr));
515extern int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData,
516 Tcl_Interp *interp, int argc, char **argv));
517extern void TkDisplayChars _ANSI_ARGS_((Display *display,
518 Drawable drawable, GC gc,
519 XFontStruct *fontStructPtr, char *string,
520 int numChars, int x, int y, int flags));
521extern void TkEventDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
522extern void TkFocusEventProc _ANSI_ARGS_((TkWindow *winPtr,
523 XEvent *eventPtr));
524extern void TkGetButtPoints _ANSI_ARGS_((double p1[], double p2[],
525 double width, int project, double m1[],
526 double m2[]));
527extern int TkGetInterpNames _ANSI_ARGS_((Tcl_Interp *interp,
528 Tk_Window tkwin));
529extern int TkGetMiterPoints _ANSI_ARGS_((double p1[], double p2[],
530 double p3[], double width, double m1[],
531 double m2[]));
532extern void TkGrabDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
533extern int TkLineToArea _ANSI_ARGS_((double end1Ptr[2],
534 double end2Ptr[2], double rectPtr[4]));
535extern double TkLineToPoint _ANSI_ARGS_((double end1Ptr[2],
536 double end2Ptr[2], double pointPtr[2]));
537extern int TkMeasureChars _ANSI_ARGS_((XFontStruct *fontStructPtr,
538 char *source, int maxChars, int startX, int maxX,
539 int flags, int *nextXPtr));
540extern void TkOptionDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
541extern int TkOvalToArea _ANSI_ARGS_((double *ovalPtr,
542 double *rectPtr));
543extern double TkOvalToPoint _ANSI_ARGS_((double ovalPtr[4],
544 double width, int filled, double pointPtr[2]));
545extern int TkPointerEvent _ANSI_ARGS_((XEvent *eventPtr,
546 TkWindow *winPtr));
547extern int TkPolygonToArea _ANSI_ARGS_((double *polyPtr,
548 int numPoints, double *rectPtr));
549extern double TkPolygonToPoint _ANSI_ARGS_((double *polyPtr,
550 int numPoints, double *pointPtr));
551extern void TkSelDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
552extern void TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin,
553 XEvent *eventPtr));
554extern void TkSelPropProc _ANSI_ARGS_((XEvent *eventPtr));
555extern void TkUnderlineChars _ANSI_ARGS_((Display *display,
556 Drawable drawable, GC gc,
557 XFontStruct *fontStructPtr, char *string,
558 int x, int y, int flags, int firstChar,
559 int lastChar));
560extern void TkWmDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
561extern int TkWmMapWindow _ANSI_ARGS_((TkWindow *winPtr));
562extern void TkWmSetClass _ANSI_ARGS_((TkWindow *winPtr));
563extern void TkWmNewWindow _ANSI_ARGS_((TkWindow *winPtr));
564
565#endif /* _TKINT */
Micropolis
Impressum, Datenschutz