开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多国语言处理 > 信息检索与抽取 > 查看源码
tkInt.h
资源名称：swarm-2.2.tar.gz　[点击查看]
上传用户：shenzhenrh
上传日期：2013-05-12
资源大小：2904k
文件大小：36k
源码类别：

信息检索与抽取

开发平台：

Unix_Linux

tkInt.h：源码内容
  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 (c) 1990-1994 The Regents of the University of California.
  8.  * Copyright (c) 1994-1997 Sun Microsystems, Inc.
  9.  *
  10.  * See the file "license.terms" for information on usage and redistribution
  11.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12.  *
  13.  * SCCS: @(#) tkInt.h 1.204 97/10/31 09:55:20
  14.  */
  16. #ifndef _TKINT
  17. #define _TKINT
  19. #ifndef _TK
  20. #include "tk.h"
  21. #endif
  22. #ifndef _TCL
  23. #include "tcl.h"
  24. #endif
  25. #ifndef _TKPORT
  26. #include "tk/tkPort.h"
  27. #endif
  29. /*
  30.  * Opaque type declarations:
  31.  */
  33. typedef struct TkColormap TkColormap;
  34. typedef struct TkGrabEvent TkGrabEvent;
  35. #if 0
  36. typedef struct Tk_PostscriptInfo Tk_PostscriptInfo;
  37. #endif
  38. typedef struct TkpCursor_ *TkpCursor;
  39. typedef struct TkRegion_ *TkRegion;
  40. typedef struct TkStressedCmap TkStressedCmap;
  41. typedef struct TkBindInfo_ *TkBindInfo;
  43. /*
  44.  * Procedure types.
  45.  */
  47. typedef int (TkBindEvalProc) _ANSI_ARGS_((ClientData clientData,
  48. Tcl_Interp *interp, XEvent *eventPtr, Tk_Window tkwin,
  49. KeySym keySym));
  50. typedef void (TkBindFreeProc) _ANSI_ARGS_((ClientData clientData));
  51. typedef Window (TkClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin,
  52. Window parent, ClientData instanceData));
  53. typedef void (TkClassGeometryProc) _ANSI_ARGS_((ClientData instanceData));
  54. typedef void (TkClassModalProc) _ANSI_ARGS_((Tk_Window tkwin,
  55. XEvent *eventPtr));
  58. /*
  59.  * Widget class procedures used to implement platform specific widget
  60.  * behavior.
  61.  */
  63. typedef struct TkClassProcs {
  64.     TkClassCreateProc *createProc;
  65. /* Procedure to invoke when the
  66.                                    platform-dependent window needs to be
  67.                                    created. */
  68.     TkClassGeometryProc *geometryProc;
  69. /* Procedure to invoke when the geometry of a
  70.    window needs to be recalculated as a result
  71.    of some change in the system. */
  72.     TkClassModalProc *modalProc;
  73. /* Procedure to invoke after all bindings on a
  74.    widget have been triggered in order to
  75.    handle a modal loop. */
  76. } TkClassProcs;
  78. /*
  79.  * One of the following structures is maintained for each cursor in
  80.  * use in the system.  This structure is used by tkCursor.c and the
  81.  * various system specific cursor files.
  82.  */
  84. typedef struct TkCursor {
  85.     Tk_Cursor cursor; /* System specific identifier for cursor. */
  86.     int refCount; /* Number of active uses of cursor. */
  87.     Tcl_HashTable *otherTable; /* Second table (other than idTable) used
  88.  * to index this entry. */
  89.     Tcl_HashEntry *hashPtr; /* Entry in otherTable for this structure
  90.  * (needed when deleting). */
  91. } TkCursor;
  93. /*
  94.  * One of the following structures is maintained for each display
  95.  * containing a window managed by Tk:
  96.  */
  98. typedef struct TkDisplay {
  99.     Display *display; /* Xlib's info about display. */
  100.     struct TkDisplay *nextPtr; /* Next in list of all displays. */
  101.     char *name; /* Name of display (with any screen
  102.  * identifier removed).  Malloc-ed. */
  103.     Time lastEventTime; /* Time of last event received for this
  104.  * display. */
  106.     /*
  107.      * Information used primarily by tkBind.c:
  108.      */
  110.     int bindInfoStale; /* Non-zero means the variables in this
  111.  * part of the structure are potentially
  112.  * incorrect and should be recomputed. */
  113.     unsigned int modeModMask; /* Has one bit set to indicate the modifier
  114.  * corresponding to "mode shift".  If no
  115.  * such modifier, than this is zero. */
  116.     unsigned int metaModMask; /* Has one bit set to indicate the modifier
  117.  * corresponding to the "Meta" key.  If no
  118.  * such modifier, then this is zero. */
  119.     unsigned int altModMask; /* Has one bit set to indicate the modifier
  120.  * corresponding to the "Meta" key.  If no
  121.  * such modifier, then this is zero. */
  122.     enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage;
  123. /* Indicates how to interpret lock modifier. */
  124.     int numModKeyCodes; /* Number of entries in modKeyCodes array
  125.  * below. */
  126.     KeyCode *modKeyCodes; /* Pointer to an array giving keycodes for
  127.  * all of the keys that have modifiers
  128.  * associated with them.  Malloc'ed, but
  129.  * may be NULL. */
  131.     /*
  132.      * Information used by tkError.c only:
  133.      */
  135.     struct TkErrorHandler *errorPtr;
  136. /* First in list of error handlers
  137.  * for this display.  NULL means
  138.  * no handlers exist at present. */
  139.     int deleteCount; /* Counts # of handlers deleted since
  140.  * last time inactive handlers were
  141.  * garbage-collected.  When this number
  142.  * gets big, handlers get cleaned up. */
  144.     /*
  145.      * Information used by tkSend.c only:
  146.      */
  148.     Tk_Window commTkwin; /* Window used for communication
  149.  * between interpreters during "send"
  150.  * commands.  NULL means send info hasn't
  151.  * been initialized yet. */
  152.     Atom commProperty; /* X's name for comm property. */
  153.     Atom registryProperty; /* X's name for property containing
  154.  * registry of interpreter names. */
  155.     Atom appNameProperty; /* X's name for property used to hold the
  156.  * application name on each comm window. */
  158.     /*
  159.      * Information used by tkSelect.c and tkClipboard.c only:
  160.      */
  162.     struct TkSelectionInfo *selectionInfoPtr;
  163. /* First in list of selection information
  164.  * records.  Each entry contains information
  165.  * about the current owner of a particular
  166.  * selection on this display. */
  167.     Atom multipleAtom; /* Atom for MULTIPLE.  None means
  168.  * selection stuff isn't initialized. */
  169.     Atom incrAtom; /* Atom for INCR. */
  170.     Atom targetsAtom; /* Atom for TARGETS. */
  171.     Atom timestampAtom; /* Atom for TIMESTAMP. */
  172.     Atom textAtom; /* Atom for TEXT. */
  173.     Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */
  174.     Atom applicationAtom; /* Atom for TK_APPLICATION. */
  175.     Atom windowAtom; /* Atom for TK_WINDOW. */
  176.     Atom clipboardAtom; /* Atom for CLIPBOARD. */
  178.     Tk_Window clipWindow; /* Window used for clipboard ownership and to
  179.  * retrieve selections between processes. NULL
  180.  * means clipboard info hasn't been
  181.  * initialized. */
  182.     int clipboardActive; /* 1 means we currently own the clipboard
  183.  * selection, 0 means we don't. */
  184.     struct TkMainInfo *clipboardAppPtr;
  185. /* Last application that owned clipboard. */
  186.     struct TkClipboardTarget *clipTargetPtr;
  187. /* First in list of clipboard type information
  188.  * records.  Each entry contains information
  189.  * about the buffers for a given selection
  190.  * target. */
  192.     /*
  193.      * Information used by tkAtom.c only:
  194.      */
  196.     int atomInit; /* 0 means stuff below hasn't been
  197.  * initialized yet. */
  198.     Tcl_HashTable nameTable; /* Maps from names to Atom's. */
  199.     Tcl_HashTable atomTable; /* Maps from Atom's back to names. */
  201.     /*
  202.      * Information used by tkCursor.c only:
  203.      */
  205.     Font cursorFont; /* Font to use for standard cursors.
  206.  * None means font not loaded yet. */
  208.     /*
  209.      * Information used by tkGrab.c only:
  210.      */
  212.     struct TkWindow *grabWinPtr;
  213. /* Window in which the pointer is currently
  214.  * grabbed, or NULL if none. */
  215.     struct TkWindow *eventualGrabWinPtr;
  216. /* Value that grabWinPtr will have once the
  217.  * grab event queue (below) has been
  218.  * completely emptied. */
  219.     struct TkWindow *buttonWinPtr;
  220. /* Window in which first mouse button was
  221.  * pressed while grab was in effect, or NULL
  222.  * if no such press in effect. */
  223.     struct TkWindow *serverWinPtr;
  224. /* If no application contains the pointer then
  225.  * this is NULL.  Otherwise it contains the
  226.  * last window for which we've gotten an
  227.  * Enter or Leave event from the server (i.e.
  228.  * the last window known to have contained
  229.  * the pointer).  Doesn't reflect events
  230.  * that were synthesized in tkGrab.c. */
  231.     TkGrabEvent *firstGrabEventPtr;
  232. /* First in list of enter/leave events
  233.  * synthesized by grab code.  These events
  234.  * must be processed in order before any other
  235.  * events are processed.  NULL means no such
  236.  * events. */
  237.     TkGrabEvent *lastGrabEventPtr;
  238. /* Last in list of synthesized events, or NULL
  239.  * if list is empty. */
  240.     int grabFlags; /* Miscellaneous flag values.  See definitions
  241.  * in tkGrab.c. */
  243.     /*
  244.      * Information used by tkXId.c only:
  245.      */
  247.     struct TkIdStack *idStackPtr;
  248. /* First in list of chunks of free resource
  249.  * identifiers, or NULL if there are no free
  250.  * resources. */
  251.     XID (*defaultAllocProc) _ANSI_ARGS_((Display *display));
  252. /* Default resource allocator for display. */
  253.     struct TkIdStack *windowStackPtr;
  254. /* First in list of chunks of window
  255.  * identifers that can't be reused right
  256.  * now. */
  257.     int idCleanupScheduled; /* 1 means a call to WindowIdCleanup has
  258.  * already been scheduled, 0 means it
  259.  * hasn't. */
  261.     /*
  262.      * Information maintained by tkWindow.c for use later on by tkXId.c:
  263.      */
  266.     int destroyCount; /* Number of Tk_DestroyWindow operations
  267.  * in progress. */
  268.     unsigned long lastDestroyRequest;
  269. /* Id of most recent XDestroyWindow request;
  270.  * can re-use ids in windowStackPtr when
  271.  * server has seen this request and event
  272.  * queue is empty. */
  274.     /*
  275.      * Information used by tkVisual.c only:
  276.      */
  278.     TkColormap *cmapPtr; /* First in list of all non-default colormaps
  279.  * allocated for this display. */
  281.     /*
  282.      * Information used by tkFocus.c only:
  283.      */
  285.     struct TkWindow *implicitWinPtr;
  286. /* If the focus arrived at a toplevel window
  287.  * implicitly via an Enter event (rather
  288.  * than via a FocusIn event), this points
  289.  * to the toplevel window.  Otherwise it is
  290.  * NULL. */
  291.     struct TkWindow *focusPtr; /* Points to the window on this display that
  292.  * should be receiving keyboard events.  When
  293.  * multiple applications on the display have
  294.  * the focus, this will refer to the
  295.  * innermost window in the innermost
  296.  * application.  This information isn't used
  297.  * under Unix or Windows, but it's needed on
  298.  * the Macintosh. */
  300.     /*
  301.      * Used by tkColor.c only:
  302.      */
  304.     TkStressedCmap *stressPtr; /* First in list of colormaps that have
  305.  * filled up, so we have to pick an
  306.  * approximate color. */
  308.     /*
  309.      * Used by tkEvent.c only:
  310.      */
  312.     struct TkWindowEvent *delayedMotionPtr;
  313. /* Points to a malloc-ed motion event
  314.  * whose processing has been delayed in
  315.  * the hopes that another motion event
  316.  * will come along right away and we can
  317.  * merge the two of them together.  NULL
  318.  * means that there is no delayed motion
  319.  * event. */
  321.     /*
  322.      * Miscellaneous information:
  323.      */
  325. #ifdef TK_USE_INPUT_METHODS
  326.     XIM inputMethod; /* Input method for this display */
  327. #endif /* TK_USE_INPUT_METHODS */
  328.     Tcl_HashTable winTable; /* Maps from X window ids to TkWindow ptrs. */
  330.     int refCount; /* Reference count of how many Tk applications
  331.                                  * are using this display. Used to clean up
  332.                                  * the display when we no longer have any
  333.                                  * Tk applications using it.
  334.                                  */
  335. } TkDisplay;
  337. /*
  338.  * One of the following structures exists for each error handler
  339.  * created by a call to Tk_CreateErrorHandler.  The structure
  340.  * is managed by tkError.c.
  341.  */
  343. typedef struct TkErrorHandler {
  344.     TkDisplay *dispPtr; /* Display to which handler applies. */
  345.     unsigned long firstRequest; /* Only errors with serial numbers
  346.  * >= to this are considered. */
  347.     unsigned long lastRequest; /* Only errors with serial numbers
  348.  * <= to this are considered.  This
  349.  * field is filled in when XUnhandle
  350.  * is called.  -1 means XUnhandle
  351.  * hasn't been called yet. */
  352.     int error; /* Consider only errors with this
  353.  * error_code (-1 means consider
  354.  * all errors). */
  355.     int request; /* Consider only errors with this
  356.  * major request code (-1 means
  357.  * consider all major codes). */
  358.     int minorCode; /* Consider only errors with this
  359.  * minor request code (-1 means
  360.  * consider all minor codes). */
  361.     Tk_ErrorProc *errorProc; /* Procedure to invoke when a matching
  362.  * error occurs.  NULL means just ignore
  363.  * errors. */
  364.     ClientData clientData; /* Arbitrary value to pass to
  365.  * errorProc. */
  366.     struct TkErrorHandler *nextPtr;
  367. /* Pointer to next older handler for
  368.  * this display, or NULL for end of
  369.  * list. */
  370. } TkErrorHandler;
  372. /*
  373.  * One of the following structures exists for each event handler
  374.  * created by calling Tk_CreateEventHandler.  This information
  375.  * is used by tkEvent.c only.
  376.  */
  378. typedef struct TkEventHandler {
  379.     unsigned long mask; /* Events for which to invoke
  380.  * proc. */
  381.     Tk_EventProc *proc; /* Procedure to invoke when an event
  382.  * in mask occurs. */
  383.     ClientData clientData; /* Argument to pass to proc. */
  384.     struct TkEventHandler *nextPtr;
  385. /* Next in list of handlers
  386.  * associated with window (NULL means
  387.  * end of list). */
  388. } TkEventHandler;
  390. /*
  391.  * Tk keeps one of the following data structures for each main
  392.  * window (created by a call to Tk_CreateMainWindow).  It stores
  393.  * information that is shared by all of the windows associated
  394.  * with a particular main window.
  395.  */
  397. typedef struct TkMainInfo {
  398.     int refCount; /* Number of windows whose "mainPtr" fields
  399.  * point here.  When this becomes zero, can
  400.  * free up the structure (the reference
  401.  * count is zero because windows can get
  402.  * deleted in almost any order;  the main
  403.  * window isn't necessarily the last one
  404.  * deleted). */
  405.     struct TkWindow *winPtr; /* Pointer to main window. */
  406.     Tcl_Interp *interp; /* Interpreter associated with application. */
  407.     Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow
  408.  * structs for all windows related to this
  409.  * main window.  Managed by tkWindow.c. */
  410.     Tk_BindingTable bindingTable;
  411. /* Used in conjunction with "bind" command
  412.  * to bind events to Tcl commands. */
  413.     TkBindInfo bindInfo; /* Information used by tkBind.c on a per
  414.  * interpreter basis. */
  415.     struct TkFontInfo *fontInfoPtr;
  416. /* Hold named font tables.  Used only by
  417.  * tkFont.c. */
  419.     /*
  420.      * Information used only by tkFocus.c and tk*Embed.c:
  421.      */
  423.     struct TkToplevelFocusInfo *tlFocusPtr;
  424. /* First in list of records containing focus
  425.  * information for each top-level in the
  426.  * application.  Used only by tkFocus.c. */
  427.     struct TkDisplayFocusInfo *displayFocusPtr;
  428. /* First in list of records containing focus
  429.  * information for each display that this
  430.  * application has ever used.  Used only
  431.  * by tkFocus.c. */
  433.     struct ElArray *optionRootPtr;
  434. /* Top level of option hierarchy for this
  435.  * main window.  NULL means uninitialized.
  436.  * Managed by tkOption.c. */
  437.     Tcl_HashTable imageTable; /* Maps from image names to Tk_ImageMaster
  438.  * structures.  Managed by tkImage.c. */
  439.     int strictMotif; /* This is linked to the tk_strictMotif
  440.  * global variable. */
  441.     struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by
  442.  * this process. */
  443. } TkMainInfo;
  445. /*
  446.  * Tk keeps the following data structure for each of it's builtin
  447.  * bitmaps.  This structure is only used by tkBitmap.c and other
  448.  * platform specific bitmap files.
  449.  */
  451. typedef struct {
  452.     char *source; /* Bits for bitmap. */
  453.     int width, height; /* Dimensions of bitmap. */
  454.     int native; /* 0 means generic (X style) bitmap,
  455.       * 1 means native style bitmap. */
  456. } TkPredefBitmap;
  458. /*
  459.  * Tk keeps one of the following structures for each window.
  460.  * Some of the information (like size and location) is a shadow
  461.  * of information managed by the X server, and some is special
  462.  * information used here, such as event and geometry management
  463.  * information.  This information is (mostly) managed by tkWindow.c.
  464.  * WARNING: the declaration below must be kept consistent with the
  465.  * Tk_FakeWin structure in tk.h.  If you change one, be sure to
  466.  * change the other!!
  467.  */
  469. typedef struct TkWindow {
  471.     /*
  472.      * Structural information:
  473.      */
  475.     Display *display; /* Display containing window. */
  476.     TkDisplay *dispPtr; /* Tk's information about display
  477.  * for window. */
  478.     int screenNum; /* Index of screen for window, among all
  479.  * those for dispPtr. */
  480.     Visual *visual; /* Visual to use for window.  If not default,
  481.  * MUST be set before X window is created. */
  482.     int depth; /* Number of bits/pixel. */
  483.     Window window; /* X's id for window.   NULL means window
  484.  * hasn't actually been created yet, or it's
  485.  * been deleted. */
  486.     struct TkWindow *childList; /* First in list of child windows,
  487.  * or NULL if no children.  List is in
  488.  * stacking order, lowest window first.*/
  489.     struct TkWindow *lastChildPtr;
  490. /* Last in list of child windows (highest
  491.  * in stacking order), or NULL if no
  492.  * children. */
  493.     struct TkWindow *parentPtr; /* Pointer to parent window (logical
  494.  * parent, not necessarily X parent).  NULL
  495.  * means either this is the main window, or
  496.  * the window's parent has already been
  497.  * deleted. */
  498.     struct TkWindow *nextPtr; /* Next higher sibling (in stacking order)
  499.  * in list of children with same parent.  NULL
  500.  * means end of list. */
  501.     TkMainInfo *mainPtr; /* Information shared by all windows
  502.  * associated with a particular main
  503.  * window.  NULL means this window is
  504.  * a rogue that isn't associated with
  505.  * any application (at present, this
  506.  * only happens for the dummy windows
  507.  * used for "send" communication).  */
  509.     /*
  510.      * Name and type information for the window:
  511.      */
  513.     char *pathName; /* Path name of window (concatenation
  514.  * of all names between this window and
  515.  * its top-level ancestor).  This is a
  516.  * pointer into an entry in
  517.  * mainPtr->nameTable.  NULL means that
  518.  * the window hasn't been completely
  519.  * created yet. */
  520.     Tk_Uid nameUid; /* Name of the window within its parent
  521.  * (unique within the parent). */
  522.     Tk_Uid classUid; /* Class of the window.  NULL means window
  523.  * hasn't been given a class yet. */
  525.     /*
  526.      * Geometry and other attributes of window.  This information
  527.      * may not be updated on the server immediately;  stuff that
  528.      * hasn't been reflected in the server yet is called "dirty".
  529.      * At present, information can be dirty only if the window
  530.      * hasn't yet been created.
  531.      */
  533.     XWindowChanges changes; /* Geometry and other info about
  534.  * window. */
  535.     unsigned int dirtyChanges; /* Bits indicate fields of "changes"
  536.  * that are dirty. */
  537.     XSetWindowAttributes atts; /* Current attributes of window. */
  538.     unsigned long dirtyAtts; /* Bits indicate fields of "atts"
  539.  * that are dirty. */
  541.     unsigned int flags; /* Various flag values:  these are all
  542.  * defined in tk.h (confusing, but they're
  543.  * needed there for some query macros). */
  545.     /*
  546.      * Information kept by the event manager (tkEvent.c):
  547.      */
  549.     TkEventHandler *handlerList;/* First in list of event handlers
  550.  * declared for this window, or
  551.  * NULL if none. */
  552. #ifdef TK_USE_INPUT_METHODS
  553.     XIC inputContext; /* Input context (for input methods). */
  554. #endif /* TK_USE_INPUT_METHODS */
  556.     /*
  557.      * Information used for event bindings (see "bind" and "bindtags"
  558.      * commands in tkCmds.c):
  559.      */
  561.     ClientData *tagPtr; /* Points to array of tags used for bindings
  562.  * on this window.  Each tag is a Tk_Uid.
  563.  * Malloc'ed.  NULL means no tags. */
  564.     int numTags; /* Number of tags at *tagPtr. */
  566.     /*
  567.      * Information used by tkOption.c to manage options for the
  568.      * window.
  569.      */
  571.     int optionLevel; /* -1 means no option information is
  572.  * currently cached for this window.
  573.  * Otherwise this gives the level in
  574.  * the option stack at which info is
  575.  * cached. */
  576.     /*
  577.      * Information used by tkSelect.c to manage the selection.
  578.      */
  580.     struct TkSelHandler *selHandlerList;
  581. /* First in list of handlers for
  582.  * returning the selection in various
  583.  * forms. */
  585.     /*
  586.      * Information used by tkGeometry.c for geometry management.
  587.      */
  589.     Tk_GeomMgr *geomMgrPtr; /* Information about geometry manager for
  590.  * this window. */
  591.     ClientData geomData; /* Argument for geometry manager procedures. */
  592.     int reqWidth, reqHeight; /* Arguments from last call to
  593.  * Tk_GeometryRequest, or 0's if
  594.  * Tk_GeometryRequest hasn't been
  595.  * called. */
  596.     int internalBorderWidth; /* Width of internal border of window
  597.  * (0 means no internal border).  Geometry
  598.  * managers should not normally place children
  599.  * on top of the border. */
  601.     /*
  602.      * Information maintained by tkWm.c for window manager communication.
  603.      */
  605.     struct TkWmInfo *wmInfoPtr; /* For top-level windows (and also
  606.  * for special Unix menubar and wrapper
  607.  * windows), points to structure with
  608.  * wm-related info (see tkWm.c).  For
  609.  * other windows, this is NULL. */
  611.     /*
  612.      * Information used by widget classes.
  613.      */
  615.     TkClassProcs *classProcsPtr;
  616.     ClientData instanceData;
  618.     /*
  619.      * Platform specific information private to each port.
  620.      */
  622.     struct TkWindowPrivate *privatePtr;
  623. } TkWindow;
  625. /*
  626.  * The following structure is used as a two way map between integers
  627.  * and strings, usually to map between an internal C representation
  628.  * and the strings used in Tcl.
  629.  */
  631. typedef struct TkStateMap {
  632.     int numKey; /* Integer representation of a value. */
  633.     char *strKey; /* String representation of a value. */
  634. } TkStateMap;
  636. /*
  637.  * This structure is used by the Mac and Window porting layers as
  638.  * the internal representation of a clip_mask in a GC.
  639.  */
  641. typedef struct TkpClipMask {
  642.     int type; /* One of TKP_CLIP_PIXMAP or TKP_CLIP_REGION */
  643.     union {
  644.         X11Pixmap pixmap;
  645. TkRegion region;
  646.     } value;
  647. } TkpClipMask;
  649. #define TKP_CLIP_PIXMAP 0
  650. #define TKP_CLIP_REGION 1
  652. /*
  653.  * Pointer to first entry in list of all displays currently known.
  654.  */
  656. extern TkDisplay *tkDisplayList;
  658. /*
  659.  * Return values from TkGrabState:
  660.  */
  662. #define TK_GRAB_NONE 0
  663. #define TK_GRAB_IN_TREE 1
  664. #define TK_GRAB_ANCESTOR 2
  665. #define TK_GRAB_EXCLUDED 3
  667. /*
  668.  * The macro below is used to modify a "char" value (e.g. by casting
  669.  * it to an unsigned character) so that it can be used safely with
  670.  * macros such as isspace.
  671.  */
  673. #define UCHAR(c) ((unsigned char) (c))
  675. /*
  676.  * The following symbol is used in the mode field of FocusIn events
  677.  * generated by an embedded application to request the input focus from
  678.  * its container.
  679.  */
  681. #define EMBEDDED_APP_WANTS_FOCUS (NotifyNormal + 20)
  683. /*
  684.  * Miscellaneous variables shared among Tk modules but not exported
  685.  * to the outside world:
  686.  */
  688. extern Tk_Uid tkActiveUid;
  689. extern Tk_ImageType tkBitmapImageType;
  690. extern Tk_Uid tkDisabledUid;
  691. extern Tk_PhotoImageFormat tkImgFmtGIF;
  692. extern void (*tkHandleEventProc) _ANSI_ARGS_((
  693.          XEvent* eventPtr));
  694. extern Tk_PhotoImageFormat tkImgFmtPPM;
  695. extern TkMainInfo *tkMainWindowList;
  696. extern Tk_Uid tkNormalUid;
  697. extern Tk_ImageType tkPhotoImageType;
  698. extern Tcl_HashTable tkPredefBitmapTable;
  699. extern int tkSendSerial;
  701. /*
  702.  * Internal procedures shared among Tk modules but not exported
  703.  * to the outside world:
  704.  */
  706. EXTERN char * TkAlignImageData _ANSI_ARGS_((XImage *image,
  707.     int alignment, int bitOrder));
  708. EXTERN TkWindow * TkAllocWindow _ANSI_ARGS_((TkDisplay *dispPtr,
  709.     int screenNum, TkWindow *parentPtr));
  710. EXTERN int TkAreaToPolygon _ANSI_ARGS_((double *polyPtr,
  711.     int numPoints, double *rectPtr));
  712. EXTERN void TkBezierPoints _ANSI_ARGS_((double control[],
  713.     int numSteps, double *coordPtr));
  714. EXTERN void TkBezierScreenPoints _ANSI_ARGS_((Tk_Canvas canvas,
  715.     double control[], int numSteps,
  716.     XPoint *xPointPtr));
  717. EXTERN void TkBindDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  718. EXTERN void TkBindEventProc _ANSI_ARGS_((TkWindow *winPtr,
  719.     XEvent *eventPtr));
  720. EXTERN void TkBindFree _ANSI_ARGS_((TkMainInfo *mainPtr));
  721. EXTERN void TkBindInit _ANSI_ARGS_((TkMainInfo *mainPtr));
  722. EXTERN void TkChangeEventWindow _ANSI_ARGS_((XEvent *eventPtr,
  723.     TkWindow *winPtr));
  724. #ifndef TkClipBox
  725. EXTERN void TkClipBox _ANSI_ARGS_((TkRegion rgn,
  726.     XRectangle* rect_return));
  727. #endif
  728. EXTERN int TkClipInit _ANSI_ARGS_((Tcl_Interp *interp,
  729.     TkDisplay *dispPtr));
  730. EXTERN void TkComputeAnchor _ANSI_ARGS_((Tk_Anchor anchor,
  731.     Tk_Window tkwin, int padX, int padY,
  732.     int innerWidth, int innerHeight, int *xPtr,
  733.     int *yPtr));
  734. EXTERN int TkCopyAndGlobalEval _ANSI_ARGS_((Tcl_Interp *interp,
  735.     char *script));
  736. EXTERN unsigned long TkCreateBindingProcedure _ANSI_ARGS_((
  737.     Tcl_Interp *interp, Tk_BindingTable bindingTable,
  738.     ClientData object, char *eventString,
  739.     TkBindEvalProc *evalProc, TkBindFreeProc *freeProc,
  740.     ClientData clientData));
  741. EXTERN TkCursor * TkCreateCursorFromData _ANSI_ARGS_((Tk_Window tkwin,
  742.     char *source, char *mask, int width, int height,
  743.     int xHot, int yHot, XColor fg, XColor bg));
  744. EXTERN int TkCreateFrame _ANSI_ARGS_((ClientData clientData,
  745.     Tcl_Interp *interp, int argc, char **argv,
  746.     int toplevel, char *appName));
  747. EXTERN Tk_Window TkCreateMainWindow _ANSI_ARGS_((Tcl_Interp *interp,
  748.     char *screenName, char *baseName));
  749. #ifndef TkCreateRegion
  750. EXTERN TkRegion TkCreateRegion _ANSI_ARGS_((void));
  751. #endif
  752. EXTERN Time TkCurrentTime _ANSI_ARGS_((TkDisplay *dispPtr));
  753. EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData,
  754.     Tcl_Interp *interp, int argc, char **argv));
  755. EXTERN void TkDeleteAllImages _ANSI_ARGS_((TkMainInfo *mainPtr));
  756. #ifndef TkDestroyRegion
  757. EXTERN void TkDestroyRegion _ANSI_ARGS_((TkRegion rgn));
  758. #endif
  759. EXTERN void TkDoConfigureNotify _ANSI_ARGS_((TkWindow *winPtr));
  760. EXTERN void TkDrawInsetFocusHighlight _ANSI_ARGS_((
  761.     Tk_Window tkwin, GC gc, int width,
  762.     Drawable drawable, int padding));
  763. EXTERN void TkEventCleanupProc _ANSI_ARGS_((
  764.     ClientData clientData, Tcl_Interp *interp));
  765. EXTERN void TkEventDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  766. EXTERN void TkFillPolygon _ANSI_ARGS_((Tk_Canvas canvas,
  767.     double *coordPtr, int numPoints, Display *display,
  768.     Drawable drawable, GC gc, GC outlineGC));
  769. EXTERN int TkFindStateNum _ANSI_ARGS_((Tcl_Interp *interp,
  770.     CONST char *option, CONST TkStateMap *mapPtr,
  771.     CONST char *strKey));
  772. EXTERN char * TkFindStateString _ANSI_ARGS_((
  773.     CONST TkStateMap *mapPtr, int numKey));
  774. EXTERN void TkFocusDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  775. EXTERN int TkFocusFilterEvent _ANSI_ARGS_((TkWindow *winPtr,
  776.     XEvent *eventPtr));
  777. EXTERN TkWindow * TkFocusKeyEvent _ANSI_ARGS_((TkWindow *winPtr,
  778.     XEvent *eventPtr));
  779. EXTERN void TkFontPkgInit _ANSI_ARGS_((TkMainInfo *mainPtr));
  780. EXTERN void TkFontPkgFree _ANSI_ARGS_((TkMainInfo *mainPtr));
  781. EXTERN void TkFreeBindingTags _ANSI_ARGS_((TkWindow *winPtr));
  782. EXTERN void TkFreeCursor _ANSI_ARGS_((TkCursor *cursorPtr));
  783. EXTERN void TkFreeWindowId _ANSI_ARGS_((TkDisplay *dispPtr,
  784.     Window w));
  785. EXTERN void TkGenerateActivateEvents _ANSI_ARGS_((
  786.     TkWindow *winPtr, int active));
  787. EXTERN char * TkGetBitmapData _ANSI_ARGS_((Tcl_Interp *interp,
  788.     char *string, char *fileName, int *widthPtr,
  789.     int *heightPtr, int *hotXPtr, int *hotYPtr));
  790. EXTERN void TkGetButtPoints _ANSI_ARGS_((double p1[], double p2[],
  791.     double width, int project, double m1[],
  792.     double m2[]));
  793. EXTERN TkCursor * TkGetCursorByName _ANSI_ARGS_((Tcl_Interp *interp,
  794.     Tk_Window tkwin, Tk_Uid string));
  795. EXTERN char * TkGetDefaultScreenName _ANSI_ARGS_((Tcl_Interp *interp,
  796.     char *screenName));
  797. EXTERN TkDisplay * TkGetDisplay _ANSI_ARGS_((Display *display));
  798. EXTERN int TkGetDisplayOf _ANSI_ARGS_((Tcl_Interp *interp,
  799.     int objc, Tcl_Obj *CONST objv[],
  800.     Tk_Window *tkwinPtr));
  801. EXTERN TkWindow * TkGetFocusWin _ANSI_ARGS_((TkWindow *winPtr));
  802. EXTERN int TkGetInterpNames _ANSI_ARGS_((Tcl_Interp *interp,
  803.     Tk_Window tkwin));
  804. EXTERN int TkGetMiterPoints _ANSI_ARGS_((double p1[], double p2[],
  805.     double p3[], double width, double m1[],
  806.     double m2[]));
  807. #ifndef TkGetNativeProlog
  808. EXTERN int TkGetNativeProlog _ANSI_ARGS_((Tcl_Interp *interp));
  809. #endif
  810. EXTERN void TkGetPointerCoords _ANSI_ARGS_((Tk_Window tkwin,
  811.     int *xPtr, int *yPtr));
  812. EXTERN int TkGetProlog _ANSI_ARGS_((Tcl_Interp *interp));
  813. EXTERN void TkGetServerInfo _ANSI_ARGS_((Tcl_Interp *interp,
  814.     Tk_Window tkwin));
  815. EXTERN void TkGrabDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  816. EXTERN int TkGrabState _ANSI_ARGS_((TkWindow *winPtr));
  817. EXTERN TkWindow *       TkIDToWindow _ANSI_ARGS_((Window window, 
  818.     TkDisplay *display));
  819. EXTERN void TkIncludePoint _ANSI_ARGS_((Tk_Item *itemPtr,
  820.     double *pointPtr));
  821. EXTERN void TkInitXId _ANSI_ARGS_((TkDisplay *dispPtr));
  822. EXTERN void TkInOutEvents _ANSI_ARGS_((XEvent *eventPtr,
  823.     TkWindow *sourcePtr, TkWindow *destPtr,
  824.     int leaveType, int enterType,
  825.     Tcl_QueuePosition position));
  826. EXTERN void TkInstallFrameMenu _ANSI_ARGS_((Tk_Window tkwin));
  827. #ifndef TkIntersectRegion
  828. EXTERN void TkIntersectRegion _ANSI_ARGS_((TkRegion sra,
  829.     TkRegion srcb, TkRegion dr_return));
  830. #endif
  831. EXTERN char * TkKeysymToString _ANSI_ARGS_((KeySym keysym));
  832. EXTERN int TkLineToArea _ANSI_ARGS_((double end1Ptr[2],
  833.     double end2Ptr[2], double rectPtr[4]));
  834. EXTERN double TkLineToPoint _ANSI_ARGS_((double end1Ptr[2],
  835.     double end2Ptr[2], double pointPtr[2]));
  836. EXTERN int TkListAppend _ANSI_ARGS_((void **headPtrPtr,
  837.     void *itemPtr, size_t size));
  838. EXTERN int TkListDelete _ANSI_ARGS_((void **headPtrPtr,
  839.     void *itemPtr, size_t size));
  840. EXTERN void * TkListFind _ANSI_ARGS_((void *headPtr, void *itemPtr,
  841.     size_t size));
  842. EXTERN int TkMakeBezierCurve _ANSI_ARGS_((Tk_Canvas canvas,
  843.     double *pointPtr, int numPoints, int numSteps,
  844.     XPoint xPoints[], double dblPoints[]));
  845. EXTERN void TkMakeBezierPostscript _ANSI_ARGS_((Tcl_Interp *interp,
  846.     Tk_Canvas canvas, double *pointPtr,
  847.     int numPoints));
  848. EXTERN void TkOptionClassChanged _ANSI_ARGS_((TkWindow *winPtr));
  849. EXTERN void TkOptionDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  850. EXTERN int TkOvalToArea _ANSI_ARGS_((double *ovalPtr,
  851.     double *rectPtr));
  852. EXTERN double TkOvalToPoint _ANSI_ARGS_((double ovalPtr[4],
  853.     double width, int filled, double pointPtr[2]));
  854. EXTERN int TkpChangeFocus _ANSI_ARGS_((TkWindow *winPtr,
  855.     int force));
  856. EXTERN void TkpCloseDisplay _ANSI_ARGS_((TkDisplay *dispPtr));
  857. EXTERN void TkpClaimFocus _ANSI_ARGS_((TkWindow *topLevelPtr,
  858.     int force));
  859. #ifndef TkpCmapStressed
  860. EXTERN int TkpCmapStressed _ANSI_ARGS_((Tk_Window tkwin,
  861.     X11Colormap colormap));
  862. #endif
  863. #ifndef TkpCreateNativeBitmap
  864. EXTERN X11Pixmap TkpCreateNativeBitmap _ANSI_ARGS_((Display *display,
  865.     char * source));
  866. #endif
  867. #ifndef TkpDefineNativeBitmaps
  868. EXTERN void TkpDefineNativeBitmaps _ANSI_ARGS_((void));
  869. #endif
  870. EXTERN void TkpDisplayWarning _ANSI_ARGS_((char *msg,
  871.     char *title));
  872. EXTERN void TkpGetAppName _ANSI_ARGS_((Tcl_Interp *interp,
  873.     Tcl_DString *name));
  874. EXTERN unsigned long TkpGetMS _ANSI_ARGS_((void));
  875. #ifndef TkpGetNativeAppBitmap
  876. EXTERN X11Pixmap TkpGetNativeAppBitmap _ANSI_ARGS_((Display *display,
  877.     char *name, int *width, int *height));
  878. #endif
  879. EXTERN TkWindow * TkpGetOtherWindow _ANSI_ARGS_((TkWindow *winPtr));
  880. EXTERN TkWindow * TkpGetWrapperWindow _ANSI_ARGS_((TkWindow *winPtr));
  881. EXTERN int TkpInit _ANSI_ARGS_((Tcl_Interp *interp));
  882. EXTERN void TkpInitializeMenuBindings _ANSI_ARGS_((
  883.     Tcl_Interp *interp, Tk_BindingTable bindingTable));
  884. EXTERN void TkpMakeContainer _ANSI_ARGS_((Tk_Window tkwin));
  885. EXTERN void TkpMakeMenuWindow _ANSI_ARGS_((Tk_Window tkwin,
  886.     int transient));
  887. EXTERN Window TkpMakeWindow _ANSI_ARGS_((TkWindow *winPtr,
  888.     Window parent));
  889. EXTERN void TkpMenuNotifyToplevelCreate _ANSI_ARGS_((
  890.     Tcl_Interp *, char *menuName));
  891. EXTERN TkDisplay * TkpOpenDisplay _ANSI_ARGS_((char *display_name));
  892. EXTERN void TkPointerDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  893. EXTERN int TkPointerEvent _ANSI_ARGS_((XEvent *eventPtr,
  894.     TkWindow *winPtr));
  895. EXTERN int TkPolygonToArea _ANSI_ARGS_((double *polyPtr,
  896.     int numPoints, double *rectPtr));
  897. EXTERN double TkPolygonToPoint _ANSI_ARGS_((double *polyPtr,
  898.     int numPoints, double *pointPtr));
  899. EXTERN int TkPositionInTree _ANSI_ARGS_((TkWindow *winPtr,
  900.     TkWindow *treePtr));
  901. #ifndef TkpPrintWindowId
  902. EXTERN void TkpPrintWindowId _ANSI_ARGS_((char *buf,
  903.     Window window));
  904. #endif
  905. EXTERN void TkpRedirectKeyEvent _ANSI_ARGS_((TkWindow *winPtr,
  906.     XEvent *eventPtr));
  907. #ifndef TkpScanWindowId
  908. EXTERN int TkpScanWindowId _ANSI_ARGS_((Tcl_Interp *interp,
  909.     char *string, int *idPtr));
  910. #endif
  911. EXTERN void TkpSetCapture _ANSI_ARGS_((TkWindow *winPtr));
  912. EXTERN void TkpSetCursor _ANSI_ARGS_((TkpCursor cursor));
  913. EXTERN void TkpSetMainMenubar _ANSI_ARGS_((Tcl_Interp *interp,
  914.     Tk_Window tkwin, char *menuName));
  915. #ifndef TkpSync
  916. EXTERN void TkpSync _ANSI_ARGS_((Display *display));
  917. #endif
  918. EXTERN int TkpTestembedCmd _ANSI_ARGS_((ClientData clientData,
  919.     Tcl_Interp *interp, int argc, char **argv));
  920. EXTERN int TkpUseWindow _ANSI_ARGS_((Tcl_Interp *interp,
  921.     Tk_Window tkwin, char *string));
  922. #ifndef TkPutImage
  923. EXTERN void TkPutImage _ANSI_ARGS_((unsigned long *colors,
  924.     int ncolors, Display* display, Drawable d,
  925.     GC gc, XImage* image, int src_x, int src_y,
  926.     int dest_x, int dest_y, unsigned int width,
  927.     unsigned int height));
  928. #endif
  929. EXTERN int TkpWindowWasRecentlyDeleted _ANSI_ARGS_((Window win,
  930.     TkDisplay *dispPtr));
  931. EXTERN void TkpWmSetState _ANSI_ARGS_((TkWindow *winPtr,
  932.     int state));
  933. EXTERN void TkQueueEventForAllChildren _ANSI_ARGS_((
  934.     TkWindow *winPtr, XEvent *eventPtr));
  935. #ifndef TkRectInRegion
  936. EXTERN int TkRectInRegion _ANSI_ARGS_((TkRegion rgn,
  937.     int x, int y, unsigned int width,
  938.     unsigned int height));
  939. #endif
  940. EXTERN int TkScrollWindow _ANSI_ARGS_((Tk_Window tkwin, GC gc,
  941.     int x, int y, int width, int height, int dx,
  942.     int dy, TkRegion damageRgn));
  943. EXTERN void TkSelDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  944. EXTERN void TkSelEventProc _ANSI_ARGS_((Tk_Window tkwin,
  945.     XEvent *eventPtr));
  946. EXTERN void TkSelInit _ANSI_ARGS_((Tk_Window tkwin));
  947. EXTERN void TkSelPropProc _ANSI_ARGS_((XEvent *eventPtr));
  948. EXTERN void TkSetClassProcs _ANSI_ARGS_((Tk_Window tkwin,
  949.     TkClassProcs *procs, ClientData instanceData));
  950. #ifndef TkSetPixmapColormap
  951. EXTERN void TkSetPixmapColormap _ANSI_ARGS_((X11Pixmap pixmap,
  952.     Colormap colormap));
  953. #endif
  954. #ifndef TkSetRegion
  955. EXTERN void TkSetRegion _ANSI_ARGS_((Display* display, GC gc,
  956.     TkRegion rgn));
  957. #endif
  958. EXTERN void TkSetWindowMenuBar _ANSI_ARGS_((Tcl_Interp *interp,
  959.     Tk_Window tkwin, char *oldMenuName, 
  960.     char *menuName));
  961. EXTERN KeySym TkStringToKeysym _ANSI_ARGS_((char *name));
  962. EXTERN int TkThickPolyLineToArea _ANSI_ARGS_((double *coordPtr,
  963.     int numPoints, double width, int capStyle,
  964.     int joinStyle, double *rectPtr));
  965. #ifndef TkUnionRectWithRegion
  966. EXTERN void TkUnionRectWithRegion _ANSI_ARGS_((XRectangle* rect,
  967.     TkRegion src, TkRegion dr_return));
  968. #endif
  969. EXTERN void TkWmAddToColormapWindows _ANSI_ARGS_((
  970.     TkWindow *winPtr));
  971. EXTERN void TkWmDeadWindow _ANSI_ARGS_((TkWindow *winPtr));
  972. EXTERN TkWindow * TkWmFocusToplevel _ANSI_ARGS_((TkWindow *winPtr));
  973. EXTERN void TkWmMapWindow _ANSI_ARGS_((TkWindow *winPtr));
  974. EXTERN void TkWmNewWindow _ANSI_ARGS_((TkWindow *winPtr));
  975. EXTERN void TkWmProtocolEventProc _ANSI_ARGS_((TkWindow *winPtr,
  976.     XEvent *evenvPtr));
  977. EXTERN void TkWmRemoveFromColormapWindows _ANSI_ARGS_((
  978.     TkWindow *winPtr));
  979. EXTERN void TkWmRestackToplevel _ANSI_ARGS_((TkWindow *winPtr,
  980.     int aboveBelow, TkWindow *otherPtr));
  981. EXTERN void TkWmSetClass _ANSI_ARGS_((TkWindow *winPtr));
  982. EXTERN void TkWmUnmapWindow _ANSI_ARGS_((TkWindow *winPtr));
  983. EXTERN int TkXFileProc _ANSI_ARGS_((ClientData clientData,
  984.     int mask, int flags));
  986. /* 
  987.  * Unsupported commands.
  988.  */
  989. EXTERN int TkUnsupported1Cmd _ANSI_ARGS_((ClientData clientData,
  990.     Tcl_Interp *interp, int argc, char **argv));
  992. #endif  /* _TKINT */