/[dtapublic]/projs/trunk/shared_source/c_tk_base_7_5_w_mods/tktextdisp.c
ViewVC logotype

Annotation of /projs/trunk/shared_source/c_tk_base_7_5_w_mods/tktextdisp.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (hide annotations) (download)
Sat Oct 8 06:43:03 2016 UTC (8 years, 1 month ago) by dashley
Original Path: sf_code/esrgpcpj/shared/tk_base/tktextdisp.c
File MIME type: text/plain
File size: 164333 byte(s)
Initial commit.
1 dashley 25 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tktextdisp.c,v 1.1.1.1 2001/06/13 05:10:16 dtashley Exp $ */
2    
3     /*
4     * tkTextDisp.c --
5     *
6     * This module provides facilities to display text widgets. It is
7     * the only place where information is kept about the screen layout
8     * of text widgets.
9     *
10     * Copyright (c) 1992-1994 The Regents of the University of California.
11     * Copyright (c) 1994-1997 Sun Microsystems, Inc.
12     *
13     * See the file "license.terms" for information on usage and redistribution
14     * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
15     *
16     * RCS: @(#) $Id: tktextdisp.c,v 1.1.1.1 2001/06/13 05:10:16 dtashley Exp $
17     */
18    
19     #include "tkPort.h"
20     #include "tkInt.h"
21     #include "tkText.h"
22    
23     #ifdef __WIN32__
24     #include "tkWinInt.h"
25     #endif
26    
27     /*
28     * The following structure describes how to display a range of characters.
29     * The information is generated by scanning all of the tags associated
30     * with the characters and combining that with default information for
31     * the overall widget. These structures form the hash keys for
32     * dInfoPtr->styleTable.
33     */
34    
35     typedef struct StyleValues {
36     Tk_3DBorder border; /* Used for drawing background under text.
37     * NULL means use widget background. */
38     int borderWidth; /* Width of 3-D border for background. */
39     int relief; /* 3-D relief for background. */
40     Pixmap bgStipple; /* Stipple bitmap for background. None
41     * means draw solid. */
42     XColor *fgColor; /* Foreground color for text. */
43     Tk_Font tkfont; /* Font for displaying text. */
44     Pixmap fgStipple; /* Stipple bitmap for text and other
45     * foreground stuff. None means draw
46     * solid.*/
47     int justify; /* Justification style for text. */
48     int lMargin1; /* Left margin, in pixels, for first display
49     * line of each text line. */
50     int lMargin2; /* Left margin, in pixels, for second and
51     * later display lines of each text line. */
52     int offset; /* Offset in pixels of baseline, relative to
53     * baseline of line. */
54     int overstrike; /* Non-zero means draw overstrike through
55     * text. */
56     int rMargin; /* Right margin, in pixels. */
57     int spacing1; /* Spacing above first dline in text line. */
58     int spacing2; /* Spacing between lines of dline. */
59     int spacing3; /* Spacing below last dline in text line. */
60     TkTextTabArray *tabArrayPtr;/* Locations and types of tab stops (may
61     * be NULL). */
62     int underline; /* Non-zero means draw underline underneath
63     * text. */
64     int elide; /* Non-zero means draw text */
65     TkWrapMode wrapMode; /* How to handle wrap-around for this tag.
66     * One of TEXT_WRAPMODE_CHAR,
67     * TEXT_WRAPMODE_NONE or TEXT_WRAPMODE_WORD.*/
68     } StyleValues;
69    
70     /*
71     * The following structure extends the StyleValues structure above with
72     * graphics contexts used to actually draw the characters. The entries
73     * in dInfoPtr->styleTable point to structures of this type.
74     */
75    
76     typedef struct TextStyle {
77     int refCount; /* Number of times this structure is
78     * referenced in Chunks. */
79     GC bgGC; /* Graphics context for background. None
80     * means use widget background. */
81     GC fgGC; /* Graphics context for foreground. */
82     StyleValues *sValuePtr; /* Raw information from which GCs were
83     * derived. */
84     Tcl_HashEntry *hPtr; /* Pointer to entry in styleTable. Used
85     * to delete entry. */
86     } TextStyle;
87    
88     /*
89     * The following macro determines whether two styles have the same
90     * background so that, for example, no beveled border should be drawn
91     * between them.
92     */
93    
94     #define SAME_BACKGROUND(s1, s2) \
95     (((s1)->sValuePtr->border == (s2)->sValuePtr->border) \
96     && ((s1)->sValuePtr->borderWidth == (s2)->sValuePtr->borderWidth) \
97     && ((s1)->sValuePtr->relief == (s2)->sValuePtr->relief) \
98     && ((s1)->sValuePtr->bgStipple == (s2)->sValuePtr->bgStipple))
99    
100     /*
101     * The following structure describes one line of the display, which may
102     * be either part or all of one line of the text.
103     */
104    
105     typedef struct DLine {
106     TkTextIndex index; /* Identifies first character in text
107     * that is displayed on this line. */
108     int byteCount; /* Number of bytes accounted for by this
109     * display line, including a trailing space
110     * or newline that isn't actually displayed. */
111     int y; /* Y-position at which line is supposed to
112     * be drawn (topmost pixel of rectangular
113     * area occupied by line). */
114     int oldY; /* Y-position at which line currently
115     * appears on display. -1 means line isn't
116     * currently visible on display and must be
117     * redrawn. This is used to move lines by
118     * scrolling rather than re-drawing. */
119     int height; /* Height of line, in pixels. */
120     int baseline; /* Offset of text baseline from y, in
121     * pixels. */
122     int spaceAbove; /* How much extra space was added to the
123     * top of the line because of spacing
124     * options. This is included in height
125     * and baseline. */
126     int spaceBelow; /* How much extra space was added to the
127     * bottom of the line because of spacing
128     * options. This is included in height. */
129     int length; /* Total length of line, in pixels. */
130     TkTextDispChunk *chunkPtr; /* Pointer to first chunk in list of all
131     * of those that are displayed on this
132     * line of the screen. */
133     struct DLine *nextPtr; /* Next in list of all display lines for
134     * this window. The list is sorted in
135     * order from top to bottom. Note: the
136     * next DLine doesn't always correspond
137     * to the next line of text: (a) can have
138     * multiple DLines for one text line, and
139     * (b) can have gaps where DLine's have been
140     * deleted because they're out of date. */
141     int flags; /* Various flag bits: see below for values. */
142     } DLine;
143    
144     /*
145     * Flag bits for DLine structures:
146     *
147     * HAS_3D_BORDER - Non-zero means that at least one of the
148     * chunks in this line has a 3D border, so
149     * it potentially interacts with 3D borders
150     * in neighboring lines (see
151     * DisplayLineBackground).
152     * NEW_LAYOUT - Non-zero means that the line has been
153     * re-layed out since the last time the
154     * display was updated.
155     * TOP_LINE - Non-zero means that this was the top line
156     * in the window the last time that the window
157     * was laid out. This is important because
158     * a line may be displayed differently if its
159     * at the top or bottom than if it's in the
160     * middle (e.g. beveled edges aren't displayed
161     * for middle lines if the adjacent line has
162     * a similar background).
163     * BOTTOM_LINE - Non-zero means that this was the bottom line
164     * in the window the last time that the window
165     * was laid out.
166     * IS_DISABLED - This Dline cannot be edited.
167     */
168    
169     #define HAS_3D_BORDER 1
170     #define NEW_LAYOUT 2
171     #define TOP_LINE 4
172     #define BOTTOM_LINE 8
173     #define IS_DISABLED 16
174    
175     /*
176     * Overall display information for a text widget:
177     */
178    
179     typedef struct TextDInfo {
180     Tcl_HashTable styleTable; /* Hash table that maps from StyleValues
181     * to TextStyles for this widget. */
182     DLine *dLinePtr; /* First in list of all display lines for
183     * this widget, in order from top to bottom. */
184     GC copyGC; /* Graphics context for copying from off-
185     * screen pixmaps onto screen. */
186     GC scrollGC; /* Graphics context for copying from one place
187     * in the window to another (scrolling):
188     * differs from copyGC in that we need to get
189     * GraphicsExpose events. */
190     int x; /* First x-coordinate that may be used for
191     * actually displaying line information.
192     * Leaves space for border, etc. */
193     int y; /* First y-coordinate that may be used for
194     * actually displaying line information.
195     * Leaves space for border, etc. */
196     int maxX; /* First x-coordinate to right of available
197     * space for displaying lines. */
198     int maxY; /* First y-coordinate below available
199     * space for displaying lines. */
200     int topOfEof; /* Top-most pixel (lowest y-value) that has
201     * been drawn in the appropriate fashion for
202     * the portion of the window after the last
203     * line of the text. This field is used to
204     * figure out when to redraw part or all of
205     * the eof field. */
206    
207     /*
208     * Information used for scrolling:
209     */
210    
211     int newByteOffset; /* Desired x scroll position, measured as the
212     * number of average-size characters off-screen
213     * to the left for a line with no left
214     * margin. */
215     int curPixelOffset; /* Actual x scroll position, measured as the
216     * number of pixels off-screen to the left. */
217     int maxLength; /* Length in pixels of longest line that's
218     * visible in window (length may exceed window
219     * size). If there's no wrapping, this will
220     * be zero. */
221     double xScrollFirst, xScrollLast;
222     /* Most recent values reported to horizontal
223     * scrollbar; used to eliminate unnecessary
224     * reports. */
225     double yScrollFirst, yScrollLast;
226     /* Most recent values reported to vertical
227     * scrollbar; used to eliminate unnecessary
228     * reports. */
229    
230     /*
231     * The following information is used to implement scanning:
232     */
233    
234     int scanMarkIndex; /* Byte index of character that was at the
235     * left edge of the window when the scan
236     * started. */
237     int scanMarkX; /* X-position of mouse at time scan started. */
238     int scanTotalScroll; /* Total scrolling (in screen lines) that has
239     * occurred since scanMarkY was set. */
240     int scanMarkY; /* Y-position of mouse at time scan started. */
241    
242     /*
243     * Miscellaneous information:
244     */
245    
246     int dLinesInvalidated; /* This value is set to 1 whenever something
247     * happens that invalidates information in
248     * DLine structures; if a redisplay
249     * is in progress, it will see this and
250     * abort the redisplay. This is needed
251     * because, for example, an embedded window
252     * could change its size when it is first
253     * displayed, invalidating the DLine that
254     * is currently being displayed. If redisplay
255     * continues, it will use freed memory and
256     * could dump core. */
257     int flags; /* Various flag values: see below for
258     * definitions. */
259     } TextDInfo;
260    
261     /*
262     * In TkTextDispChunk structures for character segments, the clientData
263     * field points to one of the following structures:
264     */
265    
266     typedef struct CharInfo {
267     int numBytes; /* Number of bytes to display. */
268     char chars[4]; /* UTF characters to display. Actual size
269     * will be numBytes, not 4. THIS MUST BE
270     * THE LAST FIELD IN THE STRUCTURE. */
271     } CharInfo;
272    
273     /*
274     * Flag values for TextDInfo structures:
275     *
276     * DINFO_OUT_OF_DATE: Non-zero means that the DLine structures
277     * for this window are partially or completely
278     * out of date and need to be recomputed.
279     * REDRAW_PENDING: Means that a when-idle handler has been
280     * scheduled to update the display.
281     * REDRAW_BORDERS: Means window border or pad area has
282     * potentially been damaged and must be redrawn.
283     * REPICK_NEEDED: 1 means that the widget has been modified
284     * in a way that could change the current
285     * character (a different character might be
286     * under the mouse cursor now). Need to
287     * recompute the current character before
288     * the next redisplay.
289     */
290    
291     #define DINFO_OUT_OF_DATE 1
292     #define REDRAW_PENDING 2
293     #define REDRAW_BORDERS 4
294     #define REPICK_NEEDED 8
295    
296     /*
297     * The following counters keep statistics about redisplay that can be
298     * checked to see how clever this code is at reducing redisplays.
299     */
300    
301     static int numRedisplays; /* Number of calls to DisplayText. */
302     static int linesRedrawn; /* Number of calls to DisplayDLine. */
303     static int numCopies; /* Number of calls to XCopyArea to copy part
304     * of the screen. */
305    
306     /*
307     * Forward declarations for procedures defined later in this file:
308     */
309    
310     static void AdjustForTab _ANSI_ARGS_((TkText *textPtr,
311     TkTextTabArray *tabArrayPtr, int index,
312     TkTextDispChunk *chunkPtr));
313     static void CharBboxProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
314     int index, int y, int lineHeight, int baseline,
315     int *xPtr, int *yPtr, int *widthPtr,
316     int *heightPtr));
317     static void CharDisplayProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
318     int x, int y, int height, int baseline,
319     Display *display, Drawable dst, int screenY));
320     static int CharMeasureProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
321     int x));
322     static void CharUndisplayProc _ANSI_ARGS_((TkText *textPtr,
323     TkTextDispChunk *chunkPtr));
324    
325     /*
326     Definitions of elided procs.
327     Compiler can't inline these since we use pointers to these functions.
328     ElideDisplayProc, ElideUndisplayProc special-cased for speed,
329     as potentially many elided DLine chunks if large, tag toggle-filled
330     elided region.
331     */
332     static void ElideBboxProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
333     int index, int y, int lineHeight, int baseline,
334     int *xPtr, int *yPtr, int *widthPtr,
335     int *heightPtr));
336     static int ElideMeasureProc _ANSI_ARGS_((TkTextDispChunk *chunkPtr,
337     int x));
338    
339     static void DisplayDLine _ANSI_ARGS_((TkText *textPtr,
340     DLine *dlPtr, DLine *prevPtr, Pixmap pixmap));
341     static void DisplayLineBackground _ANSI_ARGS_((TkText *textPtr,
342     DLine *dlPtr, DLine *prevPtr, Pixmap pixmap));
343     static void DisplayText _ANSI_ARGS_((ClientData clientData));
344     static DLine * FindDLine _ANSI_ARGS_((DLine *dlPtr,
345     TkTextIndex *indexPtr));
346     static void FreeDLines _ANSI_ARGS_((TkText *textPtr,
347     DLine *firstPtr, DLine *lastPtr, int unlink));
348     static void FreeStyle _ANSI_ARGS_((TkText *textPtr,
349     TextStyle *stylePtr));
350     static TextStyle * GetStyle _ANSI_ARGS_((TkText *textPtr,
351     TkTextIndex *indexPtr));
352     static void GetXView _ANSI_ARGS_((Tcl_Interp *interp,
353     TkText *textPtr, int report));
354     static void GetYView _ANSI_ARGS_((Tcl_Interp *interp,
355     TkText *textPtr, int report));
356     static DLine * LayoutDLine _ANSI_ARGS_((TkText *textPtr,
357     TkTextIndex *indexPtr));
358     static int MeasureChars _ANSI_ARGS_((Tk_Font tkfont,
359     CONST char *source, int maxBytes, int startX,
360     int maxX, int tabOrigin, int *nextXPtr));
361     static void MeasureUp _ANSI_ARGS_((TkText *textPtr,
362     TkTextIndex *srcPtr, int distance,
363     TkTextIndex *dstPtr));
364     static int NextTabStop _ANSI_ARGS_((Tk_Font tkfont, int x,
365     int tabOrigin));
366     static void UpdateDisplayInfo _ANSI_ARGS_((TkText *textPtr));
367     static void ScrollByLines _ANSI_ARGS_((TkText *textPtr,
368     int offset));
369     static int SizeOfTab _ANSI_ARGS_((TkText *textPtr,
370     TkTextTabArray *tabArrayPtr, int index, int x,
371     int maxX));
372     static void TextInvalidateRegion _ANSI_ARGS_((TkText *textPtr,
373     TkRegion region));
374    
375    
376     /*
377     *----------------------------------------------------------------------
378     *
379     * TkTextCreateDInfo --
380     *
381     * This procedure is called when a new text widget is created.
382     * Its job is to set up display-related information for the widget.
383     *
384     * Results:
385     * None.
386     *
387     * Side effects:
388     * A TextDInfo data structure is allocated and initialized and attached
389     * to textPtr.
390     *
391     *----------------------------------------------------------------------
392     */
393    
394     void
395     TkTextCreateDInfo(textPtr)
396     TkText *textPtr; /* Overall information for text widget. */
397     {
398     register TextDInfo *dInfoPtr;
399     XGCValues gcValues;
400    
401     dInfoPtr = (TextDInfo *) ckalloc(sizeof(TextDInfo));
402     Tcl_InitHashTable(&dInfoPtr->styleTable, sizeof(StyleValues)/sizeof(int));
403     dInfoPtr->dLinePtr = NULL;
404     dInfoPtr->copyGC = None;
405     gcValues.graphics_exposures = True;
406     dInfoPtr->scrollGC = Tk_GetGC(textPtr->tkwin, GCGraphicsExposures,
407     &gcValues);
408     dInfoPtr->topOfEof = 0;
409     dInfoPtr->newByteOffset = 0;
410     dInfoPtr->curPixelOffset = 0;
411     dInfoPtr->maxLength = 0;
412     dInfoPtr->xScrollFirst = -1;
413     dInfoPtr->xScrollLast = -1;
414     dInfoPtr->yScrollFirst = -1;
415     dInfoPtr->yScrollLast = -1;
416     dInfoPtr->scanMarkIndex = 0;
417     dInfoPtr->scanMarkX = 0;
418     dInfoPtr->scanTotalScroll = 0;
419     dInfoPtr->scanMarkY = 0;
420     dInfoPtr->dLinesInvalidated = 0;
421     dInfoPtr->flags = DINFO_OUT_OF_DATE;
422     textPtr->dInfoPtr = dInfoPtr;
423     }
424    
425     /*
426     *----------------------------------------------------------------------
427     *
428     * TkTextFreeDInfo --
429     *
430     * This procedure is called to free up all of the private display
431     * information kept by this file for a text widget.
432     *
433     * Results:
434     * None.
435     *
436     * Side effects:
437     * Lots of resources get freed.
438     *
439     *----------------------------------------------------------------------
440     */
441    
442     void
443     TkTextFreeDInfo(textPtr)
444     TkText *textPtr; /* Overall information for text widget. */
445     {
446     register TextDInfo *dInfoPtr = textPtr->dInfoPtr;
447    
448     /*
449     * Be careful to free up styleTable *after* freeing up all the
450     * DLines, so that the hash table is still intact to free up the
451     * style-related information from the lines. Once the lines are
452     * all free then styleTable will be empty.
453     */
454    
455     FreeDLines(textPtr, dInfoPtr->dLinePtr, (DLine *) NULL, 1);
456     Tcl_DeleteHashTable(&dInfoPtr->styleTable);
457     if (dInfoPtr->copyGC != None) {
458     Tk_FreeGC(textPtr->display, dInfoPtr->copyGC);
459     }
460     Tk_FreeGC(textPtr->display, dInfoPtr->scrollGC);
461     if (dInfoPtr->flags & REDRAW_PENDING) {
462     Tcl_CancelIdleCall(DisplayText, (ClientData) textPtr);
463     }
464     ckfree((char *) dInfoPtr);
465     }
466    
467     /*
468     *----------------------------------------------------------------------
469     *
470     * GetStyle --
471     *
472     * This procedure creates all the information needed to display
473     * text at a particular location.
474     *
475     * Results:
476     * The return value is a pointer to a TextStyle structure that
477     * corresponds to *sValuePtr.
478     *
479     * Side effects:
480     * A new entry may be created in the style table for the widget.
481     *
482     *----------------------------------------------------------------------
483     */
484    
485     static TextStyle *
486     GetStyle(textPtr, indexPtr)
487     TkText *textPtr; /* Overall information about text widget. */
488     TkTextIndex *indexPtr; /* The character in the text for which
489     * display information is wanted. */
490     {
491     TkTextTag **tagPtrs;
492     register TkTextTag *tagPtr;
493     StyleValues styleValues;
494     TextStyle *stylePtr;
495     Tcl_HashEntry *hPtr;
496     int numTags, new, i;
497     XGCValues gcValues;
498     unsigned long mask;
499    
500     /*
501     * The variables below keep track of the highest-priority specification
502     * that has occurred for each of the various fields of the StyleValues.
503     */
504    
505     int borderPrio, borderWidthPrio, reliefPrio, bgStipplePrio;
506     int fgPrio, fontPrio, fgStipplePrio;
507     int underlinePrio, elidePrio, justifyPrio, offsetPrio;
508     int lMargin1Prio, lMargin2Prio, rMarginPrio;
509     int spacing1Prio, spacing2Prio, spacing3Prio;
510     int overstrikePrio, tabPrio, wrapPrio;
511    
512     /*
513     * Find out what tags are present for the character, then compute
514     * a StyleValues structure corresponding to those tags (scan
515     * through all of the tags, saving information for the highest-
516     * priority tag).
517     */
518    
519     tagPtrs = TkBTreeGetTags(indexPtr, &numTags);
520     borderPrio = borderWidthPrio = reliefPrio = bgStipplePrio = -1;
521     fgPrio = fontPrio = fgStipplePrio = -1;
522     underlinePrio = elidePrio = justifyPrio = offsetPrio = -1;
523     lMargin1Prio = lMargin2Prio = rMarginPrio = -1;
524     spacing1Prio = spacing2Prio = spacing3Prio = -1;
525     overstrikePrio = tabPrio = wrapPrio = -1;
526     memset((VOID *) &styleValues, 0, sizeof(StyleValues));
527     styleValues.relief = TK_RELIEF_FLAT;
528     styleValues.fgColor = textPtr->fgColor;
529     styleValues.tkfont = textPtr->tkfont;
530     styleValues.justify = TK_JUSTIFY_LEFT;
531     styleValues.spacing1 = textPtr->spacing1;
532     styleValues.spacing2 = textPtr->spacing2;
533     styleValues.spacing3 = textPtr->spacing3;
534     styleValues.tabArrayPtr = textPtr->tabArrayPtr;
535     styleValues.wrapMode = textPtr->wrapMode;
536     styleValues.elide = 0;
537     for (i = 0 ; i < numTags; i++) {
538     tagPtr = tagPtrs[i];
539    
540     /*
541     * On Windows and Mac, we need to skip the selection tag if
542     * we don't have focus.
543     */
544    
545     #ifndef ALWAYS_SHOW_SELECTION
546     if ((tagPtr == textPtr->selTagPtr) && !(textPtr->flags & GOT_FOCUS)) {
547     continue;
548     }
549     #endif
550    
551     if ((tagPtr->border != NULL) && (tagPtr->priority > borderPrio)) {
552     styleValues.border = tagPtr->border;
553     borderPrio = tagPtr->priority;
554     }
555     if ((tagPtr->bdString != NULL)
556     && (tagPtr->priority > borderWidthPrio)) {
557     styleValues.borderWidth = tagPtr->borderWidth;
558     borderWidthPrio = tagPtr->priority;
559     }
560     if ((tagPtr->reliefString != NULL)
561     && (tagPtr->priority > reliefPrio)) {
562     if (styleValues.border == NULL) {
563     styleValues.border = textPtr->border;
564     }
565     styleValues.relief = tagPtr->relief;
566     reliefPrio = tagPtr->priority;
567     }
568     if ((tagPtr->bgStipple != None)
569     && (tagPtr->priority > bgStipplePrio)) {
570     styleValues.bgStipple = tagPtr->bgStipple;
571     bgStipplePrio = tagPtr->priority;
572     }
573     if ((tagPtr->fgColor != None) && (tagPtr->priority > fgPrio)) {
574     styleValues.fgColor = tagPtr->fgColor;
575     fgPrio = tagPtr->priority;
576     }
577     if ((tagPtr->tkfont != None) && (tagPtr->priority > fontPrio)) {
578     styleValues.tkfont = tagPtr->tkfont;
579     fontPrio = tagPtr->priority;
580     }
581     if ((tagPtr->fgStipple != None)
582     && (tagPtr->priority > fgStipplePrio)) {
583     styleValues.fgStipple = tagPtr->fgStipple;
584     fgStipplePrio = tagPtr->priority;
585     }
586     if ((tagPtr->justifyString != NULL)
587     && (tagPtr->priority > justifyPrio)) {
588     styleValues.justify = tagPtr->justify;
589     justifyPrio = tagPtr->priority;
590     }
591     if ((tagPtr->lMargin1String != NULL)
592     && (tagPtr->priority > lMargin1Prio)) {
593     styleValues.lMargin1 = tagPtr->lMargin1;
594     lMargin1Prio = tagPtr->priority;
595     }
596     if ((tagPtr->lMargin2String != NULL)
597     && (tagPtr->priority > lMargin2Prio)) {
598     styleValues.lMargin2 = tagPtr->lMargin2;
599     lMargin2Prio = tagPtr->priority;
600     }
601     if ((tagPtr->offsetString != NULL)
602     && (tagPtr->priority > offsetPrio)) {
603     styleValues.offset = tagPtr->offset;
604     offsetPrio = tagPtr->priority;
605     }
606     if ((tagPtr->overstrikeString != NULL)
607     && (tagPtr->priority > overstrikePrio)) {
608     styleValues.overstrike = tagPtr->overstrike;
609     overstrikePrio = tagPtr->priority;
610     }
611     if ((tagPtr->rMarginString != NULL)
612     && (tagPtr->priority > rMarginPrio)) {
613     styleValues.rMargin = tagPtr->rMargin;
614     rMarginPrio = tagPtr->priority;
615     }
616     if ((tagPtr->spacing1String != NULL)
617     && (tagPtr->priority > spacing1Prio)) {
618     styleValues.spacing1 = tagPtr->spacing1;
619     spacing1Prio = tagPtr->priority;
620     }
621     if ((tagPtr->spacing2String != NULL)
622     && (tagPtr->priority > spacing2Prio)) {
623     styleValues.spacing2 = tagPtr->spacing2;
624     spacing2Prio = tagPtr->priority;
625     }
626     if ((tagPtr->spacing3String != NULL)
627     && (tagPtr->priority > spacing3Prio)) {
628     styleValues.spacing3 = tagPtr->spacing3;
629     spacing3Prio = tagPtr->priority;
630     }
631     if ((tagPtr->tabString != NULL)
632     && (tagPtr->priority > tabPrio)) {
633     styleValues.tabArrayPtr = tagPtr->tabArrayPtr;
634     tabPrio = tagPtr->priority;
635     }
636     if ((tagPtr->underlineString != NULL)
637     && (tagPtr->priority > underlinePrio)) {
638     styleValues.underline = tagPtr->underline;
639     underlinePrio = tagPtr->priority;
640     }
641     if ((tagPtr->elideString != NULL)
642     && (tagPtr->priority > elidePrio)) {
643     styleValues.elide = tagPtr->elide;
644     elidePrio = tagPtr->priority;
645     }
646     if ((tagPtr->wrapMode != TEXT_WRAPMODE_NULL)
647     && (tagPtr->priority > wrapPrio)) {
648     styleValues.wrapMode = tagPtr->wrapMode;
649     wrapPrio = tagPtr->priority;
650     }
651     }
652     if (tagPtrs != NULL) {
653     ckfree((char *) tagPtrs);
654     }
655    
656     /*
657     * Use an existing style if there's one around that matches.
658     */
659    
660     hPtr = Tcl_CreateHashEntry(&textPtr->dInfoPtr->styleTable,
661     (char *) &styleValues, &new);
662     if (!new) {
663     stylePtr = (TextStyle *) Tcl_GetHashValue(hPtr);
664     stylePtr->refCount++;
665     return stylePtr;
666     }
667    
668     /*
669     * No existing style matched. Make a new one.
670     */
671    
672     stylePtr = (TextStyle *) ckalloc(sizeof(TextStyle));
673     stylePtr->refCount = 1;
674     if (styleValues.border != NULL) {
675     gcValues.foreground = Tk_3DBorderColor(styleValues.border)->pixel;
676     mask = GCForeground;
677     if (styleValues.bgStipple != None) {
678     gcValues.stipple = styleValues.bgStipple;
679     gcValues.fill_style = FillStippled;
680     mask |= GCStipple|GCFillStyle;
681     }
682     stylePtr->bgGC = Tk_GetGC(textPtr->tkwin, mask, &gcValues);
683     } else {
684     stylePtr->bgGC = None;
685     }
686     mask = GCFont;
687     gcValues.font = Tk_FontId(styleValues.tkfont);
688     mask |= GCForeground;
689     gcValues.foreground = styleValues.fgColor->pixel;
690     if (styleValues.fgStipple != None) {
691     gcValues.stipple = styleValues.fgStipple;
692     gcValues.fill_style = FillStippled;
693     mask |= GCStipple|GCFillStyle;
694     }
695     stylePtr->fgGC = Tk_GetGC(textPtr->tkwin, mask, &gcValues);
696     stylePtr->sValuePtr = (StyleValues *)
697     Tcl_GetHashKey(&textPtr->dInfoPtr->styleTable, hPtr);
698     stylePtr->hPtr = hPtr;
699     Tcl_SetHashValue(hPtr, stylePtr);
700     return stylePtr;
701     }
702    
703     /*
704     *----------------------------------------------------------------------
705     *
706     * FreeStyle --
707     *
708     * This procedure is called when a TextStyle structure is no longer
709     * needed. It decrements the reference count and frees up the
710     * space for the style structure if the reference count is 0.
711     *
712     * Results:
713     * None.
714     *
715     * Side effects:
716     * The storage and other resources associated with the style
717     * are freed up if no-one's still using it.
718     *
719     *----------------------------------------------------------------------
720     */
721    
722     static void
723     FreeStyle(textPtr, stylePtr)
724     TkText *textPtr; /* Information about overall widget. */
725     register TextStyle *stylePtr; /* Information about style to free. */
726    
727     {
728     stylePtr->refCount--;
729     if (stylePtr->refCount == 0) {
730     if (stylePtr->bgGC != None) {
731     Tk_FreeGC(textPtr->display, stylePtr->bgGC);
732     }
733     if (stylePtr->fgGC != None) {
734     Tk_FreeGC(textPtr->display, stylePtr->fgGC);
735     }
736     Tcl_DeleteHashEntry(stylePtr->hPtr);
737     ckfree((char *) stylePtr);
738     }
739     }
740    
741     /*
742     *----------------------------------------------------------------------
743     *
744     * LayoutDLine --
745     *
746     * This procedure generates a single DLine structure for a display
747     * line whose leftmost character is given by indexPtr.
748     *
749     * Results:
750     * The return value is a pointer to a DLine structure desribing the
751     * display line. All fields are filled in and correct except for
752     * y and nextPtr.
753     *
754     * Side effects:
755     * Storage is allocated for the new DLine.
756     *
757     *----------------------------------------------------------------------
758     */
759    
760     static DLine *
761     LayoutDLine(textPtr, indexPtr)
762     TkText *textPtr; /* Overall information about text widget. */
763     TkTextIndex *indexPtr; /* Beginning of display line. May not
764     * necessarily point to a character segment. */
765     {
766     register DLine *dlPtr; /* New display line. */
767     TkTextSegment *segPtr; /* Current segment in text. */
768     TkTextDispChunk *lastChunkPtr; /* Last chunk allocated so far
769     * for line. */
770     TkTextDispChunk *chunkPtr; /* Current chunk. */
771     TkTextIndex curIndex;
772     TkTextDispChunk *breakChunkPtr; /* Chunk containing best word break
773     * point, if any. */
774     TkTextIndex breakIndex; /* Index of first character in
775     * breakChunkPtr. */
776     int breakByteOffset; /* Byte offset of character within
777     * breakChunkPtr just to right of best
778     * break point. */
779     int noCharsYet; /* Non-zero means that no characters
780     * have been placed on the line yet. */
781     int justify; /* How to justify line: taken from
782     * style for the first character in
783     * line. */
784     int jIndent; /* Additional indentation (beyond
785     * margins) due to justification. */
786     int rMargin; /* Right margin width for line. */
787     TkWrapMode wrapMode; /* Wrap mode to use for this line. */
788     int x = 0, maxX = 0; /* Initializations needed only to
789     * stop compiler warnings. */
790     int wholeLine; /* Non-zero means this display line
791     * runs to the end of the text line. */
792     int tabIndex; /* Index of the current tab stop. */
793     int gotTab; /* Non-zero means the current chunk
794     * contains a tab. */
795     TkTextDispChunk *tabChunkPtr; /* Pointer to the chunk containing
796     * the previous tab stop. */
797     int maxBytes; /* Maximum number of bytes to
798     * include in this chunk. */
799     TkTextTabArray *tabArrayPtr; /* Tab stops for line; taken from
800     * style for the first character on
801     * line. */
802     int tabSize; /* Number of pixels consumed by current
803     * tab stop. */
804     TkTextDispChunk *lastCharChunkPtr; /* Pointer to last chunk in display
805     * lines with numBytes > 0. Used to
806     * drop 0-sized chunks from the end
807     * of the line. */
808     int byteOffset, ascent, descent, code, elide, elidesize;
809     StyleValues *sValuePtr;
810    
811     /*
812     * Create and initialize a new DLine structure.
813     */
814    
815     dlPtr = (DLine *) ckalloc(sizeof(DLine));
816     dlPtr->index = *indexPtr;
817     dlPtr->byteCount = 0;
818     dlPtr->y = 0;
819     dlPtr->oldY = -1;
820     dlPtr->height = 0;
821     dlPtr->baseline = 0;
822     dlPtr->chunkPtr = NULL;
823     dlPtr->nextPtr = NULL;
824     dlPtr->flags = NEW_LAYOUT;
825    
826     /*
827     * Special case entirely elide line as there may be 1000s or more
828     */
829     elide = TkTextIsElided(textPtr, indexPtr); /* save a malloc */
830     if (elide && indexPtr->byteIndex==0) {
831     maxBytes = 0;
832     for (segPtr = indexPtr->linePtr->segPtr;
833     elide && (segPtr != NULL);
834     segPtr = segPtr->nextPtr) {
835     if ((elidesize = segPtr->size) > 0) {
836     maxBytes += elidesize;
837     /*
838     * If have we have a tag toggle, there is a chance
839     * that invisibility state changed, so bail out
840     */
841     } else if ((segPtr->typePtr == &tkTextToggleOffType)
842     || (segPtr->typePtr == &tkTextToggleOnType)) {
843     if (segPtr->body.toggle.tagPtr->elideString != NULL) {
844     elide = (segPtr->typePtr == &tkTextToggleOffType)
845     ^ segPtr->body.toggle.tagPtr->elide;
846     }
847     }
848     }
849    
850     if (elide) {
851     dlPtr->byteCount = maxBytes;
852     dlPtr->spaceAbove = dlPtr->spaceBelow = dlPtr->length = 0;
853     return dlPtr;
854     }
855     }
856    
857     /*
858     * Each iteration of the loop below creates one TkTextDispChunk for
859     * the new display line. The line will always have at least one
860     * chunk (for the newline character at the end, if there's nothing
861     * else available).
862     */
863    
864     curIndex = *indexPtr;
865     lastChunkPtr = NULL;
866     chunkPtr = NULL;
867     noCharsYet = 1;
868     elide = 0;
869     breakChunkPtr = NULL;
870     breakByteOffset = 0;
871     justify = TK_JUSTIFY_LEFT;
872     tabIndex = -1;
873     tabChunkPtr = NULL;
874     tabArrayPtr = NULL;
875     rMargin = 0;
876     wrapMode = TEXT_WRAPMODE_CHAR;
877     tabSize = 0;
878     lastCharChunkPtr = NULL;
879    
880     /*
881     * Find the first segment to consider for the line. Can't call
882     * TkTextIndexToSeg for this because it won't return a segment
883     * with zero size (such as the insertion cursor's mark).
884     */
885    
886     for (byteOffset = curIndex.byteIndex, segPtr = curIndex.linePtr->segPtr;
887     (byteOffset > 0) && (byteOffset >= segPtr->size);
888     byteOffset -= segPtr->size, segPtr = segPtr->nextPtr) {
889     /* Empty loop body. */
890     }
891    
892     while (segPtr != NULL) {
893     /*
894     * Every line still gets at least one chunk due to expectations
895     * in the rest of the code, but we are able to skip elided portions
896     * of the line quickly.
897     * If current chunk is elided and last chunk was too, coalese
898     */
899     if (elide && (lastChunkPtr != NULL)
900     && (lastChunkPtr->displayProc == NULL /*ElideDisplayProc*/)) {
901     if ((elidesize = segPtr->size - byteOffset) > 0) {
902     curIndex.byteIndex += elidesize;
903     lastChunkPtr->numBytes += elidesize;
904     breakByteOffset = lastChunkPtr->breakIndex = lastChunkPtr->numBytes;
905     /*
906     * If have we have a tag toggle, there is a chance
907     * that invisibility state changed, so bail out
908     */
909     } else if ((segPtr->typePtr == &tkTextToggleOffType)
910     || (segPtr->typePtr == &tkTextToggleOnType)) {
911     if (segPtr->body.toggle.tagPtr->elideString != NULL) {
912     elide = (segPtr->typePtr == &tkTextToggleOffType)
913     ^ segPtr->body.toggle.tagPtr->elide;
914     }
915     }
916    
917     byteOffset = 0;
918     segPtr = segPtr->nextPtr;
919     if (segPtr == NULL && chunkPtr != NULL) {
920     ckfree((char *) chunkPtr);
921     }
922     continue;
923     }
924    
925     if (segPtr->typePtr->layoutProc == NULL) {
926     segPtr = segPtr->nextPtr;
927     byteOffset = 0;
928     continue;
929     }
930     if (chunkPtr == NULL) {
931     chunkPtr = (TkTextDispChunk *) ckalloc(sizeof(TkTextDispChunk));
932     chunkPtr->nextPtr = NULL;
933     }
934     chunkPtr->stylePtr = GetStyle(textPtr, &curIndex);
935     elide = chunkPtr->stylePtr->sValuePtr->elide;
936    
937     /*
938     * Save style information such as justification and indentation,
939     * up until the first character is encountered, then retain that
940     * information for the rest of the line.
941     */
942    
943     if (noCharsYet) {
944     tabArrayPtr = chunkPtr->stylePtr->sValuePtr->tabArrayPtr;
945     justify = chunkPtr->stylePtr->sValuePtr->justify;
946     rMargin = chunkPtr->stylePtr->sValuePtr->rMargin;
947     wrapMode = chunkPtr->stylePtr->sValuePtr->wrapMode;
948     x = ((curIndex.byteIndex == 0)
949     ? chunkPtr->stylePtr->sValuePtr->lMargin1
950     : chunkPtr->stylePtr->sValuePtr->lMargin2);
951     if (wrapMode == TEXT_WRAPMODE_NONE) {
952     maxX = -1;
953     } else {
954     maxX = textPtr->dInfoPtr->maxX - textPtr->dInfoPtr->x
955     - rMargin;
956     if (maxX < x) {
957     maxX = x;
958     }
959     }
960     }
961    
962     /*
963     * See if there is a tab in the current chunk; if so, only
964     * layout characters up to (and including) the tab.
965     */
966    
967     gotTab = 0;
968     maxBytes = segPtr->size - byteOffset;
969     if (!elide && justify == TK_JUSTIFY_LEFT) {
970     if (segPtr->typePtr == &tkTextCharType) {
971     char *p;
972    
973     for (p = segPtr->body.chars + byteOffset; *p != 0; p++) {
974     if (*p == '\t') {
975     maxBytes = (p + 1 - segPtr->body.chars) - byteOffset;
976     gotTab = 1;
977     break;
978     }
979     }
980     }
981     }
982     chunkPtr->x = x;
983     if (elide && maxBytes) {
984     /* don't free style here, as other code expects to be able to do that */
985     /*breakByteOffset =*/ chunkPtr->breakIndex = chunkPtr->numBytes = maxBytes;
986     chunkPtr->width = 0;
987     chunkPtr->minAscent = chunkPtr->minDescent = chunkPtr->minHeight = 0;
988    
989     /* would just like to point to canonical empty chunk */
990     chunkPtr->displayProc = (Tk_ChunkDisplayProc *) NULL;
991     chunkPtr->undisplayProc = (Tk_ChunkUndisplayProc *) NULL;
992     chunkPtr->measureProc = ElideMeasureProc;
993     chunkPtr->bboxProc = ElideBboxProc;
994    
995     code = 1;
996     } else
997     code = (*segPtr->typePtr->layoutProc)(textPtr, &curIndex, segPtr,
998     byteOffset, maxX-tabSize, maxBytes, noCharsYet, wrapMode,
999     chunkPtr);
1000     if (code <= 0) {
1001     FreeStyle(textPtr, chunkPtr->stylePtr);
1002     if (code < 0) {
1003     /*
1004     * This segment doesn't wish to display itself (e.g. most
1005     * marks).
1006     */
1007    
1008     segPtr = segPtr->nextPtr;
1009     byteOffset = 0;
1010     continue;
1011     }
1012    
1013     /*
1014     * No characters from this segment fit in the window: this
1015     * means we're at the end of the display line.
1016     */
1017    
1018     if (chunkPtr != NULL) {
1019     ckfree((char *) chunkPtr);
1020     }
1021     break;
1022     }
1023     if (chunkPtr->numBytes > 0) {
1024     noCharsYet = 0;
1025     lastCharChunkPtr = chunkPtr;
1026     }
1027     if (lastChunkPtr == NULL) {
1028     dlPtr->chunkPtr = chunkPtr;
1029     } else {
1030     lastChunkPtr->nextPtr = chunkPtr;
1031     }
1032     lastChunkPtr = chunkPtr;
1033     x += chunkPtr->width;
1034     if (chunkPtr->breakIndex > 0) {
1035     breakByteOffset = chunkPtr->breakIndex;
1036     breakIndex = curIndex;
1037     breakChunkPtr = chunkPtr;
1038     }
1039     if (chunkPtr->numBytes != maxBytes) {
1040     break;
1041     }
1042    
1043     /*
1044     * If we're at a new tab, adjust the layout for all the chunks
1045     * pertaining to the previous tab. Also adjust the amount of
1046     * space left in the line to account for space that will be eaten
1047     * up by the tab.
1048     */
1049    
1050     if (gotTab) {
1051     if (tabIndex >= 0) {
1052     AdjustForTab(textPtr, tabArrayPtr, tabIndex, tabChunkPtr);
1053     x = chunkPtr->x + chunkPtr->width;
1054     }
1055     tabIndex++;
1056     tabChunkPtr = chunkPtr;
1057     tabSize = SizeOfTab(textPtr, tabArrayPtr, tabIndex, x, maxX);
1058     if ((maxX >= 0) && (tabSize >= maxX - x)) {
1059     break;
1060     }
1061     }
1062     curIndex.byteIndex += chunkPtr->numBytes;
1063     byteOffset += chunkPtr->numBytes;
1064     if (byteOffset >= segPtr->size) {
1065     byteOffset = 0;
1066     segPtr = segPtr->nextPtr;
1067     }
1068    
1069     chunkPtr = NULL;
1070     }
1071     if (noCharsYet) {
1072     panic("LayoutDLine couldn't place any characters on a line");
1073     }
1074     wholeLine = (segPtr == NULL);
1075    
1076     /*
1077     * We're at the end of the display line. Throw away everything
1078     * after the most recent word break, if there is one; this may
1079     * potentially require the last chunk to be layed out again.
1080     */
1081    
1082     if (breakChunkPtr == NULL) {
1083     /*
1084     * This code makes sure that we don't accidentally display
1085     * chunks with no characters at the end of the line (such as
1086     * the insertion cursor). These chunks belong on the next
1087     * line. So, throw away everything after the last chunk that
1088     * has characters in it.
1089     */
1090    
1091     breakChunkPtr = lastCharChunkPtr;
1092     breakByteOffset = breakChunkPtr->numBytes;
1093     }
1094     if ((breakChunkPtr != NULL) && ((lastChunkPtr != breakChunkPtr)
1095     || (breakByteOffset != lastChunkPtr->numBytes))) {
1096     while (1) {
1097     chunkPtr = breakChunkPtr->nextPtr;
1098     if (chunkPtr == NULL) {
1099     break;
1100     }
1101     FreeStyle(textPtr, chunkPtr->stylePtr);
1102     breakChunkPtr->nextPtr = chunkPtr->nextPtr;
1103     (*chunkPtr->undisplayProc)(textPtr, chunkPtr);
1104     ckfree((char *) chunkPtr);
1105     }
1106     if (breakByteOffset != breakChunkPtr->numBytes) {
1107     (*breakChunkPtr->undisplayProc)(textPtr, breakChunkPtr);
1108     segPtr = TkTextIndexToSeg(&breakIndex, &byteOffset);
1109     (*segPtr->typePtr->layoutProc)(textPtr, &breakIndex,
1110     segPtr, byteOffset, maxX, breakByteOffset, 0,
1111     wrapMode, breakChunkPtr);
1112     }
1113     lastChunkPtr = breakChunkPtr;
1114     wholeLine = 0;
1115     }
1116    
1117    
1118     /*
1119     * Make tab adjustments for the last tab stop, if there is one.
1120     */
1121    
1122     if ((tabIndex >= 0) && (tabChunkPtr != NULL)) {
1123     AdjustForTab(textPtr, tabArrayPtr, tabIndex, tabChunkPtr);
1124     }
1125    
1126     /*
1127     * Make one more pass over the line to recompute various things
1128     * like its height, length, and total number of bytes. Also
1129     * modify the x-locations of chunks to reflect justification.
1130     * If we're not wrapping, I'm not sure what is the best way to
1131     * handle left and center justification: should the total length,
1132     * for purposes of justification, be (a) the window width, (b)
1133     * the length of the longest line in the window, or (c) the length
1134     * of the longest line in the text? (c) isn't available, (b) seems
1135     * weird, since it can change with vertical scrolling, so (a) is
1136     * what is implemented below.
1137     */
1138    
1139     if (wrapMode == TEXT_WRAPMODE_NONE) {
1140     maxX = textPtr->dInfoPtr->maxX - textPtr->dInfoPtr->x - rMargin;
1141     }
1142     dlPtr->length = lastChunkPtr->x + lastChunkPtr->width;
1143     if (justify == TK_JUSTIFY_LEFT) {
1144     jIndent = 0;
1145     } else if (justify == TK_JUSTIFY_RIGHT) {
1146     jIndent = maxX - dlPtr->length;
1147     } else {
1148     jIndent = (maxX - dlPtr->length)/2;
1149     }
1150     ascent = descent = 0;
1151     for (chunkPtr = dlPtr->chunkPtr; chunkPtr != NULL;
1152     chunkPtr = chunkPtr->nextPtr) {
1153     chunkPtr->x += jIndent;
1154     dlPtr->byteCount += chunkPtr->numBytes;
1155     if (chunkPtr->minAscent > ascent) {
1156     ascent = chunkPtr->minAscent;
1157     }
1158     if (chunkPtr->minDescent > descent) {
1159     descent = chunkPtr->minDescent;
1160     }
1161     if (chunkPtr->minHeight > dlPtr->height) {
1162     dlPtr->height = chunkPtr->minHeight;
1163     }
1164     sValuePtr = chunkPtr->stylePtr->sValuePtr;
1165     if ((sValuePtr->borderWidth > 0)
1166     && (sValuePtr->relief != TK_RELIEF_FLAT)) {
1167     dlPtr->flags |= HAS_3D_BORDER;
1168     }
1169     }
1170     if (dlPtr->height < (ascent + descent)) {
1171     dlPtr->height = ascent + descent;
1172     dlPtr->baseline = ascent;
1173     } else {
1174     dlPtr->baseline = ascent + (dlPtr->height - ascent - descent)/2;
1175     }
1176     sValuePtr = dlPtr->chunkPtr->stylePtr->sValuePtr;
1177     if (dlPtr->index.byteIndex == 0) {
1178     dlPtr->spaceAbove = sValuePtr->spacing1;
1179     } else {
1180     dlPtr->spaceAbove = sValuePtr->spacing2 - sValuePtr->spacing2/2;
1181     }
1182     if (wholeLine) {
1183     dlPtr->spaceBelow = sValuePtr->spacing3;
1184     } else {
1185     dlPtr->spaceBelow = sValuePtr->spacing2/2;
1186     }
1187     dlPtr->height += dlPtr->spaceAbove + dlPtr->spaceBelow;
1188     dlPtr->baseline += dlPtr->spaceAbove;
1189    
1190     /*
1191     * Recompute line length: may have changed because of justification.
1192     */
1193    
1194     dlPtr->length = lastChunkPtr->x + lastChunkPtr->width;
1195     return dlPtr;
1196     }
1197    
1198     /*
1199     *----------------------------------------------------------------------
1200     *
1201     * UpdateDisplayInfo --
1202     *
1203     * This procedure is invoked to recompute some or all of the
1204     * DLine structures for a text widget. At the time it is called
1205     * the DLine structures still left in the widget are guaranteed
1206     * to be correct except that (a) the y-coordinates aren't
1207     * necessarily correct, (b) there may be missing structures
1208     * (the DLine structures get removed as soon as they are potentially
1209     * out-of-date), and (c) DLine structures that don't start at the
1210     * beginning of a line may be incorrect if previous information in
1211     * the same line changed size in a way that moved a line boundary
1212     * (DLines for any info that changed will have been deleted, but
1213     * not DLines for unchanged info in the same text line).
1214     *
1215     * Results:
1216     * None.
1217     *
1218     * Side effects:
1219     * Upon return, the DLine information for textPtr correctly reflects
1220     * the positions where characters will be displayed. However, this
1221     * procedure doesn't actually bring the display up-to-date.
1222     *
1223     *----------------------------------------------------------------------
1224     */
1225    
1226     static void
1227     UpdateDisplayInfo(textPtr)
1228     TkText *textPtr; /* Text widget to update. */
1229     {
1230     register TextDInfo *dInfoPtr = textPtr->dInfoPtr;
1231     register DLine *dlPtr, *prevPtr;
1232     TkTextIndex index;
1233     TkTextLine *lastLinePtr;
1234     int y, maxY, pixelOffset, maxOffset;
1235    
1236     if (!(dInfoPtr->flags & DINFO_OUT_OF_DATE)) {
1237     return;
1238     }
1239     dInfoPtr->flags &= ~DINFO_OUT_OF_DATE;
1240    
1241     /*
1242     * Delete any DLines that are now above the top of the window.
1243     */
1244    
1245     index = textPtr->topIndex;
1246     dlPtr = FindDLine(dInfoPtr->dLinePtr, &index);
1247     if ((dlPtr != NULL) && (dlPtr != dInfoPtr->dLinePtr)) {
1248     FreeDLines(textPtr, dInfoPtr->dLinePtr, dlPtr, 1);
1249     }
1250    
1251     /*
1252     *--------------------------------------------------------------
1253     * Scan through the contents of the window from top to bottom,
1254     * recomputing information for lines that are missing.
1255     *--------------------------------------------------------------
1256     */
1257    
1258     lastLinePtr = TkBTreeFindLine(textPtr->tree,
1259     TkBTreeNumLines(textPtr->tree));
1260     dlPtr = dInfoPtr->dLinePtr;
1261     prevPtr = NULL;
1262     y = dInfoPtr->y;
1263     maxY = dInfoPtr->maxY;
1264     while (1) {
1265     register DLine *newPtr;
1266    
1267     if (index.linePtr == lastLinePtr) {
1268     break;
1269     }
1270    
1271     /*
1272     * There are three possibilities right now:
1273     * (a) the next DLine (dlPtr) corresponds exactly to the next
1274     * information we want to display: just use it as-is.
1275     * (b) the next DLine corresponds to a different line, or to
1276     * a segment that will be coming later in the same line:
1277     * leave this DLine alone in the hopes that we'll be able
1278     * to use it later, then create a new DLine in front of
1279     * it.
1280     * (c) the next DLine corresponds to a segment in the line we
1281     * want, but it's a segment that has already been processed
1282     * or will never be processed. Delete the DLine and try
1283     * again.
1284     *
1285     * One other twist on all this. It's possible for 3D borders
1286     * to interact between lines (see DisplayLineBackground) so if
1287     * a line is relayed out and has styles with 3D borders, its
1288     * neighbors have to be redrawn if they have 3D borders too,
1289     * since the interactions could have changed (the neighbors
1290     * don't have to be relayed out, just redrawn).
1291     */
1292    
1293     if ((dlPtr == NULL) || (dlPtr->index.linePtr != index.linePtr)) {
1294     /*
1295     * Case (b) -- must make new DLine.
1296     */
1297    
1298     makeNewDLine:
1299     if (tkTextDebug) {
1300     char string[TK_POS_CHARS];
1301    
1302     /*
1303     * Debugging is enabled, so keep a log of all the lines
1304     * that were re-layed out. The test suite uses this
1305     * information.
1306     */
1307    
1308     TkTextPrintIndex(&index, string);
1309     Tcl_SetVar2(textPtr->interp, "tk_textRelayout", (char *) NULL,
1310     string,
1311     TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
1312     }
1313     newPtr = LayoutDLine(textPtr, &index);
1314     if (prevPtr == NULL) {
1315     dInfoPtr->dLinePtr = newPtr;
1316     } else {
1317     prevPtr->nextPtr = newPtr;
1318     if (prevPtr->flags & HAS_3D_BORDER) {
1319     prevPtr->oldY = -1;
1320     }
1321     }
1322     newPtr->nextPtr = dlPtr;
1323     dlPtr = newPtr;
1324     } else {
1325     /*
1326     * DlPtr refers to the line we want. Next check the
1327     * index within the line.
1328     */
1329    
1330     if (index.byteIndex == dlPtr->index.byteIndex) {
1331     /*
1332     * Case (a) -- can use existing display line as-is.
1333     */
1334    
1335     if ((dlPtr->flags & HAS_3D_BORDER) && (prevPtr != NULL)
1336     && (prevPtr->flags & (NEW_LAYOUT))) {
1337     dlPtr->oldY = -1;
1338     }
1339     goto lineOK;
1340     }
1341     if (index.byteIndex < dlPtr->index.byteIndex) {
1342     goto makeNewDLine;
1343     }
1344    
1345     /*
1346     * Case (c) -- dlPtr is useless. Discard it and start
1347     * again with the next display line.
1348     */
1349    
1350     newPtr = dlPtr->nextPtr;
1351     FreeDLines(textPtr, dlPtr, newPtr, 0);
1352     dlPtr = newPtr;
1353     if (prevPtr != NULL) {
1354     prevPtr->nextPtr = newPtr;
1355     } else {
1356     dInfoPtr->dLinePtr = newPtr;
1357     }
1358     continue;
1359     }
1360    
1361     /*
1362     * Advance to the start of the next line.
1363     */
1364    
1365     lineOK:
1366     dlPtr->y = y;
1367     y += dlPtr->height;
1368     TkTextIndexForwBytes(&index, dlPtr->byteCount, &index);
1369     prevPtr = dlPtr;
1370     dlPtr = dlPtr->nextPtr;
1371    
1372     /*
1373     * If we switched text lines, delete any DLines left for the
1374     * old text line.
1375     */
1376    
1377     if (index.linePtr != prevPtr->index.linePtr) {
1378     register DLine *nextPtr;
1379    
1380     nextPtr = dlPtr;
1381     while ((nextPtr != NULL)
1382     && (nextPtr->index.linePtr == prevPtr->index.linePtr)) {
1383     nextPtr = nextPtr->nextPtr;
1384     }
1385     if (nextPtr != dlPtr) {
1386     FreeDLines(textPtr, dlPtr, nextPtr, 0);
1387     prevPtr->nextPtr = nextPtr;
1388     dlPtr = nextPtr;
1389     }
1390     }
1391    
1392     /*
1393     * It's important to have the following check here rather than in
1394     * the while statement for the loop, so that there's always at least
1395     * one DLine generated, regardless of how small the window is. This
1396     * keeps a lot of other code from breaking.
1397     */
1398    
1399     if (y >= maxY) {
1400     break;
1401     }
1402     }
1403    
1404     /*
1405     * Delete any DLine structures that don't fit on the screen.
1406     */
1407    
1408     FreeDLines(textPtr, dlPtr, (DLine *) NULL, 1);
1409    
1410     /*
1411     *--------------------------------------------------------------
1412     * If there is extra space at the bottom of the window (because
1413     * we've hit the end of the text), then bring in more lines at
1414     * the top of the window, if there are any, to fill in the view.
1415     *--------------------------------------------------------------
1416     */
1417    
1418     if (y < maxY) {
1419     int lineNum, spaceLeft, bytesToCount;
1420     DLine *lowestPtr;
1421    
1422     /*
1423     * Layout an entire text line (potentially > 1 display line),
1424     * then link in as many display lines as fit without moving
1425     * the bottom line out of the window. Repeat this until
1426     * all the extra space has been used up or we've reached the
1427     * beginning of the text.
1428     */
1429    
1430     spaceLeft = maxY - y;
1431     lineNum = TkBTreeLineIndex(dInfoPtr->dLinePtr->index.linePtr);
1432     bytesToCount = dInfoPtr->dLinePtr->index.byteIndex;
1433     if (bytesToCount == 0) {
1434     bytesToCount = INT_MAX;
1435     lineNum--;
1436     }
1437     for ( ; (lineNum >= 0) && (spaceLeft > 0); lineNum--) {
1438     index.linePtr = TkBTreeFindLine(textPtr->tree, lineNum);
1439     index.byteIndex = 0;
1440     lowestPtr = NULL;
1441    
1442     do {
1443     dlPtr = LayoutDLine(textPtr, &index);
1444     dlPtr->nextPtr = lowestPtr;
1445     lowestPtr = dlPtr;
1446     if (dlPtr->length == 0 && dlPtr->height == 0) { bytesToCount--; break; } /* elide */
1447     TkTextIndexForwBytes(&index, dlPtr->byteCount, &index);
1448     bytesToCount -= dlPtr->byteCount;
1449     } while ((bytesToCount > 0)
1450     && (index.linePtr == lowestPtr->index.linePtr));
1451    
1452     /*
1453     * Scan through the display lines from the bottom one up to
1454     * the top one.
1455     */
1456    
1457     while (lowestPtr != NULL) {
1458     dlPtr = lowestPtr;
1459     spaceLeft -= dlPtr->height;
1460     if (spaceLeft < 0) {
1461     break;
1462     }
1463     lowestPtr = dlPtr->nextPtr;
1464     dlPtr->nextPtr = dInfoPtr->dLinePtr;
1465     dInfoPtr->dLinePtr = dlPtr;
1466     if (tkTextDebug) {
1467     char string[TK_POS_CHARS];
1468    
1469     TkTextPrintIndex(&dlPtr->index, string);
1470     Tcl_SetVar2(textPtr->interp, "tk_textRelayout",
1471     (char *) NULL, string,
1472     TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
1473     }
1474     }
1475     FreeDLines(textPtr, lowestPtr, (DLine *) NULL, 0);
1476     bytesToCount = INT_MAX;
1477     }
1478    
1479     /*
1480     * Now we're all done except that the y-coordinates in all the
1481     * DLines are wrong and the top index for the text is wrong.
1482     * Update them.
1483     */
1484    
1485     textPtr->topIndex = dInfoPtr->dLinePtr->index;
1486     y = dInfoPtr->y;
1487     for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
1488     dlPtr = dlPtr->nextPtr) {
1489     if (y > dInfoPtr->maxY) {
1490     panic("Added too many new lines in UpdateDisplayInfo");
1491     }
1492     dlPtr->y = y;
1493     y += dlPtr->height;
1494     }
1495     }
1496    
1497     /*
1498     *--------------------------------------------------------------
1499     * If the old top or bottom line has scrolled elsewhere on the
1500     * screen, we may not be able to re-use its old contents by
1501     * copying bits (e.g., a beveled edge that was drawn when it was
1502     * at the top or bottom won't be drawn when the line is in the
1503     * middle and its neighbor has a matching background). Similarly,
1504     * if the new top or bottom line came from somewhere else on the
1505     * screen, we may not be able to copy the old bits.
1506     *--------------------------------------------------------------
1507     */
1508    
1509     dlPtr = dInfoPtr->dLinePtr;
1510     if ((dlPtr->flags & HAS_3D_BORDER) && !(dlPtr->flags & TOP_LINE)) {
1511     dlPtr->oldY = -1;
1512     }
1513     while (1) {
1514     if ((dlPtr->flags & TOP_LINE) && (dlPtr != dInfoPtr->dLinePtr)
1515     && (dlPtr->flags & HAS_3D_BORDER)) {
1516     dlPtr->oldY = -1;
1517     }
1518     if ((dlPtr->flags & BOTTOM_LINE) && (dlPtr->nextPtr != NULL)
1519     && (dlPtr->flags & HAS_3D_BORDER)) {
1520     dlPtr->oldY = -1;
1521     }
1522     if (dlPtr->nextPtr == NULL) {
1523     if ((dlPtr->flags & HAS_3D_BORDER)
1524     && !(dlPtr->flags & BOTTOM_LINE)) {
1525     dlPtr->oldY = -1;
1526     }
1527     dlPtr->flags &= ~TOP_LINE;
1528     dlPtr->flags |= BOTTOM_LINE;
1529     break;
1530     }
1531     dlPtr->flags &= ~(TOP_LINE|BOTTOM_LINE);
1532     dlPtr = dlPtr->nextPtr;
1533     }
1534     dInfoPtr->dLinePtr->flags |= TOP_LINE;
1535    
1536     /*
1537     * Arrange for scrollbars to be updated.
1538     */
1539    
1540     textPtr->flags |= UPDATE_SCROLLBARS;
1541    
1542     /*
1543     *--------------------------------------------------------------
1544     * Deal with horizontal scrolling:
1545     * 1. If there's empty space to the right of the longest line,
1546     * shift the screen to the right to fill in the empty space.
1547     * 2. If the desired horizontal scroll position has changed,
1548     * force a full redisplay of all the lines in the widget.
1549     * 3. If the wrap mode isn't "none" then re-scroll to the base
1550     * position.
1551     *--------------------------------------------------------------
1552     */
1553    
1554     dInfoPtr->maxLength = 0;
1555     for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
1556     dlPtr = dlPtr->nextPtr) {
1557     if (dlPtr->length > dInfoPtr->maxLength) {
1558     dInfoPtr->maxLength = dlPtr->length;
1559     }
1560     }
1561     maxOffset = (dInfoPtr->maxLength - (dInfoPtr->maxX - dInfoPtr->x)
1562     + textPtr->charWidth - 1)/textPtr->charWidth;
1563     if (dInfoPtr->newByteOffset > maxOffset) {
1564     dInfoPtr->newByteOffset = maxOffset;
1565     }
1566     if (dInfoPtr->newByteOffset < 0) {
1567     dInfoPtr->newByteOffset = 0;
1568     }
1569     pixelOffset = dInfoPtr->newByteOffset * textPtr->charWidth;
1570     if (pixelOffset != dInfoPtr->curPixelOffset) {
1571     dInfoPtr->curPixelOffset = pixelOffset;
1572     for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
1573     dlPtr = dlPtr->nextPtr) {
1574     dlPtr->oldY = -1;
1575     }
1576     }
1577     }
1578    
1579     /*
1580     *----------------------------------------------------------------------
1581     *
1582     * FreeDLines --
1583     *
1584     * This procedure is called to free up all of the resources
1585     * associated with one or more DLine structures.
1586     *
1587     * Results:
1588     * None.
1589     *
1590     * Side effects:
1591     * Memory gets freed and various other resources are released.
1592     *
1593     *----------------------------------------------------------------------
1594     */
1595    
1596     static void
1597     FreeDLines(textPtr, firstPtr, lastPtr, unlink)
1598     TkText *textPtr; /* Information about overall text
1599     * widget. */
1600     register DLine *firstPtr; /* Pointer to first DLine to free up. */
1601     DLine *lastPtr; /* Pointer to DLine just after last
1602     * one to free (NULL means everything
1603     * starting with firstPtr). */
1604     int unlink; /* 1 means DLines are currently linked
1605     * into the list rooted at
1606     * textPtr->dInfoPtr->dLinePtr and
1607     * they have to be unlinked. 0 means
1608     * just free without unlinking. */
1609     {
1610     register TkTextDispChunk *chunkPtr, *nextChunkPtr;
1611     register DLine *nextDLinePtr;
1612    
1613     if (unlink) {
1614     if (textPtr->dInfoPtr->dLinePtr == firstPtr) {
1615     textPtr->dInfoPtr->dLinePtr = lastPtr;
1616     } else {
1617     register DLine *prevPtr;
1618     for (prevPtr = textPtr->dInfoPtr->dLinePtr;
1619     prevPtr->nextPtr != firstPtr; prevPtr = prevPtr->nextPtr) {
1620     /* Empty loop body. */
1621     }
1622     prevPtr->nextPtr = lastPtr;
1623     }
1624     }
1625     while (firstPtr != lastPtr) {
1626     nextDLinePtr = firstPtr->nextPtr;
1627     for (chunkPtr = firstPtr->chunkPtr; chunkPtr != NULL;
1628     chunkPtr = nextChunkPtr) {
1629     if (chunkPtr->undisplayProc != NULL) {
1630     (*chunkPtr->undisplayProc)(textPtr, chunkPtr);
1631     }
1632     FreeStyle(textPtr, chunkPtr->stylePtr);
1633     nextChunkPtr = chunkPtr->nextPtr;
1634     ckfree((char *) chunkPtr);
1635     }
1636     ckfree((char *) firstPtr);
1637     firstPtr = nextDLinePtr;
1638     }
1639     textPtr->dInfoPtr->dLinesInvalidated = 1;
1640     }
1641    
1642     /*
1643     *----------------------------------------------------------------------
1644     *
1645     * DisplayDLine --
1646     *
1647     * This procedure is invoked to draw a single line on the
1648     * screen.
1649     *
1650     * Results:
1651     * None.
1652     *
1653     * Side effects:
1654     * The line given by dlPtr is drawn at its correct position in
1655     * textPtr's window. Note that this is one *display* line, not
1656     * one *text* line.
1657     *
1658     *----------------------------------------------------------------------
1659     */
1660    
1661     static void
1662     DisplayDLine(textPtr, dlPtr, prevPtr, pixmap)
1663     TkText *textPtr; /* Text widget in which to draw line. */
1664     register DLine *dlPtr; /* Information about line to draw. */
1665     DLine *prevPtr; /* Line just before one to draw, or NULL
1666     * if dlPtr is the top line. */
1667     Pixmap pixmap; /* Pixmap to use for double-buffering.
1668     * Caller must make sure it's large enough
1669     * to hold line. */
1670     {
1671     register TkTextDispChunk *chunkPtr;
1672     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
1673     Display *display;
1674     int height, x;
1675    
1676     if (dlPtr->chunkPtr == NULL) return;
1677    
1678     /*
1679     * First, clear the area of the line to the background color for the
1680     * text widget.
1681     */
1682    
1683     display = Tk_Display(textPtr->tkwin);
1684     Tk_Fill3DRectangle(textPtr->tkwin, pixmap, textPtr->border, 0, 0,
1685     Tk_Width(textPtr->tkwin), dlPtr->height, 0, TK_RELIEF_FLAT);
1686    
1687     /*
1688     * Next, draw background information for the whole line.
1689     */
1690    
1691     DisplayLineBackground(textPtr, dlPtr, prevPtr, pixmap);
1692    
1693     /*
1694     * Make another pass through all of the chunks to redraw the
1695     * insertion cursor, if it is visible on this line. Must do
1696     * it here rather than in the foreground pass below because
1697     * otherwise a wide insertion cursor will obscure the character
1698     * to its left.
1699     */
1700    
1701     if (textPtr->state == TK_STATE_NORMAL) {
1702     for (chunkPtr = dlPtr->chunkPtr; (chunkPtr != NULL);
1703     chunkPtr = chunkPtr->nextPtr) {
1704     x = chunkPtr->x + dInfoPtr->x - dInfoPtr->curPixelOffset;
1705     if (chunkPtr->displayProc == TkTextInsertDisplayProc) {
1706     (*chunkPtr->displayProc)(chunkPtr, x, dlPtr->spaceAbove,
1707     dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
1708     dlPtr->baseline - dlPtr->spaceAbove, display, pixmap,
1709     dlPtr->y + dlPtr->spaceAbove);
1710     }
1711     }
1712     }
1713    
1714     /*
1715     * Make yet another pass through all of the chunks to redraw all of
1716     * foreground information. Note: we have to call the displayProc
1717     * even for chunks that are off-screen. This is needed, for
1718     * example, so that embedded windows can be unmapped in this case.
1719     * Conve
1720     */
1721    
1722     for (chunkPtr = dlPtr->chunkPtr; (chunkPtr != NULL);
1723     chunkPtr = chunkPtr->nextPtr) {
1724     if (chunkPtr->displayProc == TkTextInsertDisplayProc) {
1725     /*
1726     * Already displayed the insertion cursor above. Don't
1727     * do it again here.
1728     */
1729    
1730     continue;
1731     }
1732     x = chunkPtr->x + dInfoPtr->x - dInfoPtr->curPixelOffset;
1733     if ((x + chunkPtr->width <= 0) || (x >= dInfoPtr->maxX)) {
1734     /*
1735     * Note: we have to call the displayProc even for chunks
1736     * that are off-screen. This is needed, for example, so
1737     * that embedded windows can be unmapped in this case.
1738     * Display the chunk at a coordinate that can be clearly
1739     * identified by the displayProc as being off-screen to
1740     * the left (the displayProc may not be able to tell if
1741     * something is off to the right).
1742     */
1743    
1744     if (chunkPtr->displayProc != NULL)
1745     (*chunkPtr->displayProc)(chunkPtr, -chunkPtr->width,
1746     dlPtr->spaceAbove,
1747     dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
1748     dlPtr->baseline - dlPtr->spaceAbove, display, pixmap,
1749     dlPtr->y + dlPtr->spaceAbove);
1750     } else {
1751     /* don't call if elide. This tax ok since not very many visible DLine's in
1752     an area, but potentially many elide ones */
1753     if (chunkPtr->displayProc != NULL)
1754     (*chunkPtr->displayProc)(chunkPtr, x, dlPtr->spaceAbove,
1755     dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
1756     dlPtr->baseline - dlPtr->spaceAbove, display, pixmap,
1757     dlPtr->y + dlPtr->spaceAbove);
1758     }
1759     if (dInfoPtr->dLinesInvalidated) {
1760     return;
1761     }
1762     }
1763    
1764     /*
1765     * Copy the pixmap onto the screen. If this is the last line on
1766     * the screen then copy a piece of the line, so that it doesn't
1767     * overflow into the border area. Another special trick: copy the
1768     * padding area to the left of the line; this is because the
1769     * insertion cursor sometimes overflows onto that area and we want
1770     * to get as much of the cursor as possible.
1771     */
1772    
1773     height = dlPtr->height;
1774     if ((height + dlPtr->y) > dInfoPtr->maxY) {
1775     height = dInfoPtr->maxY - dlPtr->y;
1776     }
1777     XCopyArea(display, pixmap, Tk_WindowId(textPtr->tkwin), dInfoPtr->copyGC,
1778     dInfoPtr->x, 0, (unsigned) (dInfoPtr->maxX - dInfoPtr->x),
1779     (unsigned) height, dInfoPtr->x, dlPtr->y);
1780     linesRedrawn++;
1781     }
1782    
1783     /*
1784     *--------------------------------------------------------------
1785     *
1786     * DisplayLineBackground --
1787     *
1788     * This procedure is called to fill in the background for
1789     * a display line. It draws 3D borders cleverly so that
1790     * adjacent chunks with the same style (whether on the same
1791     * line or different lines) have a single 3D border around
1792     * the whole region.
1793     *
1794     * Results:
1795     * There is no return value. Pixmap is filled in with background
1796     * information for dlPtr.
1797     *
1798     * Side effects:
1799     * None.
1800     *
1801     *--------------------------------------------------------------
1802     */
1803    
1804     static void
1805     DisplayLineBackground(textPtr, dlPtr, prevPtr, pixmap)
1806     TkText *textPtr; /* Text widget containing line. */
1807     register DLine *dlPtr; /* Information about line to draw. */
1808     DLine *prevPtr; /* Line just above dlPtr, or NULL if dlPtr
1809     * is the top-most line in the window. */
1810     Pixmap pixmap; /* Pixmap to use for double-buffering.
1811     * Caller must make sure it's large enough
1812     * to hold line. Caller must also have
1813     * filled it with the background color for
1814     * the widget. */
1815     {
1816     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
1817     TkTextDispChunk *chunkPtr; /* Pointer to chunk in the current line. */
1818     TkTextDispChunk *chunkPtr2; /* Pointer to chunk in the line above or
1819     * below the current one. NULL if we're to
1820     * the left of or to the right of the chunks
1821     * in the line. */
1822     TkTextDispChunk *nextPtr2; /* Next chunk after chunkPtr2 (it's not the
1823     * same as chunkPtr2->nextPtr in the case
1824     * where chunkPtr2 is NULL because the line
1825     * is indented). */
1826     int leftX; /* The left edge of the region we're
1827     * currently working on. */
1828     int leftXIn; /* 1 means beveled edge at leftX slopes right
1829     * as it goes down, 0 means it slopes left
1830     * as it goes down. */
1831     int rightX; /* Right edge of chunkPtr. */
1832     int rightX2; /* Right edge of chunkPtr2. */
1833     int matchLeft; /* Does the style of this line match that
1834     * of its neighbor just to the left of
1835     * the current x coordinate? */
1836     int matchRight; /* Does line's style match its neighbor
1837     * just to the right of the current x-coord? */
1838     int minX, maxX, xOffset;
1839     StyleValues *sValuePtr;
1840     Display *display;
1841    
1842    
1843     /*
1844     * Pass 1: scan through dlPtr from left to right. For each range of
1845     * chunks with the same style, draw the main background for the style
1846     * plus the vertical parts of the 3D borders (the left and right
1847     * edges).
1848     */
1849    
1850     display = Tk_Display(textPtr->tkwin);
1851     minX = dInfoPtr->curPixelOffset;
1852     xOffset = dInfoPtr->x - minX;
1853     maxX = minX + dInfoPtr->maxX - dInfoPtr->x;
1854     chunkPtr = dlPtr->chunkPtr;
1855    
1856     /*
1857     * Note A: in the following statement, and a few others later in
1858     * this file marked with "See Note A above", the right side of the
1859     * assignment was replaced with 0 on 6/18/97. This has the effect
1860     * of highlighting the empty space to the left of a line whenever
1861     * the leftmost character of the line is highlighted. This way,
1862     * multi-line highlights always line up along their left edges.
1863     * However, this may look funny in the case where a single word is
1864     * highlighted. To undo the change, replace "leftX = 0" with "leftX
1865     * = chunkPtr->x" and "rightX2 = 0" with "rightX2 = nextPtr2->x"
1866     * here and at all the marked points below. This restores the old
1867     * behavior where empty space to the left of a line is not
1868     * highlighted, leaving a ragged left edge for multi-line
1869     * highlights.
1870     */
1871    
1872     leftX = 0;
1873     for (; leftX < maxX; chunkPtr = chunkPtr->nextPtr) {
1874     if ((chunkPtr->nextPtr != NULL)
1875     && SAME_BACKGROUND(chunkPtr->nextPtr->stylePtr,
1876     chunkPtr->stylePtr)) {
1877     continue;
1878     }
1879     sValuePtr = chunkPtr->stylePtr->sValuePtr;
1880     rightX = chunkPtr->x + chunkPtr->width;
1881     if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
1882     rightX = maxX;
1883     }
1884     if (chunkPtr->stylePtr->bgGC != None) {
1885     XFillRectangle(display, pixmap, chunkPtr->stylePtr->bgGC,
1886     leftX + xOffset, 0, (unsigned int) (rightX - leftX),
1887     (unsigned int) dlPtr->height);
1888     if (sValuePtr->relief != TK_RELIEF_FLAT) {
1889     Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
1890     leftX + xOffset, 0, sValuePtr->borderWidth,
1891     dlPtr->height, 1, sValuePtr->relief);
1892     Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
1893     rightX - sValuePtr->borderWidth + xOffset,
1894     0, sValuePtr->borderWidth, dlPtr->height, 0,
1895     sValuePtr->relief);
1896     }
1897     }
1898     leftX = rightX;
1899     }
1900    
1901     /*
1902     * Pass 2: draw the horizontal bevels along the top of the line. To
1903     * do this, scan through dlPtr from left to right while simultaneously
1904     * scanning through the line just above dlPtr. ChunkPtr2 and nextPtr2
1905     * refer to two adjacent chunks in the line above.
1906     */
1907    
1908     chunkPtr = dlPtr->chunkPtr;
1909     leftX = 0; /* See Note A above. */
1910     leftXIn = 1;
1911     rightX = chunkPtr->x + chunkPtr->width;
1912     if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
1913     rightX = maxX;
1914     }
1915     chunkPtr2 = NULL;
1916     if (prevPtr != NULL && prevPtr->chunkPtr != NULL) {
1917     /*
1918     * Find the chunk in the previous line that covers leftX.
1919     */
1920    
1921     nextPtr2 = prevPtr->chunkPtr;
1922     rightX2 = 0; /* See Note A above. */
1923     while (rightX2 <= leftX) {
1924     chunkPtr2 = nextPtr2;
1925     if (chunkPtr2 == NULL) {
1926     break;
1927     }
1928     nextPtr2 = chunkPtr2->nextPtr;
1929     rightX2 = chunkPtr2->x + chunkPtr2->width;
1930     if (nextPtr2 == NULL) {
1931     rightX2 = INT_MAX;
1932     }
1933     }
1934     } else {
1935     nextPtr2 = NULL;
1936     rightX2 = INT_MAX;
1937     }
1938    
1939     while (leftX < maxX) {
1940     matchLeft = (chunkPtr2 != NULL)
1941     && SAME_BACKGROUND(chunkPtr2->stylePtr, chunkPtr->stylePtr);
1942     sValuePtr = chunkPtr->stylePtr->sValuePtr;
1943     if (rightX <= rightX2) {
1944     /*
1945     * The chunk in our line is about to end. If its style
1946     * changes then draw the bevel for the current style.
1947     */
1948    
1949     if ((chunkPtr->nextPtr == NULL)
1950     || !SAME_BACKGROUND(chunkPtr->stylePtr,
1951     chunkPtr->nextPtr->stylePtr)) {
1952     if (!matchLeft && (sValuePtr->relief != TK_RELIEF_FLAT)) {
1953     Tk_3DHorizontalBevel(textPtr->tkwin, pixmap,
1954     sValuePtr->border, leftX + xOffset, 0,
1955     rightX - leftX, sValuePtr->borderWidth, leftXIn,
1956     1, 1, sValuePtr->relief);
1957     }
1958     leftX = rightX;
1959     leftXIn = 1;
1960    
1961     /*
1962     * If the chunk in the line above is also ending at
1963     * the same point then advance to the next chunk in
1964     * that line.
1965     */
1966    
1967     if ((rightX == rightX2) && (chunkPtr2 != NULL)) {
1968     goto nextChunk2;
1969     }
1970     }
1971     chunkPtr = chunkPtr->nextPtr;
1972     if (chunkPtr == NULL) {
1973     break;
1974     }
1975     rightX = chunkPtr->x + chunkPtr->width;
1976     if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
1977     rightX = maxX;
1978     }
1979     continue;
1980     }
1981    
1982     /*
1983     * The chunk in the line above is ending at an x-position where
1984     * there is no change in the style of the current line. If the
1985     * style above matches the current line on one side of the change
1986     * but not on the other, we have to draw an L-shaped piece of
1987     * bevel.
1988     */
1989    
1990     matchRight = (nextPtr2 != NULL)
1991     && SAME_BACKGROUND(nextPtr2->stylePtr, chunkPtr->stylePtr);
1992     if (matchLeft && !matchRight) {
1993     if (sValuePtr->relief != TK_RELIEF_FLAT) {
1994     Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
1995     rightX2 - sValuePtr->borderWidth + xOffset, 0,
1996     sValuePtr->borderWidth, sValuePtr->borderWidth, 0,
1997     sValuePtr->relief);
1998     }
1999     leftX = rightX2 - sValuePtr->borderWidth;
2000     leftXIn = 0;
2001     } else if (!matchLeft && matchRight
2002     && (sValuePtr->relief != TK_RELIEF_FLAT)) {
2003     Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
2004     rightX2 + xOffset, 0, sValuePtr->borderWidth,
2005     sValuePtr->borderWidth, 1, sValuePtr->relief);
2006     Tk_3DHorizontalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
2007     leftX + xOffset, 0, rightX2 + sValuePtr->borderWidth -leftX,
2008     sValuePtr->borderWidth, leftXIn, 0, 1,
2009     sValuePtr->relief);
2010     }
2011    
2012     nextChunk2:
2013     chunkPtr2 = nextPtr2;
2014     if (chunkPtr2 == NULL) {
2015     rightX2 = INT_MAX;
2016     } else {
2017     nextPtr2 = chunkPtr2->nextPtr;
2018     rightX2 = chunkPtr2->x + chunkPtr2->width;
2019     if (nextPtr2 == NULL) {
2020     rightX2 = INT_MAX;
2021     }
2022     }
2023     }
2024     /*
2025     * Pass 3: draw the horizontal bevels along the bottom of the line.
2026     * This uses the same approach as pass 2.
2027     */
2028    
2029     chunkPtr = dlPtr->chunkPtr;
2030     leftX = 0; /* See Note A above. */
2031     leftXIn = 0;
2032     rightX = chunkPtr->x + chunkPtr->width;
2033     if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
2034     rightX = maxX;
2035     }
2036     chunkPtr2 = NULL;
2037     if (dlPtr->nextPtr != NULL && dlPtr->nextPtr->chunkPtr != NULL) {
2038     /*
2039     * Find the chunk in the previous line that covers leftX.
2040     */
2041    
2042     nextPtr2 = dlPtr->nextPtr->chunkPtr;
2043     rightX2 = 0; /* See Note A above. */
2044     while (rightX2 <= leftX) {
2045     chunkPtr2 = nextPtr2;
2046     if (chunkPtr2 == NULL) {
2047     break;
2048     }
2049     nextPtr2 = chunkPtr2->nextPtr;
2050     rightX2 = chunkPtr2->x + chunkPtr2->width;
2051     if (nextPtr2 == NULL) {
2052     rightX2 = INT_MAX;
2053     }
2054     }
2055     } else {
2056     nextPtr2 = NULL;
2057     rightX2 = INT_MAX;
2058     }
2059    
2060     while (leftX < maxX) {
2061     matchLeft = (chunkPtr2 != NULL)
2062     && SAME_BACKGROUND(chunkPtr2->stylePtr, chunkPtr->stylePtr);
2063     sValuePtr = chunkPtr->stylePtr->sValuePtr;
2064     if (rightX <= rightX2) {
2065     if ((chunkPtr->nextPtr == NULL)
2066     || !SAME_BACKGROUND(chunkPtr->stylePtr,
2067     chunkPtr->nextPtr->stylePtr)) {
2068     if (!matchLeft && (sValuePtr->relief != TK_RELIEF_FLAT)) {
2069     Tk_3DHorizontalBevel(textPtr->tkwin, pixmap,
2070     sValuePtr->border, leftX + xOffset,
2071     dlPtr->height - sValuePtr->borderWidth,
2072     rightX - leftX, sValuePtr->borderWidth, leftXIn,
2073     0, 0, sValuePtr->relief);
2074     }
2075     leftX = rightX;
2076     leftXIn = 0;
2077     if ((rightX == rightX2) && (chunkPtr2 != NULL)) {
2078     goto nextChunk2b;
2079     }
2080     }
2081     chunkPtr = chunkPtr->nextPtr;
2082     if (chunkPtr == NULL) {
2083     break;
2084     }
2085     rightX = chunkPtr->x + chunkPtr->width;
2086     if ((chunkPtr->nextPtr == NULL) && (rightX < maxX)) {
2087     rightX = maxX;
2088     }
2089     continue;
2090     }
2091    
2092     matchRight = (nextPtr2 != NULL)
2093     && SAME_BACKGROUND(nextPtr2->stylePtr, chunkPtr->stylePtr);
2094     if (matchLeft && !matchRight) {
2095     if (sValuePtr->relief != TK_RELIEF_FLAT) {
2096     Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
2097     rightX2 - sValuePtr->borderWidth + xOffset,
2098     dlPtr->height - sValuePtr->borderWidth,
2099     sValuePtr->borderWidth, sValuePtr->borderWidth, 0,
2100     sValuePtr->relief);
2101     }
2102     leftX = rightX2 - sValuePtr->borderWidth;
2103     leftXIn = 1;
2104     } else if (!matchLeft && matchRight
2105     && (sValuePtr->relief != TK_RELIEF_FLAT)) {
2106     Tk_3DVerticalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
2107     rightX2 + xOffset, dlPtr->height - sValuePtr->borderWidth,
2108     sValuePtr->borderWidth, sValuePtr->borderWidth,
2109     1, sValuePtr->relief);
2110     Tk_3DHorizontalBevel(textPtr->tkwin, pixmap, sValuePtr->border,
2111     leftX + xOffset, dlPtr->height - sValuePtr->borderWidth,
2112     rightX2 + sValuePtr->borderWidth - leftX,
2113     sValuePtr->borderWidth, leftXIn, 1, 0, sValuePtr->relief);
2114     }
2115    
2116     nextChunk2b:
2117     chunkPtr2 = nextPtr2;
2118     if (chunkPtr2 == NULL) {
2119     rightX2 = INT_MAX;
2120     } else {
2121     nextPtr2 = chunkPtr2->nextPtr;
2122     rightX2 = chunkPtr2->x + chunkPtr2->width;
2123     if (nextPtr2 == NULL) {
2124     rightX2 = INT_MAX;
2125     }
2126     }
2127     }
2128     }
2129    
2130     /*
2131     *----------------------------------------------------------------------
2132     *
2133     * DisplayText --
2134     *
2135     * This procedure is invoked as a when-idle handler to update the
2136     * display. It only redisplays the parts of the text widget that
2137     * are out of date.
2138     *
2139     * Results:
2140     * None.
2141     *
2142     * Side effects:
2143     * Information is redrawn on the screen.
2144     *
2145     *----------------------------------------------------------------------
2146     */
2147    
2148     static void
2149     DisplayText(clientData)
2150     ClientData clientData; /* Information about widget. */
2151     {
2152     register TkText *textPtr = (TkText *) clientData;
2153     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
2154     Tk_Window tkwin;
2155     register DLine *dlPtr;
2156     DLine *prevPtr;
2157     Pixmap pixmap;
2158     int maxHeight, borders;
2159     int bottomY = 0; /* Initialization needed only to stop
2160     * compiler warnings. */
2161     Tcl_Interp *interp;
2162    
2163     if (textPtr->tkwin == NULL) {
2164    
2165     /*
2166     * The widget has been deleted. Don't do anything.
2167     */
2168    
2169     return;
2170     }
2171    
2172     interp = textPtr->interp;
2173     Tcl_Preserve((ClientData) interp);
2174    
2175     if (tkTextDebug) {
2176     Tcl_SetVar2(interp, "tk_textRelayout", (char *) NULL, "",
2177     TCL_GLOBAL_ONLY);
2178     }
2179    
2180     if (textPtr->tkwin == NULL) {
2181    
2182     /*
2183     * The widget has been deleted. Don't do anything.
2184     */
2185    
2186     goto end;
2187     }
2188    
2189     if (!Tk_IsMapped(textPtr->tkwin) || (dInfoPtr->maxX <= dInfoPtr->x)
2190     || (dInfoPtr->maxY <= dInfoPtr->y)) {
2191     UpdateDisplayInfo(textPtr);
2192     dInfoPtr->flags &= ~REDRAW_PENDING;
2193     goto doScrollbars;
2194     }
2195     numRedisplays++;
2196     if (tkTextDebug) {
2197     Tcl_SetVar2(interp, "tk_textRedraw", (char *) NULL, "",
2198     TCL_GLOBAL_ONLY);
2199     }
2200    
2201     if (textPtr->tkwin == NULL) {
2202    
2203     /*
2204     * The widget has been deleted. Don't do anything.
2205     */
2206    
2207     goto end;
2208     }
2209    
2210     /*
2211     * Choose a new current item if that is needed (this could cause
2212     * event handlers to be invoked, hence the preserve/release calls
2213     * and the loop, since the handlers could conceivably necessitate
2214     * yet another current item calculation). The tkwin check is because
2215     * the whole window could go away in the Tcl_Release call.
2216     */
2217    
2218     while (dInfoPtr->flags & REPICK_NEEDED) {
2219     Tcl_Preserve((ClientData) textPtr);
2220     dInfoPtr->flags &= ~REPICK_NEEDED;
2221     TkTextPickCurrent(textPtr, &textPtr->pickEvent);
2222     tkwin = textPtr->tkwin;
2223     Tcl_Release((ClientData) textPtr);
2224     if (tkwin == NULL) {
2225     goto end;
2226     }
2227     }
2228    
2229     /*
2230     * First recompute what's supposed to be displayed.
2231     */
2232    
2233     UpdateDisplayInfo(textPtr);
2234     dInfoPtr->dLinesInvalidated = 0;
2235    
2236     /*
2237     * See if it's possible to bring some parts of the screen up-to-date
2238     * by scrolling (copying from other parts of the screen).
2239     */
2240    
2241     for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL; dlPtr = dlPtr->nextPtr) {
2242     register DLine *dlPtr2;
2243     int offset, height, y, oldY;
2244     TkRegion damageRgn;
2245    
2246     if ((dlPtr->oldY == -1) || (dlPtr->y == dlPtr->oldY)
2247     || ((dlPtr->oldY + dlPtr->height) > dInfoPtr->maxY)) {
2248     continue;
2249     }
2250    
2251     /*
2252     * This line is already drawn somewhere in the window so it only
2253     * needs to be copied to its new location. See if there's a group
2254     * of lines that can all be copied together.
2255     */
2256    
2257     offset = dlPtr->y - dlPtr->oldY;
2258     height = dlPtr->height;
2259     y = dlPtr->y;
2260     for (dlPtr2 = dlPtr->nextPtr; dlPtr2 != NULL;
2261     dlPtr2 = dlPtr2->nextPtr) {
2262     if ((dlPtr2->oldY == -1)
2263     || ((dlPtr2->oldY + offset) != dlPtr2->y)
2264     || ((dlPtr2->oldY + dlPtr2->height) > dInfoPtr->maxY)) {
2265     break;
2266     }
2267     height += dlPtr2->height;
2268     }
2269    
2270     /*
2271     * Reduce the height of the area being copied if necessary to
2272     * avoid overwriting the border area.
2273     */
2274    
2275     if ((y + height) > dInfoPtr->maxY) {
2276     height = dInfoPtr->maxY -y;
2277     }
2278     oldY = dlPtr->oldY;
2279    
2280     /*
2281     * Update the lines we are going to scroll to show that they
2282     * have been copied.
2283     */
2284    
2285     while (1) {
2286     dlPtr->oldY = dlPtr->y;
2287     if (dlPtr->nextPtr == dlPtr2) {
2288     break;
2289     }
2290     dlPtr = dlPtr->nextPtr;
2291     }
2292    
2293     /*
2294     * Scan through the lines following the copied ones to see if
2295     * we are going to overwrite them with the copy operation.
2296     * If so, mark them for redisplay.
2297     */
2298    
2299     for ( ; dlPtr2 != NULL; dlPtr2 = dlPtr2->nextPtr) {
2300     if ((dlPtr2->oldY != -1)
2301     && ((dlPtr2->oldY + dlPtr2->height) > y)
2302     && (dlPtr2->oldY < (y + height))) {
2303     dlPtr2->oldY = -1;
2304     }
2305     }
2306    
2307     /*
2308     * Now scroll the lines. This may generate damage which we
2309     * handle by calling TextInvalidateRegion to mark the display
2310     * blocks as stale.
2311     */
2312    
2313     damageRgn = TkCreateRegion();
2314     if (TkScrollWindow(textPtr->tkwin, dInfoPtr->scrollGC,
2315     dInfoPtr->x, oldY,
2316     (dInfoPtr->maxX - dInfoPtr->x), height,
2317     0, y - oldY, damageRgn)) {
2318     TextInvalidateRegion(textPtr, damageRgn);
2319     }
2320     numCopies++;
2321     TkDestroyRegion(damageRgn);
2322     }
2323    
2324     /*
2325     * Clear the REDRAW_PENDING flag here. This is actually pretty
2326     * tricky. We want to wait until *after* doing the scrolling,
2327     * since that could generate more areas to redraw and don't
2328     * want to reschedule a redisplay for them. On the other hand,
2329     * we can't wait until after all the redisplaying, because the
2330     * act of redisplaying could actually generate more redisplays
2331     * (e.g. in the case of a nested window with event bindings triggered
2332     * by redisplay).
2333     */
2334    
2335     dInfoPtr->flags &= ~REDRAW_PENDING;
2336    
2337     /*
2338     * Redraw the borders if that's needed.
2339     */
2340    
2341     if (dInfoPtr->flags & REDRAW_BORDERS) {
2342     if (tkTextDebug) {
2343     Tcl_SetVar2(interp, "tk_textRedraw", (char *) NULL, "borders",
2344     TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
2345     }
2346    
2347     if (textPtr->tkwin == NULL) {
2348    
2349     /*
2350     * The widget has been deleted. Don't do anything.
2351     */
2352    
2353     goto end;
2354     }
2355    
2356     Tk_Draw3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
2357     textPtr->border, textPtr->highlightWidth,
2358     textPtr->highlightWidth,
2359     Tk_Width(textPtr->tkwin) - 2*textPtr->highlightWidth,
2360     Tk_Height(textPtr->tkwin) - 2*textPtr->highlightWidth,
2361     textPtr->borderWidth, textPtr->relief);
2362     if (textPtr->highlightWidth != 0) {
2363     GC fgGC, bgGC;
2364    
2365     bgGC = Tk_GCForColor(textPtr->highlightBgColorPtr,
2366     Tk_WindowId(textPtr->tkwin));
2367     if (textPtr->flags & GOT_FOCUS) {
2368     fgGC = Tk_GCForColor(textPtr->highlightColorPtr,
2369     Tk_WindowId(textPtr->tkwin));
2370     TkpDrawHighlightBorder(textPtr->tkwin, fgGC, bgGC,
2371     textPtr->highlightWidth, Tk_WindowId(textPtr->tkwin));
2372     } else {
2373     TkpDrawHighlightBorder(textPtr->tkwin, bgGC, bgGC,
2374     textPtr->highlightWidth, Tk_WindowId(textPtr->tkwin));
2375     }
2376     }
2377     borders = textPtr->borderWidth + textPtr->highlightWidth;
2378     if (textPtr->padY > 0) {
2379     Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
2380     textPtr->border, borders, borders,
2381     Tk_Width(textPtr->tkwin) - 2*borders, textPtr->padY,
2382     0, TK_RELIEF_FLAT);
2383     Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
2384     textPtr->border, borders,
2385     Tk_Height(textPtr->tkwin) - borders - textPtr->padY,
2386     Tk_Width(textPtr->tkwin) - 2*borders,
2387     textPtr->padY, 0, TK_RELIEF_FLAT);
2388     }
2389     if (textPtr->padX > 0) {
2390     Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
2391     textPtr->border, borders, borders + textPtr->padY,
2392     textPtr->padX,
2393     Tk_Height(textPtr->tkwin) - 2*borders -2*textPtr->padY,
2394     0, TK_RELIEF_FLAT);
2395     Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
2396     textPtr->border,
2397     Tk_Width(textPtr->tkwin) - borders - textPtr->padX,
2398     borders + textPtr->padY, textPtr->padX,
2399     Tk_Height(textPtr->tkwin) - 2*borders -2*textPtr->padY,
2400     0, TK_RELIEF_FLAT);
2401     }
2402     dInfoPtr->flags &= ~REDRAW_BORDERS;
2403     }
2404    
2405     /*
2406     * Now we have to redraw the lines that couldn't be updated by
2407     * scrolling. First, compute the height of the largest line and
2408     * allocate an off-screen pixmap to use for double-buffered
2409     * displays.
2410     */
2411    
2412     maxHeight = -1;
2413     for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
2414     dlPtr = dlPtr->nextPtr) {
2415     if ((dlPtr->height > maxHeight) && (dlPtr->oldY != dlPtr->y)) {
2416     maxHeight = dlPtr->height;
2417     }
2418     bottomY = dlPtr->y + dlPtr->height;
2419     }
2420     if (maxHeight > dInfoPtr->maxY) {
2421     maxHeight = dInfoPtr->maxY;
2422     }
2423     if (maxHeight > 0) {
2424     pixmap = Tk_GetPixmap(Tk_Display(textPtr->tkwin),
2425     Tk_WindowId(textPtr->tkwin), Tk_Width(textPtr->tkwin),
2426     maxHeight, Tk_Depth(textPtr->tkwin));
2427     for (prevPtr = NULL, dlPtr = textPtr->dInfoPtr->dLinePtr;
2428     (dlPtr != NULL) && (dlPtr->y < dInfoPtr->maxY);
2429     prevPtr = dlPtr, dlPtr = dlPtr->nextPtr) {
2430     if (dlPtr->chunkPtr == NULL) continue;
2431     if (dlPtr->oldY != dlPtr->y) {
2432     if (tkTextDebug) {
2433     char string[TK_POS_CHARS];
2434     TkTextPrintIndex(&dlPtr->index, string);
2435     Tcl_SetVar2(textPtr->interp, "tk_textRedraw",
2436     (char *) NULL, string,
2437     TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
2438     }
2439     DisplayDLine(textPtr, dlPtr, prevPtr, pixmap);
2440     if (dInfoPtr->dLinesInvalidated) {
2441     Tk_FreePixmap(Tk_Display(textPtr->tkwin), pixmap);
2442     return;
2443     }
2444     dlPtr->oldY = dlPtr->y;
2445     dlPtr->flags &= ~NEW_LAYOUT;
2446     }
2447     /*prevPtr = dlPtr;*/
2448     }
2449     Tk_FreePixmap(Tk_Display(textPtr->tkwin), pixmap);
2450     }
2451    
2452     /*
2453     * See if we need to refresh the part of the window below the
2454     * last line of text (if there is any such area). Refresh the
2455     * padding area on the left too, since the insertion cursor might
2456     * have been displayed there previously).
2457     */
2458    
2459     if (dInfoPtr->topOfEof > dInfoPtr->maxY) {
2460     dInfoPtr->topOfEof = dInfoPtr->maxY;
2461     }
2462     if (bottomY < dInfoPtr->topOfEof) {
2463     if (tkTextDebug) {
2464     Tcl_SetVar2(textPtr->interp, "tk_textRedraw",
2465     (char *) NULL, "eof",
2466     TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
2467     }
2468    
2469     if (textPtr->tkwin == NULL) {
2470    
2471     /*
2472     * The widget has been deleted. Don't do anything.
2473     */
2474    
2475     goto end;
2476     }
2477    
2478     Tk_Fill3DRectangle(textPtr->tkwin, Tk_WindowId(textPtr->tkwin),
2479     textPtr->border, dInfoPtr->x - textPtr->padX, bottomY,
2480     dInfoPtr->maxX - (dInfoPtr->x - textPtr->padX),
2481     dInfoPtr->topOfEof-bottomY, 0, TK_RELIEF_FLAT);
2482     }
2483     dInfoPtr->topOfEof = bottomY;
2484    
2485     doScrollbars:
2486    
2487     /*
2488     * Update the vertical scrollbar, if there is one. Note: it's
2489     * important to clear REDRAW_PENDING here, just in case the
2490     * scroll procedure does something that requires redisplay.
2491     */
2492    
2493     if (textPtr->flags & UPDATE_SCROLLBARS) {
2494     textPtr->flags &= ~UPDATE_SCROLLBARS;
2495     if (textPtr->yScrollCmd != NULL) {
2496     GetYView(textPtr->interp, textPtr, 1);
2497     }
2498    
2499     if (textPtr->tkwin == NULL) {
2500    
2501     /*
2502     * The widget has been deleted. Don't do anything.
2503     */
2504    
2505     goto end;
2506     }
2507    
2508     /*
2509     * Update the horizontal scrollbar, if any.
2510     */
2511    
2512     if (textPtr->xScrollCmd != NULL) {
2513     GetXView(textPtr->interp, textPtr, 1);
2514     }
2515     }
2516    
2517     end:
2518     Tcl_Release((ClientData) interp);
2519     }
2520    
2521     /*
2522     *----------------------------------------------------------------------
2523     *
2524     * TkTextEventuallyRepick --
2525     *
2526     * This procedure is invoked whenever something happens that
2527     * could change the current character or the tags associated
2528     * with it.
2529     *
2530     * Results:
2531     * None.
2532     *
2533     * Side effects:
2534     * A repick is scheduled as an idle handler.
2535     *
2536     *----------------------------------------------------------------------
2537     */
2538    
2539     /* ARGSUSED */
2540     void
2541     TkTextEventuallyRepick(textPtr)
2542     TkText *textPtr; /* Widget record for text widget. */
2543     {
2544     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
2545    
2546     dInfoPtr->flags |= REPICK_NEEDED;
2547     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
2548     dInfoPtr->flags |= REDRAW_PENDING;
2549     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
2550     }
2551     }
2552    
2553     /*
2554     *----------------------------------------------------------------------
2555     *
2556     * TkTextRedrawRegion --
2557     *
2558     * This procedure is invoked to schedule a redisplay for a given
2559     * region of a text widget. The redisplay itself may not occur
2560     * immediately: it's scheduled as a when-idle handler.
2561     *
2562     * Results:
2563     * None.
2564     *
2565     * Side effects:
2566     * Information will eventually be redrawn on the screen.
2567     *
2568     *----------------------------------------------------------------------
2569     */
2570    
2571     /* ARGSUSED */
2572     void
2573     TkTextRedrawRegion(textPtr, x, y, width, height)
2574     TkText *textPtr; /* Widget record for text widget. */
2575     int x, y; /* Coordinates of upper-left corner of area
2576     * to be redrawn, in pixels relative to
2577     * textPtr's window. */
2578     int width, height; /* Width and height of area to be redrawn. */
2579     {
2580     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
2581     TkRegion damageRgn = TkCreateRegion();
2582     XRectangle rect;
2583    
2584     rect.x = x;
2585     rect.y = y;
2586     rect.width = width;
2587     rect.height = height;
2588     TkUnionRectWithRegion(&rect, damageRgn, damageRgn);
2589    
2590     TextInvalidateRegion(textPtr, damageRgn);
2591    
2592     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
2593     dInfoPtr->flags |= REDRAW_PENDING;
2594     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
2595     }
2596     TkDestroyRegion(damageRgn);
2597     }
2598    
2599     /*
2600     *----------------------------------------------------------------------
2601     *
2602     * TextInvalidateRegion --
2603     *
2604     * Mark a region of text as invalid.
2605     *
2606     * Results:
2607     * None.
2608     *
2609     * Side effects:
2610     * Updates the display information for the text widget.
2611     *
2612     *----------------------------------------------------------------------
2613     */
2614    
2615     static void
2616     TextInvalidateRegion(textPtr, region)
2617     TkText *textPtr; /* Widget record for text widget. */
2618     TkRegion region; /* Region of area to redraw. */
2619     {
2620     register DLine *dlPtr;
2621     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
2622     int maxY, inset;
2623     XRectangle rect;
2624    
2625     /*
2626     * Find all lines that overlap the given region and mark them for
2627     * redisplay.
2628     */
2629    
2630     TkClipBox(region, &rect);
2631     maxY = rect.y + rect.height;
2632     for (dlPtr = dInfoPtr->dLinePtr; dlPtr != NULL;
2633     dlPtr = dlPtr->nextPtr) {
2634     if ((dlPtr->oldY != -1) && (TkRectInRegion(region, rect.x, dlPtr->y,
2635     rect.width, (unsigned int) dlPtr->height) != RectangleOut)) {
2636     dlPtr->oldY = -1;
2637     }
2638     }
2639     if (dInfoPtr->topOfEof < maxY) {
2640     dInfoPtr->topOfEof = maxY;
2641     }
2642    
2643     /*
2644     * Schedule the redisplay operation if there isn't one already
2645     * scheduled.
2646     */
2647    
2648     inset = textPtr->borderWidth + textPtr->highlightWidth;
2649     if ((rect.x < (inset + textPtr->padX))
2650     || (rect.y < (inset + textPtr->padY))
2651     || ((int) (rect.x + rect.width) > (Tk_Width(textPtr->tkwin)
2652     - inset - textPtr->padX))
2653     || (maxY > (Tk_Height(textPtr->tkwin) - inset - textPtr->padY))) {
2654     dInfoPtr->flags |= REDRAW_BORDERS;
2655     }
2656     }
2657    
2658     /*
2659     *----------------------------------------------------------------------
2660     *
2661     * TkTextChanged --
2662     *
2663     * This procedure is invoked when info in a text widget is about
2664     * to be modified in a way that changes how it is displayed (e.g.
2665     * characters were inserted or deleted, or tag information was
2666     * changed). This procedure must be called *before* a change is
2667     * made, so that indexes in the display information are still
2668     * valid.
2669     *
2670     * Results:
2671     * None.
2672     *
2673     * Side effects:
2674     * The range of character between index1Ptr (inclusive) and
2675     * index2Ptr (exclusive) will be redisplayed at some point in the
2676     * future (the actual redisplay is scheduled as a when-idle handler).
2677     *
2678     *----------------------------------------------------------------------
2679     */
2680    
2681     void
2682     TkTextChanged(textPtr, index1Ptr, index2Ptr)
2683     TkText *textPtr; /* Widget record for text widget. */
2684     TkTextIndex *index1Ptr; /* Index of first character to redisplay. */
2685     TkTextIndex *index2Ptr; /* Index of character just after last one
2686     * to redisplay. */
2687     {
2688     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
2689     DLine *firstPtr, *lastPtr;
2690     TkTextIndex rounded;
2691    
2692     /*
2693     * Schedule both a redisplay and a recomputation of display information.
2694     * It's done here rather than the end of the procedure for two reasons:
2695     *
2696     * 1. If there are no display lines to update we'll want to return
2697     * immediately, well before the end of the procedure.
2698     * 2. It's important to arrange for the redisplay BEFORE calling
2699     * FreeDLines. The reason for this is subtle and has to do with
2700     * embedded windows. The chunk delete procedure for an embedded
2701     * window will schedule an idle handler to unmap the window.
2702     * However, we want the idle handler for redisplay to be called
2703     * first, so that it can put the embedded window back on the screen
2704     * again (if appropriate). This will prevent the window from ever
2705     * being unmapped, and thereby avoid flashing.
2706     */
2707    
2708     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
2709     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
2710     }
2711     dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
2712    
2713     /*
2714     * Find the DLines corresponding to index1Ptr and index2Ptr. There
2715     * is one tricky thing here, which is that we have to relayout in
2716     * units of whole text lines: round index1Ptr back to the beginning
2717     * of its text line, and include all the display lines after index2,
2718     * up to the end of its text line. This is necessary because the
2719     * indices stored in the display lines will no longer be valid. It's
2720     * also needed because any edit could change the way lines wrap.
2721     */
2722    
2723     rounded = *index1Ptr;
2724     rounded.byteIndex = 0;
2725     firstPtr = FindDLine(dInfoPtr->dLinePtr, &rounded);
2726     if (firstPtr == NULL) {
2727     return;
2728     }
2729     lastPtr = FindDLine(dInfoPtr->dLinePtr, index2Ptr);
2730     while ((lastPtr != NULL)
2731     && (lastPtr->index.linePtr == index2Ptr->linePtr)) {
2732     lastPtr = lastPtr->nextPtr;
2733     }
2734    
2735     /*
2736     * Delete all the DLines from firstPtr up to but not including lastPtr.
2737     */
2738    
2739     FreeDLines(textPtr, firstPtr, lastPtr, 1);
2740     }
2741    
2742     /*
2743     *----------------------------------------------------------------------
2744     *
2745     * TkTextRedrawTag --
2746     *
2747     * This procedure is invoked to request a redraw of all characters
2748     * in a given range that have a particular tag on or off. It's
2749     * called, for example, when tag options change.
2750     *
2751     * Results:
2752     * None.
2753     *
2754     * Side effects:
2755     * Information on the screen may be redrawn, and the layout of
2756     * the screen may change.
2757     *
2758     *----------------------------------------------------------------------
2759     */
2760    
2761     void
2762     TkTextRedrawTag(textPtr, index1Ptr, index2Ptr, tagPtr, withTag)
2763     TkText *textPtr; /* Widget record for text widget. */
2764     TkTextIndex *index1Ptr; /* First character in range to consider
2765     * for redisplay. NULL means start at
2766     * beginning of text. */
2767     TkTextIndex *index2Ptr; /* Character just after last one to consider
2768     * for redisplay. NULL means process all
2769     * the characters in the text. */
2770     TkTextTag *tagPtr; /* Information about tag. */
2771     int withTag; /* 1 means redraw characters that have the
2772     * tag, 0 means redraw those without. */
2773     {
2774     register DLine *dlPtr;
2775     DLine *endPtr;
2776     int tagOn;
2777     TkTextSearch search;
2778     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
2779     TkTextIndex *curIndexPtr;
2780     TkTextIndex endOfText, *endIndexPtr;
2781    
2782     /*
2783     * Round up the starting position if it's before the first line
2784     * visible on the screen (we only care about what's on the screen).
2785     */
2786    
2787     dlPtr = dInfoPtr->dLinePtr;
2788     if (dlPtr == NULL) {
2789     return;
2790     }
2791     if ((index1Ptr == NULL) || (TkTextIndexCmp(&dlPtr->index, index1Ptr) > 0)) {
2792     index1Ptr = &dlPtr->index;
2793     }
2794    
2795     /*
2796     * Set the stopping position if it wasn't specified.
2797     */
2798    
2799     if (index2Ptr == NULL) {
2800     index2Ptr = TkTextMakeByteIndex(textPtr->tree,
2801     TkBTreeNumLines(textPtr->tree), 0, &endOfText);
2802     }
2803    
2804     /*
2805     * Initialize a search through all transitions on the tag, starting
2806     * with the first transition where the tag's current state is different
2807     * from what it will eventually be.
2808     */
2809    
2810     TkBTreeStartSearch(index1Ptr, index2Ptr, tagPtr, &search);
2811     /*
2812     * Make our own curIndex because at this point search.curIndex
2813     * may not equal index1Ptr->curIndex in the case the first tag toggle
2814     * comes after index1Ptr (See the use of FindTagStart in TkBTreeStartSearch)
2815     */
2816     curIndexPtr = index1Ptr;
2817     tagOn = TkBTreeCharTagged(index1Ptr, tagPtr);
2818     if (tagOn != withTag) {
2819     if (!TkBTreeNextTag(&search)) {
2820     return;
2821     }
2822     curIndexPtr = &search.curIndex;
2823     }
2824    
2825     /*
2826     * Schedule a redisplay and layout recalculation if they aren't
2827     * already pending. This has to be done before calling FreeDLines,
2828     * for the reason given in TkTextChanged.
2829     */
2830    
2831     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
2832     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
2833     }
2834     dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
2835    
2836     /*
2837     * Each loop through the loop below is for one range of characters
2838     * where the tag's current state is different than its eventual
2839     * state. At the top of the loop, search contains information about
2840     * the first character in the range.
2841     */
2842    
2843     while (1) {
2844     /*
2845     * Find the first DLine structure in the range. Note: if the
2846     * desired character isn't the first in its text line, then look
2847     * for the character just before it instead. This is needed to
2848     * handle the case where the first character of a wrapped
2849     * display line just got smaller, so that it now fits on the
2850     * line before: need to relayout the line containing the
2851     * previous character.
2852     */
2853    
2854     if (curIndexPtr->byteIndex == 0) {
2855     dlPtr = FindDLine(dlPtr, curIndexPtr);
2856     } else {
2857     TkTextIndex tmp;
2858    
2859     tmp = *curIndexPtr;
2860     tmp.byteIndex -= 1;
2861     dlPtr = FindDLine(dlPtr, &tmp);
2862     }
2863     if (dlPtr == NULL) {
2864     break;
2865     }
2866    
2867     /*
2868     * Find the first DLine structure that's past the end of the range.
2869     */
2870    
2871     if (!TkBTreeNextTag(&search)) {
2872     endIndexPtr = index2Ptr;
2873     } else {
2874     curIndexPtr = &search.curIndex;
2875     endIndexPtr = curIndexPtr;
2876     }
2877     endPtr = FindDLine(dlPtr, endIndexPtr);
2878     if ((endPtr != NULL) && (endPtr->index.linePtr == endIndexPtr->linePtr)
2879     && (endPtr->index.byteIndex < endIndexPtr->byteIndex)) {
2880     endPtr = endPtr->nextPtr;
2881     }
2882    
2883     /*
2884     * Delete all of the display lines in the range, so that they'll
2885     * be re-layed out and redrawn.
2886     */
2887    
2888     FreeDLines(textPtr, dlPtr, endPtr, 1);
2889     dlPtr = endPtr;
2890    
2891     /*
2892     * Find the first text line in the next range.
2893     */
2894    
2895     if (!TkBTreeNextTag(&search)) {
2896     break;
2897     }
2898     }
2899     }
2900    
2901     /*
2902     *----------------------------------------------------------------------
2903     *
2904     * TkTextRelayoutWindow --
2905     *
2906     * This procedure is called when something has happened that
2907     * invalidates the whole layout of characters on the screen, such
2908     * as a change in a configuration option for the overall text
2909     * widget or a change in the window size. It causes all display
2910     * information to be recomputed and the window to be redrawn.
2911     *
2912     * Results:
2913     * None.
2914     *
2915     * Side effects:
2916     * All the display information will be recomputed for the window
2917     * and the window will be redrawn.
2918     *
2919     *----------------------------------------------------------------------
2920     */
2921    
2922     void
2923     TkTextRelayoutWindow(textPtr)
2924     TkText *textPtr; /* Widget record for text widget. */
2925     {
2926     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
2927     GC new;
2928     XGCValues gcValues;
2929    
2930     /*
2931     * Schedule the window redisplay. See TkTextChanged for the
2932     * reason why this has to be done before any calls to FreeDLines.
2933     */
2934    
2935     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
2936     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
2937     }
2938     dInfoPtr->flags |= REDRAW_PENDING|REDRAW_BORDERS|DINFO_OUT_OF_DATE
2939     |REPICK_NEEDED;
2940    
2941     /*
2942     * (Re-)create the graphics context for drawing the traversal
2943     * highlight.
2944     */
2945    
2946     gcValues.graphics_exposures = False;
2947     new = Tk_GetGC(textPtr->tkwin, GCGraphicsExposures, &gcValues);
2948     if (dInfoPtr->copyGC != None) {
2949     Tk_FreeGC(textPtr->display, dInfoPtr->copyGC);
2950     }
2951     dInfoPtr->copyGC = new;
2952    
2953     /*
2954     * Throw away all the current layout information.
2955     */
2956    
2957     FreeDLines(textPtr, dInfoPtr->dLinePtr, (DLine *) NULL, 1);
2958     dInfoPtr->dLinePtr = NULL;
2959    
2960     /*
2961     * Recompute some overall things for the layout. Even if the
2962     * window gets very small, pretend that there's at least one
2963     * pixel of drawing space in it.
2964     */
2965    
2966     if (textPtr->highlightWidth < 0) {
2967     textPtr->highlightWidth = 0;
2968     }
2969     dInfoPtr->x = textPtr->highlightWidth + textPtr->borderWidth
2970     + textPtr->padX;
2971     dInfoPtr->y = textPtr->highlightWidth + textPtr->borderWidth
2972     + textPtr->padY;
2973     dInfoPtr->maxX = Tk_Width(textPtr->tkwin) - textPtr->highlightWidth
2974     - textPtr->borderWidth - textPtr->padX;
2975     if (dInfoPtr->maxX <= dInfoPtr->x) {
2976     dInfoPtr->maxX = dInfoPtr->x + 1;
2977     }
2978     dInfoPtr->maxY = Tk_Height(textPtr->tkwin) - textPtr->highlightWidth
2979     - textPtr->borderWidth - textPtr->padY;
2980     if (dInfoPtr->maxY <= dInfoPtr->y) {
2981     dInfoPtr->maxY = dInfoPtr->y + 1;
2982     }
2983     dInfoPtr->topOfEof = dInfoPtr->maxY;
2984    
2985     /*
2986     * If the upper-left character isn't the first in a line, recompute
2987     * it. This is necessary because a change in the window's size
2988     * or options could change the way lines wrap.
2989     */
2990    
2991     if (textPtr->topIndex.byteIndex != 0) {
2992     MeasureUp(textPtr, &textPtr->topIndex, 0, &textPtr->topIndex);
2993     }
2994    
2995     /*
2996     * Invalidate cached scrollbar positions, so that scrollbars
2997     * sliders will be udpated.
2998     */
2999    
3000     dInfoPtr->xScrollFirst = dInfoPtr->xScrollLast = -1;
3001     dInfoPtr->yScrollFirst = dInfoPtr->yScrollLast = -1;
3002     }
3003    
3004     /*
3005     *----------------------------------------------------------------------
3006     *
3007     * TkTextSetYView --
3008     *
3009     * This procedure is called to specify what lines are to be
3010     * displayed in a text widget.
3011     *
3012     * Results:
3013     * None.
3014     *
3015     * Side effects:
3016     * The display will (eventually) be updated so that the position
3017     * given by "indexPtr" is visible on the screen at the position
3018     * determined by "pickPlace".
3019     *
3020     *----------------------------------------------------------------------
3021     */
3022    
3023     void
3024     TkTextSetYView(textPtr, indexPtr, pickPlace)
3025     TkText *textPtr; /* Widget record for text widget. */
3026     TkTextIndex *indexPtr; /* Position that is to appear somewhere
3027     * in the view. */
3028     int pickPlace; /* 0 means topLine must appear at top of
3029     * screen. 1 means we get to pick where it
3030     * appears: minimize screen motion or else
3031     * display line at center of screen. */
3032     {
3033     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
3034     register DLine *dlPtr;
3035     int bottomY, close, lineIndex;
3036     TkTextIndex tmpIndex, rounded;
3037     Tk_FontMetrics fm;
3038    
3039     /*
3040     * If the specified position is the extra line at the end of the
3041     * text, round it back to the last real line.
3042     */
3043    
3044     lineIndex = TkBTreeLineIndex(indexPtr->linePtr);
3045     if (lineIndex == TkBTreeNumLines(indexPtr->tree)) {
3046     TkTextIndexBackChars(indexPtr, 1, &rounded);
3047     indexPtr = &rounded;
3048     }
3049    
3050     if (!pickPlace) {
3051     /*
3052     * The specified position must go at the top of the screen.
3053     * Just leave all the DLine's alone: we may be able to reuse
3054     * some of the information that's currently on the screen
3055     * without redisplaying it all.
3056     */
3057    
3058     if (indexPtr->byteIndex == 0) {
3059     textPtr->topIndex = *indexPtr;
3060     } else {
3061     MeasureUp(textPtr, indexPtr, 0, &textPtr->topIndex);
3062     }
3063     goto scheduleUpdate;
3064     }
3065    
3066     /*
3067     * We have to pick where to display the index. First, bring
3068     * the display information up to date and see if the index will be
3069     * completely visible in the current screen configuration. If so
3070     * then there's nothing to do.
3071     */
3072    
3073     if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
3074     UpdateDisplayInfo(textPtr);
3075     }
3076     dlPtr = FindDLine(dInfoPtr->dLinePtr, indexPtr);
3077     if (dlPtr != NULL) {
3078     if ((dlPtr->y + dlPtr->height) > dInfoPtr->maxY) {
3079     /*
3080     * Part of the line hangs off the bottom of the screen;
3081     * pretend the whole line is off-screen.
3082     */
3083    
3084     dlPtr = NULL;
3085     } else if ((dlPtr->index.linePtr == indexPtr->linePtr)
3086     && (dlPtr->index.byteIndex <= indexPtr->byteIndex)) {
3087     return;
3088     }
3089     }
3090    
3091     /*
3092     * The desired line isn't already on-screen. Figure out what
3093     * it means to be "close" to the top or bottom of the screen.
3094     * Close means within 1/3 of the screen height or within three
3095     * lines, whichever is greater. Add one extra line also, to
3096     * account for the way MeasureUp rounds.
3097     */
3098    
3099     Tk_GetFontMetrics(textPtr->tkfont, &fm);
3100     bottomY = (dInfoPtr->y + dInfoPtr->maxY + fm.linespace)/2;
3101     close = (dInfoPtr->maxY - dInfoPtr->y)/3;
3102     if (close < 3*fm.linespace) {
3103     close = 3*fm.linespace;
3104     }
3105     close += fm.linespace;
3106     if (dlPtr != NULL) {
3107     /*
3108     * The desired line is above the top of screen. If it is
3109     * "close" to the top of the window then make it the top
3110     * line on the screen.
3111     */
3112    
3113     MeasureUp(textPtr, &textPtr->topIndex, close, &tmpIndex);
3114     if (TkTextIndexCmp(&tmpIndex, indexPtr) <= 0) {
3115     MeasureUp(textPtr, indexPtr, 0, &textPtr->topIndex);
3116     goto scheduleUpdate;
3117     }
3118     } else {
3119     /*
3120     * The desired line is below the bottom of the screen. If it is
3121     * "close" to the bottom of the screen then position it at the
3122     * bottom of the screen.
3123     */
3124    
3125     MeasureUp(textPtr, indexPtr, close, &tmpIndex);
3126     if (FindDLine(dInfoPtr->dLinePtr, &tmpIndex) != NULL) {
3127     bottomY = dInfoPtr->maxY - dInfoPtr->y;
3128     }
3129     }
3130    
3131     /*
3132     * Our job now is to arrange the display so that indexPtr appears
3133     * as low on the screen as possible but with its bottom no lower
3134     * than bottomY. BottomY is the bottom of the window if the
3135     * desired line is just below the current screen, otherwise it
3136     * is a half-line lower than the center of the window.
3137     */
3138    
3139     MeasureUp(textPtr, indexPtr, bottomY, &textPtr->topIndex);
3140    
3141     scheduleUpdate:
3142     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
3143     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
3144     }
3145     dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
3146     }
3147    
3148     /*
3149     *--------------------------------------------------------------
3150     *
3151     * MeasureUp --
3152     *
3153     * Given one index, find the index of the first character
3154     * on the highest display line that would be displayed no more
3155     * than "distance" pixels above the given index.
3156     *
3157     * Results:
3158     * *dstPtr is filled in with the index of the first character
3159     * on a display line. The display line is found by measuring
3160     * up "distance" pixels above the pixel just below an imaginary
3161     * display line that contains srcPtr. If the display line
3162     * that covers this coordinate actually extends above the
3163     * coordinate, then return the index of the next lower line
3164     * instead (i.e. the returned index will be completely visible
3165     * at or below the given y-coordinate).
3166     *
3167     * Side effects:
3168     * None.
3169     *
3170     *--------------------------------------------------------------
3171     */
3172    
3173     static void
3174     MeasureUp(textPtr, srcPtr, distance, dstPtr)
3175     TkText *textPtr; /* Text widget in which to measure. */
3176     TkTextIndex *srcPtr; /* Index of character from which to start
3177     * measuring. */
3178     int distance; /* Vertical distance in pixels measured
3179     * from the pixel just below the lowest
3180     * one in srcPtr's line. */
3181     TkTextIndex *dstPtr; /* Index to fill in with result. */
3182     {
3183     int lineNum; /* Number of current line. */
3184     int bytesToCount; /* Maximum number of bytes to measure in
3185     * current line. */
3186     TkTextIndex bestIndex; /* Best candidate seen so far for result. */
3187     TkTextIndex index;
3188     DLine *dlPtr, *lowestPtr;
3189     int noBestYet; /* 1 means bestIndex hasn't been set. */
3190    
3191     noBestYet = 1;
3192     bytesToCount = srcPtr->byteIndex + 1;
3193     index.tree = srcPtr->tree;
3194     for (lineNum = TkBTreeLineIndex(srcPtr->linePtr); lineNum >= 0;
3195     lineNum--) {
3196     /*
3197     * Layout an entire text line (potentially > 1 display line).
3198     * For the first line, which contains srcPtr, only layout the
3199     * part up through srcPtr (bytesToCount is non-infinite to
3200     * accomplish this). Make a list of all the display lines
3201     * in backwards order (the lowest DLine on the screen is first
3202     * in the list).
3203     */
3204    
3205     index.linePtr = TkBTreeFindLine(srcPtr->tree, lineNum);
3206     index.byteIndex = 0;
3207     lowestPtr = NULL;
3208     do {
3209     dlPtr = LayoutDLine(textPtr, &index);
3210     dlPtr->nextPtr = lowestPtr;
3211     lowestPtr = dlPtr;
3212     TkTextIndexForwBytes(&index, dlPtr->byteCount, &index);
3213     bytesToCount -= dlPtr->byteCount;
3214     } while ((bytesToCount > 0) && (index.linePtr == dlPtr->index.linePtr));
3215    
3216     /*
3217     * Scan through the display lines to see if we've covered enough
3218     * vertical distance. If so, save the starting index for the
3219     * line at the desired location.
3220     */
3221    
3222     for (dlPtr = lowestPtr; dlPtr != NULL; dlPtr = dlPtr->nextPtr) {
3223     distance -= dlPtr->height;
3224     if (distance < 0) {
3225     *dstPtr = (noBestYet) ? dlPtr->index : bestIndex;
3226     break;
3227     }
3228     bestIndex = dlPtr->index;
3229     noBestYet = 0;
3230     }
3231    
3232     /*
3233     * Discard the display lines, then either return or prepare
3234     * for the next display line to lay out.
3235     */
3236    
3237     FreeDLines(textPtr, lowestPtr, (DLine *) NULL, 0);
3238     if (distance < 0) {
3239     return;
3240     }
3241     bytesToCount = INT_MAX; /* Consider all chars. in next line. */
3242     }
3243    
3244     /*
3245     * Ran off the beginning of the text. Return the first character
3246     * in the text.
3247     */
3248    
3249     TkTextMakeByteIndex(textPtr->tree, 0, 0, dstPtr);
3250     }
3251    
3252     /*
3253     *--------------------------------------------------------------
3254     *
3255     * TkTextSeeCmd --
3256     *
3257     * This procedure is invoked to process the "see" option for
3258     * the widget command for text widgets. See the user documentation
3259     * for details on what it does.
3260     *
3261     * Results:
3262     * A standard Tcl result.
3263     *
3264     * Side effects:
3265     * See the user documentation.
3266     *
3267     *--------------------------------------------------------------
3268     */
3269    
3270     int
3271     TkTextSeeCmd(textPtr, interp, argc, argv)
3272     TkText *textPtr; /* Information about text widget. */
3273     Tcl_Interp *interp; /* Current interpreter. */
3274     int argc; /* Number of arguments. */
3275     char **argv; /* Argument strings. Someone else has already
3276     * parsed this command enough to know that
3277     * argv[1] is "see". */
3278     {
3279     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
3280     TkTextIndex index;
3281     int x, y, width, height, lineWidth, byteCount, oneThird, delta;
3282     DLine *dlPtr;
3283     TkTextDispChunk *chunkPtr;
3284    
3285     if (argc != 3) {
3286     Tcl_AppendResult(interp, "wrong # args: should be \"",
3287     argv[0], " see index\"", (char *) NULL);
3288     return TCL_ERROR;
3289     }
3290     if (TkTextGetIndex(interp, textPtr, argv[2], &index) != TCL_OK) {
3291     return TCL_ERROR;
3292     }
3293    
3294     /*
3295     * If the specified position is the extra line at the end of the
3296     * text, round it back to the last real line.
3297     */
3298    
3299     if (TkBTreeLineIndex(index.linePtr) == TkBTreeNumLines(index.tree)) {
3300     TkTextIndexBackChars(&index, 1, &index);
3301     }
3302    
3303     /*
3304     * First get the desired position into the vertical range of the window.
3305     */
3306    
3307     TkTextSetYView(textPtr, &index, 1);
3308    
3309     /*
3310     * Now make sure that the character is in view horizontally.
3311     */
3312    
3313     if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
3314     UpdateDisplayInfo(textPtr);
3315     }
3316     lineWidth = dInfoPtr->maxX - dInfoPtr->x;
3317     if (dInfoPtr->maxLength < lineWidth) {
3318     return TCL_OK;
3319     }
3320    
3321     /*
3322     * Find the chunk that contains the desired index.
3323     */
3324    
3325     dlPtr = FindDLine(dInfoPtr->dLinePtr, &index);
3326     byteCount = index.byteIndex - dlPtr->index.byteIndex;
3327     for (chunkPtr = dlPtr->chunkPtr; chunkPtr!=NULL ; chunkPtr = chunkPtr->nextPtr) {
3328     if (byteCount < chunkPtr->numBytes) {
3329     break;
3330     }
3331     byteCount -= chunkPtr->numBytes;
3332     }
3333    
3334     /*
3335     * Call a chunk-specific procedure to find the horizontal range of
3336     * the character within the chunk.
3337     */
3338    
3339     if (chunkPtr!=NULL) { /* chunkPtr==NULL iff trying to see in elided region */
3340     (*chunkPtr->bboxProc)(chunkPtr, byteCount, dlPtr->y + dlPtr->spaceAbove,
3341     dlPtr->height - dlPtr->spaceAbove - dlPtr->spaceBelow,
3342     dlPtr->baseline - dlPtr->spaceAbove, &x, &y, &width,
3343     &height);
3344     delta = x - dInfoPtr->curPixelOffset;
3345     oneThird = lineWidth/3;
3346     if (delta < 0) {
3347     if (delta < -oneThird) {
3348     dInfoPtr->newByteOffset = (x - lineWidth/2)/textPtr->charWidth;
3349     } else {
3350     dInfoPtr->newByteOffset -= ((-delta) + textPtr->charWidth - 1)
3351     / textPtr->charWidth;
3352     }
3353     } else {
3354     delta -= (lineWidth - width);
3355     if (delta > 0) {
3356     if (delta > oneThird) {
3357     dInfoPtr->newByteOffset = (x - lineWidth/2)/textPtr->charWidth;
3358     } else {
3359     dInfoPtr->newByteOffset += (delta + textPtr->charWidth - 1)
3360     / textPtr->charWidth;
3361     }
3362     } else {
3363     return TCL_OK;
3364     }
3365     }}
3366     dInfoPtr->flags |= DINFO_OUT_OF_DATE;
3367     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
3368     dInfoPtr->flags |= REDRAW_PENDING;
3369     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
3370     }
3371     return TCL_OK;
3372     }
3373    
3374     /*
3375     *--------------------------------------------------------------
3376     *
3377     * TkTextXviewCmd --
3378     *
3379     * This procedure is invoked to process the "xview" option for
3380     * the widget command for text widgets. See the user documentation
3381     * for details on what it does.
3382     *
3383     * Results:
3384     * A standard Tcl result.
3385     *
3386     * Side effects:
3387     * See the user documentation.
3388     *
3389     *--------------------------------------------------------------
3390     */
3391    
3392     int
3393     TkTextXviewCmd(textPtr, interp, argc, argv)
3394     TkText *textPtr; /* Information about text widget. */
3395     Tcl_Interp *interp; /* Current interpreter. */
3396     int argc; /* Number of arguments. */
3397     char **argv; /* Argument strings. Someone else has already
3398     * parsed this command enough to know that
3399     * argv[1] is "xview". */
3400     {
3401     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
3402     int type, charsPerPage, count, newOffset;
3403     double fraction;
3404    
3405     if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
3406     UpdateDisplayInfo(textPtr);
3407     }
3408    
3409     if (argc == 2) {
3410     GetXView(interp, textPtr, 0);
3411     return TCL_OK;
3412     }
3413    
3414     newOffset = dInfoPtr->newByteOffset;
3415     type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
3416     switch (type) {
3417     case TK_SCROLL_ERROR:
3418     return TCL_ERROR;
3419     case TK_SCROLL_MOVETO:
3420     if (fraction > 1.0) {
3421     fraction = 1.0;
3422     }
3423     if (fraction < 0) {
3424     fraction = 0;
3425     }
3426     newOffset = (int) (((fraction * dInfoPtr->maxLength) / textPtr->charWidth)
3427     + 0.5);
3428     break;
3429     case TK_SCROLL_PAGES:
3430     charsPerPage = ((dInfoPtr->maxX - dInfoPtr->x) / textPtr->charWidth)
3431     - 2;
3432     if (charsPerPage < 1) {
3433     charsPerPage = 1;
3434     }
3435     newOffset += charsPerPage * count;
3436     break;
3437     case TK_SCROLL_UNITS:
3438     newOffset += count;
3439     break;
3440     }
3441    
3442     dInfoPtr->newByteOffset = newOffset;
3443     dInfoPtr->flags |= DINFO_OUT_OF_DATE;
3444     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
3445     dInfoPtr->flags |= REDRAW_PENDING;
3446     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
3447     }
3448     return TCL_OK;
3449     }
3450    
3451     /*
3452     *----------------------------------------------------------------------
3453     *
3454     * ScrollByLines --
3455     *
3456     * This procedure is called to scroll a text widget up or down
3457     * by a given number of lines.
3458     *
3459     * Results:
3460     * None.
3461     *
3462     * Side effects:
3463     * The view in textPtr's window changes to reflect the value
3464     * of "offset".
3465     *
3466     *----------------------------------------------------------------------
3467     */
3468    
3469     static void
3470     ScrollByLines(textPtr, offset)
3471     TkText *textPtr; /* Widget to scroll. */
3472     int offset; /* Amount by which to scroll, in *screen*
3473     * lines. Positive means that information
3474     * later in text becomes visible, negative
3475     * means that information earlier in the
3476     * text becomes visible. */
3477     {
3478     int i, bytesToCount, lineNum;
3479     TkTextIndex new, index;
3480     TkTextLine *lastLinePtr;
3481     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
3482     DLine *dlPtr, *lowestPtr;
3483    
3484     if (offset < 0) {
3485     /*
3486     * Must scroll up (to show earlier information in the text).
3487     * The code below is similar to that in MeasureUp, except that
3488     * it counts lines instead of pixels.
3489     */
3490    
3491     bytesToCount = textPtr->topIndex.byteIndex + 1;
3492     index.tree = textPtr->tree;
3493     offset--; /* Skip line containing topIndex. */
3494     for (lineNum = TkBTreeLineIndex(textPtr->topIndex.linePtr);
3495     lineNum >= 0; lineNum--) {
3496     index.linePtr = TkBTreeFindLine(textPtr->tree, lineNum);
3497     index.byteIndex = 0;
3498     lowestPtr = NULL;
3499     do {
3500     dlPtr = LayoutDLine(textPtr, &index);
3501     dlPtr->nextPtr = lowestPtr;
3502     lowestPtr = dlPtr;
3503     TkTextIndexForwBytes(&index, dlPtr->byteCount, &index);
3504     bytesToCount -= dlPtr->byteCount;
3505     } while ((bytesToCount > 0)
3506     && (index.linePtr == dlPtr->index.linePtr));
3507    
3508     for (dlPtr = lowestPtr; dlPtr != NULL; dlPtr = dlPtr->nextPtr) {
3509     offset++;
3510     if (offset == 0) {
3511     textPtr->topIndex = dlPtr->index;
3512     break;
3513     }
3514     }
3515    
3516     /*
3517     * Discard the display lines, then either return or prepare
3518     * for the next display line to lay out.
3519     */
3520    
3521     FreeDLines(textPtr, lowestPtr, (DLine *) NULL, 0);
3522     if (offset >= 0) {
3523     goto scheduleUpdate;
3524     }
3525     bytesToCount = INT_MAX;
3526     }
3527    
3528     /*
3529     * Ran off the beginning of the text. Return the first character
3530     * in the text.
3531     */
3532    
3533     TkTextMakeByteIndex(textPtr->tree, 0, 0, &textPtr->topIndex);
3534     } else {
3535     /*
3536     * Scrolling down, to show later information in the text.
3537     * Just count lines from the current top of the window.
3538     */
3539    
3540     lastLinePtr = TkBTreeFindLine(textPtr->tree,
3541     TkBTreeNumLines(textPtr->tree));
3542     for (i = 0; i < offset; i++) {
3543     dlPtr = LayoutDLine(textPtr, &textPtr->topIndex);
3544     if (dlPtr->length == 0 && dlPtr->height == 0) offset++;
3545     dlPtr->nextPtr = NULL;
3546     TkTextIndexForwBytes(&textPtr->topIndex, dlPtr->byteCount, &new);
3547     FreeDLines(textPtr, dlPtr, (DLine *) NULL, 0);
3548     if (new.linePtr == lastLinePtr) {
3549     break;
3550     }
3551     textPtr->topIndex = new;
3552     }
3553     }
3554    
3555     scheduleUpdate:
3556     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
3557     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
3558     }
3559     dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
3560     }
3561    
3562     /*
3563     *--------------------------------------------------------------
3564     *
3565     * TkTextYviewCmd --
3566     *
3567     * This procedure is invoked to process the "yview" option for
3568     * the widget command for text widgets. See the user documentation
3569     * for details on what it does.
3570     *
3571     * Results:
3572     * A standard Tcl result.
3573     *
3574     * Side effects:
3575     * See the user documentation.
3576     *
3577     *--------------------------------------------------------------
3578     */
3579    
3580     int
3581     TkTextYviewCmd(textPtr, interp, argc, argv)
3582     TkText *textPtr; /* Information about text widget. */
3583     Tcl_Interp *interp; /* Current interpreter. */
3584     int argc; /* Number of arguments. */
3585     char **argv; /* Argument strings. Someone else has already
3586     * parsed this command enough to know that
3587     * argv[1] is "yview". */
3588     {
3589     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
3590     int pickPlace, lineNum, type, bytesInLine;
3591     Tk_FontMetrics fm;
3592     int pixels, count;
3593     size_t switchLength;
3594     double fraction;
3595     TkTextIndex index, new;
3596     TkTextLine *lastLinePtr;
3597     DLine *dlPtr;
3598    
3599     if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
3600     UpdateDisplayInfo(textPtr);
3601     }
3602    
3603     if (argc == 2) {
3604     GetYView(interp, textPtr, 0);
3605     return TCL_OK;
3606     }
3607    
3608     /*
3609     * Next, handle the old syntax: "pathName yview ?-pickplace? where"
3610     */
3611    
3612     pickPlace = 0;
3613     if (argv[2][0] == '-') {
3614     switchLength = strlen(argv[2]);
3615     if ((switchLength >= 2)
3616     && (strncmp(argv[2], "-pickplace", switchLength) == 0)) {
3617     pickPlace = 1;
3618     if (argc != 4) {
3619     Tcl_AppendResult(interp, "wrong # args: should be \"",
3620     argv[0], " yview -pickplace lineNum|index\"",
3621     (char *) NULL);
3622     return TCL_ERROR;
3623     }
3624     }
3625     }
3626     if ((argc == 3) || pickPlace) {
3627     if (Tcl_GetInt(interp, argv[2+pickPlace], &lineNum) == TCL_OK) {
3628     TkTextMakeByteIndex(textPtr->tree, lineNum, 0, &index);
3629     TkTextSetYView(textPtr, &index, 0);
3630     return TCL_OK;
3631     }
3632    
3633     /*
3634     * The argument must be a regular text index.
3635     */
3636    
3637     Tcl_ResetResult(interp);
3638     if (TkTextGetIndex(interp, textPtr, argv[2+pickPlace],
3639     &index) != TCL_OK) {
3640     return TCL_ERROR;
3641     }
3642     TkTextSetYView(textPtr, &index, pickPlace);
3643     return TCL_OK;
3644     }
3645    
3646     /*
3647     * New syntax: dispatch based on argv[2].
3648     */
3649    
3650     type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
3651     switch (type) {
3652     case TK_SCROLL_ERROR:
3653     return TCL_ERROR;
3654     case TK_SCROLL_MOVETO:
3655     if (fraction > 1.0) {
3656     fraction = 1.0;
3657     }
3658     if (fraction < 0) {
3659     fraction = 0;
3660     }
3661     fraction *= TkBTreeNumLines(textPtr->tree);
3662     lineNum = (int) fraction;
3663     TkTextMakeByteIndex(textPtr->tree, lineNum, 0, &index);
3664     bytesInLine = TkBTreeBytesInLine(index.linePtr);
3665     index.byteIndex = (int)((bytesInLine * (fraction-lineNum)) + 0.5);
3666     if (index.byteIndex >= bytesInLine) {
3667     TkTextMakeByteIndex(textPtr->tree, lineNum + 1, 0, &index);
3668     }
3669     TkTextSetYView(textPtr, &index, 0);
3670     break;
3671     case TK_SCROLL_PAGES:
3672     /*
3673     * Scroll up or down by screenfuls. Actually, use the
3674     * window height minus two lines, so that there's some
3675     * overlap between adjacent pages.
3676     */
3677    
3678     Tk_GetFontMetrics(textPtr->tkfont, &fm);
3679     if (count < 0) {
3680     pixels = (dInfoPtr->maxY - 2*fm.linespace - dInfoPtr->y)*(-count)
3681     + fm.linespace;
3682     MeasureUp(textPtr, &textPtr->topIndex, pixels, &new);
3683     if (TkTextIndexCmp(&textPtr->topIndex, &new) == 0) {
3684     /*
3685     * A page of scrolling ended up being less than one line.
3686     * Scroll one line anyway.
3687     */
3688    
3689     count = -1;
3690     goto scrollByLines;
3691     }
3692     textPtr->topIndex = new;
3693     } else {
3694     /*
3695     * Scrolling down by pages. Layout lines starting at the
3696     * top index and count through the desired vertical distance.
3697     */
3698    
3699     pixels = (dInfoPtr->maxY - 2*fm.linespace - dInfoPtr->y)*count;
3700     lastLinePtr = TkBTreeFindLine(textPtr->tree,
3701     TkBTreeNumLines(textPtr->tree));
3702     do {
3703     dlPtr = LayoutDLine(textPtr, &textPtr->topIndex);
3704     dlPtr->nextPtr = NULL;
3705     TkTextIndexForwBytes(&textPtr->topIndex, dlPtr->byteCount,
3706     &new);
3707     pixels -= dlPtr->height;
3708     FreeDLines(textPtr, dlPtr, (DLine *) NULL, 0);
3709     if (new.linePtr == lastLinePtr) {
3710     break;
3711     }
3712     textPtr->topIndex = new;
3713     } while (pixels > 0);
3714     }
3715     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
3716     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
3717     }
3718     dInfoPtr->flags |= REDRAW_PENDING|DINFO_OUT_OF_DATE|REPICK_NEEDED;
3719     break;
3720     case TK_SCROLL_UNITS:
3721     scrollByLines:
3722     ScrollByLines(textPtr, count);
3723     break;
3724     }
3725     return TCL_OK;
3726     }
3727    
3728     /*
3729     *--------------------------------------------------------------
3730     *
3731     * TkTextScanCmd --
3732     *
3733     * This procedure is invoked to process the "scan" option for
3734     * the widget command for text widgets. See the user documentation
3735     * for details on what it does.
3736     *
3737     * Results:
3738     * A standard Tcl result.
3739     *
3740     * Side effects:
3741     * See the user documentation.
3742     *
3743     *--------------------------------------------------------------
3744     */
3745    
3746     int
3747     TkTextScanCmd(textPtr, interp, argc, argv)
3748     register TkText *textPtr; /* Information about text widget. */
3749     Tcl_Interp *interp; /* Current interpreter. */
3750     int argc; /* Number of arguments. */
3751     char **argv; /* Argument strings. Someone else has already
3752     * parsed this command enough to know that
3753     * argv[1] is "scan". */
3754     {
3755     TextDInfo *dInfoPtr = textPtr->dInfoPtr;
3756     TkTextIndex index;
3757     int c, x, y, totalScroll, newByte, maxByte, gain=10;
3758     Tk_FontMetrics fm;
3759     size_t length;
3760    
3761     if ((argc != 5) && (argc != 6)) {
3762     Tcl_AppendResult(interp, "wrong # args: should be \"",
3763     argv[0], " scan mark x y\" or \"",
3764     argv[0], " scan dragto x y ?gain?\"", (char *) NULL);
3765     return TCL_ERROR;
3766     }
3767     if (Tcl_GetInt(interp, argv[3], &x) != TCL_OK) {
3768     return TCL_ERROR;
3769     }
3770     if (Tcl_GetInt(interp, argv[4], &y) != TCL_OK) {
3771     return TCL_ERROR;
3772     }
3773     if ((argc == 6) && (Tcl_GetInt(interp, argv[5], &gain) != TCL_OK))
3774     return TCL_ERROR;
3775     c = argv[2][0];
3776     length = strlen(argv[2]);
3777     if ((c == 'd') && (strncmp(argv[2], "dragto", length) == 0)) {
3778     /*
3779     * Amplify the difference between the current position and the
3780     * mark position to compute how much the view should shift, then
3781     * update the mark position to correspond to the new view. If we
3782     * run off the edge of the text, reset the mark point so that the
3783     * current position continues to correspond to the edge of the
3784     * window. This means that the picture will start dragging as
3785     * soon as the mouse reverses direction (without this reset, might
3786     * have to slide mouse a long ways back before the picture starts
3787     * moving again).
3788     */
3789    
3790     newByte = dInfoPtr->scanMarkIndex + (gain*(dInfoPtr->scanMarkX - x))
3791     / (textPtr->charWidth);
3792     maxByte = 1 + (dInfoPtr->maxLength - (dInfoPtr->maxX - dInfoPtr->x)
3793     + textPtr->charWidth - 1)/textPtr->charWidth;
3794     if (newByte < 0) {
3795     newByte = 0;
3796     dInfoPtr->scanMarkIndex = 0;
3797     dInfoPtr->scanMarkX = x;
3798     } else if (newByte > maxByte) {
3799     newByte = maxByte;
3800     dInfoPtr->scanMarkIndex = maxByte;
3801     dInfoPtr->scanMarkX = x;
3802     }
3803     dInfoPtr->newByteOffset = newByte;
3804    
3805     Tk_GetFontMetrics(textPtr->tkfont, &fm);
3806     totalScroll = (gain*(dInfoPtr->scanMarkY - y)) / fm.linespace;
3807     if (totalScroll != dInfoPtr->scanTotalScroll) {
3808     index = textPtr->topIndex;
3809     ScrollByLines(textPtr, totalScroll-dInfoPtr->scanTotalScroll);
3810     dInfoPtr->scanTotalScroll = totalScroll;
3811     if ((index.linePtr == textPtr->topIndex.linePtr) &&
3812     (index.byteIndex == textPtr->topIndex.byteIndex)) {
3813     dInfoPtr->scanTotalScroll = 0;
3814     dInfoPtr->scanMarkY = y;
3815     }
3816     }
3817     } else if ((c == 'm') && (strncmp(argv[2], "mark", length) == 0)) {
3818     dInfoPtr->scanMarkIndex = dInfoPtr->newByteOffset;
3819     dInfoPtr->scanMarkX = x;
3820     dInfoPtr->scanTotalScroll = 0;
3821     dInfoPtr->scanMarkY = y;
3822     } else {
3823     Tcl_AppendResult(interp, "bad scan option \"", argv[2],
3824     "\": must be mark or dragto", (char *) NULL);
3825     return TCL_ERROR;
3826     }
3827     dInfoPtr->flags |= DINFO_OUT_OF_DATE;
3828     if (!(dInfoPtr->flags & REDRAW_PENDING)) {
3829     dInfoPtr->flags |= REDRAW_PENDING;
3830     Tcl_DoWhenIdle(DisplayText, (ClientData) textPtr);
3831     }
3832     return TCL_OK;
3833     }
3834