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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 3D图形编程 > 查看源码
tkInt8.3.2.h
资源名称：scanalyze-1.0.3_source_code.rar　[点击查看]
上传用户：kellyonhid
上传日期：2013-10-12
资源大小：932k
文件大小：38k
源码类别：

3D图形编程

开发平台：

Visual C++

tkInt8.3.2.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.  * Copyright (c) 1998 by Scriptics Corporation.
  10.  *
  11.  * See the file "license.terms" for information on usage and redistribution
  12.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13.  *
  14.  * RCS: $Id: tkInt8.3.2.h,v 1.2 2001/07/02 17:56:30 srm Exp $ 
  15.  */
  17. #ifndef _TKINT
  18. #define _TKINT
  20. #ifndef _TK
  21. #include "tk.h"
  22. #endif
  23. #ifndef _TCL
  24. #include "tcl.h"
  25. #endif
  26. #ifndef _TKPORT
  27. #include <tkPort.h>
  28. #endif
  30. /*
  31.  * Opaque type declarations:
  32.  */
  34. typedef struct TkColormap TkColormap;
  35. typedef struct TkGrabEvent TkGrabEvent;
  36. typedef struct TkpCursor_ *TkpCursor;
  37. typedef struct TkRegion_ *TkRegion;
  38. typedef struct TkStressedCmap TkStressedCmap;
  39. typedef struct TkBindInfo_ *TkBindInfo;
  41. /*
  42.  * Procedure types.
  43.  */
  45. typedef int (TkBindEvalProc) _ANSI_ARGS_((ClientData clientData,
  46. Tcl_Interp *interp, XEvent *eventPtr, Tk_Window tkwin,
  47. KeySym keySym));
  48. typedef void (TkBindFreeProc) _ANSI_ARGS_((ClientData clientData));
  49. typedef Window (TkClassCreateProc) _ANSI_ARGS_((Tk_Window tkwin,
  50. Window parent, ClientData instanceData));
  51. typedef void (TkClassGeometryProc) _ANSI_ARGS_((ClientData instanceData));
  52. typedef void (TkClassModalProc) _ANSI_ARGS_((Tk_Window tkwin,
  53. XEvent *eventPtr));
  56. /*
  57.  * Widget class procedures used to implement platform specific widget
  58.  * behavior.
  59.  */
  61. typedef struct TkClassProcs {
  62.     TkClassCreateProc *createProc;
  63. /* Procedure to invoke when the
  64.                                    platform-dependent window needs to be
  65.                                    created. */
  66.     TkClassGeometryProc *geometryProc;
  67. /* Procedure to invoke when the geometry of a
  68.    window needs to be recalculated as a result
  69.    of some change in the system. */
  70.     TkClassModalProc *modalProc;
  71. /* Procedure to invoke after all bindings on a
  72.    widget have been triggered in order to
  73.    handle a modal loop. */
  74. } TkClassProcs;
  76. /*
  77.  * One of the following structures is maintained for each cursor in
  78.  * use in the system.  This structure is used by tkCursor.c and the
  79.  * various system specific cursor files.
  80.  */
  82. typedef struct TkCursor {
  83.     Tk_Cursor cursor; /* System specific identifier for cursor. */
  84.     Display *display; /* Display containing cursor. Needed for
  85.  * disposal and retrieval of cursors. */
  86.     int resourceRefCount; /* Number of active uses of this cursor (each
  87.  * active use corresponds to a call to
  88.  * Tk_AllocPreserveFromObj or Tk_Preserve).
  89.  * If this count is 0, then this structure
  90.  * is no longer valid and it isn't present
  91.  * in a hash table: it is being kept around
  92.  * only because there are objects referring
  93.  * to it.  The structure is freed when
  94.  * resourceRefCount and objRefCount are
  95.  * both 0. */
  96.     int objRefCount; /* Number of Tcl objects that reference
  97.  * this structure.. */
  98.     Tcl_HashTable *otherTable; /* Second table (other than idTable) used
  99.  * to index this entry. */
  100.     Tcl_HashEntry *hashPtr; /* Entry in otherTable for this structure
  101.  * (needed when deleting). */
  102.     Tcl_HashEntry *idHashPtr; /* Entry in idTable for this structure
  103.  * (needed when deleting). */
  104.     struct TkCursor *nextPtr; /* Points to the next TkCursor structure with
  105.  * the same name.  Cursors with the same
  106.  * name but different displays are chained
  107.  * together off a single hash table entry. */
  108. } TkCursor;
  110. /*
  111.  * One of the following structures is maintained for each display
  112.  * containing a window managed by Tk.  In part, the structure is 
  113.  * used to store thread-specific data, since each thread will have 
  114.  * its own TkDisplay structure.
  115.  */
  117. typedef struct TkDisplay {
  118.     Display *display; /* Xlib's info about display. */
  119.     struct TkDisplay *nextPtr; /* Next in list of all displays. */
  120.     char *name; /* Name of display (with any screen
  121.  * identifier removed).  Malloc-ed. */
  122.     Time lastEventTime; /* Time of last event received for this
  123.  * display. */
  125.     /*
  126.      * Information used primarily by tk3d.c:
  127.      */
  129.     int borderInit;             /* 0 means borderTable needs initializing. */
  130.     Tcl_HashTable borderTable;  /* Maps from color name to TkBorder 
  131.  * structure. */
  133.     /*
  134.      * Information used by tkAtom.c only:
  135.      */
  137.     int atomInit; /* 0 means stuff below hasn't been
  138.  * initialized yet. */
  139.     Tcl_HashTable nameTable; /* Maps from names to Atom's. */
  140.     Tcl_HashTable atomTable; /* Maps from Atom's back to names. */
  142.     /*
  143.      * Information used primarily by tkBind.c:
  144.      */
  146.     int bindInfoStale; /* Non-zero means the variables in this
  147.  * part of the structure are potentially
  148.  * incorrect and should be recomputed. */
  149.     unsigned int modeModMask; /* Has one bit set to indicate the modifier
  150.  * corresponding to "mode shift".  If no
  151.  * such modifier, than this is zero. */
  152.     unsigned int metaModMask; /* Has one bit set to indicate the modifier
  153.  * corresponding to the "Meta" key.  If no
  154.  * such modifier, then this is zero. */
  155.     unsigned int altModMask; /* Has one bit set to indicate the modifier
  156.  * corresponding to the "Meta" key.  If no
  157.  * such modifier, then this is zero. */
  158.     enum {LU_IGNORE, LU_CAPS, LU_SHIFT} lockUsage;
  159. /* Indicates how to interpret lock modifier. */
  160.     int numModKeyCodes; /* Number of entries in modKeyCodes array
  161.  * below. */
  162.     KeyCode *modKeyCodes; /* Pointer to an array giving keycodes for
  163.  * all of the keys that have modifiers
  164.  * associated with them.  Malloc'ed, but
  165.  * may be NULL. */
  167.     /*
  168.      * Information used by tkBitmap.c only:
  169.      */
  170.   
  171.     int bitmapInit;             /* 0 means tables above need initializing. */
  172.     int bitmapAutoNumber;       /* Used to number bitmaps. */
  173.     Tcl_HashTable bitmapNameTable;    
  174.                                 /* Maps from name of bitmap to the first 
  175.  * TkBitmap record for that name. */
  176.     Tcl_HashTable bitmapIdTable;/* Maps from bitmap id to the TkBitmap
  177.  * structure for the bitmap. */
  178.     Tcl_HashTable bitmapDataTable;    
  179.                                 /* Used by Tk_GetBitmapFromData to map from
  180.  * a collection of in-core data about a 
  181.  * bitmap to a reference giving an auto-
  182.  * matically-generated name for the bitmap. */
  184.     /*
  185.      * Information used by tkCanvas.c only:
  186.      */
  188.     int numIdSearches;          
  189.     int numSlowSearches;
  191.     /*
  192.      * Used by tkColor.c only:
  193.      */
  195.     int colorInit;              /* 0 means color module needs initializing. */
  196.     TkStressedCmap *stressPtr; /* First in list of colormaps that have
  197.  * filled up, so we have to pick an
  198.  * approximate color. */
  199.     Tcl_HashTable colorNameTable;
  200.                                 /* Maps from color name to TkColor structure
  201.  * for that color. */
  202.     Tcl_HashTable colorValueTable;
  203.                                 /* Maps from integer RGB values to TkColor
  204.  * structures. */
  206.     /*
  207.      * Used by tkCursor.c only:
  208.      */
  210.     int cursorInit;             /* 0 means cursor module need initializing. */
  211.     Tcl_HashTable cursorNameTable;
  212.                                 /* Maps from a string name to a cursor to the
  213.  * TkCursor record for the cursor. */
  214.     Tcl_HashTable cursorDataTable;
  215.                                 /* Maps from a collection of in-core data
  216.  * about a cursor to a TkCursor structure. */
  217.     Tcl_HashTable cursorIdTable;
  218.                                 /* Maps from a cursor id to the TkCursor
  219.  * structure for the cursor. */
  220.     char cursorString[20];      /* Used to store a cursor id string. */
  221.     Font cursorFont; /* Font to use for standard cursors.
  222.  * None means font not loaded yet. */
  224.     /*
  225.      * Information used by tkError.c only:
  226.      */
  228.     struct TkErrorHandler *errorPtr;
  229. /* First in list of error handlers
  230.  * for this display.  NULL means
  231.  * no handlers exist at present. */
  232.     int deleteCount; /* Counts # of handlers deleted since
  233.  * last time inactive handlers were
  234.  * garbage-collected.  When this number
  235.  * gets big, handlers get cleaned up. */
  237.     /*
  238.      * Used by tkEvent.c only:
  239.      */
  241.     struct TkWindowEvent *delayedMotionPtr;
  242. /* Points to a malloc-ed motion event
  243.  * whose processing has been delayed in
  244.  * the hopes that another motion event
  245.  * will come along right away and we can
  246.  * merge the two of them together.  NULL
  247.  * means that there is no delayed motion
  248.  * event. */
  250.     /*
  251.      * Information used by tkFocus.c only:
  252.      */
  254.     int focusDebug;             /* 1 means collect focus debugging 
  255.  * statistics. */
  256.     struct TkWindow *implicitWinPtr;
  257. /* If the focus arrived at a toplevel window
  258.  * implicitly via an Enter event (rather
  259.  * than via a FocusIn event), this points
  260.  * to the toplevel window.  Otherwise it is
  261.  * NULL. */
  262.     struct TkWindow *focusPtr; /* Points to the window on this display that
  263.  * should be receiving keyboard events.  When
  264.  * multiple applications on the display have
  265.  * the focus, this will refer to the
  266.  * innermost window in the innermost
  267.  * application.  This information isn't used
  268.  * under Unix or Windows, but it's needed on
  269.  * the Macintosh. */
  271.     /*
  272.      * Information used by tkGC.c only:
  273.      */
  274.     
  275.     Tcl_HashTable gcValueTable; /* Maps from a GC's values to a TkGC structure
  276.  * describing a GC with those values. */
  277.     Tcl_HashTable gcIdTable;    /* Maps from a GC to a TkGC. */ 
  278.     int gcInit;                 /* 0 means the tables below need 
  279.  * initializing. */
  281.     /*
  282.      * Information used by tkGeometry.c only:
  283.      */
  285.     Tcl_HashTable maintainHashTable;
  286.                                 /* Hash table that maps from a master's 
  287.  * Tk_Window token to a list of slaves
  288.  * managed by that master. */
  289.     int geomInit;    
  291.     /*
  292.      * Information used by tkGet.c only:
  293.      */
  294.   
  295.     Tcl_HashTable uidTable;     /* Stores all Tk_Uid  used in a thread. */
  296.     int uidInit;                /* 0 means uidTable needs initializing. */
  298.     /*
  299.      * Information used by tkGrab.c only:
  300.      */
  302.     struct TkWindow *grabWinPtr;
  303. /* Window in which the pointer is currently
  304.  * grabbed, or NULL if none. */
  305.     struct TkWindow *eventualGrabWinPtr;
  306. /* Value that grabWinPtr will have once the
  307.  * grab event queue (below) has been
  308.  * completely emptied. */
  309.     struct TkWindow *buttonWinPtr;
  310. /* Window in which first mouse button was
  311.  * pressed while grab was in effect, or NULL
  312.  * if no such press in effect. */
  313.     struct TkWindow *serverWinPtr;
  314. /* If no application contains the pointer then
  315.  * this is NULL.  Otherwise it contains the
  316.  * last window for which we've gotten an
  317.  * Enter or Leave event from the server (i.e.
  318.  * the last window known to have contained
  319.  * the pointer).  Doesn't reflect events
  320.  * that were synthesized in tkGrab.c. */
  321.     TkGrabEvent *firstGrabEventPtr;
  322. /* First in list of enter/leave events
  323.  * synthesized by grab code.  These events
  324.  * must be processed in order before any other
  325.  * events are processed.  NULL means no such
  326.  * events. */
  327.     TkGrabEvent *lastGrabEventPtr;
  328. /* Last in list of synthesized events, or NULL
  329.  * if list is empty. */
  330.     int grabFlags; /* Miscellaneous flag values.  See definitions
  331.  * in tkGrab.c. */
  333.     /*
  334.      * Information used by tkGrid.c only:
  335.      */
  337.     int gridInit;               /* 0 means table below needs initializing. */
  338.     Tcl_HashTable gridHashTable;/* Maps from Tk_Window tokens to 
  339.  * corresponding Grid structures. */
  341.     /*
  342.      * Information used by tkImage.c only:
  343.      */
  345.     int imageId;                /* Value used to number image ids. */
  347.     /*
  348.      * Information used by tkMacWinMenu.c only:
  349.      */
  351.     int postCommandGeneration;  
  353.     /*
  354.      * Information used by tkOption.c only.
  355.      */
  359.     /*
  360.      * Information used by tkPack.c only.
  361.      */
  363.     int packInit;              /* 0 means table below needs initializing. */
  364.     Tcl_HashTable packerHashTable;
  365.                                /* Maps from Tk_Window tokens to 
  366. * corresponding Packer structures. */
  367.     
  369.     /*
  370.      * Information used by tkPlace.c only.
  371.      */
  373.     int placeInit;              /* 0 means tables below need initializing. */
  374.     Tcl_HashTable masterTable;  /* Maps from Tk_Window toke to the Master
  375.  * structure for the window, if it exists. */
  376.     Tcl_HashTable slaveTable;   /* Maps from Tk_Window toke to the Slave
  377.  * structure for the window, if it exists. */
  379.     /*
  380.      * Information used by tkSelect.c and tkClipboard.c only:
  381.      */
  383.     struct TkSelectionInfo *selectionInfoPtr;
  384. /* First in list of selection information
  385.  * records.  Each entry contains information
  386.  * about the current owner of a particular
  387.  * selection on this display. */
  388.     Atom multipleAtom; /* Atom for MULTIPLE.  None means
  389.  * selection stuff isn't initialized. */
  390.     Atom incrAtom; /* Atom for INCR. */
  391.     Atom targetsAtom; /* Atom for TARGETS. */
  392.     Atom timestampAtom; /* Atom for TIMESTAMP. */
  393.     Atom textAtom; /* Atom for TEXT. */
  394.     Atom compoundTextAtom; /* Atom for COMPOUND_TEXT. */
  395.     Atom applicationAtom; /* Atom for TK_APPLICATION. */
  396.     Atom windowAtom; /* Atom for TK_WINDOW. */
  397.     Atom clipboardAtom; /* Atom for CLIPBOARD. */
  399.     Tk_Window clipWindow; /* Window used for clipboard ownership and to
  400.  * retrieve selections between processes. NULL
  401.  * means clipboard info hasn't been
  402.  * initialized. */
  403.     int clipboardActive; /* 1 means we currently own the clipboard
  404.  * selection, 0 means we don't. */
  405.     struct TkMainInfo *clipboardAppPtr;
  406. /* Last application that owned clipboard. */
  407.     struct TkClipboardTarget *clipTargetPtr;
  408. /* First in list of clipboard type information
  409.  * records.  Each entry contains information
  410.  * about the buffers for a given selection
  411.  * target. */
  413.     /*
  414.      * Information used by tkSend.c only:
  415.      */
  417.     Tk_Window commTkwin; /* Window used for communication
  418.  * between interpreters during "send"
  419.  * commands.  NULL means send info hasn't
  420.  * been initialized yet. */
  421.     Atom commProperty; /* X's name for comm property. */
  422.     Atom registryProperty; /* X's name for property containing
  423.  * registry of interpreter names. */
  424.     Atom appNameProperty; /* X's name for property used to hold the
  425.  * application name on each comm window. */
  427.     /*
  428.      * Information used by tkXId.c only:
  429.      */
  431.     struct TkIdStack *idStackPtr;
  432. /* First in list of chunks of free resource
  433.  * identifiers, or NULL if there are no free
  434.  * resources. */
  435.     XID (*defaultAllocProc) _ANSI_ARGS_((Display *display));
  436. /* Default resource allocator for display. */
  437.     struct TkIdStack *windowStackPtr;
  438. /* First in list of chunks of window
  439.  * identifers that can't be reused right
  440.  * now. */
  441.     int idCleanupScheduled; /* 1 means a call to WindowIdCleanup has
  442.  * already been scheduled, 0 means it
  443.  * hasn't. */
  445.     /*
  446.      * Information used by tkUnixWm.c and tkWinWm.c only:
  447.      */
  449.     int wmTracing;              /* Used to enable or disable tracing in 
  450.  * this module.  If tracing is enabled, 
  451.  * then information is printed on
  452.  * standard output about interesting 
  453.  * interactions with the window manager. */
  454.     struct TkWmInfo *firstWmPtr;  /* Points to first top-level window. */
  455.     struct TkWmInfo *foregroundWmPtr;    
  456.                                 /* Points to the foreground window. */
  458.     /*
  459.      * Information maintained by tkWindow.c for use later on by tkXId.c:
  460.      */
  463.     int destroyCount; /* Number of Tk_DestroyWindow operations
  464.  * in progress. */
  465.     unsigned long lastDestroyRequest;
  466. /* Id of most recent XDestroyWindow request;
  467.  * can re-use ids in windowStackPtr when
  468.  * server has seen this request and event
  469.  * queue is empty. */
  471.     /*
  472.      * Information used by tkVisual.c only:
  473.      */
  475.     TkColormap *cmapPtr; /* First in list of all non-default colormaps
  476.  * allocated for this display. */
  478.     /*
  479.      * Miscellaneous information:
  480.      */
  482. #ifdef TK_USE_INPUT_METHODS
  483.     XIM inputMethod; /* Input method for this display */
  484. #endif /* TK_USE_INPUT_METHODS */
  485.     Tcl_HashTable winTable; /* Maps from X window ids to TkWindow ptrs. */
  487.     int refCount; /* Reference count of how many Tk applications
  488.                                  * are using this display. Used to clean up
  489.                                  * the display when we no longer have any
  490.                                  * Tk applications using it.
  491.                                  */
  492.     /*
  493.      * The following field were all added for Tk8.3
  494.      */
  495.     int mouseButtonState; /* current mouse button state for this
  496.  * display */
  497.     int warpInProgress;
  498.     Window warpWindow;
  499.     int warpX;
  500.     int warpY;
  501.     int useInputMethods; /* Whether to use input methods */
  502. } TkDisplay;
  504. /*
  505.  * One of the following structures exists for each error handler
  506.  * created by a call to Tk_CreateErrorHandler.  The structure
  507.  * is managed by tkError.c.
  508.  */
  510. typedef struct TkErrorHandler {
  511.     TkDisplay *dispPtr; /* Display to which handler applies. */
  512.     unsigned long firstRequest; /* Only errors with serial numbers
  513.  * >= to this are considered. */
  514.     unsigned long lastRequest; /* Only errors with serial numbers
  515.  * <= to this are considered.  This
  516.  * field is filled in when XUnhandle
  517.  * is called.  -1 means XUnhandle
  518.  * hasn't been called yet. */
  519.     int error; /* Consider only errors with this
  520.  * error_code (-1 means consider
  521.  * all errors). */
  522.     int request; /* Consider only errors with this
  523.  * major request code (-1 means
  524.  * consider all major codes). */
  525.     int minorCode; /* Consider only errors with this
  526.  * minor request code (-1 means
  527.  * consider all minor codes). */
  528.     Tk_ErrorProc *errorProc; /* Procedure to invoke when a matching
  529.  * error occurs.  NULL means just ignore
  530.  * errors. */
  531.     ClientData clientData; /* Arbitrary value to pass to
  532.  * errorProc. */
  533.     struct TkErrorHandler *nextPtr;
  534. /* Pointer to next older handler for
  535.  * this display, or NULL for end of
  536.  * list. */
  537. } TkErrorHandler;
  542. /*
  543.  * One of the following structures exists for each event handler
  544.  * created by calling Tk_CreateEventHandler.  This information
  545.  * is used by tkEvent.c only.
  546.  */
  548. typedef struct TkEventHandler {
  549.     unsigned long mask; /* Events for which to invoke
  550.  * proc. */
  551.     Tk_EventProc *proc; /* Procedure to invoke when an event
  552.  * in mask occurs. */
  553.     ClientData clientData; /* Argument to pass to proc. */
  554.     struct TkEventHandler *nextPtr;
  555. /* Next in list of handlers
  556.  * associated with window (NULL means
  557.  * end of list). */
  558. } TkEventHandler;
  560. /*
  561.  * Tk keeps one of the following data structures for each main
  562.  * window (created by a call to TkCreateMainWindow).  It stores
  563.  * information that is shared by all of the windows associated
  564.  * with a particular main window.
  565.  */
  567. typedef struct TkMainInfo {
  568.     int refCount; /* Number of windows whose "mainPtr" fields
  569.  * point here.  When this becomes zero, can
  570.  * free up the structure (the reference
  571.  * count is zero because windows can get
  572.  * deleted in almost any order;  the main
  573.  * window isn't necessarily the last one
  574.  * deleted). */
  575.     struct TkWindow *winPtr; /* Pointer to main window. */
  576.     Tcl_Interp *interp; /* Interpreter associated with application. */
  577.     Tcl_HashTable nameTable; /* Hash table mapping path names to TkWindow
  578.  * structs for all windows related to this
  579.  * main window.  Managed by tkWindow.c. */
  580.     Tk_BindingTable bindingTable;
  581. /* Used in conjunction with "bind" command
  582.  * to bind events to Tcl commands. */
  583.     TkBindInfo bindInfo; /* Information used by tkBind.c on a per
  584.  * application basis. */
  585.     struct TkFontInfo *fontInfoPtr;
  586. /* Information used by tkFont.c on a per
  587.  * application basis. */
  589.     /*
  590.      * Information used only by tkFocus.c and tk*Embed.c:
  591.      */
  593.     struct TkToplevelFocusInfo *tlFocusPtr;
  594. /* First in list of records containing focus
  595.  * information for each top-level in the
  596.  * application.  Used only by tkFocus.c. */
  597.     struct TkDisplayFocusInfo *displayFocusPtr;
  598. /* First in list of records containing focus
  599.  * information for each display that this
  600.  * application has ever used.  Used only
  601.  * by tkFocus.c. */
  603.     struct ElArray *optionRootPtr;
  604. /* Top level of option hierarchy for this
  605.  * main window.  NULL means uninitialized.
  606.  * Managed by tkOption.c. */
  607.     Tcl_HashTable imageTable; /* Maps from image names to Tk_ImageMaster
  608.  * structures.  Managed by tkImage.c. */
  609.     int strictMotif; /* This is linked to the tk_strictMotif
  610.  * global variable. */
  611.     struct TkMainInfo *nextPtr; /* Next in list of all main windows managed by
  612.  * this process. */
  613. } TkMainInfo;
  615. /*
  616.  * Tk keeps the following data structure for each of it's builtin
  617.  * bitmaps.  This structure is only used by tkBitmap.c and other
  618.  * platform specific bitmap files.
  619.  */
  621. typedef struct {
  622.     char *source; /* Bits for bitmap. */
  623.     int width, height; /* Dimensions of bitmap. */
  624.     int native; /* 0 means generic (X style) bitmap,
  625.       * 1 means native style bitmap. */
  626. } TkPredefBitmap;
  628. /*
  629.  * Tk keeps one of the following structures for each window.
  630.  * Some of the information (like size and location) is a shadow
  631.  * of information managed by the X server, and some is special
  632.  * information used here, such as event and geometry management
  633.  * information.  This information is (mostly) managed by tkWindow.c.
  634.  * WARNING: the declaration below must be kept consistent with the
  635.  * Tk_FakeWin structure in tk.h.  If you change one, be sure to
  636.  * change the other!!
  637.  */
  639. typedef struct TkWindow {
  641.     /*
  642.      * Structural information:
  643.      */
  645.     Display *display; /* Display containing window. */
  646.     TkDisplay *dispPtr; /* Tk's information about display
  647.  * for window. */
  648.     int screenNum; /* Index of screen for window, among all
  649.  * those for dispPtr. */
  650.     Visual *visual; /* Visual to use for window.  If not default,
  651.  * MUST be set before X window is created. */
  652.     int depth; /* Number of bits/pixel. */
  653.     Window window; /* X's id for window.   NULL means window
  654.  * hasn't actually been created yet, or it's
  655.  * been deleted. */
  656.     struct TkWindow *childList; /* First in list of child windows,
  657.  * or NULL if no children.  List is in
  658.  * stacking order, lowest window first.*/
  659.     struct TkWindow *lastChildPtr;
  660. /* Last in list of child windows (highest
  661.  * in stacking order), or NULL if no
  662.  * children. */
  663.     struct TkWindow *parentPtr; /* Pointer to parent window (logical
  664.  * parent, not necessarily X parent).  NULL
  665.  * means either this is the main window, or
  666.  * the window's parent has already been
  667.  * deleted. */
  668.     struct TkWindow *nextPtr; /* Next higher sibling (in stacking order)
  669.  * in list of children with same parent.  NULL
  670.  * means end of list. */
  671.     TkMainInfo *mainPtr; /* Information shared by all windows
  672.  * associated with a particular main
  673.  * window.  NULL means this window is
  674.  * a rogue that isn't associated with
  675.  * any application (at present, this
  676.  * only happens for the dummy windows
  677.  * used for "send" communication).  */
  679.     /*
  680.      * Name and type information for the window:
  681.      */
  683.     char *pathName; /* Path name of window (concatenation
  684.  * of all names between this window and
  685.  * its top-level ancestor).  This is a
  686.  * pointer into an entry in
  687.  * mainPtr->nameTable.  NULL means that
  688.  * the window hasn't been completely
  689.  * created yet. */
  690.     Tk_Uid nameUid; /* Name of the window within its parent
  691.  * (unique within the parent). */
  692.     Tk_Uid classUid; /* Class of the window.  NULL means window
  693.  * hasn't been given a class yet. */
  695.     /*
  696.      * Geometry and other attributes of window.  This information
  697.      * may not be updated on the server immediately;  stuff that
  698.      * hasn't been reflected in the server yet is called "dirty".
  699.      * At present, information can be dirty only if the window
  700.      * hasn't yet been created.
  701.      */
  703.     XWindowChanges changes; /* Geometry and other info about
  704.  * window. */
  705.     unsigned int dirtyChanges; /* Bits indicate fields of "changes"
  706.  * that are dirty. */
  707.     XSetWindowAttributes atts; /* Current attributes of window. */
  708.     unsigned long dirtyAtts; /* Bits indicate fields of "atts"
  709.  * that are dirty. */
  711.     unsigned int flags; /* Various flag values:  these are all
  712.  * defined in tk.h (confusing, but they're
  713.  * needed there for some query macros). */
  715.     /*
  716.      * Information kept by the event manager (tkEvent.c):
  717.      */
  719.     TkEventHandler *handlerList;/* First in list of event handlers
  720.  * declared for this window, or
  721.  * NULL if none. */
  722. #ifdef TK_USE_INPUT_METHODS
  723.     XIC inputContext; /* Input context (for input methods). */
  724. #endif /* TK_USE_INPUT_METHODS */
  726.     /*
  727.      * Information used for event bindings (see "bind" and "bindtags"
  728.      * commands in tkCmds.c):
  729.      */
  731.     ClientData *tagPtr; /* Points to array of tags used for bindings
  732.  * on this window.  Each tag is a Tk_Uid.
  733.  * Malloc'ed.  NULL means no tags. */
  734.     int numTags; /* Number of tags at *tagPtr. */
  736.     /*
  737.      * Information used by tkOption.c to manage options for the
  738.      * window.
  739.      */
  741.     int optionLevel; /* -1 means no option information is
  742.  * currently cached for this window.
  743.  * Otherwise this gives the level in
  744.  * the option stack at which info is
  745.  * cached. */
  746.     /*
  747.      * Information used by tkSelect.c to manage the selection.
  748.      */
  750.     struct TkSelHandler *selHandlerList;
  751. /* First in list of handlers for
  752.  * returning the selection in various
  753.  * forms. */
  755.     /*
  756.      * Information used by tkGeometry.c for geometry management.
  757.      */
  759.     Tk_GeomMgr *geomMgrPtr; /* Information about geometry manager for
  760.  * this window. */
  761.     ClientData geomData; /* Argument for geometry manager procedures. */
  762.     int reqWidth, reqHeight; /* Arguments from last call to
  763.  * Tk_GeometryRequest, or 0's if
  764.  * Tk_GeometryRequest hasn't been
  765.  * called. */
  766.     int internalBorderWidth; /* Width of internal border of window
  767.  * (0 means no internal border).  Geometry
  768.  * managers should not normally place children
  769.  * on top of the border. */
  771.     /*
  772.      * Information maintained by tkWm.c for window manager communication.
  773.      */
  775.     struct TkWmInfo *wmInfoPtr; /* For top-level windows (and also
  776.  * for special Unix menubar and wrapper
  777.  * windows), points to structure with
  778.  * wm-related info (see tkWm.c).  For
  779.  * other windows, this is NULL. */
  781.     /*
  782.      * Information used by widget classes.
  783.      */
  785.     TkClassProcs *classProcsPtr;
  786.     ClientData instanceData;
  788.     /*
  789.      * Platform specific information private to each port.
  790.      */
  792.     struct TkWindowPrivate *privatePtr;
  793. } TkWindow;
  795. /*
  796.  * The following structure is used as a two way map between integers
  797.  * and strings, usually to map between an internal C representation
  798.  * and the strings used in Tcl.
  799.  */
  801. typedef struct TkStateMap {
  802.     int numKey; /* Integer representation of a value. */
  803.     char *strKey; /* String representation of a value. */
  804. } TkStateMap;
  806. /*
  807.  * This structure is used by the Mac and Window porting layers as
  808.  * the internal representation of a clip_mask in a GC.
  809.  */
  811. typedef struct TkpClipMask {
  812.     int type; /* One of TKP_CLIP_PIXMAP or TKP_CLIP_REGION */
  813.     union {
  814. Pixmap pixmap;
  815. TkRegion region;
  816.     } value;
  817. } TkpClipMask;
  819. #define TKP_CLIP_PIXMAP 0
  820. #define TKP_CLIP_REGION 1
  822. /*
  823.  * Pointer to first entry in list of all displays currently known.
  824.  */
  826. extern TkDisplay *tkDisplayList;
  828. /*
  829.  * Return values from TkGrabState:
  830.  */
  832. #define TK_GRAB_NONE 0
  833. #define TK_GRAB_IN_TREE 1
  834. #define TK_GRAB_ANCESTOR 2
  835. #define TK_GRAB_EXCLUDED 3
  837. /*
  838.  * The macro below is used to modify a "char" value (e.g. by casting
  839.  * it to an unsigned character) so that it can be used safely with
  840.  * macros such as isspace.
  841.  */
  843. #define UCHAR(c) ((unsigned char) (c))
  845. /*
  846.  * The following symbol is used in the mode field of FocusIn events
  847.  * generated by an embedded application to request the input focus from
  848.  * its container.
  849.  */
  851. #define EMBEDDED_APP_WANTS_FOCUS (NotifyNormal + 20)
  853. /*
  854.  * The following special modifier mask bits are defined, to indicate
  855.  * logical modifiers such as Meta and Alt that may float among the
  856.  * actual modifier bits.
  857.  */
  859. #define META_MASK (AnyModifier<<1)
  860. #define ALT_MASK (AnyModifier<<2)
  862. /*
  863.  * Miscellaneous variables shared among Tk modules but not exported
  864.  * to the outside world:
  865.  */
  867. extern Tk_SmoothMethod tkBezierSmoothMethod;
  868. extern Tk_ImageType tkBitmapImageType;
  869. extern Tk_PhotoImageFormat tkImgFmtGIF;
  870. extern void (*tkHandleEventProc) _ANSI_ARGS_((
  871.          XEvent* eventPtr));
  872. extern Tk_PhotoImageFormat tkImgFmtPPM;
  873. extern TkMainInfo *tkMainWindowList;
  874. extern Tk_ImageType tkPhotoImageType;
  875. extern Tcl_HashTable tkPredefBitmapTable;
  876. extern int tkSendSerial;
  878. #include "tkIntDecls.h"
  880. #ifdef BUILD_tk
  881. # undef TCL_STORAGE_CLASS
  882. # define TCL_STORAGE_CLASS DLLEXPORT
  883. #endif
  885. /*
  886.  * Internal procedures shared among Tk modules but not exported
  887.  * to the outside world:
  888.  */
  890. EXTERN int Tk_AfterCmd _ANSI_ARGS_((ClientData clientData,
  891.     Tcl_Interp *interp, int argc, char **argv));
  892. EXTERN int Tk_BellObjCmd _ANSI_ARGS_((ClientData clientData,
  893.     Tcl_Interp *interp, int objc, 
  894.     Tcl_Obj *CONST objv[]));
  895. EXTERN int Tk_BindCmd _ANSI_ARGS_((ClientData clientData,
  896.     Tcl_Interp *interp, int argc, char **argv));
  897. EXTERN int Tk_BindtagsCmd _ANSI_ARGS_((ClientData clientData,
  898.     Tcl_Interp *interp, int argc, char **argv));
  899. EXTERN int Tk_ButtonObjCmd _ANSI_ARGS_((ClientData clientData,
  900.     Tcl_Interp *interp, int objc,
  901.     Tcl_Obj *CONST objv[]));
  902. EXTERN int Tk_CanvasObjCmd _ANSI_ARGS_((ClientData clientData,
  903.     Tcl_Interp *interp, int argc, Tcl_Obj *CONST objv[]));
  904. EXTERN int Tk_CheckbuttonObjCmd _ANSI_ARGS_((ClientData clientData,
  905.     Tcl_Interp *interp, int objc,
  906.     Tcl_Obj *CONST objv[]));
  907. EXTERN int Tk_ClipboardCmd _ANSI_ARGS_((ClientData clientData,
  908.     Tcl_Interp *interp, int argc, char **argv));
  909. EXTERN int              Tk_ChooseColorObjCmd _ANSI_ARGS_((
  910.     ClientData clientData, Tcl_Interp *interp,
  911.     int objc, Tcl_Obj *CONST objv[]));
  912. EXTERN int              Tk_ChooseDirectoryObjCmd _ANSI_ARGS_((
  913.     ClientData clientData, Tcl_Interp *interp,
  914.     int objc, Tcl_Obj *CONST objv[]));
  915. EXTERN int              Tk_ChooseFontObjCmd _ANSI_ARGS_((ClientData clientData,
  916.     Tcl_Interp *interp, int objc, 
  917.     Tcl_Obj *CONST objv[]));
  918. EXTERN int Tk_DestroyObjCmd _ANSI_ARGS_((ClientData clientData,
  919.     Tcl_Interp *interp, int objc, 
  920.     Tcl_Obj *CONST objv[]));
  921. EXTERN int Tk_EntryObjCmd _ANSI_ARGS_((ClientData clientData,
  922.     Tcl_Interp *interp, int objc, 
  923.                             Tcl_Obj *CONST objv[]));
  924. EXTERN int Tk_EventObjCmd _ANSI_ARGS_((ClientData clientData,
  925.     Tcl_Interp *interp, int objc,
  926.     Tcl_Obj *CONST objv[]));
  927. EXTERN int Tk_FileeventCmd _ANSI_ARGS_((ClientData clientData,
  928.     Tcl_Interp *interp, int argc, char **argv));
  929. EXTERN int Tk_FrameObjCmd _ANSI_ARGS_((ClientData clientData,
  930.     Tcl_Interp *interp, int objc,
  931.     Tcl_Obj *CONST objv[]));
  932. EXTERN int Tk_FocusObjCmd _ANSI_ARGS_((ClientData clientData,
  933.     Tcl_Interp *interp, int objc, 
  934.     Tcl_Obj *CONST objv[]));
  935. EXTERN int Tk_FontObjCmd _ANSI_ARGS_((ClientData clientData,
  936.     Tcl_Interp *interp, int objc, 
  937.     Tcl_Obj *CONST objv[]));
  938. EXTERN int              Tk_GetOpenFileObjCmd _ANSI_ARGS_((ClientData clientData,
  939.     Tcl_Interp *interp, int objc, 
  940.     Tcl_Obj *CONST objv[]));
  941. EXTERN int              Tk_GetSaveFileObjCmd _ANSI_ARGS_((ClientData clientData,
  942.     Tcl_Interp *interp, int objc, 
  943.     Tcl_Obj *CONST objv[]));
  944. EXTERN int Tk_GrabCmd _ANSI_ARGS_((ClientData clientData,
  945.     Tcl_Interp *interp, int argc, char **argv));
  946. EXTERN int Tk_GridCmd _ANSI_ARGS_((ClientData clientData,
  947.     Tcl_Interp *interp, int argc, char **argv));
  948. EXTERN int Tk_ImageObjCmd _ANSI_ARGS_((ClientData clientData,
  949.     Tcl_Interp *interp, int objc, 
  950.     Tcl_Obj *CONST objv[]));
  951. EXTERN int Tk_LabelObjCmd _ANSI_ARGS_((ClientData clientData,
  952.     Tcl_Interp *interp, int objc,
  953.     Tcl_Obj *CONST objv[]));
  954. EXTERN int Tk_ListboxObjCmd _ANSI_ARGS_((ClientData clientData,
  955.     Tcl_Interp *interp, int objc,
  956.     Tcl_Obj *CONST objv[]));
  957. EXTERN int Tk_LowerObjCmd _ANSI_ARGS_((ClientData clientData,
  958.     Tcl_Interp *interp, int objc,
  959.     Tcl_Obj *CONST objv[]));
  960. EXTERN int Tk_MenubuttonObjCmd _ANSI_ARGS_((ClientData clientData,
  961.     Tcl_Interp *interp, int objc, 
  962.     Tcl_Obj *CONST objv[]));
  963. EXTERN int              Tk_MessageBoxObjCmd _ANSI_ARGS_((ClientData clientData,
  964.                             Tcl_Interp *interp, int objc, 
  965.     Tcl_Obj *CONST objv[]));
  966. EXTERN int Tk_MessageCmd _ANSI_ARGS_((ClientData clientData,
  967.     Tcl_Interp *interp, int argc, char **argv));
  968. EXTERN int Tk_OptionObjCmd _ANSI_ARGS_((ClientData clientData,
  969.     Tcl_Interp *interp, int objc,
  970.                     Tcl_Obj *CONST objv[]));
  971. EXTERN int Tk_PackCmd _ANSI_ARGS_((ClientData clientData,
  972.     Tcl_Interp *interp, int argc, char **argv));
  973. EXTERN int Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData,
  974.     Tcl_Interp *interp, int argc, char **argv));
  975. EXTERN int Tk_RadiobuttonObjCmd _ANSI_ARGS_((ClientData clientData,
  976.     Tcl_Interp *interp, int objc,
  977.     Tcl_Obj *CONST objv[]));
  978. EXTERN int Tk_RaiseObjCmd _ANSI_ARGS_((ClientData clientData,
  979.     Tcl_Interp *interp, int objc,
  980.     Tcl_Obj *CONST objv[]));
  981. EXTERN int Tk_ScaleObjCmd _ANSI_ARGS_((ClientData clientData,
  982.     Tcl_Interp *interp, int objc, 
  983.                             Tcl_Obj *CONST objv[]));
  984. EXTERN int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData,
  985.     Tcl_Interp *interp, int argc, char **argv));
  986. EXTERN int Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData,
  987.     Tcl_Interp *interp, int argc, char **argv));
  988. EXTERN int Tk_SendCmd _ANSI_ARGS_((ClientData clientData,
  989.     Tcl_Interp *interp, int argc, char **argv));
  990. EXTERN int Tk_SendObjCmd _ANSI_ARGS_((ClientData clientData,
  991.     Tcl_Interp *interp, int objc, 
  992.     Tcl_Obj *CONST objv[]));
  993. EXTERN int Tk_TextCmd _ANSI_ARGS_((ClientData clientData,
  994.     Tcl_Interp *interp, int argc, char **argv));
  995. EXTERN int Tk_TkObjCmd _ANSI_ARGS_((ClientData clientData,
  996.     Tcl_Interp *interp, int objc,
  997.     Tcl_Obj *CONST objv[]));
  998. EXTERN int Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData,
  999.     Tcl_Interp *interp, int argc, char **argv));
  1000. EXTERN int Tk_ToplevelObjCmd _ANSI_ARGS_((ClientData clientData,
  1001.     Tcl_Interp *interp, int objc,
  1002.     Tcl_Obj *CONST objv[]));
  1003. EXTERN int Tk_UpdateObjCmd _ANSI_ARGS_((ClientData clientData,
  1004.     Tcl_Interp *interp, int objc, 
  1005.     Tcl_Obj *CONST objv[]));
  1006. EXTERN int Tk_WinfoObjCmd _ANSI_ARGS_((ClientData clientData,
  1007.     Tcl_Interp *interp, int objc,
  1008.     Tcl_Obj *CONST objv[]));
  1009. EXTERN int Tk_WmCmd _ANSI_ARGS_((ClientData clientData,
  1010.     Tcl_Interp *interp, int argc, char **argv));
  1012. void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp,
  1013.     int devId, char *buffer, long size));
  1015. EXTERN void TkEventInit _ANSI_ARGS_((void));
  1017. EXTERN int TkCreateMenuCmd _ANSI_ARGS_((Tcl_Interp *interp));
  1018. EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData,
  1019.     Tcl_Interp *interp, int argc, char **argv));
  1021. EXTERN int TkpTestembedCmd _ANSI_ARGS_((ClientData clientData,
  1022.     Tcl_Interp *interp, int argc, char **argv));
  1023. EXTERN int TkCanvasGetCoordObj _ANSI_ARGS_((Tcl_Interp *interp,
  1024.     Tk_Canvas canvas, Tcl_Obj *obj,
  1025.     double *doublePtr));
  1026. EXTERN int TkCanvasDashParseProc _ANSI_ARGS_((
  1027.     ClientData clientData, Tcl_Interp *interp,
  1028.     Tk_Window tkwin, CONST char *value, char *widgRec,
  1029.     int offset));
  1030. EXTERN char * TkCanvasDashPrintProc _ANSI_ARGS_((
  1031.     ClientData clientData, Tk_Window tkwin,
  1032.     char *widgRec, int offset,
  1033.     Tcl_FreeProc **freeProcPtr));
  1034. EXTERN int TkGetDoublePixels _ANSI_ARGS_((Tcl_Interp *interp,
  1035.     Tk_Window tkwin, CONST char *string,
  1036.     double *doublePtr));
  1037. EXTERN int TkOffsetParseProc _ANSI_ARGS_((
  1038.     ClientData clientData, Tcl_Interp *interp,
  1039.     Tk_Window tkwin, CONST char *value, char *widgRec,
  1040.     int offset));
  1041. EXTERN char * TkOffsetPrintProc _ANSI_ARGS_((
  1042.     ClientData clientData, Tk_Window tkwin,
  1043.     char *widgRec, int offset,
  1044.     Tcl_FreeProc **freeProcPtr));
  1045. EXTERN int TkOrientParseProc _ANSI_ARGS_((
  1046.     ClientData clientData, Tcl_Interp *interp,
  1047.     Tk_Window tkwin, CONST char *value,
  1048.     char *widgRec, int offset));
  1049. EXTERN char * TkOrientPrintProc _ANSI_ARGS_((
  1050.     ClientData clientData, Tk_Window tkwin,
  1051.     char *widgRec, int offset,
  1052.     Tcl_FreeProc **freeProcPtr));
  1053. EXTERN int TkPixelParseProc _ANSI_ARGS_((
  1054.     ClientData clientData, Tcl_Interp *interp,
  1055.     Tk_Window tkwin, CONST char *value, char *widgRec,
  1056.     int offset));
  1057. EXTERN char * TkPixelPrintProc _ANSI_ARGS_((
  1058.     ClientData clientData, Tk_Window tkwin,
  1059.     char *widgRec, int offset,
  1060.     Tcl_FreeProc **freeProcPtr));
  1061. EXTERN int TkPostscriptImage _ANSI_ARGS_((Tcl_Interp *interp,
  1062.     Tk_Window tkwin, Tk_PostscriptInfo psInfo,
  1063.     XImage *ximage, int x, int y, int width,
  1064.     int height));
  1065. EXTERN int TkSmoothParseProc _ANSI_ARGS_((ClientData clientData,
  1066.     Tcl_Interp *interp, Tk_Window tkwin,
  1067.     CONST char *value, char *recordPtr, int offset));
  1068. EXTERN char * TkSmoothPrintProc _ANSI_ARGS_((ClientData clientData,
  1069.     Tk_Window tkwin, char *recordPtr, int offset,
  1070.     Tcl_FreeProc **freeProcPtr));
  1071. EXTERN int TkStateParseProc _ANSI_ARGS_((
  1072.     ClientData clientData, Tcl_Interp *interp,
  1073.     Tk_Window tkwin, CONST char *value,
  1074.     char *widgRec, int offset));
  1075. EXTERN char * TkStatePrintProc _ANSI_ARGS_((
  1076.     ClientData clientData, Tk_Window tkwin,
  1077.     char *widgRec, int offset,
  1078.     Tcl_FreeProc **freeProcPtr));
  1079. EXTERN int TkTileParseProc _ANSI_ARGS_((
  1080.     ClientData clientData, Tcl_Interp *interp,
  1081.     Tk_Window tkwin, CONST char *value, char *widgRec,
  1082.     int offset));
  1083. EXTERN char * TkTilePrintProc _ANSI_ARGS_((
  1084.     ClientData clientData, Tk_Window tkwin,
  1085.     char *widgRec, int offset,
  1086.     Tcl_FreeProc **freeProcPtr));
  1088. /* 
  1089.  * Unsupported commands.
  1090.  */
  1091. EXTERN int TkUnsupported1Cmd _ANSI_ARGS_((ClientData clientData,
  1092.     Tcl_Interp *interp, int argc, char **argv));
  1094. # undef TCL_STORAGE_CLASS
  1095. # define TCL_STORAGE_CLASS DLLIMPORT
  1097. #endif  /* _TKINT */