![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tk.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Micropolis - Activity] / micropolis / src / tk|
Return to tk.h CVS log | Up to [Micropolis - Activity] / micropolis / src / tk |
1.1 ! root 1: /* ! 2: * tk.h -- ! 3: * ! 4: * Declarations for Tk-related things that are visible ! 5: * outside of the Tk module itself. ! 6: * ! 7: * Copyright 1989-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/tk.h,v 1.90 92/08/20 16:36:30 ouster Exp $ SPRITE (Berkeley) ! 17: */ ! 18: ! 19: #ifndef _TK ! 20: #define _TK ! 21: ! 22: #ifndef _TCL ! 23: #include <tcl.h> ! 24: #endif ! 25: #ifndef _XLIB_H ! 26: #include <X11/Xlib.h> ! 27: #endif ! 28: #ifdef __STDC__ ! 29: ! 30: /* This is so gcc's stddef.h doesn't clash with sunos4.1.1's stdtypes.h */ ! 31: #ifdef __sys_stdtypes_h ! 32: #define _PTRDIFF_T ! 33: #define _SIZE_T ! 34: #define _WCHAR_T ! 35: #endif ! 36: ! 37: #include <stddef.h> ! 38: #endif ! 39: ! 40: /* ! 41: * Dummy types that are used by clients: ! 42: */ ! 43: ! 44: typedef struct Tk_ErrorHandler_ *Tk_ErrorHandler; ! 45: typedef struct Tk_TimerToken_ *Tk_TimerToken; ! 46: typedef struct Tk_Window_ *Tk_Window; ! 47: typedef struct Tk_3DBorder_ *Tk_3DBorder; ! 48: typedef struct Tk_BindingTable_ *Tk_BindingTable; ! 49: ! 50: /* ! 51: * Additional types exported to clients. ! 52: */ ! 53: ! 54: typedef char *Tk_Uid; ! 55: ! 56: /* ! 57: * Structure used to specify how to handle argv options. ! 58: */ ! 59: ! 60: typedef struct { ! 61: char *key; /* The key string that flags the option in the ! 62: * argv array. */ ! 63: int type; /* Indicates option type; see below. */ ! 64: char *src; /* Value to be used in setting dst; usage ! 65: * depends on type. */ ! 66: char *dst; /* Address of value to be modified; usage ! 67: * depends on type. */ ! 68: char *help; /* Documentation message describing this option. */ ! 69: } Tk_ArgvInfo; ! 70: ! 71: /* ! 72: * Legal values for the type field of a Tk_ArgvInfo: see the user ! 73: * documentation for details. ! 74: */ ! 75: ! 76: #define TK_ARGV_CONSTANT 15 ! 77: #define TK_ARGV_INT 16 ! 78: #define TK_ARGV_STRING 17 ! 79: #define TK_ARGV_UID 18 ! 80: #define TK_ARGV_REST 19 ! 81: #define TK_ARGV_FLOAT 20 ! 82: #define TK_ARGV_FUNC 21 ! 83: #define TK_ARGV_GENFUNC 22 ! 84: #define TK_ARGV_HELP 23 ! 85: #define TK_ARGV_CONST_OPTION 24 ! 86: #define TK_ARGV_OPTION_VALUE 25 ! 87: #define TK_ARGV_OPTION_NAME_VALUE 26 ! 88: #define TK_ARGV_END 27 ! 89: ! 90: /* ! 91: * Flag bits for passing to Tk_ParseArgv: ! 92: */ ! 93: ! 94: #define TK_ARGV_NO_DEFAULTS 0x1 ! 95: #define TK_ARGV_NO_LEFTOVERS 0x2 ! 96: #define TK_ARGV_NO_ABBREV 0x4 ! 97: #define TK_ARGV_DONT_SKIP_FIRST_ARG 0x8 ! 98: ! 99: /* ! 100: * Structure used to describe application-specific configuration ! 101: * options: indicates procedures to call to parse an option and ! 102: * to return a text string describing an option. ! 103: */ ! 104: ! 105: typedef int (Tk_OptionParseProc) _ANSI_ARGS_((ClientData clientData, ! 106: Tcl_Interp *interp, Tk_Window tkwin, char *value, char *widgRec, ! 107: int offset)); ! 108: typedef char *(Tk_OptionPrintProc) _ANSI_ARGS_((ClientData clientData, ! 109: Tk_Window tkwin, char *widgRec, int offset, ! 110: Tcl_FreeProc **freeProcPtr)); ! 111: ! 112: typedef struct Tk_CustomOption { ! 113: Tk_OptionParseProc *parseProc; /* Procedure to call to parse an ! 114: * option and store it in converted ! 115: * form. */ ! 116: Tk_OptionPrintProc *printProc; /* Procedure to return a printable ! 117: * string describing an existing ! 118: * option. */ ! 119: ClientData clientData; /* Arbitrary one-word value used by ! 120: * option parser: passed to ! 121: * parseProc and printProc. */ ! 122: } Tk_CustomOption; ! 123: ! 124: /* ! 125: * Structure used to specify information for Tk_ConfigureWidget. Each ! 126: * structure gives complete information for one option, including ! 127: * how the option is specified on the command line, where it appears ! 128: * in the option database, etc. ! 129: */ ! 130: ! 131: typedef struct Tk_ConfigSpec { ! 132: int type; /* Type of option, such as TK_CONFIG_COLOR; ! 133: * see definitions below. Last option in ! 134: * table must have type TK_CONFIG_END. */ ! 135: char *argvName; /* Switch used to specify option in argv. ! 136: * NULL means this spec is part of a group. */ ! 137: char *dbName; /* Name for option in option database. */ ! 138: char *dbClass; /* Class for option in database. */ ! 139: char *defValue; /* Default value for option if not ! 140: * specified in command line or database. */ ! 141: int offset; /* Where in widget record to store value; ! 142: * use Tk_Offset macro to generate values ! 143: * for this. */ ! 144: int specFlags; /* Any combination of the values defined ! 145: * below; other bits are used internally ! 146: * by tkConfig.c. */ ! 147: Tk_CustomOption *customPtr; /* If type is TK_CONFIG_CUSTOM then this is ! 148: * a pointer to info about how to parse and ! 149: * print the option. Otherwise it is ! 150: * irrelevant. */ ! 151: } Tk_ConfigSpec; ! 152: ! 153: /* ! 154: * Type values for Tk_ConfigSpec structures. See the user ! 155: * documentation for details. ! 156: */ ! 157: ! 158: #define TK_CONFIG_BOOLEAN 1 ! 159: #define TK_CONFIG_INT 2 ! 160: #define TK_CONFIG_DOUBLE 3 ! 161: #define TK_CONFIG_STRING 4 ! 162: #define TK_CONFIG_UID 5 ! 163: #define TK_CONFIG_COLOR 6 ! 164: #define TK_CONFIG_FONT 7 ! 165: #define TK_CONFIG_BITMAP 8 ! 166: #define TK_CONFIG_BORDER 9 ! 167: #define TK_CONFIG_RELIEF 10 ! 168: #define TK_CONFIG_CURSOR 11 ! 169: #define TK_CONFIG_ACTIVE_CURSOR 12 ! 170: #define TK_CONFIG_JUSTIFY 13 ! 171: #define TK_CONFIG_ANCHOR 14 ! 172: #define TK_CONFIG_SYNONYM 15 ! 173: #define TK_CONFIG_CAP_STYLE 16 ! 174: #define TK_CONFIG_JOIN_STYLE 17 ! 175: #define TK_CONFIG_PIXELS 18 ! 176: #define TK_CONFIG_MM 19 ! 177: #define TK_CONFIG_WINDOW 20 ! 178: #define TK_CONFIG_CUSTOM 21 ! 179: #define TK_CONFIG_END 22 ! 180: #define TK_CONFIG_PIXMAP 30 ! 181: ! 182: /* ! 183: * Macro to use to fill in "offset" fields of Tk_ConfigInfos. ! 184: * Computes number of bytes from beginning of structure to a ! 185: * given field. ! 186: */ ! 187: ! 188: #ifdef offsetof ! 189: #define Tk_Offset(type, field) ((int) offsetof(type, field)) ! 190: #else ! 191: #define Tk_Offset(type, field) ((int) ((char *) &((type *) 0)->field)) ! 192: #endif ! 193: ! 194: /* ! 195: * Possible values for flags argument to Tk_ConfigureWidget: ! 196: */ ! 197: ! 198: #define TK_CONFIG_ARGV_ONLY 1 ! 199: ! 200: /* ! 201: * Possible flag values for Tk_ConfigInfo structures. Any bits at ! 202: * or above TK_CONFIG_USER_BIT may be used by clients for selecting ! 203: * certain entries. Before changing any values here, coordinate with ! 204: * tkConfig.c (internal-use-only flags are defined there). ! 205: */ ! 206: ! 207: #define TK_CONFIG_COLOR_ONLY 1 ! 208: #define TK_CONFIG_MONO_ONLY 2 ! 209: #define TK_CONFIG_NULL_OK 4 ! 210: #define TK_CONFIG_DONT_SET_DEFAULT 8 ! 211: #define TK_CONFIG_OPTION_SPECIFIED 0x10 ! 212: #define TK_CONFIG_USER_BIT 0x100 ! 213: ! 214: /* ! 215: * Bits to pass to Tk_CreateFileHandler to indicate what sorts ! 216: * of events are of interest: ! 217: */ ! 218: ! 219: #define TK_READABLE 1 ! 220: #define TK_WRITABLE 2 ! 221: #define TK_EXCEPTION 4 ! 222: ! 223: /* ! 224: * Flag values to pass to Tk_DoOneEvent to disable searches ! 225: * for some kinds of events: ! 226: */ ! 227: ! 228: #define TK_DONT_WAIT 1 ! 229: #define TK_X_EVENTS 2 ! 230: #define TK_FILE_EVENTS 4 ! 231: #define TK_TIMER_EVENTS 8 ! 232: #define TK_IDLE_EVENTS 0x10 ! 233: #define TK_ALL_EVENTS 0x1e ! 234: ! 235: /* ! 236: * Priority levels to pass to Tk_AddOption: ! 237: */ ! 238: ! 239: #define TK_WIDGET_DEFAULT_PRIO 20 ! 240: #define TK_STARTUP_FILE_PRIO 40 ! 241: #define TK_USER_DEFAULT_PRIO 60 ! 242: #define TK_INTERACTIVE_PRIO 80 ! 243: #define TK_MAX_PRIO 100 ! 244: ! 245: /* ! 246: * Relief values returned by Tk_GetRelief: ! 247: */ ! 248: ! 249: #define TK_RELIEF_RAISED 1 ! 250: #define TK_RELIEF_FLAT 2 ! 251: #define TK_RELIEF_SUNKEN 4 ! 252: ! 253: /* ! 254: * Special EnterNotify/LeaveNotify "mode" for use in events ! 255: * generated by tkShare.c. Pick a high enough value that it's ! 256: * unlikely to conflict with existing values (like NotifyNormal) ! 257: * or any new values defined in the future. ! 258: */ ! 259: ! 260: #define TK_NOTIFY_SHARE 20 ! 261: ! 262: /* ! 263: * Enumerated type for describing a point by which to anchor something: ! 264: */ ! 265: ! 266: typedef enum { ! 267: TK_ANCHOR_N, TK_ANCHOR_NE, TK_ANCHOR_E, TK_ANCHOR_SE, ! 268: TK_ANCHOR_S, TK_ANCHOR_SW, TK_ANCHOR_W, TK_ANCHOR_NW, ! 269: TK_ANCHOR_CENTER ! 270: } Tk_Anchor; ! 271: ! 272: /* ! 273: * Enumerated type for describing a style of justification: ! 274: */ ! 275: ! 276: typedef enum { ! 277: TK_JUSTIFY_LEFT, TK_JUSTIFY_RIGHT, ! 278: TK_JUSTIFY_CENTER, TK_JUSTIFY_FILL ! 279: } Tk_Justify; ! 280: ! 281: /* ! 282: *-------------------------------------------------------------- ! 283: * ! 284: * Macros for querying Tk_Window structures. See the ! 285: * manual entries for documentation. ! 286: * ! 287: *-------------------------------------------------------------- ! 288: */ ! 289: ! 290: #define Tk_Display(tkwin) (((Tk_FakeWin *) (tkwin))->display) ! 291: #define Tk_ScreenNumber(tkwin) (((Tk_FakeWin *) (tkwin))->screenNum) ! 292: #define Tk_Screen(tkwin) (ScreenOfDisplay(Tk_Display(tkwin), \ ! 293: Tk_ScreenNumber(tkwin))) ! 294: #define Tk_WindowId(tkwin) (((Tk_FakeWin *) (tkwin))->window) ! 295: #define Tk_PathName(tkwin) (((Tk_FakeWin *) (tkwin))->pathName) ! 296: #define Tk_Name(tkwin) (((Tk_FakeWin *) (tkwin))->nameUid) ! 297: #define Tk_Class(tkwin) (((Tk_FakeWin *) (tkwin))->classUid) ! 298: #define Tk_X(tkwin) (((Tk_FakeWin *) (tkwin))->changes.x) ! 299: #define Tk_Y(tkwin) (((Tk_FakeWin *) (tkwin))->changes.y) ! 300: #define Tk_Width(tkwin) (((Tk_FakeWin *) (tkwin))->changes.width) ! 301: #define Tk_Height(tkwin) \ ! 302: (((Tk_FakeWin *) (tkwin))->changes.height) ! 303: #define Tk_Changes(tkwin) (&((Tk_FakeWin *) (tkwin))->changes) ! 304: #define Tk_Attributes(tkwin) (&((Tk_FakeWin *) (tkwin))->atts) ! 305: #define Tk_IsMapped(tkwin) \ ! 306: (((Tk_FakeWin *) (tkwin))->flags & TK_MAPPED) ! 307: #define Tk_ReqWidth(tkwin) (((Tk_FakeWin *) (tkwin))->reqWidth) ! 308: #define Tk_ReqHeight(tkwin) (((Tk_FakeWin *) (tkwin))->reqHeight) ! 309: #define Tk_InternalBorderWidth(tkwin) \ ! 310: (((Tk_FakeWin *) (tkwin))->internalBorderWidth) ! 311: #define Tk_Parent(tkwin) (((Tk_FakeWin *) (tkwin))->parentPtr) ! 312: ! 313: /* ! 314: * The structure below is needed by the macros above so that they can ! 315: * access the fields of a Tk_Window. The fields not needed by the macros ! 316: * are declared as "dummyX". The structure has its own type in order to ! 317: * prevent applications from accessing Tk_Window fields except using ! 318: * official macros. WARNING!! The structure definition must be kept ! 319: * consistent with the TkWindow structure in tkInt.h. If you change one, ! 320: * then change the other. See the declaration in tkInt.h for ! 321: * documentation on what the fields are used for internally. ! 322: */ ! 323: ! 324: typedef struct Tk_FakeWin { ! 325: Display *display; ! 326: char *dummy1; ! 327: int screenNum; ! 328: Window window; ! 329: char *dummy2; ! 330: Tk_Window parentPtr; ! 331: char *dummy4; ! 332: char *dummy5; ! 333: char *pathName; ! 334: Tk_Uid nameUid; ! 335: Tk_Uid classUid; ! 336: XWindowChanges changes; ! 337: unsigned int dummy6; ! 338: XSetWindowAttributes atts; ! 339: unsigned long dummy7; ! 340: unsigned int flags; ! 341: char *dummy8; ! 342: char *dummy9; ! 343: ClientData dummy10; ! 344: int dummy12; ! 345: char *dummy13; ! 346: char *dummy14; ! 347: ClientData dummy15; ! 348: char *dummy16; ! 349: ClientData dummy17; ! 350: int reqWidth, reqHeight; ! 351: int internalBorderWidth; ! 352: char *dummyX; ! 353: } Tk_FakeWin; ! 354: ! 355: /* ! 356: * Flag values for TkWindow (and Tk_FakeWin) structures are: ! 357: * ! 358: * TK_MAPPED: 1 means window is currently mapped, ! 359: * 0 means unmapped. ! 360: * TK_RECURSIVE_DESTROY: 1 means a recursive destroy is in ! 361: * progress, so some cleanup operations ! 362: * can be omitted. ! 363: * TK_TOP_LEVEL: 1 means this is a top-level window (it ! 364: * was or will be created as a child of ! 365: * a root window). ! 366: * TK_ALREADY_DEAD: 1 means the window is in the process of ! 367: * being destroyed already. ! 368: * TK_NEED_CONFIG_NOTIFY: 1 means that the window has been reconfigured ! 369: * before it was made to exist. At the time of ! 370: * making it exist a ConfigureNotify event needs ! 371: * to be generated. ! 372: * TK_GRAB_FLAG: Used to manage grabs. See tkGrab.c for ! 373: * details. ! 374: */ ! 375: ! 376: #define TK_MAPPED 1 ! 377: #define TK_RECURSIVE_DESTROY 2 ! 378: #define TK_TOP_LEVEL 4 ! 379: #define TK_ALREADY_DEAD 8 ! 380: #define TK_NEED_CONFIG_NOTIFY 0x10 ! 381: #define TK_GRAB_FLAG 0x20 ! 382: ! 383: /* ! 384: *-------------------------------------------------------------- ! 385: * ! 386: * Additional procedure types defined by Tk. ! 387: * ! 388: *-------------------------------------------------------------- ! 389: */ ! 390: ! 391: typedef int (Tk_ErrorProc) _ANSI_ARGS_((ClientData clientData, ! 392: XErrorEvent *errEventPtr)); ! 393: typedef void (Tk_EventProc) _ANSI_ARGS_((ClientData clientData, ! 394: XEvent *eventPtr)); ! 395: typedef void (Tk_FileProc) _ANSI_ARGS_((ClientData clientData, int mask)); ! 396: typedef void (Tk_FocusProc) _ANSI_ARGS_((ClientData clientData, int gotFocus)); ! 397: typedef void (Tk_FreeProc) _ANSI_ARGS_((ClientData clientData)); ! 398: typedef int (Tk_GenericProc) _ANSI_ARGS_((ClientData clientData, ! 399: XEvent *eventPtr)); ! 400: typedef void (Tk_GeometryProc) _ANSI_ARGS_((ClientData clientData, ! 401: Tk_Window tkwin)); ! 402: typedef int (Tk_GetSelProc) _ANSI_ARGS_((ClientData clientData, ! 403: Tcl_Interp *interp, char *portion)); ! 404: typedef void (Tk_IdleProc) _ANSI_ARGS_((ClientData clientData)); ! 405: typedef void (Tk_LostSelProc) _ANSI_ARGS_((ClientData clientData)); ! 406: typedef Bool (Tk_RestrictProc) _ANSI_ARGS_((Display *display, XEvent *eventPtr, ! 407: char *arg)); ! 408: typedef int (Tk_SelectionProc) _ANSI_ARGS_((ClientData clientData, ! 409: int offset, char *buffer, int maxBytes)); ! 410: typedef void (Tk_TimerProc) _ANSI_ARGS_((ClientData clientData)); ! 411: ! 412: /* ! 413: *-------------------------------------------------------------- ! 414: * ! 415: * Exported procedures and variables. ! 416: * ! 417: *-------------------------------------------------------------- ! 418: */ ! 419: ! 420: extern XColor * Tk_3DBorderColor _ANSI_ARGS_((Tk_3DBorder border)); ! 421: extern void Tk_AddOption _ANSI_ARGS_((Tk_Window tkwin, char *name, ! 422: char *value, int priority)); ! 423: extern void Tk_BindEvent _ANSI_ARGS_((Tk_BindingTable bindingTable, ! 424: XEvent *eventPtr, Tk_Window tkwin, int numObjects, ! 425: ClientData *objectPtr)); ! 426: extern void Tk_CancelIdleCall _ANSI_ARGS_((Tk_IdleProc *idleProc, ! 427: ClientData clientData)); ! 428: extern void Tk_ChangeWindowAttributes _ANSI_ARGS_((Tk_Window tkwin, ! 429: unsigned long valueMask, ! 430: XSetWindowAttributes *attsPtr)); ! 431: extern int Tk_ConfigureInfo _ANSI_ARGS_((Tcl_Interp *interp, ! 432: Tk_Window tkwin, Tk_ConfigSpec *specs, ! 433: char *widgRec, char *argvName, int flags)); ! 434: extern int Tk_ConfigureWidget _ANSI_ARGS_((Tcl_Interp *interp, ! 435: Tk_Window tkwin, Tk_ConfigSpec *specs, ! 436: int argc, char **argv, char *widgRec, ! 437: int flags)); ! 438: extern Tk_Window Tk_CoordsToWindow _ANSI_ARGS_((int rootX, int rootY, ! 439: Tk_Window tkwin)); ! 440: extern unsigned long Tk_CreateBinding _ANSI_ARGS_((Tcl_Interp *interp, ! 441: Tk_BindingTable bindingTable, ClientData object, ! 442: char *eventString, char *command, int append)); ! 443: extern Tk_BindingTable Tk_CreateBindingTable _ANSI_ARGS_((Tcl_Interp *interp)); ! 444: extern Tk_ErrorHandler Tk_CreateErrorHandler _ANSI_ARGS_((Display *display, ! 445: int error, int request, int minorCode, ! 446: Tk_ErrorProc *errorProc, ClientData clientData)); ! 447: extern void Tk_CreateEventHandler _ANSI_ARGS_((Tk_Window token, ! 448: unsigned long mask, Tk_EventProc *proc, ! 449: ClientData clientData)); ! 450: extern void Tk_CreateFileHandler _ANSI_ARGS_((int fd, int mask, ! 451: Tk_FileProc *proc, ClientData clientData)); ! 452: extern void Tk_CreateFocusHandler _ANSI_ARGS_((Tk_Window tkwin, ! 453: Tk_FocusProc *proc, ClientData clientData)); ! 454: extern void Tk_CreateGenericHandler _ANSI_ARGS_(( ! 455: Tk_GenericProc *proc, ClientData clientData)); ! 456: extern Tk_Window Tk_CreateMainWindow _ANSI_ARGS_((Tcl_Interp *interp, ! 457: char *screenName, char *baseName)); ! 458: extern void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin, ! 459: Atom target, Tk_SelectionProc *proc, ! 460: ClientData clientData, Atom format)); ! 461: extern Tk_TimerToken Tk_CreateTimerHandler _ANSI_ARGS_((int milliseconds, ! 462: Tk_TimerProc *proc, ClientData clientData)); ! 463: // Added by Don to support finer timer resolution. ! 464: extern Tk_TimerToken Tk_CreateMicroTimerHandler _ANSI_ARGS_((int seconds, ! 465: int microseconds, Tk_TimerProc *proc, ClientData clientData)); ! 466: extern Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp *interp, ! 467: Tk_Window parent, char *name, char *screenName)); ! 468: extern Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_(( ! 469: Tcl_Interp *interp, Tk_Window tkwin, ! 470: char *pathName, char *screenName)); ! 471: extern int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp *interp, ! 472: Tk_Uid name, char *source, unsigned int width, ! 473: unsigned int height)); ! 474: extern int Tk_DefinePixmap _ANSI_ARGS_((Tcl_Interp *interp, ! 475: Tk_Uid name, Tk_Window, Pixmap pixmap, ! 476: char *source, unsigned int width, ! 477: unsigned int height)); ! 478: extern void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window, ! 479: Cursor cursor)); ! 480: extern void Tk_DeleteAllBindings _ANSI_ARGS_(( ! 481: Tk_BindingTable bindingTable, ClientData object)); ! 482: extern int Tk_DeleteBinding _ANSI_ARGS_((Tcl_Interp *interp, ! 483: Tk_BindingTable bindingTable, ClientData object, ! 484: char *eventString)); ! 485: extern void Tk_DeleteBindingTable _ANSI_ARGS_(( ! 486: Tk_BindingTable bindingTable)); ! 487: extern void Tk_DeleteErrorHandler _ANSI_ARGS_(( ! 488: Tk_ErrorHandler handler)); ! 489: extern void Tk_DeleteEventHandler _ANSI_ARGS_((Tk_Window token, ! 490: unsigned long mask, Tk_EventProc *proc, ! 491: ClientData clientData)); ! 492: extern void Tk_DeleteFileHandler _ANSI_ARGS_((int fd)); ! 493: extern void Tk_DeleteGenericHandler _ANSI_ARGS_(( ! 494: Tk_GenericProc *proc, ClientData clientData)); ! 495: extern void Tk_DeleteTimerHandler _ANSI_ARGS_(( ! 496: Tk_TimerToken token)); ! 497: extern void Tk_DestroyWindow _ANSI_ARGS_((Tk_Window tkwin)); ! 498: extern char * Tk_DisplayName _ANSI_ARGS_((Tk_Window tkwin)); ! 499: extern int Tk_DoOneEvent _ANSI_ARGS_((int flags)); ! 500: extern void Tk_DoWhenIdle _ANSI_ARGS_((Tk_IdleProc *proc, ! 501: ClientData clientData)); ! 502: extern void Tk_Draw3DPolygon _ANSI_ARGS_((Display *display, ! 503: Drawable drawable, Tk_3DBorder border, ! 504: XPoint *pointPtr, int numPoints, int borderWidth, ! 505: int leftRelief)); ! 506: extern void Tk_Draw3DRectangle _ANSI_ARGS_((Display *display, ! 507: Drawable drawable, Tk_3DBorder border, int x, ! 508: int y, int width, int height, int borderWidth, ! 509: int relief)); ! 510: extern void Tk_EventuallyFree _ANSI_ARGS_((ClientData clientData, ! 511: Tk_FreeProc *freeProc)); ! 512: extern void Tk_Fill3DPolygon _ANSI_ARGS_((Display *display, ! 513: Drawable drawable, Tk_3DBorder border, ! 514: XPoint *pointPtr, int numPoints, int borderWidth, ! 515: int leftRelief)); ! 516: extern void Tk_Fill3DRectangle _ANSI_ARGS_((Display *display, ! 517: Drawable drawable, Tk_3DBorder border, int x, ! 518: int y, int width, int height, int borderWidth, ! 519: int relief)); ! 520: extern void Tk_Free3DBorder _ANSI_ARGS_((Tk_3DBorder border)); ! 521: extern void Tk_FreeBitmap _ANSI_ARGS_((Pixmap bitmap)); ! 522: extern void Tk_FreePixmap _ANSI_ARGS_((Pixmap bitmap)); ! 523: extern void Tk_FreeColor _ANSI_ARGS_((XColor *colorPtr)); ! 524: extern int Tk_IndexOfScreen _ANSI_ARGS_((Screen *screen)); ! 525: extern int Tk_DefaultDepth _ANSI_ARGS_((Screen *screen)); ! 526: extern Visual *Tk_DefaultVisual _ANSI_ARGS_((Screen *screen)); ! 527: extern Colormap Tk_DefaultColormap _ANSI_ARGS_((Screen *screen)); ! 528: extern Window Tk_DefaultRootWindow _ANSI_ARGS_((Display *dpy)); ! 529: extern GC Tk_DefaultGC _ANSI_ARGS_((Screen *screen)); ! 530: extern Pixmap Tk_DefaultPixmap _ANSI_ARGS_((Screen *screen)); ! 531: extern void Tk_FreeCursor _ANSI_ARGS_((Cursor cursor)); ! 532: extern void Tk_FreeFontStruct _ANSI_ARGS_(( ! 533: XFontStruct *fontStructPtr)); ! 534: extern void Tk_FreeGC _ANSI_ARGS_((GC gc)); ! 535: extern void Tk_GeometryRequest _ANSI_ARGS_((Tk_Window tkwin, ! 536: int reqWidth, int reqHeight)); ! 537: extern Tk_3DBorder Tk_Get3DBorder _ANSI_ARGS_((Tcl_Interp *interp, ! 538: Tk_Window tkwin, Colormap colormap, ! 539: Tk_Uid colorName)); ! 540: extern void Tk_GetAllBindings _ANSI_ARGS_((Tcl_Interp *interp, ! 541: Tk_BindingTable bindingTable, ClientData object)); ! 542: extern int Tk_GetAnchor _ANSI_ARGS_((Tcl_Interp *interp, ! 543: char *string, Tk_Anchor *anchorPtr)); ! 544: extern char * Tk_GetAtomName _ANSI_ARGS_((Tk_Window tkwin, ! 545: Atom atom)); ! 546: extern char * Tk_GetBinding _ANSI_ARGS_((Tcl_Interp *interp, ! 547: Tk_BindingTable bindingTable, ClientData object, ! 548: char *eventString)); ! 549: extern Pixmap Tk_GetBitmap _ANSI_ARGS_((Tcl_Interp *interp, ! 550: Tk_Window tkwin, Tk_Uid string)); ! 551: extern Pixmap Tk_GetPixmap _ANSI_ARGS_((Tcl_Interp *interp, ! 552: Tk_Window tkwin, Tk_Uid string)); ! 553: extern Pixmap Tk_GetBitmapFromData _ANSI_ARGS_((Tcl_Interp *interp, ! 554: Tk_Window tkwin, char *source, ! 555: unsigned int width, unsigned int height)); ! 556: extern Pixmap Tk_GetPixmapFromData _ANSI_ARGS_((Tcl_Interp *interp, ! 557: Tk_Window tkwin, char *source, ! 558: unsigned int width, unsigned int height)); ! 559: extern int Tk_GetCapStyle _ANSI_ARGS_((Tcl_Interp *interp, ! 560: char *string, int *capPtr)); ! 561: extern XColor * Tk_GetColor _ANSI_ARGS_((Tcl_Interp *interp, ! 562: Tk_Window tkwin, Colormap colormap, Tk_Uid name)); ! 563: extern XColor * Tk_GetColorByValue _ANSI_ARGS_((Tcl_Interp *interp, ! 564: Tk_Window tkwin, Colormap colormap, ! 565: XColor *colorPtr)); ! 566: extern Cursor Tk_GetCursor _ANSI_ARGS_((Tcl_Interp *interp, ! 567: Tk_Window tkwin, Tk_Uid string)); ! 568: extern Cursor Tk_GetCursorFromData _ANSI_ARGS_((Tcl_Interp *interp, ! 569: Tk_Window tkwin, char *source, char *mask, ! 570: unsigned int width, unsigned int height, ! 571: int xHot, int yHot, Tk_Uid fg, Tk_Uid bg)); ! 572: extern XFontStruct * Tk_GetFontStruct _ANSI_ARGS_((Tcl_Interp *interp, ! 573: Tk_Window tkwin, Tk_Uid name)); ! 574: extern GC Tk_GetGC _ANSI_ARGS_((Tk_Window tkwin, ! 575: unsigned long valueMask, XGCValues *valuePtr)); ! 576: extern int Tk_GetJoinStyle _ANSI_ARGS_((Tcl_Interp *interp, ! 577: char *string, int *joinPtr)); ! 578: extern int Tk_GetJustify _ANSI_ARGS_((Tcl_Interp *interp, ! 579: char *string, Tk_Justify *justifyPtr)); ! 580: extern Tk_Uid Tk_GetOption _ANSI_ARGS_((Tk_Window tkwin, char *name, ! 581: char *className)); ! 582: extern int Tk_GetPixels _ANSI_ARGS_((Tcl_Interp *interp, ! 583: Tk_Window tkwin, char *string, int *intPtr)); ! 584: extern int Tk_GetRelief _ANSI_ARGS_((Tcl_Interp *interp, ! 585: char *name, int *reliefPtr)); ! 586: extern void Tk_GetRootCoords _ANSI_ARGS_ ((Tk_Window tkwin, ! 587: int *xPtr, int *yPtr)); ! 588: extern int Tk_GetScreenMM _ANSI_ARGS_((Tcl_Interp *interp, ! 589: Tk_Window tkwin, char *string, double *doublePtr)); ! 590: extern int Tk_GetSelection _ANSI_ARGS_((Tcl_Interp *interp, ! 591: Tk_Window tkwin, Atom target, Tk_GetSelProc *proc, ! 592: ClientData clientData)); ! 593: extern Tk_Uid Tk_GetUid _ANSI_ARGS_((char *string)); ! 594: extern int Tk_Grab _ANSI_ARGS_((Tcl_Interp *interp, ! 595: Tk_Window tkwin, int grabGlobal)); ! 596: extern void Tk_HandleEvent _ANSI_ARGS_((XEvent *eventPtr)); ! 597: extern Atom Tk_InternAtom _ANSI_ARGS_((Tk_Window tkwin, ! 598: char *name)); ! 599: extern void Tk_MainLoop _ANSI_ARGS_((void)); ! 600: extern void Tk_MakeWindowExist _ANSI_ARGS_((Tk_Window tkwin)); ! 601: extern void Tk_ManageGeometry _ANSI_ARGS_((Tk_Window tkwin, ! 602: Tk_GeometryProc *proc, ClientData clientData)); ! 603: extern void Tk_MapWindow _ANSI_ARGS_((Tk_Window tkwin)); ! 604: extern void Tk_MoveResizeWindow _ANSI_ARGS_((Tk_Window tkwin, ! 605: int x, int y, unsigned int width, ! 606: unsigned int height)); ! 607: extern void Tk_MoveWindow _ANSI_ARGS_((Tk_Window tkwin, int x, ! 608: int y)); ! 609: extern char * Tk_NameOf3DBorder _ANSI_ARGS_((Tk_3DBorder border)); ! 610: extern char * Tk_NameOfAnchor _ANSI_ARGS_((Tk_Anchor anchor)); ! 611: extern char * Tk_NameOfBitmap _ANSI_ARGS_((Pixmap bitmap)); ! 612: extern char * Tk_NameOfPixmap _ANSI_ARGS_((Pixmap bitmap)); ! 613: extern char * Tk_NameOfCapStyle _ANSI_ARGS_((int cap)); ! 614: extern char * Tk_NameOfColor _ANSI_ARGS_((XColor *colorPtr)); ! 615: extern char * Tk_NameOfCursor _ANSI_ARGS_((Cursor cursor)); ! 616: extern char * Tk_NameOfFontStruct _ANSI_ARGS_(( ! 617: XFontStruct *fontStructPtr)); ! 618: extern char * Tk_NameOfJoinStyle _ANSI_ARGS_((int join)); ! 619: extern char * Tk_NameOfJustify _ANSI_ARGS_((Tk_Justify justify)); ! 620: extern char * Tk_NameOfRelief _ANSI_ARGS_((int relief)); ! 621: extern Tk_Window Tk_NameToWindow _ANSI_ARGS_((Tcl_Interp *interp, ! 622: char *pathName, Tk_Window tkwin)); ! 623: extern void Tk_OwnSelection _ANSI_ARGS_((Tk_Window tkwin, ! 624: Tk_LostSelProc *proc, ClientData clientData)); ! 625: extern int Tk_ParseArgv _ANSI_ARGS_((Tcl_Interp *interp, ! 626: Tk_Window tkwin, int *argcPtr, char **argv, ! 627: Tk_ArgvInfo *argTable, int flags)); ! 628: extern void Tk_Preserve _ANSI_ARGS_((ClientData clientData)); ! 629: extern int Tk_RegisterInterp _ANSI_ARGS_((Tcl_Interp *interp, ! 630: char *name, Tk_Window tkwin)); ! 631: extern void Tk_Release _ANSI_ARGS_((ClientData clientData)); ! 632: extern void Tk_ResizeWindow _ANSI_ARGS_((Tk_Window tkwin, ! 633: unsigned int width, unsigned int height)); ! 634: extern Tk_RestrictProc *Tk_RestrictEvents _ANSI_ARGS_((Tk_RestrictProc *proc, ! 635: char *arg, char **prevArgPtr)); ! 636: extern void Tk_SetBackgroundFromBorder _ANSI_ARGS_(( ! 637: Tk_Window tkwin, Tk_3DBorder border)); ! 638: extern void Tk_SetClass _ANSI_ARGS_((Tk_Window tkwin, ! 639: char *className)); ! 640: extern void Tk_SetGrid _ANSI_ARGS_((Tk_Window tkwin, ! 641: int reqWidth, int reqHeight, int gridWidth, ! 642: int gridHeight)); ! 643: extern void Tk_SetInternalBorder _ANSI_ARGS_((Tk_Window tkwin, ! 644: int width)); ! 645: extern void Tk_SetWindowBackground _ANSI_ARGS_((Tk_Window tkwin, ! 646: unsigned long pixel)); ! 647: extern void Tk_SetWindowBackgroundPixmap _ANSI_ARGS_(( ! 648: Tk_Window tkwin, Pixmap pixmap)); ! 649: extern void Tk_SetWindowBorder _ANSI_ARGS_((Tk_Window tkwin, ! 650: unsigned long pixel)); ! 651: extern void Tk_SetWindowBorderWidth _ANSI_ARGS_((Tk_Window tkwin, ! 652: int width)); ! 653: extern void Tk_SetWindowBorderPixmap _ANSI_ARGS_((Tk_Window tkwin, ! 654: Pixmap pixmap)); ! 655: extern void Tk_ShareEvents _ANSI_ARGS_((Tk_Window tkwin, ! 656: Tk_Uid groupId)); ! 657: extern void Tk_SizeOfBitmap _ANSI_ARGS_((Pixmap bitmap, ! 658: unsigned int *widthPtr, unsigned int *heightPtr)); ! 659: extern void Tk_SizeOfPixmap _ANSI_ARGS_((Pixmap bitmap, ! 660: unsigned int *widthPtr, unsigned int *heightPtr)); ! 661: extern void Tk_Sleep _ANSI_ARGS_((int ms)); ! 662: extern void Tk_UndefineCursor _ANSI_ARGS_((Tk_Window window)); ! 663: extern int Tk_UndefinePixmap _ANSI_ARGS_((Tcl_Interp *interp, ! 664: Tk_Uid name, Tk_Window tkwin)); ! 665: extern void Tk_Ungrab _ANSI_ARGS_((Tk_Window tkwin)); ! 666: extern void Tk_UnmapWindow _ANSI_ARGS_((Tk_Window tkwin)); ! 667: extern void Tk_UnshareEvents _ANSI_ARGS_((Tk_Window tkwin, ! 668: Tk_Uid groupId)); ! 669: ! 670: ! 671: extern int tk_NumMainWindows; ! 672: ! 673: /* ! 674: * Added by dhopkins for OLPC Micropolis gtk.Socket integration. ! 675: */ ! 676: extern Window tk_RootWindow; ! 677: ! 678: /* ! 679: * Tcl commands exported by Tk: ! 680: */ ! 681: ! 682: extern int Tk_AfterCmd _ANSI_ARGS_((ClientData clientData, ! 683: Tcl_Interp *interp, int argc, char **argv)); ! 684: extern int Tk_ApplicationCmd _ANSI_ARGS_((ClientData clientData, ! 685: Tcl_Interp *interp, int argc, char **argv)); ! 686: extern int Tk_BindCmd _ANSI_ARGS_((ClientData clientData, ! 687: Tcl_Interp *interp, int argc, char **argv)); ! 688: extern int Tk_ButtonCmd _ANSI_ARGS_((ClientData clientData, ! 689: Tcl_Interp *interp, int argc, char **argv)); ! 690: extern int Tk_CanvasCmd _ANSI_ARGS_((ClientData clientData, ! 691: Tcl_Interp *interp, int argc, char **argv)); ! 692: extern int Tk_DestroyCmd _ANSI_ARGS_((ClientData clientData, ! 693: Tcl_Interp *interp, int argc, char **argv)); ! 694: extern int Tk_EntryCmd _ANSI_ARGS_((ClientData clientData, ! 695: Tcl_Interp *interp, int argc, char **argv)); ! 696: extern int Tk_FrameCmd _ANSI_ARGS_((ClientData clientData, ! 697: Tcl_Interp *interp, int argc, char **argv)); ! 698: extern int Tk_FocusCmd _ANSI_ARGS_((ClientData clientData, ! 699: Tcl_Interp *interp, int argc, char **argv)); ! 700: extern int Tk_GrabCmd _ANSI_ARGS_((ClientData clientData, ! 701: Tcl_Interp *interp, int argc, char **argv)); ! 702: extern int Tk_ListboxCmd _ANSI_ARGS_((ClientData clientData, ! 703: Tcl_Interp *interp, int argc, char **argv)); ! 704: extern int Tk_MenuCmd _ANSI_ARGS_((ClientData clientData, ! 705: Tcl_Interp *interp, int argc, char **argv)); ! 706: extern int Tk_MenubuttonCmd _ANSI_ARGS_((ClientData clientData, ! 707: Tcl_Interp *interp, int argc, char **argv)); ! 708: extern int Tk_MessageCmd _ANSI_ARGS_((ClientData clientData, ! 709: Tcl_Interp *interp, int argc, char **argv)); ! 710: extern int Tk_OptionCmd _ANSI_ARGS_((ClientData clientData, ! 711: Tcl_Interp *interp, int argc, char **argv)); ! 712: extern int Tk_PackCmd _ANSI_ARGS_((ClientData clientData, ! 713: Tcl_Interp *interp, int argc, char **argv)); ! 714: extern int Tk_PlaceCmd _ANSI_ARGS_((ClientData clientData, ! 715: Tcl_Interp *interp, int argc, char **argv)); ! 716: extern int Tk_ScaleCmd _ANSI_ARGS_((ClientData clientData, ! 717: Tcl_Interp *interp, int argc, char **argv)); ! 718: extern int Tk_ScrollbarCmd _ANSI_ARGS_((ClientData clientData, ! 719: Tcl_Interp *interp, int argc, char **argv)); ! 720: extern int Tk_SelectionCmd _ANSI_ARGS_((ClientData clientData, ! 721: Tcl_Interp *interp, int argc, char **argv)); ! 722: extern int Tk_SendCmd _ANSI_ARGS_((ClientData clientData, ! 723: Tcl_Interp *interp, int argc, char **argv)); ! 724: extern int Tk_TextCmd _ANSI_ARGS_((ClientData clientData, ! 725: Tcl_Interp *interp, int argc, char **argv)); ! 726: extern int Tk_TkwaitCmd _ANSI_ARGS_((ClientData clientData, ! 727: Tcl_Interp *interp, int argc, char **argv)); ! 728: extern int Tk_UpdateCmd _ANSI_ARGS_((ClientData clientData, ! 729: Tcl_Interp *interp, int argc, char **argv)); ! 730: extern int Tk_WinfoCmd _ANSI_ARGS_((ClientData clientData, ! 731: Tcl_Interp *interp, int argc, char **argv)); ! 732: extern int Tk_WmCmd _ANSI_ARGS_((ClientData clientData, ! 733: Tcl_Interp *interp, int argc, char **argv)); ! 734: extern int Tcp_AcceptCmd _ANSI_ARGS_((ClientData clientData, ! 735: Tcl_Interp *interp, int argc, char **argv)); ! 736: extern int Tcp_ConnectCmd _ANSI_ARGS_((ClientData clientData, ! 737: Tcl_Interp *interp, int argc, char **argv)); ! 738: extern int Tcp_ShutdownCmd _ANSI_ARGS_((ClientData clientData, ! 739: Tcl_Interp *interp, int argc, char **argv)); ! 740: extern int Tcp_FileHandlerCmd _ANSI_ARGS_((ClientData clientData, ! 741: Tcl_Interp *interp, int argc, char **argv)); ! 742: ! 743: #endif /* _TK */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.