1 /* 2 * tkText.h -- 3 * 4 * Declarations shared among the files that implement text widgets. 5 * 6 * Copyright (c) 1992-1994 The Regents of the University of California. 7 * Copyright (c) 1994-1995 Sun Microsystems, Inc. 8 * 9 * See the file "license.terms" for information on usage and redistribution of 10 * this file, and for a DISCLAIMER OF ALL WARRANTIES. 11 */ 12 13 #ifndef _TKTEXT 14 #define _TKTEXT 15 16 #ifndef _TK 17 #include "tk.h" 18 #endif 19 20 #ifndef _TKUNDO 21 #include "tkUndo.h" 22 #endif 23 24 /* 25 * The data structure below defines a single logical line of text (from 26 * newline to newline, not necessarily what appears on one display line of the 27 * screen). 28 */ 29 30 typedef struct TkTextLine { 31 struct Node *parentPtr; /* Pointer to parent node containing line. */ 32 struct TkTextLine *nextPtr; /* Next in linked list of lines with same 33 * parent node in B-tree. NULL means end of 34 * list. */ 35 struct TkTextSegment *segPtr; 36 /* First in ordered list of segments that make 37 * up the line. */ 38 int *pixels; /* Array containing two integers for each 39 * referring text widget. The first of these 40 * is the number of vertical pixels taken up 41 * by this line, whether currently displayed 42 * or not. This number is only updated 43 * asychronously. The second of these is the 44 * last epoch at which the pixel height was 45 * recalculated. */ 46 } TkTextLine; 47 48 /* 49 * ----------------------------------------------------------------------- 50 * Segments: each line is divided into one or more segments, where each 51 * segment is one of several things, such as a group of characters, a tag 52 * toggle, a mark, or an embedded widget. Each segment starts with a standard 53 * header followed by a body that varies from type to type. 54 * ----------------------------------------------------------------------- 55 */ 56 57 /* 58 * The data structure below defines the body of a segment that represents a 59 * tag toggle. There is one of these structures at both the beginning and end 60 * of each tagged range. 61 */ 62 63 typedef struct TkTextToggle { 64 struct TkTextTag *tagPtr; /* Tag that starts or ends here. */ 65 int inNodeCounts; /* 1 means this toggle has been accounted for 66 * in node toggle counts; 0 means it hasn't, 67 * yet. */ 68 } TkTextToggle; 69 70 /* 71 * The data structure below defines line segments that represent marks. There 72 * is one of these for each mark in the text. 73 */ 74 75 typedef struct TkTextMark { 76 struct TkText *textPtr; /* Overall information about text widget. */ 77 TkTextLine *linePtr; /* Line structure that contains the 78 * segment. */ 79 Tcl_HashEntry *hPtr; /* Pointer to hash table entry for mark (in 80 * sharedTextPtr->markTable). */ 81 } TkTextMark; 82 83 /* 84 * A structure of the following type holds information for each window 85 * embedded in a text widget. This information is only used by the file 86 * tkTextWind.c 87 */ 88 89 typedef struct TkTextEmbWindowClient { 90 struct TkText *textPtr; /* Information about the overall text 91 * widget. */ 92 Tk_Window tkwin; /* Window for this segment. NULL means that 93 * the window hasn't been created yet. */ 94 int chunkCount; /* Number of display chunks that refer to this 95 * window. */ 96 int displayed; /* Non-zero means that the window has been 97 * displayed on the screen recently. */ 98 struct TkTextSegment *parent; 99 struct TkTextEmbWindowClient *next; 100 } TkTextEmbWindowClient; 101 102 typedef struct TkTextEmbWindow { 103 struct TkSharedText *sharedTextPtr; 104 /* Information about the shared portion of the 105 * text widget. */ 106 Tk_Window tkwin; /* Window for this segment. This is just a 107 * temporary value, copied from 'clients', to 108 * make option table updating easier. NULL 109 * means that the window hasn't been created 110 * yet. */ 111 TkTextLine *linePtr; /* Line structure that contains this 112 * window. */ 113 char *create; /* Script to create window on-demand. NULL 114 * means no such script. Malloc-ed. */ 115 int align; /* How to align window in vertical space. See 116 * definitions in tkTextWind.c. */ 117 int padX, padY; /* Padding to leave around each side of 118 * window, in pixels. */ 119 int stretch; /* Should window stretch to fill vertical 120 * space of line (except for pady)? 0 or 1. */ 121 Tk_OptionTable optionTable; /* Token representing the configuration 122 * specifications. */ 123 TkTextEmbWindowClient *clients; 124 /* Linked list of peer-widget specific 125 * information for this embedded window. */ 126 } TkTextEmbWindow; 127 128 /* 129 * A structure of the following type holds information for each image embedded 130 * in a text widget. This information is only used by the file tkTextImage.c 131 */ 132 133 typedef struct TkTextEmbImage { 134 struct TkSharedText *sharedTextPtr; 135 /* Information about the shared portion of the 136 * text widget. This is used when the image 137 * changes or is deleted. */ 138 TkTextLine *linePtr; /* Line structure that contains this image. */ 139 char *imageString; /* Name of the image for this segment. */ 140 char *imageName; /* Name used by text widget to identify this 141 * image. May be unique-ified. */ 142 char *name; /* Name used in the hash table. Used by 143 * "image names" to identify this instance of 144 * the image. */ 145 Tk_Image image; /* Image for this segment. NULL means that the 146 * image hasn't been created yet. */ 147 int align; /* How to align image in vertical space. See 148 * definitions in tkTextImage.c. */ 149 int padX, padY; /* Padding to leave around each side of image, 150 * in pixels. */ 151 int chunkCount; /* Number of display chunks that refer to this 152 * image. */ 153 Tk_OptionTable optionTable; /* Token representing the configuration 154 * specifications. */ 155 } TkTextEmbImage; 156 157 /* 158 * The data structure below defines line segments. 159 */ 160 161 typedef struct TkTextSegment { 162 const struct Tk_SegType *typePtr; 163 /* Pointer to record describing segment's 164 * type. */ 165 struct TkTextSegment *nextPtr; 166 /* Next in list of segments for this line, or 167 * NULL for end of list. */ 168 int size; /* Size of this segment (# of bytes of index 169 * space it occupies). */ 170 union { 171 char chars[TKFLEXARRAY]; /* Characters that make up character info. 172 * Actual length varies to hold as many 173 * characters as needed.*/ 174 TkTextToggle toggle; /* Information about tag toggle. */ 175 TkTextMark mark; /* Information about mark. */ 176 TkTextEmbWindow ew; /* Information about embedded window. */ 177 TkTextEmbImage ei; /* Information about embedded image. */ 178 } body; 179 } TkTextSegment; 180 181 /* 182 * Data structures of the type defined below are used during the execution of 183 * Tcl commands to keep track of various interesting places in a text. An 184 * index is only valid up until the next modification to the character 185 * structure of the b-tree so they can't be retained across Tcl commands. 186 * However, mods to marks or tags don't invalidate indices. 187 */ 188 189 typedef struct TkTextIndex { 190 TkTextBTree tree; /* Tree containing desired position. */ 191 TkTextLine *linePtr; /* Pointer to line containing position of 192 * interest. */ 193 int byteIndex; /* Index within line of desired character (0 194 * means first one). */ 195 struct TkText *textPtr; /* May be NULL, but otherwise the text widget 196 * with which this index is associated. If not 197 * NULL, then we have a refCount on the 198 * widget. */ 199 } TkTextIndex; 200 201 /* 202 * Types for procedure pointers stored in TkTextDispChunk strutures: 203 */ 204 205 typedef struct TkTextDispChunk TkTextDispChunk; 206 207 typedef void Tk_ChunkDisplayProc(struct TkText *textPtr, 208 TkTextDispChunk *chunkPtr, int x, int y, 209 int height, int baseline, Display *display, 210 Drawable dst, int screenY); 211 typedef void Tk_ChunkUndisplayProc(struct TkText *textPtr, 212 TkTextDispChunk *chunkPtr); 213 typedef int Tk_ChunkMeasureProc(TkTextDispChunk *chunkPtr, int x); 214 typedef void Tk_ChunkBboxProc(struct TkText *textPtr, 215 TkTextDispChunk *chunkPtr, int index, int y, 216 int lineHeight, int baseline, int *xPtr, 217 int *yPtr, int *widthPtr, int *heightPtr); 218 219 /* 220 * The structure below represents a chunk of stuff that is displayed together 221 * on the screen. This structure is allocated and freed by generic display 222 * code but most of its fields are filled in by segment-type-specific code. 223 */ 224 225 struct TkTextDispChunk { 226 /* 227 * The fields below are set by the type-independent code before calling 228 * the segment-type-specific layoutProc. They should not be modified by 229 * segment-type-specific code. 230 */ 231 232 int x; /* X position of chunk, in pixels. This 233 * position is measured from the left edge of 234 * the logical line, not from the left edge of 235 * the window (i.e. it doesn't change under 236 * horizontal scrolling). */ 237 struct TkTextDispChunk *nextPtr; 238 /* Next chunk in the display line or NULL for 239 * the end of the list. */ 240 struct TextStyle *stylePtr; /* Display information, known only to 241 * tkTextDisp.c. */ 242 243 /* 244 * The fields below are set by the layoutProc that creates the chunk. 245 */ 246 247 Tk_ChunkDisplayProc *displayProc; 248 /* Procedure to invoke to draw this chunk on 249 * the display or an off-screen pixmap. */ 250 Tk_ChunkUndisplayProc *undisplayProc; 251 /* Procedure to invoke when segment ceases to 252 * be displayed on screen anymore. */ 253 Tk_ChunkMeasureProc *measureProc; 254 /* Procedure to find character under a given 255 * x-location. */ 256 Tk_ChunkBboxProc *bboxProc; /* Procedure to find bounding box of character 257 * in chunk. */ 258 int numBytes; /* Number of bytes that will be displayed in 259 * the chunk. */ 260 int minAscent; /* Minimum space above the baseline needed by 261 * this chunk. */ 262 int minDescent; /* Minimum space below the baseline needed by 263 * this chunk. */ 264 int minHeight; /* Minimum total line height needed by this 265 * chunk. */ 266 int width; /* Width of this chunk, in pixels. Initially 267 * set by chunk-specific code, but may be 268 * increased to include tab or extra space at 269 * end of line. */ 270 int breakIndex; /* Index within chunk of last acceptable 271 * position for a line (break just before this 272 * byte index). <= 0 means don't break during 273 * or immediately after this chunk. */ 274 ClientData clientData; /* Additional information for use of 275 * displayProc and undisplayProc. */ 276 }; 277 278 /* 279 * One data structure of the following type is used for each tag in a text 280 * widget. These structures are kept in sharedTextPtr->tagTable and referred 281 * to in other structures. 282 */ 283 284 typedef enum { 285 TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_NONE, TEXT_WRAPMODE_WORD, 286 TEXT_WRAPMODE_NULL 287 } TkWrapMode; 288 289 typedef struct TkTextTag { 290 const char *name; /* Name of this tag. This field is actually a 291 * pointer to the key from the entry in 292 * sharedTextPtr->tagTable, so it needn't be 293 * freed explicitly. For 'sel' tags this is 294 * just a static string, so again need not be 295 * freed. */ 296 const struct TkText *textPtr; 297 /* If non-NULL, then this tag only applies to 298 * the given text widget (when there are peer 299 * widgets). */ 300 int priority; /* Priority of this tag within widget. 0 means 301 * lowest priority. Exactly one tag has each 302 * integer value between 0 and numTags-1. */ 303 struct Node *tagRootPtr; /* Pointer into the B-Tree at the lowest node 304 * that completely dominates the ranges of 305 * text occupied by the tag. At this node 306 * there is no information about the tag. One 307 * or more children of the node do contain 308 * information about the tag. */ 309 int toggleCount; /* Total number of tag toggles. */ 310 311 /* 312 * Information for displaying text with this tag. The information belows 313 * acts as an override on information specified by lower-priority tags. 314 * If no value is specified, then the next-lower-priority tag on the text 315 * determins the value. The text widget itself provides defaults if no tag 316 * specifies an override. 317 */ 318 319 Tk_3DBorder border; /* Used for drawing background. NULL means no 320 * value specified here. */ 321 int borderWidth; /* Width of 3-D border for background. */ 322 Tcl_Obj *borderWidthPtr; /* Width of 3-D border for background. */ 323 char *reliefString; /* -relief option string (malloc-ed). NULL 324 * means option not specified. */ 325 int relief; /* 3-D relief for background. */ 326 Pixmap bgStipple; /* Stipple bitmap for background. None means 327 * no value specified here. */ 328 XColor *fgColor; /* Foreground color for text. NULL means no 329 * value specified here. */ 330 Tk_Font tkfont; /* Font for displaying text. NULL means no 331 * value specified here. */ 332 Pixmap fgStipple; /* Stipple bitmap for text and other 333 * foreground stuff. None means no value 334 * specified here.*/ 335 char *justifyString; /* -justify option string (malloc-ed). NULL 336 * means option not specified. */ 337 Tk_Justify justify; /* How to justify text: TK_JUSTIFY_LEFT, 338 * TK_JUSTIFY_RIGHT, or TK_JUSTIFY_CENTER. 339 * Only valid if justifyString is non-NULL. */ 340 char *lMargin1String; /* -lmargin1 option string (malloc-ed). NULL 341 * means option not specified. */ 342 int lMargin1; /* Left margin for first display line of each 343 * text line, in pixels. Only valid if 344 * lMargin1String is non-NULL. */ 345 char *lMargin2String; /* -lmargin2 option string (malloc-ed). NULL 346 * means option not specified. */ 347 int lMargin2; /* Left margin for second and later display 348 * lines of each text line, in pixels. Only 349 * valid if lMargin2String is non-NULL. */ 350 Tk_3DBorder lMarginColor; /* Used for drawing background in left margins. 351 * This is used for both lmargin1 and lmargin2. 352 * NULL means no value specified here. */ 353 char *offsetString; /* -offset option string (malloc-ed). NULL 354 * means option not specified. */ 355 int offset; /* Vertical offset of text's baseline from 356 * baseline of line. Used for superscripts and 357 * subscripts. Only valid if offsetString is 358 * non-NULL. */ 359 char *overstrikeString; /* -overstrike option string (malloc-ed). NULL 360 * means option not specified. */ 361 int overstrike; /* Non-zero means draw horizontal line through 362 * middle of text. Only valid if 363 * overstrikeString is non-NULL. */ 364 XColor *overstrikeColor; /* Color for the overstrike. NULL means same 365 * color as foreground. */ 366 char *rMarginString; /* -rmargin option string (malloc-ed). NULL 367 * means option not specified. */ 368 int rMargin; /* Right margin for text, in pixels. Only 369 * valid if rMarginString is non-NULL. */ 370 Tk_3DBorder rMarginColor; /* Used for drawing background in right margin. 371 * NULL means no value specified here. */ 372 Tk_3DBorder selBorder; /* Used for drawing background for selected text. 373 * NULL means no value specified here. */ 374 XColor *selFgColor; /* Foreground color for selected text. NULL means 375 * no value specified here. */ 376 char *spacing1String; /* -spacing1 option string (malloc-ed). NULL 377 * means option not specified. */ 378 int spacing1; /* Extra spacing above first display line for 379 * text line. Only valid if spacing1String is 380 * non-NULL. */ 381 char *spacing2String; /* -spacing2 option string (malloc-ed). NULL 382 * means option not specified. */ 383 int spacing2; /* Extra spacing between display lines for the 384 * same text line. Only valid if 385 * spacing2String is non-NULL. */ 386 char *spacing3String; /* -spacing2 option string (malloc-ed). NULL 387 * means option not specified. */ 388 int spacing3; /* Extra spacing below last display line for 389 * text line. Only valid if spacing3String is 390 * non-NULL. */ 391 Tcl_Obj *tabStringPtr; /* -tabs option string. NULL means option not 392 * specified. */ 393 struct TkTextTabArray *tabArrayPtr; 394 /* Info about tabs for tag (malloc-ed) or 395 * NULL. Corresponds to tabString. */ 396 int tabStyle; /* One of TABULAR or WORDPROCESSOR or NONE (if 397 * not specified). */ 398 char *underlineString; /* -underline option string (malloc-ed). NULL 399 * means option not specified. */ 400 int underline; /* Non-zero means draw underline underneath 401 * text. Only valid if underlineString is 402 * non-NULL. */ 403 XColor *underlineColor; /* Color for the underline. NULL means same 404 * color as foreground. */ 405 TkWrapMode wrapMode; /* How to handle wrap-around for this tag. 406 * Must be TEXT_WRAPMODE_CHAR, 407 * TEXT_WRAPMODE_NONE, TEXT_WRAPMODE_WORD, or 408 * TEXT_WRAPMODE_NULL to use wrapmode for 409 * whole widget. */ 410 char *elideString; /* -elide option string (malloc-ed). NULL 411 * means option not specified. */ 412 int elide; /* Non-zero means that data under this tag 413 * should not be displayed. */ 414 int affectsDisplay; /* Non-zero means that this tag affects the 415 * way information is displayed on the screen 416 * (so need to redisplay if tag changes). */ 417 Tk_OptionTable optionTable; /* Token representing the configuration 418 * specifications. */ 419 int affectsDisplayGeometry; /* Non-zero means that this tag affects the 420 * size with which information is displayed on 421 * the screen (so need to recalculate line 422 * dimensions if tag changes). */ 423 } TkTextTag; 424 425 #define TK_TAG_AFFECTS_DISPLAY 0x1 426 #define TK_TAG_UNDERLINE 0x2 427 #define TK_TAG_JUSTIFY 0x4 428 #define TK_TAG_OFFSET 0x10 429 430 /* 431 * The data structure below is used for searching a B-tree for transitions on 432 * a single tag (or for all tag transitions). No code outside of tkTextBTree.c 433 * should ever modify any of the fields in these structures, but it's OK to 434 * use them for read-only information. 435 */ 436 437 typedef struct TkTextSearch { 438 TkTextIndex curIndex; /* Position of last tag transition returned by 439 * TkBTreeNextTag, or index of start of 440 * segment containing starting position for 441 * search if TkBTreeNextTag hasn't been called 442 * yet, or same as stopIndex if search is 443 * over. */ 444 TkTextSegment *segPtr; /* Actual tag segment returned by last call to 445 * TkBTreeNextTag, or NULL if TkBTreeNextTag 446 * hasn't returned anything yet. */ 447 TkTextSegment *nextPtr; /* Where to resume search in next call to 448 * TkBTreeNextTag. */ 449 TkTextSegment *lastPtr; /* Stop search before just before considering 450 * this segment. */ 451 TkTextTag *tagPtr; /* Tag to search for (or tag found, if allTags 452 * is non-zero). */ 453 int linesLeft; /* Lines left to search (including curIndex 454 * and stopIndex). When this becomes <= 0 the 455 * search is over. */ 456 int allTags; /* Non-zero means ignore tag check: search for 457 * transitions on all tags. */ 458 } TkTextSearch; 459 460 /* 461 * The following data structure describes a single tab stop. It must be kept 462 * in sync with the 'tabOptionStrings' array in the function 'TkTextGetTabs' 463 */ 464 465 typedef enum {LEFT, RIGHT, CENTER, NUMERIC} TkTextTabAlign; 466 467 /* 468 * The following are the supported styles of tabbing, used for the -tabstyle 469 * option of the text widget. The last element is only used for tag options. 470 */ 471 472 typedef enum { 473 TK_TEXT_TABSTYLE_TABULAR, 474 TK_TEXT_TABSTYLE_WORDPROCESSOR, 475 TK_TEXT_TABSTYLE_NONE 476 } TkTextTabStyle; 477 478 typedef struct TkTextTab { 479 int location; /* Offset in pixels of this tab stop from the 480 * left margin (lmargin2) of the text. */ 481 TkTextTabAlign alignment; /* Where the tab stop appears relative to the 482 * text. */ 483 } TkTextTab; 484 485 typedef struct TkTextTabArray { 486 int numTabs; /* Number of tab stops. */ 487 double lastTab; /* The accurate fractional pixel position of 488 * the last tab. */ 489 double tabIncrement; /* The accurate fractional pixel increment 490 * between interpolated tabs we have to create 491 * when we exceed numTabs. */ 492 TkTextTab tabs[TKFLEXARRAY];/* Array of tabs. The actual size will be 493 * numTabs. THIS FIELD MUST BE THE LAST IN THE 494 * STRUCTURE. */ 495 } TkTextTabArray; 496 497 /* 498 * Enumeration defining the edit modes of the widget. 499 */ 500 501 typedef enum { 502 TK_TEXT_EDIT_INSERT, /* insert mode */ 503 TK_TEXT_EDIT_DELETE, /* delete mode */ 504 TK_TEXT_EDIT_REPLACE, /* replace mode */ 505 TK_TEXT_EDIT_OTHER /* none of the above */ 506 } TkTextEditMode; 507 508 /* 509 * Enumeration defining the ways in which a text widget may be modified (for 510 * undo/redo handling). 511 */ 512 513 typedef enum { 514 TK_TEXT_DIRTY_NORMAL, /* Normal behavior. */ 515 TK_TEXT_DIRTY_UNDO, /* Reverting a compound action. */ 516 TK_TEXT_DIRTY_REDO, /* Reapplying a compound action. */ 517 TK_TEXT_DIRTY_FIXED /* Forced to be dirty; can't be undone/redone 518 * by normal activity. */ 519 } TkTextDirtyMode; 520 521 /* 522 * The following enum is used to define a type for the -state option of the 523 * Text widget. 524 */ 525 526 typedef enum { 527 TK_TEXT_STATE_DISABLED, TK_TEXT_STATE_NORMAL 528 } TkTextState; 529 530 /* 531 * A data structure of the following type is shared between each text widget 532 * that are peers. 533 */ 534 535 typedef struct TkSharedText { 536 int refCount; /* Reference count this shared object. */ 537 TkTextBTree tree; /* B-tree representation of text and tags for 538 * widget. */ 539 Tcl_HashTable tagTable; /* Hash table that maps from tag names to 540 * pointers to TkTextTag structures. The "sel" 541 * tag does not feature in this table, since 542 * there's one of those for each text peer. */ 543 int numTags; /* Number of tags currently defined for 544 * widget; needed to keep track of 545 * priorities. */ 546 Tcl_HashTable markTable; /* Hash table that maps from mark names to 547 * pointers to mark segments. The special 548 * "insert" and "current" marks are not stored 549 * in this table, but directly accessed as 550 * fields of textPtr. */ 551 Tcl_HashTable windowTable; /* Hash table that maps from window names to 552 * pointers to window segments. If a window 553 * segment doesn't yet have an associated 554 * window, there is no entry for it here. */ 555 Tcl_HashTable imageTable; /* Hash table that maps from image names to 556 * pointers to image segments. If an image 557 * segment doesn't yet have an associated 558 * image, there is no entry for it here. */ 559 Tk_BindingTable bindingTable; 560 /* Table of all bindings currently defined for 561 * this widget. NULL means that no bindings 562 * exist, so the table hasn't been created. 563 * Each "object" used for this table is the 564 * name of a tag. */ 565 int stateEpoch; /* This is incremented each time the B-tree's 566 * contents change structurally, or when the 567 * start/end limits change, and means that any 568 * cached TkTextIndex objects are no longer 569 * valid. */ 570 571 /* 572 * Information related to the undo/redo functionality. 573 */ 574 575 TkUndoRedoStack *undoStack; /* The undo/redo stack. */ 576 int undo; /* Non-zero means the undo/redo behaviour is 577 * enabled. */ 578 int maxUndo; /* The maximum depth of the undo stack 579 * expressed as the maximum number of compound 580 * statements. */ 581 int autoSeparators; /* Non-zero means the separators will be 582 * inserted automatically. */ 583 int isDirty; /* Flag indicating the 'dirtyness' of the 584 * text widget. If the flag is not zero, 585 * unsaved modifications have been applied to 586 * the text widget. */ 587 TkTextDirtyMode dirtyMode; /* The nature of the dirtyness characterized 588 * by the isDirty flag. */ 589 TkTextEditMode lastEditMode;/* Keeps track of what the last edit mode 590 * was. */ 591 592 /* 593 * Keep track of all the peers 594 */ 595 596 struct TkText *peers; 597 } TkSharedText; 598 599 /* 600 * The following enum is used to define a type for the -insertunfocussed 601 * option of the Text widget. 602 */ 603 604 typedef enum { 605 TK_TEXT_INSERT_NOFOCUS_HOLLOW, 606 TK_TEXT_INSERT_NOFOCUS_NONE, 607 TK_TEXT_INSERT_NOFOCUS_SOLID 608 } TkTextInsertUnfocussed; 609 610 /* 611 * A data structure of the following type is kept for each text widget that 612 * currently exists for this process: 613 */ 614 615 typedef struct TkText { 616 /* 617 * Information related to and accessed by widget peers and the 618 * TkSharedText handling routines. 619 */ 620 621 TkSharedText *sharedTextPtr;/* Shared section of all peers. */ 622 struct TkText *next; /* Next in list of linked peers. */ 623 TkTextLine *start; /* First B-tree line to show, or NULL to start 624 * at the beginning. */ 625 TkTextLine *end; /* Last B-tree line to show, or NULL for up to 626 * the end. */ 627 int pixelReference; /* Counter into the current tree reference 628 * index corresponding to this widget. */ 629 int abortSelections; /* Set to 1 whenever the text is modified in a 630 * way that interferes with selection 631 * retrieval: used to abort incremental 632 * selection retrievals. */ 633 634 /* 635 * Standard Tk widget information and text-widget specific items 636 */ 637 638 Tk_Window tkwin; /* Window that embodies the text. NULL means 639 * that the window has been destroyed but the 640 * data structures haven't yet been cleaned 641 * up.*/ 642 Display *display; /* Display for widget. Needed, among other 643 * things, to allow resources to be freed even 644 * after tkwin has gone away. */ 645 Tcl_Interp *interp; /* Interpreter associated with widget. Used to 646 * delete widget command. */ 647 Tcl_Command widgetCmd; /* Token for text's widget command. */ 648 int state; /* Either STATE_NORMAL or STATE_DISABLED. A 649 * text widget is read-only when disabled. */ 650 651 /* 652 * Default information for displaying (may be overridden by tags applied 653 * to ranges of characters). 654 */ 655 656 Tk_3DBorder border; /* Structure used to draw 3-D border and 657 * default background. */ 658 int borderWidth; /* Width of 3-D border to draw around entire 659 * widget. */ 660 int padX, padY; /* Padding between text and window border. */ 661 int relief; /* 3-d effect for border around entire widget: 662 * TK_RELIEF_RAISED etc. */ 663 int highlightWidth; /* Width in pixels of highlight to draw around 664 * widget when it has the focus. <= 0 means 665 * don't draw a highlight. */ 666 XColor *highlightBgColorPtr; 667 /* Color for drawing traversal highlight area 668 * when highlight is off. */ 669 XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ 670 Tk_Cursor cursor; /* Current cursor for window, or NULL. */ 671 XColor *fgColor; /* Default foreground color for text. */ 672 Tk_Font tkfont; /* Default font for displaying text. */ 673 int charWidth; /* Width of average character in default 674 * font. */ 675 int charHeight; /* Height of average character in default 676 * font, including line spacing. */ 677 int spacing1; /* Default extra spacing above first display 678 * line for each text line. */ 679 int spacing2; /* Default extra spacing between display lines 680 * for the same text line. */ 681 int spacing3; /* Default extra spacing below last display 682 * line for each text line. */ 683 Tcl_Obj *tabOptionPtr; /* Value of -tabs option string. */ 684 TkTextTabArray *tabArrayPtr; 685 /* Information about tab stops (malloc'ed). 686 * NULL means perform default tabbing 687 * behavior. */ 688 int tabStyle; /* One of TABULAR or WORDPROCESSOR. */ 689 690 /* 691 * Additional information used for displaying: 692 */ 693 694 TkWrapMode wrapMode; /* How to handle wrap-around. Must be 695 * TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_NONE, or 696 * TEXT_WRAPMODE_WORD. */ 697 int width, height; /* Desired dimensions for window, measured in 698 * characters. */ 699 int setGrid; /* Non-zero means pass gridding information to 700 * window manager. */ 701 int prevWidth, prevHeight; /* Last known dimensions of window; used to 702 * detect changes in size. */ 703 TkTextIndex topIndex; /* Identifies first character in top display 704 * line of window. */ 705 struct TextDInfo *dInfoPtr; /* Information maintained by tkTextDisp.c. */ 706 707 /* 708 * Information related to selection. 709 */ 710 711 TkTextTag *selTagPtr; /* Pointer to "sel" tag. Used to tell when a 712 * new selection has been made. */ 713 Tk_3DBorder selBorder; /* Border and background for selected 714 * characters. This is a copy of information 715 * in *selTagPtr, so it shouldn't be 716 * explicitly freed. */ 717 Tk_3DBorder inactiveSelBorder; 718 /* Border and background for selected 719 * characters when they don't have the 720 * focus. */ 721 int selBorderWidth; /* Width of border around selection. */ 722 Tcl_Obj *selBorderWidthPtr; /* Width of border around selection. */ 723 XColor *selFgColorPtr; /* Foreground color for selected text. This is 724 * a copy of information in *selTagPtr, so it 725 * shouldn't be explicitly freed. */ 726 int exportSelection; /* Non-zero means tie "sel" tag to X 727 * selection. */ 728 TkTextIndex selIndex; /* Used during multi-pass selection 729 * retrievals. This index identifies the next 730 * character to be returned from the 731 * selection. */ 732 733 /* 734 * Information related to insertion cursor: 735 */ 736 737 TkTextSegment *insertMarkPtr; 738 /* Points to segment for "insert" mark. */ 739 Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion 740 * cursor. */ 741 int insertWidth; /* Total width of insert cursor. */ 742 int insertBorderWidth; /* Width of 3-D border around insert cursor */ 743 TkTextInsertUnfocussed insertUnfocussed; 744 /* How to display the insert cursor when the 745 * text widget does not have the focus. */ 746 int insertOnTime; /* Number of milliseconds cursor should spend 747 * in "on" state for each blink. */ 748 int insertOffTime; /* Number of milliseconds cursor should spend 749 * in "off" state for each blink. */ 750 Tcl_TimerToken insertBlinkHandler; 751 /* Timer handler used to blink cursor on and 752 * off. */ 753 754 /* 755 * Information used for event bindings associated with tags: 756 */ 757 758 TkTextSegment *currentMarkPtr; 759 /* Pointer to segment for "current" mark, or 760 * NULL if none. */ 761 XEvent pickEvent; /* The event from which the current character 762 * was chosen. Must be saved so that we can 763 * repick after modifications to the text. */ 764 int numCurTags; /* Number of tags associated with character at 765 * current mark. */ 766 TkTextTag **curTagArrayPtr; /* Pointer to array of tags for current mark, 767 * or NULL if none. */ 768 769 /* 770 * Miscellaneous additional information: 771 */ 772 773 char *takeFocus; /* Value of -takeFocus option; not used in the 774 * C code, but used by keyboard traversal 775 * scripts. Malloc'ed, but may be NULL. */ 776 char *xScrollCmd; /* Prefix of command to issue to update 777 * horizontal scrollbar when view changes. */ 778 char *yScrollCmd; /* Prefix of command to issue to update 779 * vertical scrollbar when view changes. */ 780 int flags; /* Miscellaneous flags; see below for 781 * definitions. */ 782 Tk_OptionTable optionTable; /* Token representing the configuration 783 * specifications. */ 784 int refCount; /* Number of cached TkTextIndex objects 785 * refering to us. */ 786 int insertCursorType; /* 0 = standard insertion cursor, 1 = block 787 * cursor. */ 788 789 /* 790 * Copies of information from the shared section relating to the undo/redo 791 * functonality 792 */ 793 794 int undo; /* Non-zero means the undo/redo behaviour is 795 * enabled. */ 796 int maxUndo; /* The maximum depth of the undo stack 797 * expressed as the maximum number of compound 798 * statements. */ 799 int autoSeparators; /* Non-zero means the separators will be 800 * inserted automatically. */ 801 Tcl_Obj *afterSyncCmd; /* Command to be executed when lines are up to 802 * date */ 803 } TkText; 804 805 /* 806 * Flag values for TkText records: 807 * 808 * GOT_SELECTION: Non-zero means we've already claimed the 809 * selection. 810 * INSERT_ON: Non-zero means insertion cursor should be 811 * displayed on screen. 812 * GOT_FOCUS: Non-zero means this window has the input 813 * focus. 814 * BUTTON_DOWN: 1 means that a mouse button is currently down; 815 * this is used to implement grabs for the 816 * duration of button presses. 817 * UPDATE_SCROLLBARS: Non-zero means scrollbar(s) should be updated 818 * during next redisplay operation. 819 * NEED_REPICK This appears unused and should probably be 820 * ignored. 821 * OPTIONS_FREED The widget's options have been freed. 822 * DESTROYED The widget is going away. 823 */ 824 825 #define GOT_SELECTION 1 826 #define INSERT_ON 2 827 #define GOT_FOCUS 4 828 #define BUTTON_DOWN 8 829 #define UPDATE_SCROLLBARS 0x10 830 #define NEED_REPICK 0x20 831 #define OPTIONS_FREED 0x40 832 #define DESTROYED 0x80 833 834 /* 835 * Records of the following type define segment types in terms of a collection 836 * of procedures that may be called to manipulate segments of that type. 837 */ 838 839 typedef TkTextSegment * Tk_SegSplitProc(struct TkTextSegment *segPtr, 840 int index); 841 typedef int Tk_SegDeleteProc(struct TkTextSegment *segPtr, 842 TkTextLine *linePtr, int treeGone); 843 typedef TkTextSegment * Tk_SegCleanupProc(struct TkTextSegment *segPtr, 844 TkTextLine *linePtr); 845 typedef void Tk_SegLineChangeProc(struct TkTextSegment *segPtr, 846 TkTextLine *linePtr); 847 typedef int Tk_SegLayoutProc(struct TkText *textPtr, 848 struct TkTextIndex *indexPtr, 849 TkTextSegment *segPtr, int offset, int maxX, 850 int maxChars, int noCharsYet, TkWrapMode wrapMode, 851 struct TkTextDispChunk *chunkPtr); 852 typedef void Tk_SegCheckProc(TkTextSegment *segPtr, 853 TkTextLine *linePtr); 854 855 typedef struct Tk_SegType { 856 const char *name; /* Name of this kind of segment. */ 857 int leftGravity; /* If a segment has zero size (e.g. a mark or 858 * tag toggle), does it attach to character to 859 * its left or right? 1 means left, 0 means 860 * right. */ 861 Tk_SegSplitProc *splitProc; /* Procedure to split large segment into two 862 * smaller ones. */ 863 Tk_SegDeleteProc *deleteProc; 864 /* Procedure to call to delete segment. */ 865 Tk_SegCleanupProc *cleanupProc; 866 /* After any change to a line, this procedure 867 * is invoked for all segments left in the 868 * line to perform any cleanup they wish 869 * (e.g. joining neighboring segments). */ 870 Tk_SegLineChangeProc *lineChangeProc; 871 /* Invoked when a segment is about to be moved 872 * from its current line to an earlier line 873 * because of a deletion. The linePtr is that 874 * for the segment's old line. CleanupProc 875 * will be invoked after the deletion is 876 * finished. */ 877 Tk_SegLayoutProc *layoutProc; 878 /* Returns size information when figuring out 879 * what to display in window. */ 880 Tk_SegCheckProc *checkProc; /* Called during consistency checks to check 881 * internal consistency of segment. */ 882 } Tk_SegType; 883 884 /* 885 * The following type and items describe different flags for text widget items 886 * to count. They are used in both tkText.c and tkTextIndex.c, in 887 * 'CountIndices', 'TkTextIndexBackChars', 'TkTextIndexForwChars', and 888 * 'TkTextIndexCount'. 889 */ 890 891 typedef int TkTextCountType; 892 893 #define COUNT_CHARS 0 894 #define COUNT_INDICES 1 895 #define COUNT_DISPLAY 2 896 #define COUNT_DISPLAY_CHARS (COUNT_CHARS | COUNT_DISPLAY) 897 #define COUNT_DISPLAY_INDICES (COUNT_INDICES | COUNT_DISPLAY) 898 899 /* 900 * The following structure is used to keep track of elided text taking account 901 * of different tag priorities, it is need for quick calculations of whether a 902 * single index is elided, and to start at a given index and maintain a 903 * correct elide state as we move or count forwards or backwards. 904 */ 905 906 #define LOTSA_TAGS 1000 907 typedef struct TkTextElideInfo { 908 int numTags; /* Total tags in widget. */ 909 int elide; /* Is the state currently elided. */ 910 int elidePriority; /* Tag priority controlling elide state. */ 911 TkTextSegment *segPtr; /* Segment to look at next. */ 912 int segOffset; /* Offset of segment within line. */ 913 int deftagCnts[LOTSA_TAGS]; 914 TkTextTag *deftagPtrs[LOTSA_TAGS]; 915 int *tagCnts; /* 0 or 1 depending if the tag with that 916 * priority is on or off. */ 917 TkTextTag **tagPtrs; /* Only filled with a tagPtr if the 918 * corresponding tagCnt is 1. */ 919 } TkTextElideInfo; 920 921 /* 922 * The constant below is used to specify a line when what is really wanted is 923 * the entire text. For now, just use a very big number. 924 */ 925 926 #define TK_END_OF_TEXT 1000000 927 928 /* 929 * The following definition specifies the maximum number of characters needed 930 * in a string to hold a position specifier. 931 */ 932 933 #define TK_POS_CHARS 30 934 935 /* 936 * Mask used for those options which may impact the pixel height calculations 937 * of individual lines displayed in the widget. 938 */ 939 940 #define TK_TEXT_LINE_GEOMETRY 1 941 942 /* 943 * Mask used for those options which may impact the start and end lines used 944 * in the widget. 945 */ 946 947 #define TK_TEXT_LINE_RANGE 2 948 949 /* 950 * Used as 'action' values in calls to TkTextInvalidateLineMetrics 951 */ 952 953 #define TK_TEXT_INVALIDATE_ONLY 0 954 #define TK_TEXT_INVALIDATE_INSERT 1 955 #define TK_TEXT_INVALIDATE_DELETE 2 956 957 /* 958 * Used as special 'pickPlace' values in calls to TkTextSetYView. Zero or 959 * positive values indicate a number of pixels. 960 */ 961 962 #define TK_TEXT_PICKPLACE -1 963 #define TK_TEXT_NOPIXELADJUST -2 964 965 /* 966 * Declarations for variables shared among the text-related files: 967 */ 968 969 MODULE_SCOPE int tkBTreeDebug; 970 MODULE_SCOPE int tkTextDebug; 971 MODULE_SCOPE const Tk_SegType tkTextCharType; 972 MODULE_SCOPE const Tk_SegType tkTextLeftMarkType; 973 MODULE_SCOPE const Tk_SegType tkTextRightMarkType; 974 MODULE_SCOPE const Tk_SegType tkTextToggleOnType; 975 MODULE_SCOPE const Tk_SegType tkTextToggleOffType; 976 MODULE_SCOPE const Tk_SegType tkTextEmbWindowType; 977 MODULE_SCOPE const Tk_SegType tkTextEmbImageType; 978 979 /* 980 * Convenience macros for use by B-tree clients which want to access pixel 981 * information on each line. Currently only used by TkTextDisp.c 982 */ 983 984 #define TkBTreeLinePixelCount(text, line) \ 985 (line)->pixels[2*(text)->pixelReference] 986 #define TkBTreeLinePixelEpoch(text, line) \ 987 (line)->pixels[1+2*(text)->pixelReference] 988 989 /* 990 * Declarations for procedures that are used by the text-related files but 991 * shouldn't be used anywhere else in Tk (or by Tk clients): 992 */ 993 994 MODULE_SCOPE int TkBTreeAdjustPixelHeight(const TkText *textPtr, 995 TkTextLine *linePtr, int newPixelHeight, 996 int mergedLogicalLines); 997 MODULE_SCOPE int TkBTreeCharTagged(const TkTextIndex *indexPtr, 998 TkTextTag *tagPtr); 999 MODULE_SCOPE void TkBTreeCheck(TkTextBTree tree); 1000 MODULE_SCOPE TkTextBTree TkBTreeCreate(TkSharedText *sharedTextPtr); 1001 MODULE_SCOPE void TkBTreeAddClient(TkTextBTree tree, TkText *textPtr, 1002 int defaultHeight); 1003 MODULE_SCOPE void TkBTreeClientRangeChanged(TkText *textPtr, 1004 int defaultHeight); 1005 MODULE_SCOPE void TkBTreeRemoveClient(TkTextBTree tree, 1006 TkText *textPtr); 1007 MODULE_SCOPE void TkBTreeDestroy(TkTextBTree tree); 1008 MODULE_SCOPE void TkBTreeDeleteIndexRange(TkTextBTree tree, 1009 TkTextIndex *index1Ptr, TkTextIndex *index2Ptr); 1010 MODULE_SCOPE int TkBTreeEpoch(TkTextBTree tree); 1011 MODULE_SCOPE TkTextLine *TkBTreeFindLine(TkTextBTree tree, 1012 const TkText *textPtr, int line); 1013 MODULE_SCOPE TkTextLine *TkBTreeFindPixelLine(TkTextBTree tree, 1014 const TkText *textPtr, int pixels, 1015 int *pixelOffset); 1016 MODULE_SCOPE TkTextTag **TkBTreeGetTags(const TkTextIndex *indexPtr, 1017 const TkText *textPtr, int *numTagsPtr); 1018 MODULE_SCOPE void TkBTreeInsertChars(TkTextBTree tree, 1019 TkTextIndex *indexPtr, const char *string); 1020 MODULE_SCOPE int TkBTreeLinesTo(const TkText *textPtr, 1021 TkTextLine *linePtr); 1022 MODULE_SCOPE int TkBTreePixelsTo(const TkText *textPtr, 1023 TkTextLine *linePtr); 1024 MODULE_SCOPE void TkBTreeLinkSegment(TkTextSegment *segPtr, 1025 TkTextIndex *indexPtr); 1026 MODULE_SCOPE TkTextLine *TkBTreeNextLine(const TkText *textPtr, 1027 TkTextLine *linePtr); 1028 MODULE_SCOPE int TkBTreeNextTag(TkTextSearch *searchPtr); 1029 MODULE_SCOPE int TkBTreeNumPixels(TkTextBTree tree, 1030 const TkText *textPtr); 1031 MODULE_SCOPE TkTextLine *TkBTreePreviousLine(TkText *textPtr, 1032 TkTextLine *linePtr); 1033 MODULE_SCOPE int TkBTreePrevTag(TkTextSearch *searchPtr); 1034 MODULE_SCOPE void TkBTreeStartSearch(TkTextIndex *index1Ptr, 1035 TkTextIndex *index2Ptr, TkTextTag *tagPtr, 1036 TkTextSearch *searchPtr); 1037 MODULE_SCOPE void TkBTreeStartSearchBack(TkTextIndex *index1Ptr, 1038 TkTextIndex *index2Ptr, TkTextTag *tagPtr, 1039 TkTextSearch *searchPtr); 1040 MODULE_SCOPE int TkBTreeTag(TkTextIndex *index1Ptr, 1041 TkTextIndex *index2Ptr, TkTextTag *tagPtr, 1042 int add); 1043 MODULE_SCOPE void TkBTreeUnlinkSegment(TkTextSegment *segPtr, 1044 TkTextLine *linePtr); 1045 MODULE_SCOPE void TkTextBindProc(ClientData clientData, 1046 XEvent *eventPtr); 1047 MODULE_SCOPE void TkTextSelectionEvent(TkText *textPtr); 1048 MODULE_SCOPE int TkTextIndexBbox(TkText *textPtr, 1049 const TkTextIndex *indexPtr, int *xPtr, int *yPtr, 1050 int *widthPtr, int *heightPtr, int *charWidthPtr); 1051 MODULE_SCOPE int TkTextCharLayoutProc(TkText *textPtr, 1052 TkTextIndex *indexPtr, TkTextSegment *segPtr, 1053 int offset, int maxX, int maxChars, int noBreakYet, 1054 TkWrapMode wrapMode, TkTextDispChunk *chunkPtr); 1055 MODULE_SCOPE void TkTextCreateDInfo(TkText *textPtr); 1056 MODULE_SCOPE int TkTextDLineInfo(TkText *textPtr, 1057 const TkTextIndex *indexPtr, int *xPtr, int *yPtr, 1058 int *widthPtr, int *heightPtr, int *basePtr); 1059 MODULE_SCOPE void TkTextEmbWinDisplayProc(TkText *textPtr, 1060 TkTextDispChunk *chunkPtr, int x, int y, 1061 int lineHeight, int baseline, Display *display, 1062 Drawable dst, int screenY); 1063 MODULE_SCOPE TkTextTag *TkTextCreateTag(TkText *textPtr, 1064 const char *tagName, int *newTag); 1065 MODULE_SCOPE void TkTextFreeDInfo(TkText *textPtr); 1066 MODULE_SCOPE void TkTextDeleteTag(TkText *textPtr, TkTextTag *tagPtr); 1067 MODULE_SCOPE void TkTextFreeTag(TkText *textPtr, TkTextTag *tagPtr); 1068 MODULE_SCOPE int TkTextGetObjIndex(Tcl_Interp *interp, TkText *textPtr, 1069 Tcl_Obj *idxPtr, TkTextIndex *indexPtr); 1070 MODULE_SCOPE int TkTextSharedGetObjIndex(Tcl_Interp *interp, 1071 TkSharedText *sharedTextPtr, Tcl_Obj *idxPtr, 1072 TkTextIndex *indexPtr); 1073 MODULE_SCOPE const TkTextIndex *TkTextGetIndexFromObj(Tcl_Interp *interp, 1074 TkText *textPtr, Tcl_Obj *objPtr); 1075 MODULE_SCOPE TkTextTabArray *TkTextGetTabs(Tcl_Interp *interp, 1076 TkText *textPtr, Tcl_Obj *stringPtr); 1077 MODULE_SCOPE void TkTextFindDisplayLineEnd(TkText *textPtr, 1078 TkTextIndex *indexPtr, int end, int *xOffset); 1079 MODULE_SCOPE void TkTextIndexBackChars(const TkText *textPtr, 1080 const TkTextIndex *srcPtr, int count, 1081 TkTextIndex *dstPtr, TkTextCountType type); 1082 MODULE_SCOPE int TkTextIndexCmp(const TkTextIndex *index1Ptr, 1083 const TkTextIndex *index2Ptr); 1084 MODULE_SCOPE int TkTextIndexCountBytes(const TkText *textPtr, 1085 const TkTextIndex *index1Ptr, 1086 const TkTextIndex *index2Ptr); 1087 MODULE_SCOPE int TkTextIndexCount(const TkText *textPtr, 1088 const TkTextIndex *index1Ptr, 1089 const TkTextIndex *index2Ptr, 1090 TkTextCountType type); 1091 MODULE_SCOPE void TkTextIndexForwChars(const TkText *textPtr, 1092 const TkTextIndex *srcPtr, int count, 1093 TkTextIndex *dstPtr, TkTextCountType type); 1094 MODULE_SCOPE void TkTextIndexOfX(TkText *textPtr, int x, 1095 TkTextIndex *indexPtr); 1096 MODULE_SCOPE int TkTextIndexYPixels(TkText *textPtr, 1097 const TkTextIndex *indexPtr); 1098 MODULE_SCOPE TkTextSegment *TkTextIndexToSeg(const TkTextIndex *indexPtr, 1099 int *offsetPtr); 1100 MODULE_SCOPE void TkTextLostSelection(ClientData clientData); 1101 MODULE_SCOPE TkTextIndex *TkTextMakeCharIndex(TkTextBTree tree, TkText *textPtr, 1102 int lineIndex, int charIndex, 1103 TkTextIndex *indexPtr); 1104 MODULE_SCOPE int TkTextMeasureDown(TkText *textPtr, 1105 TkTextIndex *srcPtr, int distance); 1106 MODULE_SCOPE void TkTextFreeElideInfo(TkTextElideInfo *infoPtr); 1107 MODULE_SCOPE int TkTextIsElided(const TkText *textPtr, 1108 const TkTextIndex *indexPtr, 1109 TkTextElideInfo *infoPtr); 1110 MODULE_SCOPE int TkTextMakePixelIndex(TkText *textPtr, 1111 int pixelIndex, TkTextIndex *indexPtr); 1112 MODULE_SCOPE void TkTextInvalidateLineMetrics( 1113 TkSharedText *sharedTextPtr, TkText *textPtr, 1114 TkTextLine *linePtr, int lineCount, int action); 1115 MODULE_SCOPE int TkTextUpdateLineMetrics(TkText *textPtr, int lineNum, 1116 int endLine, int doThisMuch); 1117 MODULE_SCOPE int TkTextUpdateOneLine(TkText *textPtr, 1118 TkTextLine *linePtr, int pixelHeight, 1119 TkTextIndex *indexPtr, int partialCalc); 1120 MODULE_SCOPE int TkTextMarkCmd(TkText *textPtr, Tcl_Interp *interp, 1121 int objc, Tcl_Obj *const objv[]); 1122 MODULE_SCOPE int TkTextMarkNameToIndex(TkText *textPtr, 1123 const char *name, TkTextIndex *indexPtr); 1124 MODULE_SCOPE void TkTextMarkSegToIndex(TkText *textPtr, 1125 TkTextSegment *markPtr, TkTextIndex *indexPtr); 1126 MODULE_SCOPE void TkTextEventuallyRepick(TkText *textPtr); 1127 MODULE_SCOPE Bool TkTextPendingsync(TkText *textPtr); 1128 MODULE_SCOPE void TkTextPickCurrent(TkText *textPtr, XEvent *eventPtr); 1129 MODULE_SCOPE void TkTextPixelIndex(TkText *textPtr, int x, int y, 1130 TkTextIndex *indexPtr, int *nearest); 1131 MODULE_SCOPE Tcl_Obj * TkTextNewIndexObj(TkText *textPtr, 1132 const TkTextIndex *indexPtr); 1133 MODULE_SCOPE void TkTextRedrawRegion(TkText *textPtr, int x, int y, 1134 int width, int height); 1135 MODULE_SCOPE void TkTextRedrawTag(TkSharedText *sharedTextPtr, 1136 TkText *textPtr, TkTextIndex *index1Ptr, 1137 TkTextIndex *index2Ptr, TkTextTag *tagPtr, 1138 int withTag); 1139 MODULE_SCOPE void TkTextRelayoutWindow(TkText *textPtr, int mask); 1140 MODULE_SCOPE int TkTextScanCmd(TkText *textPtr, Tcl_Interp *interp, 1141 int objc, Tcl_Obj *const objv[]); 1142 MODULE_SCOPE int TkTextSeeCmd(TkText *textPtr, Tcl_Interp *interp, 1143 int objc, Tcl_Obj *const objv[]); 1144 MODULE_SCOPE int TkTextSegToOffset(const TkTextSegment *segPtr, 1145 const TkTextLine *linePtr); 1146 MODULE_SCOPE void TkTextSetYView(TkText *textPtr, 1147 TkTextIndex *indexPtr, int pickPlace); 1148 MODULE_SCOPE int TkTextTagCmd(TkText *textPtr, Tcl_Interp *interp, 1149 int objc, Tcl_Obj *const objv[]); 1150 MODULE_SCOPE int TkTextImageCmd(TkText *textPtr, Tcl_Interp *interp, 1151 int objc, Tcl_Obj *const objv[]); 1152 MODULE_SCOPE int TkTextImageIndex(TkText *textPtr, 1153 const char *name, TkTextIndex *indexPtr); 1154 MODULE_SCOPE int TkTextWindowCmd(TkText *textPtr, Tcl_Interp *interp, 1155 int objc, Tcl_Obj *const objv[]); 1156 MODULE_SCOPE int TkTextWindowIndex(TkText *textPtr, const char *name, 1157 TkTextIndex *indexPtr); 1158 MODULE_SCOPE int TkTextYviewCmd(TkText *textPtr, Tcl_Interp *interp, 1159 int objc, Tcl_Obj *const objv[]); 1160 MODULE_SCOPE void TkTextWinFreeClient(Tcl_HashEntry *hPtr, 1161 TkTextEmbWindowClient *client); 1162 MODULE_SCOPE void TkTextRunAfterSyncCmd(ClientData clientData); 1163 MODULE_SCOPE int TkTextIndexAdjustToStartEnd(TkText *textPtr, 1164 TkTextIndex *indexPtr, int err); 1165 #endif /* _TKTEXT */ 1166 1167 /* 1168 * Local Variables: 1169 * mode: c 1170 * c-basic-offset: 4 1171 * fill-column: 78 1172 * End: 1173 */ 1174