svn merge ^/branches/released .

1 files changed, 4158 insertions, 4162 deletions

diff --git a/libXaw/src/Text.c b/libXaw/src/Text.c
index 2fd9d3fb6..b95231c56 100644
--- a/libXaw/src/Text.c
+++ b/libXaw/src/Text.c
@@ -1,4162 +1,4158 @@
-/* $Xorg: Text.c,v 1.4 2001/02/09 02:03:46 xorgcvs Exp $ */
-
-/***********************************************************
-
-Copyright 1987, 1988, 1994, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall not be
-used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from The Open Group.
-
-
-Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.
-
-                        All Rights Reserved
-
-Permission to use, copy, modify, and distribute this software and its 
-documentation for any purpose and without fee is hereby granted, 
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in 
-supporting documentation, and that the name of Digital not be
-used in advertising or publicity pertaining to distribution of the
-software without specific, written prior permission.  
-
-DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
-ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
-DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
-ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
-WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
-SOFTWARE.
-
-******************************************************************/
-
-/*
- * Copyright (c) 1998 by The XFree86 Project, Inc.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE XFREE86 PROJECT BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
- * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF
- * OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
- * SOFTWARE.
- *
- * Except as contained in this notice, the name of the XFree86 Project shall
- * not be used in advertising or otherwise to promote the sale, use or other
- * dealings in this Software without prior written authorization from the
- * XFree86 Project.
- */
-
-/* $XFree86: xc/lib/Xaw/Text.c,v 3.53tsi Exp $ */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/IntrinsicP.h>
-#include <X11/StringDefs.h>
-#include <X11/Shell.h>
-#include <X11/Xatom.h>
-#include <X11/Xfuncs.h>
-#include <X11/Xutil.h>
-#include <X11/Xmu/Misc.h>
-#include <X11/Xmu/SysUtil.h>
-#include <X11/Xmu/Xmu.h>
-#include <X11/Xaw/Cardinals.h>
-#include <X11/Xaw/MultiSinkP.h>
-#include <X11/Xaw/TextP.h>
-#include <X11/Xaw/TextSrcP.h>
-#include <X11/Xaw/TextSinkP.h>
-#include <X11/Xaw/Scrollbar.h>
-#include <X11/Xaw/XawImP.h>
-#include <X11/Xaw/XawInit.h>
-#include "Private.h"
-#include "XawI18n.h"
-
-#ifndef MAX_LEN_CT
-#define MAX_LEN_CT	6	/* for sequence: ESC $ ( A \xx \xx */
-#endif
-
-unsigned long FMT8BIT = 0L;
-unsigned long XawFmt8Bit = 0L;
-unsigned long XawFmtWide = 0L;
-
-#define SinkClearToBG		_XawTextSinkClearToBackground
-
-#define SrcScan			XawTextSourceScan
-#define SrcRead			XawTextSourceRead
-#define SrcReplace		XawTextSourceReplace
-#define SrcSearch		XawTextSourceSearch
-#define SrcCvtSel		XawTextSourceConvertSelection
-#define SrcSetSelection		XawTextSourceSetSelection
-
-#define MULTI_CLICK_TIME	500L
-
-#define SRC_CHANGE_NONE		0
-#define SRC_CHANGE_AFTER	1
-#define SRC_CHANGE_BEFORE	2
-#define SRC_CHANGE_OVERLAP	3
-
-#define Superclass (&simpleClassRec)
-
-/*
- * Compute a the maximum length of a cut buffer that we can pass at any
- * time.  The 64 allows for the overhead of the Change Property request.
- */
-#define MAX_CUT_LEN(dpy)  (XMaxRequestSize(dpy) - 64)
-
-#define	ClearWindow(ctx)						     \
-     _XawTextNeedsUpdating((ctx),					     \
-			   (ctx)->text.lt.top,				     \
-			   (ctx)->text.lt.info[ctx->text.lt.lines].position)
-
-/*
- * Class Methods
- */
-static void XawTextClassInitialize(void);
-static void XawTextInitialize(Widget, Widget, ArgList, Cardinal*);
-static void XawTextRealize(Widget, XtValueMask*, XSetWindowAttributes*);
-static void XawTextDestroy(Widget);
-static void XawTextResize(Widget);
-static void XawTextExpose(Widget, XEvent*, Region);
-static Boolean XawTextSetValues(Widget, Widget, Widget, ArgList, Cardinal*);
-static void XawTextGetValuesHook(Widget, ArgList, Cardinal*);
-static Bool XawTextChangeSensitive(Widget);
-
-/*
- * Prototypes
- */
-static XawTextPosition _BuildLineTable(TextWidget, XawTextPosition, int);
-static void _CreateCutBuffers(Display*);
-static Boolean TextConvertSelection(Widget, Atom*, Atom*, Atom*, XtPointer*,
-				unsigned long*, int*);
-static int CountLines(TextWidget, XawTextPosition, XawTextPosition);
-static void CreateHScrollBar(TextWidget);
-static void CreateVScrollBar(TextWidget);
-static void CvtStringToScrollMode(XrmValuePtr, Cardinal*,
-				  XrmValuePtr, XrmValuePtr);
-static Boolean CvtScrollModeToString(Display*, XrmValue*, Cardinal*,
-				     XrmValue*, XrmValue*, XtPointer*);
-static void CvtStringToWrapMode(XrmValuePtr, Cardinal*,
-				XrmValuePtr, XrmValuePtr);
-static Boolean CvtWrapModeToString(Display*, XrmValue*, Cardinal*,
-				   XrmValue*, XrmValue*, XtPointer*);
-static Boolean CvtStringToJustifyMode(Display*, XrmValue*, Cardinal*,
-				      XrmValue*, XrmValue*, XtPointer*);
-static Boolean CvtJustifyModeToString(Display*, XrmValue*, Cardinal*,
-				      XrmValue*, XrmValue*, XtPointer*);
-static void DestroyHScrollBar(TextWidget);
-static void DestroyVScrollBar(TextWidget);
-#ifndef OLDXAW
-static void DisplayText(Widget, XawTextPosition, XawTextPosition);
-#endif
-static void OldDisplayText(Widget, XawTextPosition, XawTextPosition);
-static void DisplayTextWindow(Widget);
-static void DoCopyArea(TextWidget, int, int, unsigned int, unsigned int,
-		       int, int);
-static void DoSelection(TextWidget, XawTextPosition, Time, Bool);
-static void ExtendSelection(TextWidget, XawTextPosition, Bool);
-static XawTextPosition FindGoodPosition(TextWidget, XawTextPosition);
-static void FlushUpdate(TextWidget);
-static int GetCutBufferNumber(Atom);
-static int GetMaxTextWidth(TextWidget);
-static unsigned int GetWidestLine(TextWidget);
-static void HScroll(Widget, XtPointer, XtPointer);
-static void HJump(Widget, XtPointer, XtPointer);
-static void InsertCursor(Widget, XawTextInsertState);
-static Bool LineAndXYForPosition(TextWidget, XawTextPosition, int*,
-				 int*, int*);
-static int LineForPosition(TextWidget, XawTextPosition);
-static void TextLoseSelection(Widget, Atom*);
-static Bool MatchSelection(Atom, XawTextSelection*);
-static void ModifySelection(TextWidget, XawTextPosition, XawTextPosition);
-static XawTextPosition PositionForXY(TextWidget, int, int);
-static void PositionHScrollBar(TextWidget);
-static void PositionVScrollBar(TextWidget);
-#ifndef OLDXAW
-static int ResolveColumnNumber(TextWidget);
-static int ResolveLineNumber(TextWidget);
-#endif
-static void _SetSelection(TextWidget, XawTextPosition, XawTextPosition,
-			  Atom*, Cardinal);
-static void TextSinkResize(Widget);
-static void UpdateTextInRectangle(TextWidget, XRectangle*);
-static void UpdateTextInLine(TextWidget, int, int, int);
-static void VScroll(Widget, XtPointer, XtPointer);
-static void VJump(Widget, XtPointer, XtPointer);
-
-/*
- * External
- */
-void _XawTextAlterSelection(TextWidget,
-			    XawTextSelectionMode, XawTextSelectionAction,
-			    String*, Cardinal*);
-void _XawTextCheckResize(TextWidget);
-void _XawTextClearAndCenterDisplay(TextWidget);
-void _XawTextExecuteUpdate(TextWidget);
-char *_XawTextGetText(TextWidget, XawTextPosition, XawTextPosition);
-void _XawTextPrepareToUpdate(TextWidget);
-int _XawTextReplace(TextWidget, XawTextPosition, XawTextPosition,
-		    XawTextBlock*);
-Atom *_XawTextSelectionList(TextWidget, String*, Cardinal);
-void _XawTextSetScrollBars(TextWidget);
-void _XawTextSetSelection(TextWidget, XawTextPosition, XawTextPosition,
-			  String*, Cardinal);
-void _XawTextVScroll(TextWidget, int);
-void XawTextScroll(TextWidget, int, int);
-void _XawTextSetSource(Widget, Widget, XawTextPosition, XawTextPosition);
-#ifndef OLDXAW
-void _XawTextSetLineAndColumnNumber(TextWidget, Bool);
-#endif
-void _XawTextSourceChanged(Widget, XawTextPosition, XawTextPosition,
-			   XawTextBlock*, int);
-
-/* Not used by other modules, but were extern on previous versions
- * of the library
- */
-void _XawTextShowPosition(TextWidget);
-
-/*
- * From TextAction.c
- */
-extern void _XawTextZapSelection(TextWidget, XEvent*, Bool);
-
-/*
- * From TextSrc.c
- */
-void _XawSourceAddText(Widget, Widget);
-void _XawSourceRemoveText(Widget, Widget, Bool);
-Bool _XawTextSourceNewLineAtEOF(Widget);
-
-/*
- * From TextSink.c
- */
-void _XawTextSinkClearToBackground(Widget, int, int, unsigned, unsigned);
-void _XawTextSinkDisplayText(Widget, int, int, XawTextPosition, XawTextPosition,
-			     Bool);
-
-/****************************************************************
- *
- * Full class record constant
- *
- ****************************************************************/
-/*
- * From TextTr.c
- */
-static XawTextSelectType defaultSelectTypes[] = {
-  XawselectPosition,  XawselectAlphaNumeric, XawselectWord, XawselectLine,
-  XawselectParagraph, XawselectAll,	     XawselectNull,
-};
-
-static XPointer defaultSelectTypesPtr = (XPointer)defaultSelectTypes;
-static Dimension defWidth = 100;
-static Dimension defHeight = DEFAULT_TEXT_HEIGHT;
-
-#define offset(field) XtOffsetOf(TextRec, field)
-static XtResource resources[] = {
-  {
-    XtNwidth,
-    XtCWidth,
-    XtRDimension,
-    sizeof(Dimension),
-    offset(core.width),
-    XtRDimension,
-    (XtPointer)&defWidth
-  },
-  {
-    XtNcursor,
-    XtCCursor,
-    XtRCursor,
-    sizeof(Cursor),
-    offset(simple.cursor),
-    XtRString,
-    "xterm"
-  },
-  {
-    XtNheight,
-    XtCHeight,
-    XtRDimension,
-    sizeof(Dimension),
-    offset(core.height),
-    XtRDimension,
-    (XtPointer)&defHeight
-  },
-  {
-    XtNdisplayPosition,
-    XtCTextPosition,
-    XtRInt,
-    sizeof(XawTextPosition), 
-    offset(text.lt.top),
-    XtRImmediate,
-    (XtPointer)0
-  },
-  {
-    XtNinsertPosition,
-    XtCTextPosition,
-    XtRInt,
-    sizeof(XawTextPosition),
-    offset(text.insertPos),
-    XtRImmediate,
-    (XtPointer)0
-  },
-  {
-    XtNleftMargin,
-    XtCMargin,
-    XtRPosition,
-    sizeof(Position),
-    offset(text.r_margin.left),
-    XtRImmediate,
-    (XtPointer)2
-  },
-  {
-    XtNrightMargin,
-    XtCMargin,
-    XtRPosition,
-    sizeof(Position),
-    offset(text.r_margin.right),
-    XtRImmediate,
-    (XtPointer)4
-  },
-  {
-    XtNtopMargin,
-    XtCMargin,
-    XtRPosition,
-    sizeof(Position),
-    offset(text.r_margin.top),
-    XtRImmediate,
-    (XtPointer)2
-  },
-  {
-    XtNbottomMargin,
-    XtCMargin,
-    XtRPosition,
-    sizeof(Position),
-    offset(text.r_margin.bottom),
-    XtRImmediate,
-    (XtPointer)2
-  },
-  {
-    XtNselectTypes,
-    XtCSelectTypes,
-    XtRPointer,
-    sizeof(XawTextSelectType*),
-    offset(text.sarray),
-    XtRPointer,
-    (XtPointer)&defaultSelectTypesPtr
-  },
-  {
-    XtNtextSource,
-    XtCTextSource,
-    XtRWidget,
-    sizeof(Widget),
-    offset(text.source),
-    XtRImmediate,
-    NULL
-  },
-  {
-    XtNtextSink,
-    XtCTextSink,
-    XtRWidget,
-    sizeof(Widget),
-    offset(text.sink),
-    XtRImmediate,
-    NULL
-  },
-  {
-    XtNdisplayCaret,
-    XtCOutput,
-    XtRBoolean,
-    sizeof(Boolean),
-    offset(text.display_caret),
-    XtRImmediate,
-    (XtPointer)True
-  },
-  {
-    XtNscrollVertical,
-    XtCScroll,
-    XtRScrollMode,
-    sizeof(XawTextScrollMode),
-    offset(text.scroll_vert),
-    XtRImmediate,
-    (XtPointer)False
-  },
-  {
-    XtNscrollHorizontal,
-    XtCScroll,
-    XtRScrollMode,
-    sizeof(XawTextScrollMode),
-    offset(text.scroll_horiz),
-    XtRImmediate,
-    (XtPointer)False
-  },
-  {
-    XtNwrap,
-    XtCWrap,
-    XtRWrapMode,
-    sizeof(XawTextWrapMode),
-    offset(text.wrap),
-    XtRImmediate,
-    (XtPointer)XawtextWrapNever
-  },
-  {
-    XtNautoFill,
-    XtCAutoFill,
-    XtRBoolean,
-    sizeof(Boolean),
-    offset(text.auto_fill),
-    XtRImmediate,
-    (XtPointer)False
-  },
-#ifndef OLDXAW
-  {
-    XtNpositionCallback,
-    XtCCallback,
-    XtRCallback,
-    sizeof(XtPointer),
-    offset(text.position_callbacks),
-    XtRCallback,
-    NULL
-  },
-  {
-    XtNleftColumn,
-    XtCColumn,
-    XtRShort,
-    sizeof(short),
-    offset(text.left_column),
-    XtRImmediate,
-    (XtPointer)0
-  },
-  {
-    XtNrightColumn,
-    XtCColumn,
-    XtRShort,
-    sizeof(short),
-    offset(text.right_column),
-    XtRImmediate,
-    (XtPointer)0
-  },
-  {
-    XtNjustifyMode,
-    XtCJustifyMode,
-    XtRJustifyMode,
-    sizeof(XawTextJustifyMode),
-    offset(text.justify),
-    XtRImmediate,
-    (XtPointer)XawjustifyLeft
-  },
-#endif /* OLDXAW */
-};
-#undef offset
-
-#define done(address, type) \
-	{ toVal->size = sizeof(type); toVal->addr = (XPointer)address; }
-
-static XrmQuark QWrapNever, QWrapLine, QWrapWord;
-#ifndef notdef
-static XrmQuark QScrollNever, QScrollWhenNeeded, QScrollAlways;
-#endif
-static XrmQuark QJustifyLeft, QJustifyRight, QJustifyCenter, QJustifyFull;
-
-/*ARGSUSED*/
-static void
-CvtStringToScrollMode(XrmValuePtr args, Cardinal *num_args,
-		      XrmValuePtr fromVal, XrmValuePtr toVal)
-{
-    static XawTextScrollMode scrollMode = XawtextScrollNever;
-    XrmQuark q;
-    char name[32];
-
-    XmuNCopyISOLatin1Lowered(name, (char *)fromVal->addr, sizeof(name));
-    q = XrmStringToQuark(name);
-
-    if (q == QScrollNever || q == QScrollWhenNeeded)
-	scrollMode = XawtextScrollNever;
-    else if (q == QScrollAlways)
-	scrollMode = XawtextScrollAlways;
-    else if (strcmp(name, "true") == 0 || strcmp(name, "1") == 0)
-	scrollMode = XawtextScrollAlways;
-    else if (strcmp(name, "false") == 0 || strcmp(name, "0") == 0)
-	scrollMode = XawtextScrollNever;
-    else
-	XtStringConversionWarning((char *)fromVal->addr, XtRScrollMode);
-
-    done(&scrollMode, XawTextScrollMode);
-}
-
-/*ARGSUSED*/
-static Boolean
-CvtScrollModeToString(Display *dpy, XrmValue *args, Cardinal *num_args,
-		      XrmValue *fromVal, XrmValue *toVal, XtPointer *data)
-{
-    static char *buffer;
-    Cardinal size;
-
-    switch (*(XawTextScrollMode *)fromVal->addr) {
-	case XawtextScrollNever:
-	case XawtextScrollWhenNeeded:
-	    buffer = XtEtextScrollNever;
-	    break;
-	case XawtextScrollAlways:
-	    buffer = XtEtextScrollAlways;
-	    break;
-	default:
-	    XawTypeToStringWarning(dpy, XtRScrollMode);
-	    toVal->addr = NULL;
-	    toVal->size = 0;
-	    return (False);
-    }
-    size = strlen(buffer) + 1;
-    if (toVal->addr != NULL) {
-	if (toVal->size < size)	{
-	    toVal->size = size;
-	    return (False);
-	}
-	strcpy((char *)toVal->addr, buffer);
-    }
-    else
-	toVal->addr = (XPointer)buffer;
-    toVal->size = sizeof(String);
-
-    return (True);
-}
-
-/*ARGSUSED*/
-static void
-CvtStringToWrapMode(XrmValuePtr args, Cardinal *num_args,
-		    XrmValuePtr fromVal, XrmValuePtr toVal)
-{
-    static XawTextWrapMode wrapMode = XawtextWrapNever;
-    XrmQuark q;
-    char lowerName[6];
-
-    XmuNCopyISOLatin1Lowered(lowerName, (char *)fromVal->addr,
-			     sizeof(lowerName));
-    q = XrmStringToQuark(lowerName);
-
-    if (q == QWrapNever)
-	wrapMode = XawtextWrapNever;
-    else if (q == QWrapLine)
-	wrapMode = XawtextWrapLine;
-    else if (q == QWrapWord)
-	wrapMode = XawtextWrapWord;
-    else
-	XtStringConversionWarning((char *)fromVal->addr, XtRWrapMode);
-
-    done(&wrapMode, XawTextWrapMode);
-}
-
-/*ARGSUSED*/
-static Boolean
-CvtWrapModeToString(Display *dpy, XrmValue *args, Cardinal *num_args,
-		    XrmValue *fromVal, XrmValue *toVal, XtPointer *data)
-{
-    static char *buffer;
-    Cardinal size;
-
-    switch (*(XawTextWrapMode *)fromVal->addr) {
-	case XawtextWrapNever:
-	    buffer = XtEtextWrapNever;
-	    break;
-	case XawtextWrapLine:
-	    buffer = XtEtextWrapLine;
-	    break;
-	case XawtextWrapWord:
-	    buffer = XtEtextWrapWord;
-	    break;
-	default:
-	    XawTypeToStringWarning(dpy, XtRWrapMode);
-	    toVal->addr = NULL;
-	    toVal->size = 0;
-	    return (False);
-    }
-    size = strlen(buffer) + 1;
-    if (toVal->addr != NULL) {
-	if (toVal->size < size)	{
-	    toVal->size = size;
-	    return (False);
-	}
-	strcpy((char *)toVal->addr, buffer);
-    }
-    else
-	toVal->addr = (XPointer)buffer;
-    toVal->size = sizeof(String);
-
-    return (True);
-}
-
-/*ARGSUSED*/
-static Boolean
-CvtStringToJustifyMode(Display *dpy, XrmValue *args, Cardinal *num_args,
-		       XrmValue *fromVal, XrmValue *toVal, XtPointer *data)
-{
-    XawTextJustifyMode justify;
-    XrmQuark q;
-    char lowerName[8];
-
-    XmuNCopyISOLatin1Lowered(lowerName, (char *)fromVal->addr,
-			   sizeof(lowerName));
-    q = XrmStringToQuark(lowerName);
-
-    if (q == QJustifyLeft)
-	justify = XawjustifyLeft;
-    else if (q == QJustifyRight)
-	justify = XawjustifyRight;
-    else if (q == QJustifyCenter)
-	justify = XawjustifyCenter;
-    else if(q ==  QJustifyFull)
-	justify = XawjustifyFull;
-    else {
-	XtStringConversionWarning((char *)fromVal->addr, XtRJustifyMode);
-	return (False);
-    }
-
-    toVal->size = sizeof(XawTextJustifyMode);
-    *(XawTextJustifyMode *)(toVal->addr) = justify;
-
-    return (True);
-}
-
-
-/*ARGSUSED*/
-static Boolean
-CvtJustifyModeToString(Display *dpy, XrmValue *args, Cardinal *num_args,
-		       XrmValue *fromVal, XrmValue *toVal, XtPointer *data)
-{
-    static char *buffer;
-    Cardinal size;
-
-    switch (*(XawTextJustifyMode *)fromVal->addr) {
-	case XawjustifyLeft:
-	    buffer = XtEtextJustifyLeft;
-	    break;
-	case XawjustifyRight:
-	    buffer = XtEtextJustifyRight;
-	    break;
-	case XawjustifyCenter:
-	    buffer = XtEtextJustifyCenter;
-	    break;
-	case XawjustifyFull:
-	    buffer = XtEtextJustifyFull;
-	    break;
-	default:
-	    XawTypeToStringWarning(dpy, XtRJustifyMode);
-	    toVal->addr = NULL;
-	    toVal->size = 0;
-	    return (False);
-    }
-    size = strlen(buffer) + 1;
-    if (toVal->addr != NULL) {
-	if (toVal->size < size)	{
-	    toVal->size = size;
-	    return (False);
-	}
-	strcpy((char *)toVal->addr, buffer);
-    }
-    else
-	toVal->addr = (XPointer)buffer;
-    toVal->size = sizeof(String);
-
-    return (True);
-}
-
-#undef done
-
-static void
-XawTextClassInitialize(void)
-{
-    if (!XawFmt8Bit)
-	FMT8BIT = XawFmt8Bit = XrmPermStringToQuark("FMT8BIT");
-    if (!XawFmtWide)
-	XawFmtWide = XrmPermStringToQuark("FMTWIDE");
-
-    XawInitializeWidgetSet();
-
-    textClassRec.core_class.num_actions = _XawTextActionsTableCount;
-  
-    QWrapNever	= XrmPermStringToQuark(XtEtextWrapNever);
-    QWrapLine	= XrmPermStringToQuark(XtEtextWrapLine);
-    QWrapWord	= XrmPermStringToQuark(XtEtextWrapWord);
-    XtAddConverter(XtRString, XtRWrapMode, CvtStringToWrapMode, NULL, 0);
-    XtSetTypeConverter(XtRWrapMode, XtRString, CvtWrapModeToString,
-		       NULL, 0, XtCacheNone, NULL);
-    QScrollNever = XrmPermStringToQuark(XtEtextScrollNever);
-    QScrollWhenNeeded = XrmPermStringToQuark(XtEtextScrollWhenNeeded);
-    QScrollAlways = XrmPermStringToQuark(XtEtextScrollAlways);
-    XtAddConverter(XtRString, XtRScrollMode, CvtStringToScrollMode,
-		   NULL, 0);
-    XtSetTypeConverter(XtRScrollMode, XtRString, CvtScrollModeToString,
-		       NULL, 0, XtCacheNone, NULL);
-    QJustifyLeft   = XrmPermStringToQuark(XtEtextJustifyLeft);
-    QJustifyRight  = XrmPermStringToQuark(XtEtextJustifyRight);
-    QJustifyCenter = XrmPermStringToQuark(XtEtextJustifyCenter);
-    QJustifyFull   = XrmPermStringToQuark(XtEtextJustifyFull);
-    XtSetTypeConverter(XtRString, XtRJustifyMode, CvtStringToJustifyMode,
-		       NULL, 0, XtCacheNone, NULL);
-    XtSetTypeConverter(XtRJustifyMode, XtRString, CvtJustifyModeToString,
-		       NULL, 0, XtCacheNone, NULL);
-}
-
-/*
- * Function:
- *	PositionHScrollBar
- *
- * Parameters:
- *	ctx - text widget
- *
- * Description:
- *	Positions the Horizontal scrollbar.
- */
-static void
-PositionHScrollBar(TextWidget ctx)
-{
-    Widget hbar = ctx->text.hbar, vbar = ctx->text.vbar;
-    Position x, y;
-    Dimension width, height;
-
-    if (ctx->text.hbar == NULL)
-	return;
-
-    if (vbar != NULL)
-	x = XtWidth(vbar);
-    else
-	x = -XtBorderWidth(hbar);
-    y = XtHeight(ctx) - XtHeight(hbar) - XtBorderWidth(hbar);
-    if (vbar != NULL) {
-	width = XtWidth(ctx) - XtWidth(vbar) - XtBorderWidth(vbar);
-	if (width > XtWidth(ctx))
-	    width = XtWidth(ctx);
-    }
-    else
-	width = XtWidth(ctx);
-    height = XtHeight(hbar);
-
-    XtConfigureWidget(hbar, x, y, width, height, XtBorderWidth(hbar));
-}
-
-/*
- * Function:
- *	PositionVScrollBar
- *
- * Parameters:
- *	ctx - text widget
- *
- * Description:
- *	Positions the Vertical scrollbar.
- */
-static void
-PositionVScrollBar(TextWidget ctx)
-{
-    Widget vbar = ctx->text.vbar;
-    Position x, y;
-    Dimension width, height;
-
-    if (vbar == NULL)
-	return;
-
-    x = y = -XtBorderWidth(vbar);
-    height = XtHeight(ctx);
-    width = XtWidth(vbar);
-
-    XtConfigureWidget(vbar, x, y, width, height, XtBorderWidth(vbar));
-}
-
-static void
-CreateVScrollBar(TextWidget ctx)
-{
-    Widget vbar;
-
-    if (ctx->text.vbar != NULL)
-	return;
-
-    ctx->text.vbar = vbar =
-	XtCreateWidget("vScrollbar", scrollbarWidgetClass, (Widget)ctx, NULL, 0);
-    XtAddCallback(vbar, XtNscrollProc, VScroll, (XtPointer)ctx);
-    XtAddCallback(vbar, XtNjumpProc, VJump, (XtPointer)ctx);
-
-    ctx->text.r_margin.left += XtWidth(vbar) + XtBorderWidth(vbar);
-    ctx->text.left_margin = ctx->text.margin.left = ctx->text.r_margin.left;
-
-    PositionVScrollBar(ctx);
-    PositionHScrollBar(ctx);
-    TextSinkResize(ctx->text.sink);
-
-    if (XtIsRealized((Widget)ctx)) {
-	XtRealizeWidget(vbar);
-	XtMapWidget(vbar);
-    }
-    XtSetKeyboardFocus(vbar, (Widget)ctx);
-}
-
-/*
- * Function:
- *	DestroyVScrollBar
- *
- * Parameters:
- *	ctx - parent text widget
- *
- * Description:
- *	Removes vertical ScrollBar.
- */
-static void
-DestroyVScrollBar(TextWidget ctx)
-{
-    Widget vbar = ctx->text.vbar;
-
-    if (vbar == NULL)
-	return;
-
-    ctx->text.r_margin.left -= XtWidth(vbar) + XtBorderWidth(vbar);
-    ctx->text.left_margin = ctx->text.margin.left = ctx->text.r_margin.left;
-
-    XtDestroyWidget(vbar);
-    ctx->text.vbar = NULL;
-    if (!ctx->core.being_destroyed) {
-	PositionHScrollBar(ctx);
-	TextSinkResize(ctx->text.sink);
-    }
-}
-
-static void
-CreateHScrollBar(TextWidget ctx)
-{
-    Arg args[1];
-    Widget hbar;
-    int bottom;
-
-    if (ctx->text.hbar != NULL)
-	return;
-
-    XtSetArg(args[0], XtNorientation, XtorientHorizontal);
-    ctx->text.hbar = hbar =
-	XtCreateWidget("hScrollbar", scrollbarWidgetClass, (Widget)ctx, args, 1);
-    XtAddCallback(hbar, XtNscrollProc, HScroll, (XtPointer)ctx);
-    XtAddCallback(hbar, XtNjumpProc, HJump, (XtPointer)ctx);
-
-    bottom = ctx->text.r_margin.bottom + XtHeight(hbar) + XtBorderWidth(hbar);
-
-    ctx->text.margin.bottom = ctx->text.r_margin.bottom = bottom;
-
-    PositionHScrollBar(ctx);
-    TextSinkResize(ctx->text.sink);
-
-    if (XtIsRealized((Widget)ctx)) {
-	XtRealizeWidget(hbar);
-	XtMapWidget(hbar);
-    }
-    XtSetKeyboardFocus(hbar, (Widget)ctx);
-}
-
-/*
- * Function:
- *	DestroyHScrollBar
- *
- * Parameters:
- *	ctx - parent text widget
- *
- * Description:
- *	Removes horizontal ScrollBar.
- */
-static void
-DestroyHScrollBar(TextWidget ctx)
-{
-    Widget hbar = ctx->text.hbar;
-
-    if (hbar == NULL)
-	return;
-
-    ctx->text.r_margin.bottom -= XtHeight(hbar) + XtBorderWidth(hbar);
-    ctx->text.margin.bottom = ctx->text.r_margin.bottom;
-
-    XtDestroyWidget(hbar);
-    ctx->text.hbar = NULL;
-    if (!ctx->core.being_destroyed)
-	TextSinkResize(ctx->text.sink);
-}
-
-/*ARGSUSED*/
-static void
-XawTextInitialize(Widget request, Widget cnew,
-		  ArgList args, Cardinal *num_args)
-{
-    TextWidget ctx = (TextWidget)cnew;
-
-    ctx->text.lt.lines = 0;
-    ctx->text.lt.info = (XawTextLineTableEntry *)
-	XtCalloc(1, sizeof(XawTextLineTableEntry));
-#ifndef OLDXAW
-    ctx->text.lt.base_line = 1;
-#endif
-    (void)bzero(&ctx->text.origSel, sizeof(XawTextSelection));
-    (void)bzero(&ctx->text.s, sizeof(XawTextSelection));
-    ctx->text.s.type = XawselectPosition;
-    ctx->text.salt = NULL;
-    ctx->text.hbar = ctx->text.vbar = NULL;
-    ctx->text.lasttime = 0;
-    ctx->text.time = 0;
-    ctx->text.showposition = True;
-    ctx->text.lastPos = ctx->text.source != NULL ?
-			XawTextGetLastPosition(ctx) : 0;
-    ctx->text.file_insert = NULL;
-    ctx->text.search = NULL;
-    ctx->text.update = XmuNewScanline(0, 0, 0);
-    ctx->text.gc = XtGetGC(cnew, 0, 0);
-    ctx->text.hasfocus = False;
-    ctx->text.margin = ctx->text.r_margin; /* Strucure copy */
-    ctx->text.left_margin = ctx->text.r_margin.left;
-    ctx->text.update_disabled = False;
-    ctx->text.clear_to_eol = True;
-    ctx->text.old_insert = -1;
-    ctx->text.mult = 1;
-    ctx->text.salt2 = NULL;
-    ctx->text.from_left = -1;
-
-#ifndef OLDXAW
-    ctx->text.numeric = False;
-    ctx->text.selection_state = False;
-    ctx->text.kill_ring = 0;
-
-    ctx->text.line_number = -1;
-    ctx->text.column_number = -1;
-    ctx->text.source_changed = SRC_CHANGE_NONE;
-
-    ctx->text.kill_ring_ptr = NULL;
-    ctx->text.overwrite = False;
-#endif
-
-    if (XtHeight(ctx) == DEFAULT_TEXT_HEIGHT) {
-	XtHeight(ctx) = VMargins(ctx);
-	if (ctx->text.sink != NULL)
-	    XtHeight(ctx) += XawTextSinkMaxHeight(ctx->text.sink, 1);
-    }
-
-    if (ctx->text.scroll_vert == XawtextScrollAlways)
-	CreateVScrollBar(ctx);
-    if (ctx->text.scroll_horiz == XawtextScrollAlways)
-	CreateHScrollBar(ctx);
-
-#ifndef OLDXAW
-    if (ctx->text.left_column < 0)
-	ctx->text.left_column = 0;
-    if (ctx->text.right_column < 0)
-	ctx->text.right_column = 0;
-#endif
-}
-
-static void
-XawTextRealize(Widget w, XtValueMask *mask, XSetWindowAttributes *attr)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    (*textClassRec.core_class.superclass->core_class.realize)(w, mask, attr);
-  
-    if (ctx->text.hbar != NULL) {
-	XtRealizeWidget(ctx->text.hbar);
-	XtMapWidget(ctx->text.hbar);
-    }
-
-    if (ctx->text.vbar != NULL) {
-	XtRealizeWidget(ctx->text.vbar);
-	XtMapWidget(ctx->text.vbar);
-    }
-
-    _XawTextBuildLineTable(ctx, ctx->text.lt.top, True);
-
-#ifndef OLDXAW
-    _XawTextSetLineAndColumnNumber(ctx, True);
-#endif
-}
-
-/* Utility routines for support of Text */
-static void
-_CreateCutBuffers(Display *d)
-{
-    static struct _DisplayRec {
-	struct _DisplayRec *next;
-	Display *dpy;
-    } *dpy_list = NULL;
-    struct _DisplayRec *dpy_ptr;
-
-    for (dpy_ptr = dpy_list; dpy_ptr != NULL; dpy_ptr = dpy_ptr->next)
-	if (dpy_ptr->dpy == d)
-	    return;
-
-    dpy_ptr = XtNew(struct _DisplayRec);
-    dpy_ptr->next = dpy_list;
-    dpy_ptr->dpy = d;
-    dpy_list = dpy_ptr;
-
-#define Create(buffer) \
-  XChangeProperty(d, RootWindow(d, 0), buffer, XA_STRING, 8, \
-		  PropModeAppend, NULL, 0);
-
-    Create(XA_CUT_BUFFER0);
-    Create(XA_CUT_BUFFER1);
-    Create(XA_CUT_BUFFER2);
-    Create(XA_CUT_BUFFER3);
-    Create(XA_CUT_BUFFER4);
-    Create(XA_CUT_BUFFER5);
-    Create(XA_CUT_BUFFER6);
-    Create(XA_CUT_BUFFER7);
-
-#undef Create
-}
-
-/*
- * Procedure to manage insert cursor visibility for editable text.  It uses
- * the value of ctx->insertPos and an implicit argument. In the event that
- * position is immediately preceded by an eol graphic, then the insert cursor
- * is displayed at the beginning of the next line.
- */
-static void
-InsertCursor(Widget w, XawTextInsertState state)
-{
-    TextWidget ctx = (TextWidget)w;
-    int x, y;
-    int line;
-
-    if (ctx->text.lt.lines < 1)
-	return;
-
-    if (ctx->text.display_caret &&
-	LineAndXYForPosition(ctx, ctx->text.insertPos, &line, &x, &y)) {
-	if (line < ctx->text.lt.lines)
-	    y += (ctx->text.lt.info[line + 1].y - ctx->text.lt.info[line].y) + 1;
-	else
-	    y += (ctx->text.lt.info[line].y - ctx->text.lt.info[line - 1].y) + 1;
-
-	XawTextSinkInsertCursor(ctx->text.sink, x, y, state);
-    }
-
-    /* Keep Input Method up to speed  */
-    if (ctx->simple.international) {
-	Arg list[1];
-
-	XtSetArg(list[0], XtNinsertPosition, ctx->text.insertPos);
-	_XawImSetValues(w, list, 1);
-    }
-}
-
-/*
- * Procedure to register a span of text that is no longer valid on the display
- * It is used to avoid a number of small, and potentially overlapping, screen
- * updates.
-*/
-void
-_XawTextNeedsUpdating(TextWidget ctx,
-		      XawTextPosition left, XawTextPosition right)
-{
-    XmuSegment segment;
-
-    if (left >= right)
-	return;
-
-    segment.x1 = (int)left;
-    segment.x2 = (int)right;
-    (void)XmuScanlineOrSegment(ctx->text.update, &segment);
-}
-
-/*
- * Procedure to read a span of text in Ascii form. This is purely a hack and
- * we probably need to add a function to sources to provide this functionality.
- * [note: this is really a private procedure but is used in multiple modules].
- */
-char *
-_XawTextGetText(TextWidget ctx, XawTextPosition left, XawTextPosition right)
-{
-    char *result, *tempResult;
-    XawTextBlock text;
-    int bytes;
-
-    if (XawTextFormat(ctx, XawFmt8Bit))
-	bytes = sizeof(unsigned char);
-    else if (XawTextFormat(ctx, XawFmtWide)) 
-	bytes = sizeof(wchar_t);
-    else /* if there is another fomat, add here */
-	bytes = 1;
-
-    /* leave space for ZERO */
-    tempResult = result = XtMalloc((unsigned)(right - left + ONE) * bytes);
-
-    while (left < right) {
-	left = SrcRead(ctx->text.source, left, &text, (int)(right - left));
-	if (!text.length)
-	    break;
-	memmove(tempResult, text.ptr, (unsigned)(text.length * bytes));
-	tempResult += text.length * bytes;
-    }
-
-    if (bytes == sizeof(wchar_t))
-	*((wchar_t*)tempResult) = (wchar_t)0;
-    else
-	*tempResult = '\0';
-
-    return (result);
-}
-
-/* Like _XawTextGetText, but enforces ICCCM STRING type encoding.  This
- * routine is currently used to put just the ASCII chars in the selection
- * into a cut buffer.
- */
-char *
-_XawTextGetSTRING(TextWidget ctx, XawTextPosition left, XawTextPosition right)
-{
-    unsigned char *s;
-    unsigned char c;
-    long i, j, n;
-    wchar_t *ws, wc;
-
-    /* allow ESC in accordance with ICCCM */
-    if (XawTextFormat(ctx, XawFmtWide)) {
-	MultiSinkObject sink = (MultiSinkObject)ctx->text.sink;
-	ws = (wchar_t *)_XawTextGetText(ctx, left, right);
-	n = wcslen(ws);
-	for (j = 0, i = 0; j < n; j++) {
-	    wc = ws[j];
-	    if (XwcTextEscapement (sink->multi_sink.fontset, &wc, 1)
-		|| (wc == _Xaw_atowc(XawTAB)) || (wc == _Xaw_atowc(XawLF))
-		|| (wc == _Xaw_atowc(XawESC)))
-		ws[i++] = wc;
-	}
-	ws[i] = (wchar_t)0;
-	return ((char *)ws);
-    }
-    else {
-	s = (unsigned char *)_XawTextGetText(ctx, left, right);
-	/* only HT and NL control chars are allowed, strip out others */
-	n = strlen((char *)s);
-	i = 0;
-	for (j = 0; j < n; j++)	{
-	    c = s[j];
-	    if (((c >= 0x20) && c <= 0x7f)
-		||(c >= 0xa0) || (c == XawTAB) || (c == XawLF)
-		|| (c == XawESC)) {
-		s[i] = c;
-		i++;
-	    }
-	}
-	s[i] = 0;
-
-	return ((char *)s);
-    }
-}
-
-/* 
- * This routine maps an x and y position in a window that is displaying text
- * into the corresponding position in the source.
- */
-static XawTextPosition
-PositionForXY(TextWidget ctx, int x, int y)
-{
-    int fromx, line, width, height;
-    XawTextPosition position;
-
-    if (ctx->text.lt.lines == 0)
-	return (0);
-
-    for (line = 0; line < ctx->text.lt.lines - 1; line++) {
-	if (y <= ctx->text.lt.info[line + 1].y)
-	    break;
-    }
-    position = ctx->text.lt.info[line].position;
-    if (position >= ctx->text.lastPos)
-	return (ctx->text.lastPos);
-    fromx = ctx->text.left_margin;
-    XawTextSinkFindPosition(ctx->text.sink, position, fromx, x - fromx,
-			    False, &position, &width, &height);
-
-    if (position > ctx->text.lastPos)
-	return (ctx->text.lastPos);
-
-    if (position >= ctx->text.lt.info[line + 1].position)
-	position = SrcScan(ctx->text.source, ctx->text.lt.info[line + 1].position,
-			   XawstPositions, XawsdLeft, 1, True);
-
-    return (position);
-}
-
-/*
- * This routine maps a source position in to the corresponding line number
- * of the text that is displayed in the window.
- */
-static int
-LineForPosition(TextWidget ctx, XawTextPosition position)
-{
-    int line;
-
-    for (line = 0; line < ctx->text.lt.lines; line++)
-	if (position < ctx->text.lt.info[line + 1].position)
-	    break;
-
-    return (line);
-}
-
-/*
- * This routine maps a source position into the corresponding line number
- * and the x, y coordinates of the text that is displayed in the window.
- */
-static Bool
-LineAndXYForPosition(TextWidget ctx, XawTextPosition pos,
-		     int *line, int *x, int *y)
-{
-    XawTextPosition linePos, endPos;
-    Boolean visible;
-    int realW, realH;
-
-    *line = 0;
-    *x = ctx->text.left_margin;
-    *y = ctx->text.margin.top + 1;
-    if ((visible = IsPositionVisible(ctx, pos)) != False) {
-	*line = LineForPosition(ctx, pos);
-	*y = ctx->text.lt.info[*line].y;
-	linePos = ctx->text.lt.info[*line].position;
-	XawTextSinkFindDistance(ctx->text.sink, linePos,
-				*x, pos, &realW, &endPos, &realH);
-	*x += realW;
-    }
-
-    return (visible);
-}
-
-/*
- * This routine builds a line table. It does this by starting at the
- * specified position and measuring text to determine the staring position
- * of each line to be displayed. It also determines and saves in the
- * linetable all the required metrics for displaying a given line (e.g.
- * x offset, y offset, line length, etc.).
- */
-void
-_XawTextBuildLineTable(TextWidget ctx, XawTextPosition position,
-		       _XtBoolean force_rebuild)
-{
-    Dimension height = 0;
-    int lines = 0;
-    Cardinal size;
-
-    if ((int)XtHeight(ctx) > VMargins(ctx)) {
-	height = XtHeight(ctx) - VMargins(ctx);
-	lines = XawTextSinkMaxLines(ctx->text.sink, height);
-    }
-    size = sizeof(XawTextLineTableEntry) * (lines + 1);
-
-    if (lines != ctx->text.lt.lines || ctx->text.lt.info == NULL) {
-	ctx->text.lt.info = (XawTextLineTableEntry *)
-	    XtRealloc((char *)ctx->text.lt.info, size);
-	ctx->text.lt.lines = lines;
-	force_rebuild = True;
-    }
-
-    if (force_rebuild) {
-	(void)bzero((char *)ctx->text.lt.info, size);
-	/* force a text update in the first text line if it is visible */
-	ctx->text.lt.info[0].position = (XawTextPosition)-1;
-    }
-    if (position != ctx->text.lt.info[0].position) {
-	(void)_BuildLineTable(ctx, position, 0);
-	ctx->text.clear_to_eol = True;
-    }
-}
-
-/*
- * We may need to resize the line table here, since there maybe lines with
- * different fonts (that can be shorter or taller than the default one)
- */
-static XawTextPosition
-_BuildLineTable(TextWidget ctx, XawTextPosition position, int line)
-{
-    XawTextLineTableEntry *lt = ctx->text.lt.info + line;
-    XawTextPosition end, update_from = -1;
-    Position y;
-    int wwidth, width, height;
-#ifndef OLDXAW
-    Widget src = ctx->text.source;
-#endif
-    int max_y = (int)XtHeight(ctx) - (int)ctx->text.margin.bottom;
-
-    if (ctx->text.wrap == XawtextWrapNever)
-	wwidth = 0x7fffffff;
-    else
-	wwidth = GetMaxTextWidth(ctx);
-
-    /* XXX y may change, due to font size changes. See later */
-    y = line == 0 ? ctx->text.margin.top : lt->y;
-
-#ifndef OLDXAW
-    if (ctx->text.lt.base_line < 0) {
-	if (line == 0)
-	    ctx->text.lt.top = position;
-    }
-    else if (line == 0) {
-	XawTextPosition pos = ctx->text.lt.top;
-	int base_line = ctx->text.lt.base_line;
-
-	if (position == 0)
-	    base_line = 1;
-	else if (ctx->text.lt.base_line == 0 ||
-		 ctx->text.source_changed == SRC_CHANGE_OVERLAP) {
-	    pos = 0;
-	    base_line = 1;
-
-	    while (pos < position) {
-		pos = SrcScan(src, pos, XawstEOL, XawsdRight, 1, True);
-		if (pos <= position) {
-		    ++base_line;
-		    if (pos == ctx->text.lastPos) {
-			base_line -= !_XawTextSourceNewLineAtEOF(src);
-			break;
-		    }
-		}
-	    }
-	}
-	else if (ctx->text.wrap == XawtextWrapNever
-		 && IsPositionVisible(ctx, position))
-	    base_line += LineForPosition(ctx, position);
-	else if (pos < position) {
-	    while (pos < position) {
-		pos = SrcScan(src, pos, XawstEOL, XawsdRight, 1, True);
-		if (pos <= position) {
-		    ++base_line;
-		    if (pos == ctx->text.lastPos) {
-			base_line -= !_XawTextSourceNewLineAtEOF(src);
-			break;
-		    }
-		}
-	    }
-	}
-	else if (pos > position) {
-	    while (pos > position) {
-		pos = SrcScan(src, pos, XawstEOL, XawsdLeft, 1, False);
-		if (--pos >= position)
-		    --base_line;
-	    }
-	}
-
-	ctx->text.lt.top = position;
-	ctx->text.lt.base_line = base_line;
-    }
-#else
-    if (line == 0)
-	ctx->text.lt.top = position;
-#endif
-
-    /* CONSTCOND */
-    while (True) {
-	XawTextSinkFindPosition(ctx->text.sink, position, ctx->text.left_margin,
-				wwidth, ctx->text.wrap == XawtextWrapWord,
-				&end, &width, &height);
-
-	if (lt->position != position) {
-	    _XawTextNeedsUpdating(ctx, position,
-				  end <= position ? position + 1 : end);
-	    ctx->text.clear_to_eol = True;
-	    lt->position = position;
-	}
-	if (lt->y != y) {
-	    if (update_from < 0)
-		update_from = line == 0 ?
-		    ctx->text.lt.info[0].position :
-		    ctx->text.lt.info[line - 1].position;
-	    lt->y = y;
-	    ctx->text.clear_to_eol = True;
-	}
-	if (lt->textWidth != width) {
-	    if (lt->textWidth > width)
-		ctx->text.clear_to_eol = True;
-	    lt->textWidth = width;
-	}
-	y += height;
-
-	if (end > ctx->text.lastPos) {
-	    position = end;
-	    ctx->text.clear_to_eol = True;
-	    _XawTextNeedsUpdating(ctx, end, end + ctx->text.lt.lines - line);
-	    while (line++ < ctx->text.lt.lines) {
-		if (line > 1 && y > max_y) {
-		    ctx->text.lt.lines = line - 1;
-		    break;
-		}
-		++lt;
-		if (lt->y != y) {
-		    if (update_from < 0)
-			update_from = line < 2 ?
-			    ctx->text.lt.info[0].position :
-			    ctx->text.lt.info[line - 2].position;
-		    lt->y = y;
-		}
-		lt->position = ++position;
-		lt->textWidth = 0;
-		y += height;
-	    }
-	    if (update_from >= 0)
-		_XawTextNeedsUpdating(ctx, update_from,
-				      ctx->text.lt.info[ctx->text.lt.lines].position);
-	    _XawTextSetScrollBars(ctx);
-
-	    return (ctx->text.lastPos);
-	}
-
-	if (line && y > max_y)
-	    /* will return in the next loop */
-	    ctx->text.lt.lines = line;
-
-	if (++line > ctx->text.lt.lines && y < max_y) {
-	/* grow the line table */
-	    ctx->text.lt.info = (XawTextLineTableEntry *)
-		XtRealloc((char *)ctx->text.lt.info,
-			  sizeof(XawTextLineTableEntry) * (line + 1));
-	    lt = ctx->text.lt.info + line;
-	    bzero(lt, sizeof(XawTextLineTableEntry));
-	    ++ctx->text.lt.lines;
-	}
-	else
-	    ++lt;
-	if (position == end)
-	    ++position;
-	else
-	    position = end;
-
-	if (line > ctx->text.lt.lines) {
-	    if (update_from >= 0)
-		_XawTextNeedsUpdating(ctx, update_from,
-				      ctx->text.lt.info[ctx->text.lt.lines].position);
-	    _XawTextSetScrollBars(ctx);
-
-	    return (position);
-	}
-    }
-    /*NOTREACHED*/
-}
-
-/*
- * Function:
- *	GetWidestLine
- *
- * Parameters:
- *	ctx - text widget
- *
- * Description:
- *	  Returns the width (in pixels) of the widest line that
- *		     is currently visable.
- *
- * Returns:
- *	The width of the widest line
- */
-static unsigned int
-GetWidestLine(TextWidget ctx)
-{
-    int i;
-    unsigned int widest;
-    XawTextLineTablePtr lt = &(ctx->text.lt);
-
-    for (i = 0, widest = 0; i < lt->lines; i++)
-	if (widest < lt->info[i].textWidth)
-	    widest = lt->info[i].textWidth;
-
-    return (widest);
-}
-
-/*
- * This routine is used by Text to notify an associated scrollbar of the
- * correct metrics (position and shown fraction) for the text being currently
- * displayed in the window.
- */
-void
-_XawTextSetScrollBars(TextWidget ctx)
-{
-    float first, last, denom, widest;
-
-    if (ctx->text.scroll_vert == XawtextScrollAlways) {
-	if (ctx->text.lastPos == 0)
-	    first = 0.0;
-	else
-	    first = ctx->text.lt.top / (float)ctx->text.lastPos;
-
-	if (ctx->text.lt.info[ctx->text.lt.lines].position < ctx->text.lastPos)
-	    last = ctx->text.lt.info[ctx->text.lt.lines].position /
-		   (float)ctx->text.lastPos;
-	else
-	    last = 1.0;
-
-	XawScrollbarSetThumb(ctx->text.vbar, first, last - first);
-    }
-
-    if (ctx->text.scroll_horiz == XawtextScrollAlways) {
-	denom = GetWidestLine(ctx);
-	if (denom <= 0)
-	    denom = (int)XtWidth(ctx) - RHMargins(ctx);
-	if (denom <= 0)
-	    denom = 1;
-	widest = ((int)XtWidth(ctx) - RHMargins(ctx)) / denom;
-	first = ctx->text.r_margin.left - ctx->text.left_margin;
-	first /= denom;
-
-	XawScrollbarSetThumb(ctx->text.hbar, first, widest);
-    }
-}
-
-static void
-DoCopyArea(TextWidget ctx, int src_x, int src_y,
-	   unsigned int width, unsigned int height, int dst_x, int dst_y)
-{
-    int x1, y1, x2, y2;
-
-    x1 = ctx->text.r_margin.left;
-    y1 = ctx->text.r_margin.top;
-    x2 = XtWidth(ctx) - ctx->text.r_margin.right;
-    y2 = XtHeight(ctx) - ctx->text.r_margin.bottom;
-
-    if (x1 >= x2 || y1 >= y2)
-	return;
-
-    src_x = XawMax(x1, XawMin(src_x, x2));
-    src_y = XawMax(y1, XawMin(src_y, y2));
-    dst_x = XawMax(x1, XawMin(dst_x, x2));
-    dst_y = XawMax(y1, XawMin(dst_y, y2));
-    width = XawMax(0, XawMin(x2 - dst_x, (int)width));
-    height = XawMax(0, XawMin(y2 - dst_y, (int)height));
-
-    XCopyArea(XtDisplay(ctx), XtWindow(ctx), XtWindow(ctx), ctx->text.gc,
-	      src_x, src_y, width, height, dst_x, dst_y);
-}
-
-/*
- * Function:
- *	XawTextScroll
- *
- * Parameters:
- *	ctx	- text widget
- *	vlines	- number of lines to scroll vertically
- *	hpixels	- number of pixels to scroll horizontally
- *
- * Description:
- *	Generic function for scrolling the text window.
- *	Allows vertical and horizontal scroll at the same time.
- */
-void
-XawTextScroll(TextWidget ctx, int vlines, int hpixels)
-{
-    XawTextPosition top, tmp, update_from, update_to;
-    XawTextLineTable *lt;
-    Arg arglist[1];
-    int y0, y1, y2, count, dim, wwidth, lines = ctx->text.lt.lines;
-    int vwidth, vheight;	/* visible width and height */
-    Bool scroll;
-
-    vwidth = (int)XtWidth(ctx) - RHMargins(ctx);
-    vheight = (int)XtHeight(ctx) - RVMargins(ctx);
-    lt = &ctx->text.lt;
-
-    if (!lt || vwidth <= 0 || vheight <= 0)
-	return;
-
-    if ((scroll = ctx->core.background_pixmap == XtUnspecifiedPixmap) == True) {
-	dim = lt->info[1].y - lt->info[0].y;
-	for (count = 1; count < lt->lines - 1; count++)
-	    if (lt->info[count + 1].y - lt->info[count].y != dim) {
-		scroll = False;
-		break;
-	    }
-    }
-
-    wwidth = GetMaxTextWidth(ctx);
-
-    /*
-     * Do the horizontall scrolling
-     */
-    if (hpixels < 0 && ctx->text.left_margin - hpixels > ctx->text.r_margin.left)
-	hpixels = ctx->text.left_margin - ctx->text.r_margin.left;
-    ctx->text.left_margin -= hpixels;
-
-    update_from = lt->top;	/* remember the old value */
-    /*
-     *	 Checks the requested number of lines and calculates the top
-     * of the line table
-     */
-    if (vlines < 0) {		  /* VScroll Up */
-	if (IsPositionVisible(ctx, 0))
-	    vlines = 0;
-	else if (ctx->text.wrap != XawtextWrapNever) {
-	    XawTextPosition end;
-	    int n_lines = 0;
-
-	    count = -vlines;
-	    end = lt->top;
-	    while (n_lines < count) {
-		top = SrcScan(ctx->text.source, end, XawstEOL,
-			      XawsdLeft, 2, False);
-		n_lines += CountLines(ctx, top, end);
-		end = top;
-	    }
-
-	    while (count++ < n_lines) {
-		tmp = top;
-		XawTextSinkFindPosition(ctx->text.sink, top,
-					ctx->text.left_margin,
-					wwidth,ctx->text.wrap == XawtextWrapWord,
-					&top, &dim, &dim);
-		if (tmp == top)
-		    ++top;
-	    }
-	}
-	else
-	    top = SrcScan(ctx->text.source, lt->top, XawstEOL,
-			  XawsdLeft, -vlines + 1, False);
-	if (-vlines >= ctx->text.lt.lines)
-	  scroll = False;
-     }
-    else if (vlines > 0) {	  /* VScroll Down */
-	if (LineForPosition(ctx, ctx->text.lastPos) == 0)
-	    vlines = 0;
-	if (vlines < lt->lines)
-	    top = XawMin(lt->info[vlines].position, ctx->text.lastPos);
-	else if (ctx->text.wrap == XawtextWrapNever)
-	    top = SrcScan(ctx->text.source,
-			  SrcScan(ctx->text.source, lt->top,
-				  XawstEOL, XawsdRight, vlines,
-				  True),
-			  XawstEOL, XawsdLeft, 1, False);
-	else {
-	    top = lt->top;
-	    count = 0;
-	    while (count++ < vlines) {
-		tmp = top;
-		XawTextSinkFindPosition(ctx->text.sink, top,
-					ctx->text.left_margin,
-					wwidth, ctx->text.wrap == XawtextWrapWord,
-					&top, &dim, &dim);
-		if (tmp == top)
-		    ++top;
-	    }
-	}
-	if (vlines >= ctx->text.lt.lines
-	    || lt->info[vlines].position >= ctx->text.lastPos)
-	    scroll = False;
-    }
-
-    if (!vlines) {
-	if (hpixels) {
-	    ClearWindow(ctx);
-	    ctx->text.clear_to_eol = True;
-	}
-	_XawTextSetScrollBars(ctx);
-	return;
-    }
-
-    /* Flushes any pending updates. Normally, there may be a call to
-     * XawTextUnsetSelection not yet updated.
-     */
-    if (!hpixels && scroll) {
-	ctx->text.clear_to_eol = True;
-	FlushUpdate(ctx);
-    }
-
-    /*
-     * Rebuild the line table, doing the vertical scroll
-     */
-    (void)_BuildLineTable(ctx, top, 0);
-    lt = &ctx->text.lt;
-    if (scroll) {
-	for (count = 0; count < lt->lines - 1; count++)
-	    if (lt->info[count + 1].y - lt->info[count].y != dim) {
-		scroll = False;
-		break;
-	    }
-    }
-
-    XtSetArg(arglist[0], XtNinsertPosition, lt->top + lt->lines);
-    _XawImSetValues((Widget)ctx, arglist, 1);
-
-    if (hpixels || !scroll || lines != lt->lines)
-	return;
-
-    /* _BuildLineTable updates everything if the top position changes.
-     * It is not required here.
-     */
-    (void)XmuScanlineXor(ctx->text.update, ctx->text.update);
-    if (vlines < 0 && IsPositionVisible(ctx, 0))
-	vlines = -LineForPosition(ctx, update_from);
-
-    y0 = ctx->text.r_margin.top;
-    if (vlines < 0) {
-	update_from = lt->top;
-	update_to = lt->info[-vlines + 1].position - 1;
-	y1 = lt->info[lt->lines + vlines].y;
-	y2 = lt->info[-vlines].y;
-	DoCopyArea(ctx, ctx->text.r_margin.left, y0, vwidth,
-		   y1 - y0,
-		   ctx->text.r_margin.left, y2);
-    }
-    else {
-	update_from = lt->info[lt->lines - vlines].position;
-	update_to = lt->info[lt->lines].position;
-	y1 = lt->info[lt->lines - vlines].y;
-	y2 = lt->info[vlines].y;
-	DoCopyArea(ctx, ctx->text.r_margin.left, y2,
-		   vwidth, lt->info[lt->lines].y - y2,
-		   ctx->text.r_margin.left, y0);
-    }
-    _XawTextNeedsUpdating(ctx, update_from, update_to);
-    ctx->text.clear_to_eol = True;
-}
-
-/*
- * The routine will scroll the displayed text by lines.  If the arg  is
- * positive, move up; otherwise, move down. [note: this is really a private
- * procedure but is used in multiple modules].
- */
-void
-_XawTextVScroll(TextWidget ctx, int n)
-{
-  XawTextScroll(ctx, n, 0);
-}
-
-/*ARGSUSED*/
-static void
-HScroll(Widget w, XtPointer closure, XtPointer callData)
-{
-    TextWidget ctx = (TextWidget)closure;
-    long pixels = (long)callData;
-
-    if (pixels > 0) {
-	long max;
-
-	max = (int)GetWidestLine(ctx) + ctx->text.left_margin -
-	      ctx->text.r_margin.left;
-	max = XawMax(0, max);
-	pixels = XawMin(pixels, max);
-    }
-
-    if (pixels) {
-	_XawTextPrepareToUpdate(ctx);
-	XawTextScroll(ctx, 0, pixels);
-	_XawTextExecuteUpdate(ctx);
-    }
-}
-
-/*ARGSUSED*/
-static void
-HJump(Widget w, XtPointer closure, XtPointer callData)
-{
-    TextWidget ctx = (TextWidget)closure;
-    float percent = *(float *)callData;
-    long pixels;
-
-    pixels = ctx->text.left_margin -
-	     (ctx->text.r_margin.left - (int)(percent * GetWidestLine(ctx)));
-
-    HScroll(w, (XtPointer)ctx, (XtPointer)pixels);
-}
-
-/*
- * Function:
- *	UpdateTextInLine
- *
- * Parameters:
- *	ctx  - text widget
- *	line - line to update
- *	x1   - left pixel
- *	x2   - right pixel
- *
- * Description:
- *	Updates the text in the given line and pixel interval
- */
-static void
-UpdateTextInLine(TextWidget ctx, int line, int x1, int x2)
-{
-    XawTextLineTableEntry *lt = ctx->text.lt.info + line;
-    XawTextPosition left, right;
-    int from_x, width, height;
-
-    if (lt->position >= ctx->text.lastPos
-	|| ctx->text.left_margin > x2
-	|| (int)lt->textWidth + ctx->text.left_margin < x1) {
-	/* Mark line to be cleared */
-	if (ctx->text.clear_to_eol)
-	    _XawTextNeedsUpdating(ctx, lt->position, lt->position + 1);
-	return;
-    }
-
-    from_x = ctx->text.left_margin;
-    XawTextSinkFindPosition(ctx->text.sink, lt->position,
-			    from_x, x1 - from_x,
-			    False, &left, &width, &height);
-    if (line == ctx->text.lt.lines)
-	right = -1;
-    else if (x2 >= lt->textWidth - from_x)
-	right = lt[1].position - 1;
-    else {
-	from_x += width;
-	XawTextSinkFindPosition(ctx->text.sink, left,
-				from_x, x2 - from_x,
-				False, &right, &width, &height);
-    }
-
-    if ((right < 0) || (right + 1 <= lt[1].position))
-	++right;
-
-    /* Mark text interval to be repainted */
-    _XawTextNeedsUpdating(ctx, left, right);
-}
-
-/*
- * The routine will scroll the displayed text by pixels.  If the calldata is
- * positive, move up; otherwise, move down.
- */
-/*ARGSUSED*/
-static void
-VScroll(Widget w, XtPointer closure, XtPointer callData)
-{
-    TextWidget ctx = (TextWidget)closure;
-    long height, lines = (long)callData;
-
-    height = XtHeight(ctx) - VMargins(ctx);
-    if (height < 1)
-	height = 1;
-    lines = (lines * ctx->text.lt.lines) / height;
-    _XawTextPrepareToUpdate(ctx);
-    XawTextScroll(ctx, lines, 0);
-    _XawTextExecuteUpdate(ctx);
-}
-
-/*ARGSUSED*/
-static void
-VJump(Widget w, XtPointer closure, XtPointer callData)
-{
-    float percent = *(float *)callData;
-    TextWidget ctx = (TextWidget)closure;
-    XawTextPosition top, last, position, tmp;
-    XawTextLineTable *lt = &(ctx->text.lt);
-    int dim, vlines = 0, wwidth = GetMaxTextWidth(ctx);
-    Bool scroll = True;
-
-    position = percent * ctx->text.lastPos;
-    top = lt->top;
-
-    if (!lt->lines || (position >= lt->top && position < lt->info[1].position)) {
-	_XawTextSetScrollBars(ctx);
-	return;
-    }
-
-#ifndef OLDXAW
-    ctx->text.lt.base_line = -1;
-#endif
-
-    if (position > lt->top) {	  /* VScroll Up */
-	if (position > lt->top && position < lt->info[lt->lines].position)
-	    vlines = LineForPosition(ctx, position);
-	else {
-	    scroll = False;
-	    top = SrcScan(ctx->text.source, position, XawstEOL,
-			  XawsdLeft, 1, False);
-	    if (ctx->text.wrap != XawtextWrapNever) {
-		last = top;
-		while (last < position) {
-		    tmp = last;
-		    XawTextSinkFindPosition(ctx->text.sink, last,
-					    ctx->text.left_margin, wwidth,
-					    ctx->text.wrap == XawtextWrapWord,
-					    &last, &dim, &dim);
-		    if (last == tmp)
-			++last;
-		    if (last < position)
-			top = last;
-		}
-	    }
-	}
-    }
-    else {		  /* VScroll Down */
-	/*
-	 * Calculates the number of lines
-	 */
-	while (top > position) {
-	    last = top;
-	    top = SrcScan(ctx->text.source, top, XawstEOL,
-			  XawsdLeft, 2, False);
-	    vlines -= CountLines(ctx, top, last);
-	    if (-vlines >= ctx->text.lt.lines) {
-		scroll = False;
-		top = SrcScan(ctx->text.source, position, XawstEOL,
-			      XawsdLeft, 1, False);
-		break;
-	      }
-	  }
-	/*
-	 * Normalize
-	 */
-	if (ctx->text.wrap != XawtextWrapNever) {
-	    last = top;
-	    while (last < position) {
-		tmp = last;
-		XawTextSinkFindPosition(ctx->text.sink, last,
-					ctx->text.left_margin,
-					wwidth,
-					ctx->text.wrap == XawtextWrapWord,
-					&last, &dim, &dim);
-		if (last == tmp)
-		    ++last;
-		if (last < position)
-		    top = last;
-		++vlines;
-	    }
-	}
-    }
-
-    if (vlines || !scroll) {
-	_XawTextPrepareToUpdate(ctx);
-	if (scroll)
-	    XawTextScroll(ctx, vlines, 0);
-	else
-	    _BuildLineTable(ctx, top, 0);
-	_XawTextExecuteUpdate(ctx);
-    }
-}
-
-static Bool
-MatchSelection(Atom selection, XawTextSelection *s)
-{
-    Atom *match;
-    int count;
-
-    for (count = 0, match = s->selections; count < s->atom_count;
-       match++, count++)
-    if (*match == selection)
-	return (True);
-
-  return (False);
-}
-
-static Boolean
-TextConvertSelection(Widget w, Atom *selection, Atom *target, Atom *type,
-		 XtPointer *value, unsigned long *length, int *format)
-{
-    Display *d = XtDisplay(w);
-    TextWidget ctx = (TextWidget)w;
-    Widget src = ctx->text.source;
-    XawTextEditType edit_mode;
-    Arg args[1];
-    XawTextSelectionSalt *salt = NULL;
-    XawTextSelection *s;
-
-    if (*target == XA_TARGETS(d)) {
-	Atom *targetP, *std_targets;
-	unsigned long std_length;
-
-	if (SrcCvtSel(src, selection, target, type, value, length, format))
-	    return (True);
-
-	XtSetArg(args[0], XtNeditType, &edit_mode);
-	XtGetValues(src, args, ONE);
-
-	XmuConvertStandardSelection(w, ctx->text.time, selection,
-				    target, type, (XPointer*)&std_targets,
-				    &std_length, format);
-
-	*length = 7 + (edit_mode == XawtextEdit) + std_length;
-	*value = XtMalloc((unsigned)sizeof(Atom)*(*length));
-	targetP = *(Atom**)value;
-	*targetP++ = XA_STRING;
-	*targetP++ = XA_TEXT(d);
-	*targetP++ = XA_UTF8_STRING(d);
-	*targetP++ = XA_COMPOUND_TEXT(d);
-	*targetP++ = XA_LENGTH(d);
-	*targetP++ = XA_LIST_LENGTH(d);
-	*targetP++ = XA_CHARACTER_POSITION(d);
-	if (edit_mode == XawtextEdit) {
-	    *targetP++ = XA_DELETE(d);
-	}
-	(void)memmove((char*)targetP, (char*)std_targets,
-		      sizeof(Atom) * std_length);
-	XtFree((char*)std_targets);
-	*type = XA_ATOM;
-	*format = 32;
-	return (True);
-    }
-
-    if (SrcCvtSel(src, selection, target, type, value, length, format))
-	return (True);
-
-    if (MatchSelection(*selection, &ctx->text.s))
-	s = &ctx->text.s;
-    else {
-	for (salt = ctx->text.salt; salt; salt = salt->next)
-	    if (MatchSelection(*selection, &salt->s))
-		break;
-	if (!salt)
-	    return (False);
-	s = &salt->s;
-    }
-    if (*target == XA_STRING
-	|| *target == XA_TEXT(d)
-	|| *target == XA_UTF8_STRING(d)
-	|| *target == XA_COMPOUND_TEXT(d)) {
-	if (*target == XA_TEXT(d)) {
-	    if (XawTextFormat(ctx, XawFmtWide))
-		*type = XA_COMPOUND_TEXT(d);
-	    else
-		*type = XA_STRING;
-	}
-	else
-	    *type = *target;
-	/* 
-	 * If salt is True, the salt->contents stores CT string,
-	 * its length is measured in bytes.
-	 * Refer to _XawTextSaltAwaySelection().
-	 *
-	 * by Li Yuhong, Mar. 20, 1991.
-	 */
-	if (!salt) {
-	    *value = _XawTextGetSTRING(ctx, s->left, s->right);
-	    if (XawTextFormat(ctx, XawFmtWide)) {
-		XTextProperty textprop;
-		if (XwcTextListToTextProperty(d, (wchar_t **)value, 1,
-					      XCompoundTextStyle, &textprop)
-		    <  Success) {
-		    XtFree((char *)*value);
-		    return (False);
-		}
-	 	XtFree((char *)*value);
-		*value = (XtPointer)textprop.value;
-		*length = textprop.nitems;
-	    }
-	    else
-	        *length = strlen((char *)*value);
-	}
-	else {
-	    *value = XtMalloc((salt->length + 1) * sizeof(unsigned char));
-	    strcpy ((char *)*value, salt->contents);
-	    *length = salt->length;
-	}
-	/* Got *value,*length, now in COMPOUND_TEXT format. */
-	if (XawTextFormat(ctx, XawFmtWide) && *type == XA_STRING) {
-	    XTextProperty textprop;
-	    wchar_t **wlist;
-	    int count;
-
-	    textprop.encoding = XA_COMPOUND_TEXT(d);
-	    textprop.value = (unsigned char *)*value;
-	    textprop.nitems = strlen(*value);
-	    textprop.format = 8;
-	    if (XwcTextPropertyToTextList(d, &textprop, &wlist, &count)
-		 < Success
-		|| count < 1) {
-		XtFree((char *)*value);
-		return (False);
-	    }
-	    XtFree((char *)*value);
-	    if (XwcTextListToTextProperty(d, wlist, 1, XStringStyle, &textprop)
-		 < Success) {
-		XwcFreeStringList((wchar_t**) wlist);
-		return (False);
-	    }
-	    *value = (XtPointer)textprop.value;
-	    *length = textprop.nitems;
-	    XwcFreeStringList(wlist);
-	} else if (*type == XA_UTF8_STRING(d)) {
-	    XTextProperty textprop;
-	    char **list;
-	    int count;
-
-	    textprop.encoding = XA_COMPOUND_TEXT(d);
-	    textprop.value = (unsigned char *)*value;
-	    textprop.nitems = strlen(*value);
-	    textprop.format = 8;
-	    if (Xutf8TextPropertyToTextList(d, &textprop, &list, &count)
-		 < Success
-		|| count < 1) {
-		XtFree((char *)*value);
-		return (False);
-	    }
-	    XtFree((char *)*value);
-	    *value = *list;
-	    *length = strlen(*list);
-	    XFree(list);
-	}
-	*format = 8;
-	return (True);
-    }
-
-    if ((*target == XA_LIST_LENGTH(d)) || (*target == XA_LENGTH(d))) {
-	long * temp;
-
-	temp = (long *)XtMalloc((unsigned)sizeof(long));
-	if (*target == XA_LIST_LENGTH(d))
-	    *temp = 1L;
-	else			/* *target == XA_LENGTH(d) */
-	    *temp = (long) (s->right - s->left);
-
-	*value = (XPointer)temp;
-	*type = XA_INTEGER;
-	*length = 1L;
-	*format = 32;
-	return (True);
-    }
-
-    if (*target == XA_CHARACTER_POSITION(d)) {
-	long * temp;
-
-	temp = (long *)XtMalloc((unsigned)(2 * sizeof(long)));
-	temp[0] = (long)(s->left + 1);
-	temp[1] = s->right;
-	*value = (XPointer)temp;
-	*type = XA_SPAN(d);
-	*length = 2L;
-	*format = 32;
-	return (True);
-    }
-
-    if (*target == XA_DELETE(d)) {
-	if (!salt)
-	    _XawTextZapSelection(ctx, NULL, True);
-	*value = NULL;
-	*type = XA_NULL(d);
-	*length = 0;
-	*format = 32;
-	return (True);
-    }
-
-    if (XmuConvertStandardSelection(w, ctx->text.time, selection, target, type,
-				    (XPointer *)value, length, format))
-	return (True);
-
-    /* else */
-    return (False);
-}
-
-/*
- * Function:
- *	GetCutBuffferNumber
- *
- * Parameters:
- *	atom - atom to check
- *
- * Description:
- *	Returns the number of the cut buffer.
- *
- * Returns:
- *	The number of the cut buffer representing this atom or NOT_A_CUT_BUFFER
- */
-#define NOT_A_CUT_BUFFER -1
-static int
-GetCutBufferNumber(Atom atom)
-{
-    if (atom == XA_CUT_BUFFER0) return (0);
-    if (atom == XA_CUT_BUFFER1) return (1);
-    if (atom == XA_CUT_BUFFER2) return (2);
-    if (atom == XA_CUT_BUFFER3) return (3);
-    if (atom == XA_CUT_BUFFER4) return (4);
-    if (atom == XA_CUT_BUFFER5) return (5);
-    if (atom == XA_CUT_BUFFER6) return (6);
-    if (atom == XA_CUT_BUFFER7) return (7);
-    return (NOT_A_CUT_BUFFER);
-}
-
-static void
-TextLoseSelection(Widget w, Atom *selection)
-{
-    TextWidget ctx = (TextWidget)w;
-    Atom *atomP;
-    int i;
-    XawTextSelectionSalt*salt, *prevSalt, *nextSalt;
-
-    atomP = ctx->text.s.selections;
-    for (i = 0 ; i < ctx->text.s.atom_count; i++, atomP++)
-	if ((*selection == *atomP)
-	    || (GetCutBufferNumber(*atomP) != NOT_A_CUT_BUFFER))
-	    *atomP = (Atom)0;
-
-    while (ctx->text.s.atom_count
-	   && ctx->text.s.selections[ctx->text.s.atom_count - 1] == 0)
-	ctx->text.s.atom_count--;
-
-    /*
-     * Must walk the selection list in opposite order from UnsetSelection
-     */
-    atomP = ctx->text.s.selections;
-    for (i = 0 ; i < ctx->text.s.atom_count; i++, atomP++)
-	if (*atomP == (Atom)0) {
-	    *atomP = ctx->text.s.selections[--ctx->text.s.atom_count];
-	    while (ctx->text.s.atom_count
-		   && ctx->text.s.selections[ctx->text.s.atom_count-1] == 0)
-		ctx->text.s.atom_count--;
-	}
-
-    if (ctx->text.s.atom_count == 0)
-	ModifySelection(ctx, ctx->text.insertPos, ctx->text.insertPos);
-
-    prevSalt = 0;
-    for (salt = ctx->text.salt; salt; salt = nextSalt) {
-	atomP = salt->s.selections;
-	nextSalt = salt->next;
-	for (i = 0 ; i < salt->s.atom_count; i++, atomP++)
-	    if (*selection == *atomP)
-		*atomP = (Atom)0;
-
-	while (salt->s.atom_count
-	       && salt->s.selections[salt->s.atom_count-1] == 0)
-	    salt->s.atom_count--;
-    	
-	/*
-	 * Must walk the selection list in opposite order from UnsetSelection
-	 */
-	atomP = salt->s.selections;
-	for (i = 0 ; i < salt->s.atom_count; i++, atomP++)
-	    if (*atomP == (Atom)0) {
-		*atomP = salt->s.selections[--salt->s.atom_count];
-		while (salt->s.atom_count
-		       && salt->s.selections[salt->s.atom_count-1] == 0)
-		    salt->s.atom_count--;
-	    }
-
-	if (salt->s.atom_count == 0) {
-	    XtFree ((char *) salt->s.selections);
-	    XtFree (salt->contents);
-	    if (prevSalt)
-		prevSalt->next = nextSalt;
-	    else
-		ctx->text.salt = nextSalt;
-	    XtFree((char *)salt);
-	}
-	else
-	    prevSalt = salt;
-    }
-}
-
-void
-_XawTextSaltAwaySelection(TextWidget ctx, Atom *selections, int num_atoms)
-{
-    XawTextSelectionSalt *salt;
-    int i, j;
-
-    for (i = 0; i < num_atoms; i++)
-	TextLoseSelection((Widget)ctx, selections + i);
-    if (num_atoms == 0)
-	return;
-    salt = (XawTextSelectionSalt *)
-	XtMalloc((unsigned)sizeof(XawTextSelectionSalt));
-    if (!salt)
-	return;
-    salt->s.selections = (Atom *)XtMalloc((unsigned)(num_atoms * sizeof(Atom)));
-    if (!salt->s.selections) {
-	XtFree((char *)salt);
-	return;
-    }
-    salt->s.left = ctx->text.s.left;
-    salt->s.right = ctx->text.s.right;
-    salt->s.type = ctx->text.s.type;
-    salt->contents = _XawTextGetSTRING(ctx, ctx->text.s.left, ctx->text.s.right);
-    if (XawTextFormat(ctx, XawFmtWide)) {
-	XTextProperty textprop;
-	if (XwcTextListToTextProperty(XtDisplay((Widget)ctx),
-				      (wchar_t**)(&(salt->contents)), 1,
-				      XCompoundTextStyle,
-				      &textprop) < Success) {
-	    XtFree(salt->contents);
-	    salt->length = 0;
-	    return;
-	}
-	XtFree(salt->contents);
-	salt->contents = (char *)textprop.value;
-	salt->length = textprop.nitems;
-    }
-    else
-	salt->length = strlen (salt->contents);
-    salt->next = ctx->text.salt;
-    ctx->text.salt = salt;
-    j = 0;
-    for (i = 0; i < num_atoms; i++) {
-	if (GetCutBufferNumber (selections[i]) == NOT_A_CUT_BUFFER) {
-	    salt->s.selections[j++] = selections[i];
-	    XtOwnSelection((Widget)ctx, selections[i], ctx->text.time,
-			   TextConvertSelection, TextLoseSelection, NULL);
-	}
-    }
-    salt->s.atom_count = j;
-}
-
-static void
-_SetSelection(TextWidget ctx, XawTextPosition left, XawTextPosition right,
-	      Atom *selections, Cardinal count)
-{
-#ifndef OLDXAW
-    Cardinal i;
-    XawTextPosition pos;
-    TextSrcObject src = (TextSrcObject)ctx->text.source;
-
-    for (i = 0; i < src->textSrc.num_text; i++) {
-	TextWidget tw = (TextWidget)src->textSrc.text[i];
-	Bool needs_updating = tw->text.old_insert < 0;
-	Bool showposition = tw->text.showposition;
-
-	if (needs_updating) {
-	    tw->text.showposition = False;
-	    _XawTextPrepareToUpdate(tw);
-	}
-#else
-	TextWidget tw = ctx;
-	XawTextPosition pos;
-#endif /* OLDXAW */
-
-	if (left < tw->text.s.left) {
-	    pos = Min(right, tw->text.s.left);
-	    _XawTextNeedsUpdating(tw, left, pos);
-	}
-	if (left > tw->text.s.left) {
-	    pos = Min(left, tw->text.s.right);
-	    _XawTextNeedsUpdating(tw, tw->text.s.left, pos);
-	}
-	if (right < tw->text.s.right) {
-	    pos = Max(right, tw->text.s.left);
-	    _XawTextNeedsUpdating(tw, pos, tw->text.s.right);
-	}
-	if (right > tw->text.s.right) {
-	    pos = Max(left, tw->text.s.right);
-	    _XawTextNeedsUpdating(tw, pos, right);
-	}
-
-	tw->text.s.left = left;
-	tw->text.s.right = right;
-
-#ifndef OLDXAW
-	if (needs_updating) {
-	    _XawTextExecuteUpdate(tw);
-	    tw->text.showposition = showposition;
-	}
-    }
-#endif /* OLDXAW */
-
-    SrcSetSelection(ctx->text.source, left, right,
-		    (count == 0) ? None : selections[0]);
-
-    if (left < right) {
-	Widget w = (Widget)ctx;
-	int buffer;
-
-	while (count) {
-	    Atom selection = selections[--count];
-
-	    /*
-	     * If this is a cut buffer
-	     */
-	    if ((buffer = GetCutBufferNumber(selection)) != NOT_A_CUT_BUFFER) {
-		unsigned char *ptr, *tptr;
-		unsigned int amount, max_len = MAX_CUT_LEN(XtDisplay(w));
-		unsigned long len;
-
-		tptr= ptr= (unsigned char *)_XawTextGetSTRING(ctx,
-							      ctx->text.s.left,
-							      ctx->text.s.right);
-		if (XawTextFormat(ctx, XawFmtWide)) {
-		    /*
-		     * Only XA_STRING(Latin 1) is allowed in CUT_BUFFER,
-		     * so we get it from wchar string, then free the wchar string
-		     */
-		    XTextProperty textprop;
-
-		    if (XwcTextListToTextProperty(XtDisplay(w), (wchar_t**)&ptr,
-						  1, XStringStyle, &textprop)
-			<  Success){
-			XtFree((char *)ptr);
-			return;
-		    }
-		    XtFree((char *)ptr);
-		    tptr = ptr = textprop.value;
-		}
-		if (buffer == 0) {
-		    _CreateCutBuffers(XtDisplay(w));
-		    XRotateBuffers(XtDisplay(w), 1);
-		}
-		amount = Min ((len = strlen((char *)ptr)), max_len);
-		XChangeProperty(XtDisplay(w), RootWindow(XtDisplay(w), 0),
-				selection, XA_STRING, 8, PropModeReplace,
-				ptr, amount);
-
-		while (len > max_len) {
-		    len -= max_len;
-		    tptr += max_len;
-		    amount = Min (len, max_len);
-		    XChangeProperty(XtDisplay(w), RootWindow(XtDisplay(w), 0),
-				    selection, XA_STRING, 8, PropModeAppend,
-				    tptr, amount);
-		}
-		XtFree ((char *)ptr);
-	    }
-	    else		/* This is a real selection */
-		XtOwnSelection(w, selection, ctx->text.time, TextConvertSelection,
-			       TextLoseSelection, NULL);
-	}
-    }
-    else
-	XawTextUnsetSelection((Widget)ctx);
-}
-
-#ifndef OLDXAW
-void
-_XawTextSetLineAndColumnNumber(TextWidget ctx, Bool force)
-{
-    int line_number, column_number;
-
-    if (ctx->text.old_insert != ctx->text.insertPos &&
-	ctx->text.lt.base_line < 0) {
-	ctx->text.lt.base_line = 0;
-	(void)_BuildLineTable(ctx, ctx->text.lt.top, 0);
-    }
-
-    line_number = ResolveLineNumber(ctx);
-    column_number = ResolveColumnNumber(ctx);
-
-    if (force || (ctx->text.column_number != column_number
-		  || ctx->text.line_number != line_number)) {
-	XawTextPositionInfo info;
-
-	ctx->text.line_number = info.line_number = line_number;
-	ctx->text.column_number = info.column_number = column_number;
-	info.insert_position = ctx->text.insertPos;
-	info.last_position = ctx->text.lastPos;
-	info.overwrite_mode = ctx->text.overwrite;
-
-	XtCallCallbacks((Widget)ctx, XtNpositionCallback, (XtPointer)&info);
-    }
-}
-
-static int
-ResolveColumnNumber(TextWidget ctx)
-{
-    Widget src = ctx->text.source;
-    short column_number = 0;
-    XawTextPosition position;
-    XawTextBlock block;
-    unsigned long format = _XawTextFormat(ctx);
-    TextSinkObject sink = (TextSinkObject)ctx->text.sink;
-    short *char_tabs = sink->text_sink.char_tabs;
-    int tab_count = sink->text_sink.tab_count;
-    int tab_index = 0, tab_column = 0, tab_base = 0;
-
-    if (ctx->text.lt.base_line < 1)
-	return (ctx->text.column_number);
-
-    position = SrcScan(src, ctx->text.insertPos, XawstEOL, XawsdLeft, 1, False);
-    XawTextSourceRead(src, position, &block, ctx->text.insertPos - position);
-
-    for (; position < ctx->text.insertPos; position++) {
-	if (position - block.firstPos >= block.length)
-	    XawTextSourceRead(src, position, &block, ctx->text.insertPos - position);
-	if ((format == XawFmt8Bit && block.ptr[position - block.firstPos] == '\t') ||
-	    (format == XawFmtWide && ((wchar_t*)block.ptr)[position - block.firstPos] == _Xaw_atowc(XawTAB))) {
-	    while (tab_base + tab_column <= column_number) {
-		if (tab_count) {
-		    for (; tab_index < tab_count; ++tab_index)
-			if (tab_base + char_tabs[tab_index] > column_number) {
-			    tab_column = char_tabs[tab_index];
-			    break;
-			}
-		    if (tab_index >= tab_count) {
-			tab_base += char_tabs[tab_count - 1];
-			tab_column = tab_index = 0;
-		    }
-		}
-		else
-		    tab_column += DEFAULT_TAB_SIZE;
-	    }
-	    column_number = tab_base + tab_column;
-	}
-	else
-	    ++column_number;
-	if (column_number >= 16384) {
-	    column_number = 16383;
-	    break;
-	}
-    }
-
-    return (column_number);
-}
-#endif /* OLDXAW */
-
-void
-_XawTextSourceChanged(Widget w, XawTextPosition left, XawTextPosition right,
-		      XawTextBlock *block, int lines)
-{
-    TextWidget ctx = (TextWidget)w;
-    Widget src = ctx->text.source;
-    XawTextPosition update_from, update_to, top;
-    Boolean update_disabled;
-    int delta, line, line_from;
-
-    if (left < ctx->text.old_insert) {
-	XawTextPosition old_insert = ctx->text.old_insert;
-
-	if (right < ctx->text.old_insert)
-	    old_insert -= right - left;
-	else
-	    old_insert = left;
-
-	ctx->text.insertPos = old_insert + block->length;
-    }
-#ifndef OLDXAW
-    if (left <= ctx->text.lt.top) {
-	if (left + block->length - (right - left) < ctx->text.lt.top) {
-	    ctx->text.source_changed = SRC_CHANGE_BEFORE;
-	    ctx->text.lt.base_line += lines;
-	}
-	else
-	    ctx->text.source_changed = SRC_CHANGE_OVERLAP;
-    }
-    else
-	ctx->text.source_changed = SRC_CHANGE_AFTER;
-#endif
-
-    update_from = left;
-    update_to = left + block->length;
-    update_to = SrcScan(src, update_to, XawstEOL, XawsdRight, 1, False);
-    delta = block->length - (right - left);
-    if (delta < 0)
-	ctx->text.clear_to_eol = True;
-    if (update_to == update_from)
-	++update_to;
-    update_disabled = ctx->text.update_disabled;
-    ctx->text.update_disabled = True;
-    ctx->text.lastPos = XawTextGetLastPosition(ctx);
-    top = ctx->text.lt.info[0].position;
-
-    XawTextUnsetSelection((Widget)ctx);
-
-    if (delta) {
-	int i;
-	XmuSegment *seg;
-
-	for (seg = ctx->text.update->segment; seg; seg = seg->next) {
-	    if (seg->x1 > (int)left)
-		break;
-	    else if (seg->x2 > (int)left) {
-		seg->x2 += delta;
-		seg = seg->next;
-		break;
-	    }
-	}
-	for (; seg; seg = seg->next) {
-	    seg->x1 += delta;
-	    seg->x2 += delta;
-	}
-	XmuOptimizeScanline(ctx->text.update);
-
-	for (i = 0; i <= ctx->text.lt.lines; i++)
-	    if (ctx->text.lt.info[i].position > left)
-		break;
-	for (; i <= ctx->text.lt.lines; i++)
-	    ctx->text.lt.info[i].position += delta;
-    }
-
-    if (top != ctx->text.lt.info[0].position) {
-	line_from = line = 0;
-	ctx->text.lt.top = top = SrcScan(src, ctx->text.lt.info[0].position,
-					 XawstEOL, XawsdLeft, 1, False);
-	update_from = top;
-    }
-    else {
-	line_from = line = LineForPosition(ctx, update_from + delta);
-	top = ctx->text.lt.info[line].position;
-    }
-
-    if (line > 0 && ctx->text.wrap == XawtextWrapWord) {
-	--line;
-	top = ctx->text.lt.info[line].position;
-    }
-
-    (void)_BuildLineTable(ctx, top, line);
-
-    if (ctx->text.wrap == XawtextWrapWord) {
-	if (line_from != LineForPosition(ctx, update_from)
-	    || line_from != LineForPosition(ctx, update_to)) {
-	    ctx->text.clear_to_eol = True;
-	    update_from = SrcScan(src, update_from,
-				  XawstWhiteSpace, XawsdLeft, 1, True);
-	    if (update_to >= ctx->text.lastPos)
-	    /* this is not an error, it just tells _BuildLineTable to
-	     * clear to the bottom of the window. The value of update_to
-	     * should not be > ctx->text.lastPos.
-	     */
-		++update_to;
-	}
-    }
-    else if (!ctx->text.clear_to_eol) {
-	if (LineForPosition(ctx, update_from)
-	    != LineForPosition(ctx, update_to))
-	    ctx->text.clear_to_eol = True;
-    }
-
-    _XawTextNeedsUpdating(ctx, update_from, update_to);
-    ctx->text.update_disabled = update_disabled;
-}
-
-/*
- * Function:
- *	_XawTextReplace
- *
- * Parameters:
- *	ctx   - text widget
- *	left  - left offset
- *	right - right offset
- *	block - text block
- *
- * Description:
- *	  Replaces the text between left and right by the text in block.
- *	  Does all the required calculations of offsets, and rebuild the
- *	the line table, from the insertion point (or previous line, if
- *	wrap mode is 'word').
- *
- * Returns:
- *	XawEditDone     - success
- *	any other value - error code
- */
-int
-_XawTextReplace(TextWidget ctx, XawTextPosition left, XawTextPosition right,
-		XawTextBlock *block)
-{
-    Arg args[1];
-    Widget src;
-    XawTextEditType edit_mode;
-
-    if (left == right && block->length == 0)
-	return (XawEditDone);
-
-    src = ctx->text.source;
-    XtSetArg(args[0], XtNeditType, &edit_mode);
-    XtGetValues(src, args, 1);
-
-    if (edit_mode == XawtextAppend) {
-	if (block->length == 0)
-	    return (XawEditError);
-	ctx->text.insertPos = ctx->text.lastPos;
-    }
-
-#ifndef OLDXAW
-    return (SrcReplace(src, left, right, block));
-#else
-    if (SrcReplace(src, left, right, block) == XawEditDone) {
-	_XawTextSourceChanged((Widget)ctx, left, right, block, 0);
-
-	return (XawEditDone);
-    }
-
-    return (XawEditError);
-#endif
-}
-
-/*
- * This routine will display text between two arbitrary source positions.
- * In the event that this span contains highlighted text for the selection,
- * only that portion will be displayed highlighted.
- */
-static void
-OldDisplayText(Widget w, XawTextPosition left, XawTextPosition right)
-{
-    static XmuSegment segment;
-    static XmuScanline next;
-    static XmuScanline scanline = {0, &segment, &next};
-    static XmuArea area = {&scanline};
-
-    TextWidget ctx = (TextWidget)w;
-    int x, y, line;
-    XawTextPosition start, end, last, final;
-    XmuScanline *scan;
-    XmuSegment *seg;
-    XmuArea *clip = NULL;
-    Bool cleol = ctx->text.clear_to_eol;
-    Bool has_selection = ctx->text.s.right > ctx->text.s.left;
-
-    left = left < ctx->text.lt.top ? ctx->text.lt.top : left;
-
-    if (left > right || !LineAndXYForPosition(ctx, left, &line, &x, &y))
-	return;
-
-    last = XawTextGetLastPosition(ctx);
-    segment.x2 = (int)XtWidth(ctx) - ctx->text.r_margin.right;
-
-    if (cleol)
-	clip = XmuCreateArea();
-
-    for (start = left; start < right && line < ctx->text.lt.lines; line++) {
-	if ((end = ctx->text.lt.info[line + 1].position) > right)
-	    end = right;
-
-	final = end;
-	if (end > last)
-	    end = last;
-
-	if (end > start) {
-	    if (!has_selection
-		|| (start >= ctx->text.s.right || end <= ctx->text.s.left))
-		_XawTextSinkDisplayText(ctx->text.sink, x, y, start, end, False);
-	    else if (start >= ctx->text.s.left && end <= ctx->text.s.right)
-		_XawTextSinkDisplayText(ctx->text.sink, x, y, start, end, True);
-	    else {
-		OldDisplayText(w, start, ctx->text.s.left);
-		OldDisplayText(w, Max(start, ctx->text.s.left),
-			       Min(end, ctx->text.s.right));
-		OldDisplayText(w, ctx->text.s.right, end);
-	    }
-	}
-
-	x = ctx->text.left_margin;
-	if (cleol) {
-	    segment.x1 = ctx->text.lt.info[line].textWidth + x;
-	    if (XmuValidSegment(&segment)) {
-		scanline.y = y;
-		next.y = ctx->text.lt.info[line + 1].y;
-		XmuAreaOr(clip, &area);
-	    }
-	}
-
-	start = final;
-	y = ctx->text.lt.info[line + 1].y;
-    }
-
-    if (cleol)  {
-	for (scan = clip->scanline; scan && scan->next; scan = scan->next)
-	    for (seg = scan->segment; seg; seg = seg->next)
-		SinkClearToBG(ctx->text.sink,
-			      seg->x1, scan->y,
-			      seg->x2 - seg->x1, scan->next->y - scan->y);
-	XmuDestroyArea(clip);
-    }
-}
-
-#ifndef OLDXAW
-/*ARGSUSED*/
-static void
-DisplayText(Widget w, XawTextPosition left, XawTextPosition right)
-{
-    static XmuSegment segment;
-    static XmuScanline next;
-    static XmuScanline scanline = {0, &segment, &next};
-    static XmuArea area = {&scanline};
-
-    TextWidget ctx = (TextWidget)w;
-    int y, line;
-    XawTextPosition from, to, lastPos;
-    Bool cleol = ctx->text.clear_to_eol;
-    Bool has_selection = ctx->text.s.right > ctx->text.s.left;
-    XawTextPaintList *paint_list;
-
-    left = left < ctx->text.lt.top ? ctx->text.lt.top : left;
-
-    if (left > right || !IsPositionVisible(ctx, left))
-	return;
-
-    line = LineForPosition(ctx, left);
-    y = ctx->text.lt.info[line].y;
-    segment.x2 = (int)XtWidth(ctx) - ctx->text.r_margin.right;
-    lastPos = XawTextGetLastPosition(ctx);
-
-    paint_list = ((TextSinkObject)ctx->text.sink)->text_sink.paint;
-
-    for (from = left; from < right && line < ctx->text.lt.lines; line++) {
-	if ((to = ctx->text.lt.info[line + 1].position) > right)
-	    to = right;
-
-	if (to > lastPos)
-	    to = lastPos;
-
-	if (from < to) {
-	    if (!has_selection
-		|| (from >= ctx->text.s.right || to <= ctx->text.s.left))
-		XawTextSinkPreparePaint(ctx->text.sink, y, line, from, to, False);
-	    else if (from >= ctx->text.s.left && to <= ctx->text.s.right)
-		XawTextSinkPreparePaint(ctx->text.sink, y, line, from, to, True);
-	    else {
-		XawTextSinkPreparePaint(ctx->text.sink, y, line, from,
-					ctx->text.s.left, False);
-		XawTextSinkPreparePaint(ctx->text.sink, y, line,
-					XawMax(from, ctx->text.s.left),
-					XawMin(to, ctx->text.s.right), True);
-		XawTextSinkPreparePaint(ctx->text.sink, y, line,
-					ctx->text.s.right, to, False);
-	    }
-	}
-
-	if (cleol) {
-	    segment.x1 = ctx->text.lt.info[line].textWidth + ctx->text.left_margin;
-	    if (XmuValidSegment(&segment)) {
-		scanline.y = y;
-		next.y = ctx->text.lt.info[line + 1].y;
-		XmuAreaOr(paint_list->clip, &area);
-	    }
-	}
-	y = ctx->text.lt.info[line + 1].y;
-	from = to;
-    }
-
-    /* clear to the bottom of the window */
-    if (cleol && line >= ctx->text.lt.lines) {
-	segment.x1 = ctx->text.left_margin;
-	if (XmuValidSegment(&segment)) {
-	    scanline.y = y;
-	    next.y = (int)XtHeight(ctx) - (int)ctx->text.margin.bottom;
-	    XmuAreaOr(paint_list->clip, &area);
-	}
-    }
-}
-#endif
-
-/*
- * This routine implements multi-click selection in a hardwired manner.
- * It supports multi-click entity cycling (char, word, line, file) and mouse
- * motion adjustment of the selected entitie (i.e. select a word then, with
- * button still down, adjust wich word you really meant by moving the mouse).
- * [NOTE: This routine is to be replaced by a set of procedures that
- * will allows clients to implements a wide class of draw through and
- * multi-click selection user interfaces.]
- */
-static void
-DoSelection(TextWidget ctx, XawTextPosition pos, Time time, Bool motion)
-{
-    XawTextPosition newLeft, newRight;
-    XawTextSelectType newType, *sarray;
-    Widget src = ctx->text.source;
-
-    if (motion)
-	newType = ctx->text.s.type;
-    else {
-	if ((abs((long) time - (long) ctx->text.lasttime) < MULTI_CLICK_TIME)
-	    && (pos >= ctx->text.s.left && pos <= ctx->text.s.right)) {
-	    sarray = ctx->text.sarray;
-	    for (; *sarray != XawselectNull && *sarray != ctx->text.s.type;
-		 sarray++)
-		;
-	    if (*sarray == XawselectNull)
-		newType = *(ctx->text.sarray);
-	    else {
-		newType = *(sarray + 1);
-		if (newType == XawselectNull)
-		    newType = *(ctx->text.sarray);
-	    }
-	}
-	else		/* single-click event */
-	    newType = *(ctx->text.sarray);
-
-	ctx->text.lasttime = time;
-    }
-    switch (newType) {
-	case XawselectPosition:
-	    newLeft = newRight = pos;
-	    break;
-	case XawselectChar:
-	    newLeft = pos;
-	    newRight = SrcScan(src, pos, XawstPositions, XawsdRight, 1, False);
-	    break;
-	case XawselectWord:
-	case XawselectParagraph:
-	case XawselectAlphaNumeric: {
-	    XawTextScanType stype;
-
-	    if (newType == XawselectWord)
-		stype = XawstWhiteSpace;
-	    else if (newType == XawselectParagraph)
-		stype = XawstParagraph;
-	    else
-		stype = XawstAlphaNumeric;
-
-	    /*
-	     * Somewhat complicated, but basically I treat the space between
-	     * two objects as another object.  The object that I am currently
-	     * in then becomes the end of the selection.
-	     *
-	     * Chris Peterson - 4/19/90.
-	     */
-	    newRight = SrcScan(ctx->text.source, pos, stype,
-			       XawsdRight, 1, False);
-	    newRight = SrcScan(ctx->text.source, newRight, stype,
-			       XawsdLeft, 1, False);
-
-	    if (pos != newRight)
-		newLeft = SrcScan(ctx->text.source, pos, stype,
-				  XawsdLeft, 1, False);
-	    else
-		newLeft = pos;
-
-	    newLeft =SrcScan(ctx->text.source, newLeft, stype,
-			     XawsdRight, 1, False);
-
-	    if (newLeft > newRight) {
-		XawTextPosition temp = newLeft;
-		newLeft = newRight;
-		newRight = temp;
-	    }
-	}   break;
-	case XawselectLine:
-	    newLeft = SrcScan(src, pos, XawstEOL, XawsdLeft, 1, False);
-	    newRight = SrcScan(src, pos, XawstEOL, XawsdRight, 1, False);
-	    break;
-	case XawselectAll:
-	    newLeft = SrcScan(src, pos, XawstAll, XawsdLeft, 1, False);
-	    newRight = SrcScan(src, pos, XawstAll, XawsdRight, 1, False);
-	    break;
-	default:
-	    XtAppWarning(XtWidgetToApplicationContext((Widget) ctx),
-			 "Text Widget: empty selection array.");
-	    return;
-    }
-
-    if (newLeft != ctx->text.s.left || newRight != ctx->text.s.right
-	|| newType != ctx->text.s.type) {
-	ModifySelection(ctx, newLeft, newRight);
-	if (pos - ctx->text.s.left < ctx->text.s.right - pos)
-	    ctx->text.insertPos = newLeft;
-	else
-	    ctx->text.insertPos = newRight;
-	ctx->text.s.type = newType;
-    }
-    if (!motion) {	/* setup so we can freely mix select extend calls*/
-	ctx->text.origSel.type = ctx->text.s.type;
-	ctx->text.origSel.left = ctx->text.s.left;
-	ctx->text.origSel.right = ctx->text.s.right;
-
-	if (pos >= ctx->text.s.left + (ctx->text.s.right - ctx->text.s.left) / 2)
-	    ctx->text.extendDir = XawsdRight;
-	else
-	    ctx->text.extendDir = XawsdLeft;
-    }
-}
-
-/*
- * This routine implements extension of the currently selected text in
- * the "current" mode (i.e. char word, line, etc.). It worries about
- * extending from either end of the selection and handles the case when you
- * cross through the "center" of the current selection (e.g. switch which
- * end you are extending!).
- */
-static void
-ExtendSelection(TextWidget ctx, XawTextPosition pos, Bool motion)
-{
-    XawTextScanDirection dir;
-
-    if (!motion) {	/* setup for extending selection */
-	if (ctx->text.s.left == ctx->text.s.right) /* no current selection. */
-	    ctx->text.s.left = ctx->text.s.right = ctx->text.insertPos;
-	else {
-	    ctx->text.origSel.left = ctx->text.s.left;
-	    ctx->text.origSel.right = ctx->text.s.right;
-	}
-
-	ctx->text.origSel.type = ctx->text.s.type;
-
-	if (pos >= ctx->text.s.left + (ctx->text.s.right - ctx->text.s.left) / 2)
-	    ctx->text.extendDir = XawsdRight;
-	else
-	    ctx->text.extendDir = XawsdLeft;
-    }
-    else	/* check for change in extend direction */
-	if ((ctx->text.extendDir == XawsdRight &&
-	     pos <= ctx->text.origSel.left) ||
-	    (ctx->text.extendDir == XawsdLeft &&
-	     pos >= ctx->text.origSel.right)) {
-	    ctx->text.extendDir = (ctx->text.extendDir == XawsdRight) ?
-		XawsdLeft : XawsdRight;
-	    ModifySelection(ctx, ctx->text.origSel.left, ctx->text.origSel.right);
-	}
-
-    dir = ctx->text.extendDir;
-    switch (ctx->text.s.type) {
-	case XawselectWord:
-	case XawselectParagraph:
-	case XawselectAlphaNumeric: {
-	    XawTextPosition left_pos, right_pos;
-	    XawTextScanType stype;
-
-	    if (ctx->text.s.type == XawselectWord)
-	        stype = XawstWhiteSpace;
-	    else if (ctx->text.s.type == XawselectParagraph)
-	        stype = XawstParagraph;
-	    else
-	        stype = XawstAlphaNumeric;
-
-	    /*
-	     * Somewhat complicated, but basically I treat the space between
-	     * two objects as another object.  The object that I am currently
-	     * in then becomes the end of the selection.
-	     *
-	     * Chris Peterson - 4/19/90.
-	     */
-	    right_pos = SrcScan(ctx->text.source, pos, stype,
-				XawsdRight, 1, False);
-	    right_pos =SrcScan(ctx->text.source, right_pos, stype,
-			       XawsdLeft, 1, False);
-
-	    if (pos != right_pos)
-		left_pos = SrcScan(ctx->text.source, pos, stype,
-				   XawsdLeft, 1, False);
-	    else
-		left_pos = pos;
-
-	    left_pos =SrcScan(ctx->text.source, left_pos, stype,
-			      XawsdRight, 1, False);
-
-	    if (dir == XawsdLeft)
-		pos = Min(left_pos, right_pos);
-	    else	/* dir == XawsdRight */
-		pos = Max(left_pos, right_pos);
-	}   break;
-	case XawselectLine:
-	    pos = SrcScan(ctx->text.source, pos, XawstEOL,
-			  dir, 1, dir == XawsdRight);
-	    break;
-	case XawselectAll:
-	    pos = ctx->text.insertPos;
-	    /*FALLTHROUGH*/
-	case XawselectPosition:
-	default:
-	    break;
-    }
-
-    if (dir == XawsdRight)
-	ModifySelection(ctx, ctx->text.s.left, pos);
-    else
-	ModifySelection(ctx, pos, ctx->text.s.right);
-
-    ctx->text.insertPos = pos;
-}
-
-/*
- * Function:
- *	_XawTextClearAndCenterDisplay
- *
- * Parameters:
- *	ctx - text widget
- *
- * Description:
- *	  Redraws the display with the cursor in insert point
- *		     centered vertically.
- */
-void
-_XawTextClearAndCenterDisplay(TextWidget ctx)
-{
-    int left_margin = ctx->text.left_margin;
-    Bool visible = IsPositionVisible(ctx, ctx->text.insertPos);
-
-    _XawTextShowPosition(ctx);
-
-    if (XtIsRealized((Widget)ctx) && visible &&
-	left_margin == ctx->text.left_margin) {
-	int insert_line = LineForPosition(ctx, ctx->text.insertPos);
-	int scroll_by = insert_line - (ctx->text.lt.lines >> 1);
-	Boolean clear_to_eol = ctx->text.clear_to_eol;
-
-	XawTextScroll(ctx, scroll_by, 0);
-	SinkClearToBG(ctx->text.sink, 0, 0, XtWidth(ctx), XtHeight(ctx));
-	ClearWindow(ctx);
-	clear_to_eol = ctx->text.clear_to_eol;
-	ctx->text.clear_to_eol = False;
-	FlushUpdate(ctx);
-	ctx->text.clear_to_eol = clear_to_eol;
-    }
-}
-
-/*
- * Internal redisplay entire window
- * Legal to call only if widget is realized
- */
-static void
-DisplayTextWindow(Widget w)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    _XawTextBuildLineTable(ctx, ctx->text.lt.top, False);
-    ClearWindow(ctx);
-}
-
-static void
-TextSinkResize(Widget w)
-{
-    if (w && XtClass(w)->core_class.resize)
-	XtClass(w)->core_class.resize(w);
-}
-
-/* ARGSUSED */
-void
-_XawTextCheckResize(TextWidget ctx)
-{
-    return;
-}
-
-/*
- * Converts (params, num_params) to a list of atoms & caches the
- * list in the TextWidget instance.
- */
-Atom *
-_XawTextSelectionList(TextWidget ctx, String *list, Cardinal nelems)
-{
-    Atom *sel = ctx->text.s.selections;
-    Display *dpy = XtDisplay((Widget)ctx);
-    int n;
-
-    if (nelems > (Cardinal)ctx->text.s.array_size) {
-	sel = (Atom *)XtRealloc((char *)sel, sizeof(Atom) * nelems);
-	ctx->text.s.array_size = nelems;
-	ctx->text.s.selections = sel;
-    }
-    for (n = nelems; --n >= 0; sel++, list++)
-	*sel = XInternAtom(dpy, *list, False);
-    ctx->text.s.atom_count = nelems;
-
-    return (ctx->text.s.selections);
-}
-
-/*
- * Function:
- *	SetSelection
- *
- * Parameters:
- *	ctx	   - text widget
- *	defaultSel - default selection
- *	l	   - left and right ends of the selection
- *	r	   - ""
- *	list	   - the selection list (as strings).
- *	nelems	   - ""
- *
- * Description:
- *	Sets the current selection.
- *
- * Note:
- *	if (ctx->text.s.left >= ctx->text.s.right) then the selection is unset
- */
-void
-_XawTextSetSelection(TextWidget ctx, XawTextPosition l, XawTextPosition r,
-		     String *list, Cardinal nelems)
-{
-    if (nelems == 1 && !strcmp (list[0], "none"))
-	return;
-    if (nelems == 0) {
-	String defaultSel = "PRIMARY";
-	list = &defaultSel;
-	nelems = 1;
-    }
-    _SetSelection(ctx, l, r, _XawTextSelectionList(ctx, list, nelems), nelems);
-}
-
-/*
- * Function:
- *	ModifySelection
- *
- * Parameters:
- *	ctx   - text widget
- *	left  - left and right ends of the selection
- *	right - ""
- *
- * Description:
- *	Modifies the current selection.
- *
- * Note:
- *	if (ctx->text.s.left >= ctx->text.s.right) then the selection is unset
- */
-static void
-ModifySelection(TextWidget ctx, XawTextPosition left, XawTextPosition right)
-{
-    if (left == right)
-	ctx->text.insertPos = left;
-    _SetSelection(ctx, left, right, NULL, 0);
-}
-
-/*
- * This routine is used to perform various selection functions. The goal is
- * to be able to specify all the more popular forms of draw-through and
- * multi-click selection user interfaces from the outside.
- */
-void
-_XawTextAlterSelection(TextWidget ctx, XawTextSelectionMode mode,
-		       XawTextSelectionAction action, String *params,
-		       Cardinal *num_params)
-{
-    XawTextPosition position;
-    Boolean flag;
-
-    /*
-     * This flag is used by TextPop.c:DoReplace() to determine if the selection
-     * is okay to use, or if it has been modified.
-     */
-    if (ctx->text.search != NULL)
-	ctx->text.search->selection_changed = True;
-
-    position = PositionForXY(ctx, (int) ctx->text.ev_x, (int) ctx->text.ev_y);
-
-    flag = (action != XawactionStart);
-    if (mode == XawsmTextSelect)
-	DoSelection(ctx, position, ctx->text.time, flag);
-    else		/* mode == XawsmTextExtend */
-	ExtendSelection (ctx, position, flag);
-
-    if (action == XawactionEnd)
-	_XawTextSetSelection(ctx, ctx->text.s.left, ctx->text.s.right,
-			     params, *num_params);
-}
-
-/*
- * Function:
- *	UpdateTextInRectangle
- *
- * Parameters:
- *	ctx  - the text widget
- *	rect - rectangle
- *
- * Description:
- *	Updates the text in the given rectangle
- */
-static void
-UpdateTextInRectangle(TextWidget ctx, XRectangle *rect)
-{
-    XawTextLineTable *lt;
-    int line, y1, y2, x2;
-
-    y1 = rect->y;
-    y2 = y1 + rect->height;
-    x2 = rect->x + rect->width;
-
-    for (line = 0, lt = &ctx->text.lt; line < lt->lines; line++)
-	if (lt->info[line + 1].y > y1)
-	    break;
-    for (; line <= lt->lines; line++) {
-	if (lt->info[line].y > y2)
-	    break;
-	UpdateTextInLine(ctx, line, rect->x, x2);
-    }
-}
-
-/*
- * This routine processes all "expose region" XEvents. In general, its job
- * is to the best job at minimal re-paint of the text, displayed in the
- * window, that it can.
- */
-/* ARGSUSED */
-static void
-XawTextExpose(Widget w, XEvent *event, Region region)
-{
-    TextWidget ctx = (TextWidget)w;
-    Boolean clear_to_eol;
-    XRectangle expose;
-
-    if (event->type == Expose) {
-	expose.x = event->xexpose.x;
-	expose.y = event->xexpose.y;
-	expose.width = event->xexpose.width;
-	expose.height = event->xexpose.height;
-    }
-    else if (event->type == GraphicsExpose) {
-	expose.x = event->xgraphicsexpose.x;
-	expose.y = event->xgraphicsexpose.y;
-	expose.width = event->xgraphicsexpose.width;
-	expose.height = event->xgraphicsexpose.height;
-    }
-    else
-	return;
-
-    _XawTextPrepareToUpdate(ctx);
-
-    if (Superclass->core_class.expose)
-	(*Superclass->core_class.expose)(w, event, region);
-
-    clear_to_eol = ctx->text.clear_to_eol;
-    ctx->text.clear_to_eol = False;
-
-    UpdateTextInRectangle(ctx, &expose);
-    XawTextSinkGetCursorBounds(ctx->text.sink, &expose);
-    UpdateTextInRectangle(ctx, &expose);
-    SinkClearToBG(ctx->text.sink, expose.x, expose.y,
-		  expose.width, expose.height);
-    _XawTextExecuteUpdate(ctx);
-    ctx->text.clear_to_eol = clear_to_eol;
-}
-
-/*
- * This routine does all setup required to syncronize batched screen updates
- */
-void
-_XawTextPrepareToUpdate(TextWidget ctx)
-{
-    if (ctx->text.old_insert < 0) {
-	InsertCursor((Widget)ctx, XawisOff);
-	ctx->text.showposition = False;
-	ctx->text.old_insert = ctx->text.insertPos;
-	ctx->text.clear_to_eol = False;
-#ifndef OLDXAW
-	ctx->text.source_changed = SRC_CHANGE_NONE;
-#endif
-    }
-}
-
-/*
- * This is a private utility routine used by _XawTextExecuteUpdate. It
- * processes all the outstanding update requests and merges update
- * ranges where possible.
- */
-static void
-FlushUpdate(TextWidget ctx)
-{
-    XmuSegment *seg;
-    void (*display_text)(Widget, XawTextPosition, XawTextPosition);
-
-    if (XtIsRealized((Widget)ctx)) {
-	ctx->text.s.right = XawMin(ctx->text.s.right, ctx->text.lastPos);
-	ctx->text.s.left = XawMin(ctx->text.s.left, ctx->text.s.right);
-
-#ifndef OLDXAW
-	if (XawTextSinkBeginPaint(ctx->text.sink) == False)
-#endif
-	    display_text = OldDisplayText;
-#ifndef OLDXAW
-	else
-	    display_text = DisplayText;
-#endif
-	for (seg = ctx->text.update->segment; seg; seg = seg->next)
-	    (*display_text)((Widget)ctx,
-			    (XawTextPosition)seg->x1,
-			    (XawTextPosition)seg->x2);
-#ifndef OLDXAW
-	if (display_text != OldDisplayText) {
-	    XawTextSinkDoPaint(ctx->text.sink);
-	    XawTextSinkEndPaint(ctx->text.sink);
-	}
-#endif
-    }
-    (void)XmuScanlineXor(ctx->text.update, ctx->text.update);
-}
-
-static int
-CountLines(TextWidget ctx, XawTextPosition left, XawTextPosition right)
-{
-    if (ctx->text.wrap == XawtextWrapNever || left >= right)
-	return (1);
-    else {
-	XawTextPosition tmp;
-	int dim, lines = 0, wwidth = GetMaxTextWidth(ctx);
-
-	while (left < right) {
-	    tmp = left;
-	    XawTextSinkFindPosition(ctx->text.sink, left,
-				    ctx->text.left_margin,
-				    wwidth, ctx->text.wrap == XawtextWrapWord,
-				    &left, &dim, &dim);
-	    ++lines;
-	    if (tmp == left)
-	      ++left;
-	}
-
-	return (lines);
-    }
-    /*NOTREACHED*/
-}
-
-static int
-GetMaxTextWidth(TextWidget ctx)
-{
-    XRectangle cursor;
-    int width;
-
-    XawTextSinkGetCursorBounds(ctx->text.sink, &cursor);
-    width = (int)XtWidth(ctx) - RHMargins(ctx) - cursor.width;
-
-    return (XawMax(0, width));
-}
-
-/*
- * Function:
- *	_XawTextShowPosition
- *
- * Parameters:
- *	ctx - the text widget to show the position
- *
- * Description:
- *	  Makes sure the text cursor visible, scrolling the text window
- *	if required.
- */
-void
-_XawTextShowPosition(TextWidget ctx)
-{
-    /*
-     * Variable scroll is used to avoid scanning large files to calculate
-     * line offsets
-     */
-    int hpixels, vlines;
-    XawTextPosition first, last, top, tmp;
-    Bool visible, scroll;
-
-    if (!XtIsRealized((Widget)ctx))
-	return;
-
-    /*
-     * Checks if a horizontal scroll is required
-     */
-    if (ctx->text.wrap == XawtextWrapNever) {
-	int x, vwidth, distance, dim;
-	XRectangle rect;
-
-	vwidth = (int)XtWidth(ctx) - RHMargins(ctx);
-	last = SrcScan(ctx->text.source, ctx->text.insertPos,
-		       XawstEOL, XawsdLeft, 1, False);
-	XawTextSinkFindDistance(ctx->text.sink, last,
-				ctx->text.left_margin,
-				ctx->text.insertPos,
-				&distance, &first, &dim);
-	XawTextSinkGetCursorBounds(ctx->text.sink, &rect);
-	x = ctx->text.left_margin - ctx->text.r_margin.left;
-
-	if (x + distance + rect.width > vwidth)
-	    hpixels = x + distance + rect.width - vwidth + (vwidth >> 2);
-	else if (x + distance < 0)
-	    hpixels = x + distance - (vwidth >> 2);
-	else
-	    hpixels = 0;
-    }
-    else
-	hpixels = 0;
-
-    visible = IsPositionVisible(ctx, ctx->text.insertPos);
-
-    /*
-     * If the cursor is already visible
-     */
-    if (!hpixels && visible)
-	return;
-
-    scroll = ctx->core.background_pixmap == XtUnspecifiedPixmap && !hpixels;
-    vlines = 0;
-    first = ctx->text.lt.top;
-
-    /*
-     * Needs to scroll the text window
-     */
-    if (visible)
-      top = ctx->text.lt.top;
-    else {
-        top = SrcScan(ctx->text.source, ctx->text.insertPos,
-		      XawstEOL, XawsdLeft, 1, False);
-
-	/*
-	 * Finds the nearest left position from ctx->text.insertPos
-	 */
-	if (ctx->text.wrap != XawtextWrapNever) {
-	    int dim, vwidth = GetMaxTextWidth(ctx);
-
-	    last = top;
-	    /*CONSTCOND*/
-	    while (1) {
-		tmp = last;
-		XawTextSinkFindPosition(ctx->text.sink, last,
-					ctx->text.left_margin, vwidth,
-					ctx->text.wrap == XawtextWrapWord,
-					&last, &dim, &dim);
-		if (last == tmp)
-		    ++last;
-		if (last <= ctx->text.insertPos)
-		    top = last;
-		else
-		    break;
-	    }
-	}
-    }
-
-    if (scroll) {
-	if (ctx->text.insertPos < first) {	/* Scroll Down */
-	    while (first > top) {
-		last = first;
-		first = SrcScan(ctx->text.source, first,
-				XawstEOL, XawsdLeft, 2, False);
-		vlines -= CountLines(ctx, first, last);
-		if (-vlines >= ctx->text.lt.lines) {
-		    scroll = False;
-		    break;
-		}
-	    }
-	}
-	else if (!visible) {			/* Scroll Up */
-	    while (first < top) {
-		last = first;
-		first = SrcScan(ctx->text.source, first,
-				XawstEOL, XawsdRight, 1, True);
-		vlines += CountLines(ctx, last, first);
-		if (vlines > ctx->text.lt.lines) {
-		    scroll = False;
-		    break;
-		}
-	    }
-	}
-	else
-	    scroll = False;
-    }
-
-    /*
-     * If a portion of the text that will be scrolled is visible
-     */
-    if (scroll)
-	XawTextScroll(ctx, vlines ? vlines - (ctx->text.lt.lines >> 1) : 0, 0);
-    /*
-     * Else redraw the entire text window
-     */
-    else {
-	ctx->text.left_margin -= hpixels;
-	if (ctx->text.left_margin > ctx->text.r_margin.left)
-	    ctx->text.left_margin = ctx->text.margin.left =
-		ctx->text.r_margin.left;
-
-	if (!visible) {
-	    vlines = ctx->text.lt.lines >> 1;
-	    if (vlines)
-		top = SrcScan(ctx->text.source, ctx->text.insertPos,
-			      XawstEOL, XawsdLeft, vlines + 1, False);
-
-	    if (ctx->text.wrap != XawtextWrapNever) {
-		int dim;
-		int n_lines = CountLines(ctx, top, ctx->text.insertPos);
-		int vwidth = GetMaxTextWidth(ctx);
-
-		while (n_lines-- > vlines) {
-		    tmp = top;
-		    XawTextSinkFindPosition(ctx->text.sink, top,
-					    ctx->text.left_margin,
-					    vwidth,
-					    ctx->text.wrap == XawtextWrapWord,
-					    &top, &dim, &dim);
-		    if (tmp == top)
-			++top;
-		}
-	    }
-	    _XawTextBuildLineTable(ctx, top, True);
-	}
-	else
-	    ClearWindow(ctx);
-    }
-    ctx->text.clear_to_eol = True;
-}
-
-#ifndef OLDXAW
-static int
-ResolveLineNumber(TextWidget ctx)
-{
-    int line_number = ctx->text.lt.base_line;
-    XawTextPosition position = ctx->text.lt.top;
-
-    if (ctx->text.lt.base_line < 1)
-	return (ctx->text.line_number);
-
-    if (ctx->text.wrap == XawtextWrapNever
-	&& IsPositionVisible(ctx, ctx->text.insertPos))
-	line_number += LineForPosition(ctx, ctx->text.insertPos);
-    else if (position < ctx->text.insertPos) {
-	while (position < ctx->text.insertPos) {
-	    position = SrcScan(ctx->text.source, position,
-			       XawstEOL, XawsdRight, 1, True);
-	    if (position <= ctx->text.insertPos) {
-		++line_number;
-		if (position == ctx->text.lastPos) {
-		    line_number -= !_XawTextSourceNewLineAtEOF(ctx->text.source);
-		    break;
-		}
-	    }
-	}
-    }
-    else if (position > ctx->text.insertPos) {
-	while (position > ctx->text.insertPos) {
-	    position = SrcScan(ctx->text.source, position,
-			       XawstEOL, XawsdLeft, 1, False);
-	    if (--position >= ctx->text.insertPos)
-		--line_number;
-	}
-    }
-
-    return (line_number);
-}
-#endif
-
-/*
- * This routine causes all batched screen updates to be performed
- */
-void
-_XawTextExecuteUpdate(TextWidget ctx)
-{
-    if (ctx->text.update_disabled || ctx->text.old_insert < 0)
-	return;
-
-    if(ctx->text.old_insert != ctx->text.insertPos || ctx->text.showposition)
-	_XawTextShowPosition(ctx);
-
-    FlushUpdate(ctx);
-    InsertCursor((Widget)ctx, XawisOn);
-    ctx->text.old_insert = -1;
-#ifndef OLDXAW
-    _XawTextSetLineAndColumnNumber(ctx, False);
-#endif
-}
-
-static void
-XawTextDestroy(Widget w)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    DestroyHScrollBar(ctx);
-    DestroyVScrollBar(ctx);
-
-    XtFree((char *)ctx->text.s.selections);
-    XtFree((char *)ctx->text.lt.info);
-    XtFree((char *)ctx->text.search);
-    XmuDestroyScanline(ctx->text.update);
-    XtReleaseGC((Widget)ctx, ctx->text.gc);
-}
-
-/*
- * by the time we are managed (and get this far) we had better
- * have both a source and a sink 
- */
-static void
-XawTextResize(Widget w)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    PositionVScrollBar(ctx);
-    PositionHScrollBar(ctx);
-    TextSinkResize(ctx->text.sink);
-
-    ctx->text.showposition = True;
-    _XawTextBuildLineTable(ctx, ctx->text.lt.top, True);
-}
-
-/*
- * This routine allow the application program to Set attributes.
- */
-/*ARGSUSED*/
-static Boolean
-XawTextSetValues(Widget current, Widget request, Widget cnew,
-		 ArgList args, Cardinal *num_args)
-{
-    TextWidget oldtw = (TextWidget)current;
-    TextWidget newtw = (TextWidget)cnew;
-    Boolean redisplay = False;
-    Boolean display_caret = newtw->text.display_caret;
-#ifndef OLDXAW
-    Boolean show_lc = False;
-#endif
-
-    newtw->text.display_caret = oldtw->text.display_caret;
-    _XawTextPrepareToUpdate(newtw);
-    newtw->text.display_caret = display_caret;
-
-    if (oldtw->text.r_margin.left != newtw->text.r_margin.left) {
-	newtw->text.left_margin = newtw->text.margin.left =
-	    newtw->text.r_margin.left;
-	if (newtw->text.vbar != NULL) {
-	    newtw->text.left_margin += XtWidth(newtw->text.vbar) +
-		XtBorderWidth(newtw->text.vbar);
-	}
-	redisplay = True;
-    }
-
-    if (oldtw->text.scroll_vert != newtw->text.scroll_vert) {
-	if (newtw->text.scroll_vert == XawtextScrollAlways)
-	    CreateVScrollBar(newtw);
-	else
-	    DestroyVScrollBar(newtw);
-
-	redisplay = True;
-    }
-
-    if (oldtw->text.r_margin.bottom != newtw->text.r_margin.bottom) {
-	newtw->text.margin.bottom = newtw->text.r_margin.bottom;
-	if (newtw->text.hbar != NULL)
-	    newtw->text.margin.bottom += newtw->text.hbar->core.height +
-		newtw->text.hbar->core.border_width;
-	redisplay = True;
-    }
-
-    if (oldtw->text.scroll_horiz != newtw->text.scroll_horiz) {
-	if (newtw->text.scroll_horiz == XawtextScrollAlways)
-	    CreateHScrollBar(newtw);
-	else
-	    DestroyHScrollBar(newtw);
-
-	redisplay = True;
-    }
-
-    if (oldtw->text.source != newtw->text.source) {
-#ifndef OLDXAW
-	show_lc = True;
-	_XawSourceRemoveText(oldtw->text.source, cnew,
-			     oldtw->text.source &&
-			     XtParent(oldtw->text.source) == cnew);
-	_XawSourceAddText(newtw->text.source, cnew);
-#endif
-	_XawTextSetSource((Widget)newtw, newtw->text.source, newtw->text.lt.top,
-			  newtw->text.insertPos);
-    }
-
-    newtw->text.redisplay_needed = False;
-    XtSetValues((Widget)newtw->text.source, args, *num_args);
-    XtSetValues((Widget)newtw->text.sink, args, *num_args);
-
-    if (oldtw->text.wrap != newtw->text.wrap
-	|| oldtw->text.lt.top != newtw->text.lt.top
-	|| oldtw->text.insertPos != newtw->text.insertPos
-	|| oldtw->text.r_margin.right != newtw->text.r_margin.right
-	|| oldtw->text.r_margin.top != newtw->text.r_margin.top
-	|| oldtw->text.sink != newtw->text.sink
-	|| newtw->text.redisplay_needed) {
-	if (oldtw->text.wrap != newtw->text.wrap) {
-	    newtw->text.left_margin = newtw->text.margin.left =
-		newtw->text.r_margin.left;
-	    if (oldtw->text.lt.top == newtw->text.lt.top)
-		newtw->text.lt.top = SrcScan(newtw->text.source, 0, XawstEOL,
-					     XawsdLeft, 1, False);
-	}
-	newtw->text.showposition = True;
-#ifndef OLDXAW
-	show_lc = True;
-	newtw->text.source_changed = SRC_CHANGE_OVERLAP;
-#endif
-	_XawTextBuildLineTable(newtw, newtw->text.lt.top, True);
-	redisplay = True;
-    }
-
-#ifndef OLDXAW
-    if (newtw->text.left_column < 0)
-	newtw->text.left_column = 0;
-    if (newtw->text.right_column < 0)
-	newtw->text.right_column = 0;
-#endif
-
-    _XawTextExecuteUpdate(newtw);
-
-#ifndef OLDXAW
-    if (show_lc)
-	_XawTextSetLineAndColumnNumber(newtw, True);
-#endif
-
-    if (redisplay)
-	_XawTextSetScrollBars(newtw);
-
-    return (redisplay);
-}
-
-/* invoked by the Simple widget's SetValues */
-static Bool
-XawTextChangeSensitive(Widget w)
-{
-    Arg args[1];
-    TextWidget tw = (TextWidget)w;
-
-    (*(&simpleClassRec)->simple_class.change_sensitive)(w);
-
-    XtSetArg(args[0], XtNancestorSensitive,
-	     (tw->core.ancestor_sensitive && tw->core.sensitive));
-    if (tw->text.vbar)
-	XtSetValues(tw->text.vbar, args, ONE);
-    if (tw->text.hbar)
-	XtSetValues(tw->text.hbar, args, ONE);
-    return (False);
-}
-
-/*
- * Function:
- *	XawTextGetValuesHook
- *
- * Parameters:
- *	w	 - Text Widget
- *	args	 - argument list
- *	num_args - number of args
- *
- * Description:
- *	  This is a get values hook routine that gets the
- *		     values in the text source and sink.
- */
-static void
-XawTextGetValuesHook(Widget w, ArgList args, Cardinal *num_args)
-{
-    XtGetValues(((TextWidget)w)->text.source, args, *num_args);
-    XtGetValues(((TextWidget)w)->text.sink, args, *num_args);
-}
-
-/*
- * Function:
- *	FindGoodPosition
- *
- * Parameters:
- *	pos - any position
- *
- * Description:
- *	Returns a valid position given any postition.
- *
- * Returns:
- *	A position between (0 and lastPos)
- */
-static XawTextPosition
-FindGoodPosition(TextWidget ctx, XawTextPosition pos)
-{
-    if (pos < 0)
-	return (0);
-    return (((pos > ctx->text.lastPos) ? ctx->text.lastPos : pos));
-}
-
-/* Li wrote this so the IM can find a given text position's screen position */
-void
-_XawTextPosToXY(Widget w, XawTextPosition pos, Position *x, Position *y)
-{
-    int line, ix, iy;
-
-    LineAndXYForPosition((TextWidget)w, pos, &line, &ix, &iy);
-    *x = ix;
-    *y = iy;
-}
-
-/*******************************************************************
-The following routines provide procedural interfaces to Text window state
-setting and getting. They need to be redone so than the args code can use
-them. I suggest we create a complete set that takes the context as an
-argument and then have the public version lookup the context and call the
-internal one. The major value of this set is that they have actual application
-clients and therefore the functionality provided is required for any future
-version of Text.
-********************************************************************/
-void
-XawTextDisplay(Widget w)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    if (!XtIsRealized(w))
-	return;
-
-    _XawTextPrepareToUpdate(ctx);
-    ctx->text.clear_to_eol = True;
-    DisplayTextWindow(w);
-    _XawTextExecuteUpdate(ctx);
-}
-
-void
-XawTextSetSelectionArray(Widget w, XawTextSelectType *sarray)
-{
-    ((TextWidget)w)->text.sarray = sarray;
-}
-
-void
-XawTextGetSelectionPos(Widget w, XawTextPosition *left, XawTextPosition *right)
-{
-    *left = ((TextWidget)w)->text.s.left;
-    *right = ((TextWidget)w)->text.s.right;
-}
-
-void
-_XawTextSetSource(Widget w, Widget source,
-		  XawTextPosition top, XawTextPosition startPos)
-{
-    TextWidget ctx = (TextWidget)w;
-#ifndef OLDXAW
-    Bool resolve = False;
-#endif
-
-#ifndef OLDXAW
-    if (source != ctx->text.source)
-	_XawSourceRemoveText(ctx->text.source, w, ctx->text.source &&
-			     XtParent(ctx->text.source) == w);
-    _XawSourceAddText(source, w);
-
-    if (source != ctx->text.source || ctx->text.insertPos != startPos)
-	resolve = True;
-
-    ctx->text.source_changed = SRC_CHANGE_OVERLAP;
-#endif
-    ctx->text.source = source;
-    ctx->text.s.left = ctx->text.s.right = 0;
-    ctx->text.lastPos = GETLASTPOS;
-    top = FindGoodPosition(ctx, top);
-    startPos = FindGoodPosition(ctx, startPos);
-    ctx->text.insertPos = ctx->text.old_insert = startPos;
-    _XawTextPrepareToUpdate(ctx);
-
-    _XawTextBuildLineTable(ctx, top, True);
-
-    _XawTextExecuteUpdate(ctx);
-#ifndef OLDXAW
-    if (resolve)
-	_XawTextSetLineAndColumnNumber(ctx, True);
-#endif
-}
-
-void
-XawTextSetSource(Widget w, Widget source, XawTextPosition top)
-{
-    _XawTextSetSource(w, source, top, top);
-}
-
-/*
- * This public routine deletes the text from startPos to endPos in a source and
- * then inserts, at startPos, the text that was passed. As a side effect it
- * "invalidates" that portion of the displayed text (if any), so that things
- * will be repainted properly.
- */
-int
-XawTextReplace(Widget w, XawTextPosition startPos, XawTextPosition endPos,
-	       XawTextBlock *text)
-{
-    TextWidget ctx = (TextWidget)w;
-    int result;
-#ifndef OLDXAW
-    Cardinal i;
-    TextSrcObject src = (TextSrcObject)ctx->text.source;
-
-    for (i = 0; i < src->textSrc.num_text; i++)
-	_XawTextPrepareToUpdate((TextWidget)src->textSrc.text[i]);
-#else
-    _XawTextPrepareToUpdate(ctx);
-#endif
-
-    endPos = FindGoodPosition(ctx, endPos);
-    startPos = FindGoodPosition(ctx, startPos);
-    result = _XawTextReplace(ctx, startPos, endPos, text);
-
-#ifndef OLDXAW
-    for (i = 0; i < src->textSrc.num_text; i++)
-	_XawTextExecuteUpdate((TextWidget)src->textSrc.text[i]);
-#else
-    _XawTextExecuteUpdate(ctx);
-#endif
-
-    return (result);
-}
-
-XawTextPosition 
-XawTextTopPosition(Widget w)
-{
-    return (((TextWidget)w)->text.lt.top);
-}
-
-XawTextPosition 
-XawTextLastPosition(Widget w)
-{
-    return (((TextWidget)w)->text.lastPos);
-}
-
-void
-XawTextSetInsertionPoint(Widget w, XawTextPosition position)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    _XawTextPrepareToUpdate(ctx);
-    ctx->text.insertPos = FindGoodPosition(ctx, position);
-    ctx->text.showposition = True;
-    ctx->text.from_left = -1;
-
-    _XawTextExecuteUpdate(ctx);
-#ifndef OLDXAW
-    _XawTextSetLineAndColumnNumber(ctx, False);
-#endif
-}
-
-XawTextPosition
-XawTextGetInsertionPoint(Widget w)
-{
-    return (((TextWidget)w)->text.insertPos);
-}
-
-/*
- * Note: Must walk the selection list in opposite order from TextLoseSelection
- */
-void
-XawTextUnsetSelection(Widget w)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    while (ctx->text.s.atom_count != 0) {
-	Atom sel = ctx->text.s.selections[ctx->text.s.atom_count - 1];
-
-	if (sel != (Atom) 0) {
-	    /*
-	     * As selections are lost the atom_count will decrement
-	     */
-	    if (GetCutBufferNumber(sel) == NOT_A_CUT_BUFFER)
-		XtDisownSelection(w, sel, ctx->text.time);
-	    TextLoseSelection(w, &sel); /* In case this is a cut buffer, or
-					   XtDisownSelection failed to call us */
-	}
-    }
-}
-
-void
-XawTextSetSelection(Widget w, XawTextPosition left, XawTextPosition right)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    _XawTextPrepareToUpdate(ctx);
-    _XawTextSetSelection(ctx, FindGoodPosition(ctx, left),
-			 FindGoodPosition(ctx, right), NULL, 0);
-    _XawTextExecuteUpdate(ctx);
-}
-
-void
-XawTextInvalidate(Widget w, XawTextPosition from, XawTextPosition to)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    from = FindGoodPosition(ctx, from);
-    to = FindGoodPosition(ctx, to);
-    ctx->text.lastPos = GETLASTPOS;
-    _XawTextPrepareToUpdate(ctx);
-    _XawTextNeedsUpdating(ctx, from, to);
-    _XawTextExecuteUpdate(ctx);
-}
-
-/*ARGSUSED*/
-void
-XawTextDisableRedisplay(Widget w)
-{
-    ((TextWidget)w)->text.update_disabled = True;
-    _XawTextPrepareToUpdate((TextWidget)w);
-}
-
-void 
-XawTextEnableRedisplay(Widget w)
-{
-    TextWidget ctx = (TextWidget)w;
-    XawTextPosition lastPos;
-
-    if (!ctx->text.update_disabled)
-	return;
-
-    ctx->text.update_disabled = False;
-    lastPos = ctx->text.lastPos = GETLASTPOS;
-    ctx->text.lt.top = FindGoodPosition(ctx, ctx->text.lt.top);
-    ctx->text.insertPos = FindGoodPosition(ctx, ctx->text.insertPos);
-
-    if (ctx->text.s.left > lastPos || ctx->text.s.right > lastPos)
-	ctx->text.s.left = ctx->text.s.right = 0;
-
-    _XawTextExecuteUpdate(ctx);
-}
-
-Widget
-XawTextGetSource(Widget w)
-{
-    return (((TextWidget)w)->text.source);
-}
-
-Widget
-XawTextGetSink(Widget w)
-{
-    return (((TextWidget)w)->text.sink);
-}
-
-void
-XawTextDisplayCaret(Widget w,
-#if NeedWidePrototypes
-	int display_caret
-#else
-	Boolean display_caret
-#endif
-)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    if (XtIsRealized(w)) {
-	_XawTextPrepareToUpdate(ctx);
-	ctx->text.display_caret = display_caret;
-	_XawTextExecuteUpdate(ctx);
-    }
-    else
-	ctx->text.display_caret = display_caret;
-}
-
-/*
- * Function:
- *	XawTextSearch
- *
- * Parameters:
- *	w    - text widget
- *	dir  - direction to search
- *	text - text block containing info about the string to search for
- *
- * Description:
- *	Searches for the given text block.
- *
- * Returns:
- *	The position of the text found, or XawTextSearchError on an error
- */
-XawTextPosition
-XawTextSearch(Widget w,
-#if NeedWidePrototypes
-	int dir,
-#else
-	XawTextScanDirection dir,
-#endif
-	XawTextBlock *text)
-{
-    TextWidget ctx = (TextWidget)w;
-
-    return (SrcSearch(ctx->text.source, ctx->text.insertPos, dir, text));
-}
-
-TextClassRec textClassRec = {
-  /* core */
-  {
-    (WidgetClass)&simpleClassRec,	/* superclass */ 
-    "Text",				/* class_name */
-    sizeof(TextRec),			/* widget_size */
-    XawTextClassInitialize,		/* class_initialize */
-    NULL,				/* class_part_init */
-    False,				/* class_inited */
-    XawTextInitialize,			/* initialize */
-    NULL,				/* initialize_hook */
-    XawTextRealize,			/* realize */
-    _XawTextActionsTable,		/* actions */
-    0,					/* num_actions */
-    resources,				/* resources */
-    XtNumber(resources),		/* num_resource */
-    NULLQUARK,				/* xrm_class */
-    True,				/* compress_motion */
-    XtExposeGraphicsExpose |		/* compress_exposure */
-	XtExposeNoExpose,
-    True,				/* compress_enterleave */
-    False,				/* visible_interest */
-    XawTextDestroy,			/* destroy */
-    XawTextResize,			/* resize */
-    XawTextExpose,			/* expose */
-    XawTextSetValues,			/* set_values */
-    NULL,				/* set_values_hook */
-    XtInheritSetValuesAlmost,		/* set_values_almost */
-    XawTextGetValuesHook,		/* get_values_hook */
-    NULL,				/* accept_focus */
-    XtVersion,				/* version */
-    NULL,				/* callback_private */
-    _XawDefaultTextTranslations,	/* tm_table */
-    XtInheritQueryGeometry,		/* query_geometry */
-    XtInheritDisplayAccelerator,	/* display_accelerator */
-    NULL,				/* extension */
-  },
-  /* simple */
-  {
-    XawTextChangeSensitive,		/* change_sensitive */
-  },
-  /* text */
-  {
-    NULL,				/* extension */
-  }
-};
-
-WidgetClass textWidgetClass = (WidgetClass)&textClassRec;
+/***********************************************************

+

+Copyright 1987, 1988, 1994, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included in

+all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall not be

+used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from The Open Group.

+

+

+Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts.

+

+                        All Rights Reserved

+

+Permission to use, copy, modify, and distribute this software and its 

+documentation for any purpose and without fee is hereby granted, 

+provided that the above copyright notice appear in all copies and that

+both that copyright notice and this permission notice appear in 

+supporting documentation, and that the name of Digital not be

+used in advertising or publicity pertaining to distribution of the

+software without specific, written prior permission.  

+

+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+SOFTWARE.

+

+******************************************************************/

+

+/*

+ * Copyright (c) 1998 by The XFree86 Project, Inc.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice shall be included in

+ * all copies or substantial portions of the Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE XFREE86 PROJECT BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

+ * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF

+ * OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE

+ * SOFTWARE.

+ *

+ * Except as contained in this notice, the name of the XFree86 Project shall

+ * not be used in advertising or otherwise to promote the sale, use or other

+ * dealings in this Software without prior written authorization from the

+ * XFree86 Project.

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/IntrinsicP.h>

+#include <X11/StringDefs.h>

+#include <X11/Shell.h>

+#include <X11/Xatom.h>

+#include <X11/Xfuncs.h>

+#include <X11/Xutil.h>

+#include <X11/Xmu/Misc.h>

+#include <X11/Xmu/SysUtil.h>

+#include <X11/Xmu/Xmu.h>

+#include <X11/Xaw/Cardinals.h>

+#include <X11/Xaw/MultiSinkP.h>

+#include <X11/Xaw/TextP.h>

+#include <X11/Xaw/TextSrcP.h>

+#include <X11/Xaw/TextSinkP.h>

+#include <X11/Xaw/Scrollbar.h>

+#include <X11/Xaw/XawImP.h>

+#include <X11/Xaw/XawInit.h>

+#include "Private.h"

+#include "XawI18n.h"

+

+#ifndef MAX_LEN_CT

+#define MAX_LEN_CT	6	/* for sequence: ESC $ ( A \xx \xx */

+#endif

+

+unsigned long FMT8BIT = 0L;

+unsigned long XawFmt8Bit = 0L;

+unsigned long XawFmtWide = 0L;

+

+#define SinkClearToBG		_XawTextSinkClearToBackground

+

+#define SrcScan			XawTextSourceScan

+#define SrcRead			XawTextSourceRead

+#define SrcReplace		XawTextSourceReplace

+#define SrcSearch		XawTextSourceSearch

+#define SrcCvtSel		XawTextSourceConvertSelection

+#define SrcSetSelection		XawTextSourceSetSelection

+

+#define MULTI_CLICK_TIME	500L

+

+#define SRC_CHANGE_NONE		0

+#define SRC_CHANGE_AFTER	1

+#define SRC_CHANGE_BEFORE	2

+#define SRC_CHANGE_OVERLAP	3

+

+#define Superclass (&simpleClassRec)

+

+/*

+ * Compute a the maximum length of a cut buffer that we can pass at any

+ * time.  The 64 allows for the overhead of the Change Property request.

+ */

+#define MAX_CUT_LEN(dpy)  (XMaxRequestSize(dpy) - 64)

+

+#define	ClearWindow(ctx)						     \

+     _XawTextNeedsUpdating((ctx),					     \

+			   (ctx)->text.lt.top,				     \

+			   (ctx)->text.lt.info[ctx->text.lt.lines].position)

+

+/*

+ * Class Methods

+ */

+static void XawTextClassInitialize(void);

+static void XawTextInitialize(Widget, Widget, ArgList, Cardinal*);

+static void XawTextRealize(Widget, XtValueMask*, XSetWindowAttributes*);

+static void XawTextDestroy(Widget);

+static void XawTextResize(Widget);

+static void XawTextExpose(Widget, XEvent*, Region);

+static Boolean XawTextSetValues(Widget, Widget, Widget, ArgList, Cardinal*);

+static void XawTextGetValuesHook(Widget, ArgList, Cardinal*);

+static Bool XawTextChangeSensitive(Widget);

+

+/*

+ * Prototypes

+ */

+static XawTextPosition _BuildLineTable(TextWidget, XawTextPosition, int);

+static void _CreateCutBuffers(Display*);

+static Boolean TextConvertSelection(Widget, Atom*, Atom*, Atom*, XtPointer*,

+				unsigned long*, int*);

+static int CountLines(TextWidget, XawTextPosition, XawTextPosition);

+static void CreateHScrollBar(TextWidget);

+static void CreateVScrollBar(TextWidget);

+static void CvtStringToScrollMode(XrmValuePtr, Cardinal*,

+				  XrmValuePtr, XrmValuePtr);

+static Boolean CvtScrollModeToString(Display*, XrmValue*, Cardinal*,

+				     XrmValue*, XrmValue*, XtPointer*);

+static void CvtStringToWrapMode(XrmValuePtr, Cardinal*,

+				XrmValuePtr, XrmValuePtr);

+static Boolean CvtWrapModeToString(Display*, XrmValue*, Cardinal*,

+				   XrmValue*, XrmValue*, XtPointer*);

+static Boolean CvtStringToJustifyMode(Display*, XrmValue*, Cardinal*,

+				      XrmValue*, XrmValue*, XtPointer*);

+static Boolean CvtJustifyModeToString(Display*, XrmValue*, Cardinal*,

+				      XrmValue*, XrmValue*, XtPointer*);

+static void DestroyHScrollBar(TextWidget);

+static void DestroyVScrollBar(TextWidget);

+#ifndef OLDXAW

+static void DisplayText(Widget, XawTextPosition, XawTextPosition);

+#endif

+static void OldDisplayText(Widget, XawTextPosition, XawTextPosition);

+static void DisplayTextWindow(Widget);

+static void DoCopyArea(TextWidget, int, int, unsigned int, unsigned int,

+		       int, int);

+static void DoSelection(TextWidget, XawTextPosition, Time, Bool);

+static void ExtendSelection(TextWidget, XawTextPosition, Bool);

+static XawTextPosition FindGoodPosition(TextWidget, XawTextPosition);

+static void FlushUpdate(TextWidget);

+static int GetCutBufferNumber(Atom);

+static int GetMaxTextWidth(TextWidget);

+static unsigned int GetWidestLine(TextWidget);

+static void HScroll(Widget, XtPointer, XtPointer);

+static void HJump(Widget, XtPointer, XtPointer);

+static void InsertCursor(Widget, XawTextInsertState);

+static Bool LineAndXYForPosition(TextWidget, XawTextPosition, int*,

+				 int*, int*);

+static int LineForPosition(TextWidget, XawTextPosition);

+static void TextLoseSelection(Widget, Atom*);

+static Bool MatchSelection(Atom, XawTextSelection*);

+static void ModifySelection(TextWidget, XawTextPosition, XawTextPosition);

+static XawTextPosition PositionForXY(TextWidget, int, int);

+static void PositionHScrollBar(TextWidget);

+static void PositionVScrollBar(TextWidget);

+#ifndef OLDXAW

+static int ResolveColumnNumber(TextWidget);

+static int ResolveLineNumber(TextWidget);

+#endif

+static void _SetSelection(TextWidget, XawTextPosition, XawTextPosition,

+			  Atom*, Cardinal);

+static void TextSinkResize(Widget);

+static void UpdateTextInRectangle(TextWidget, XRectangle*);

+static void UpdateTextInLine(TextWidget, int, int, int);

+static void VScroll(Widget, XtPointer, XtPointer);

+static void VJump(Widget, XtPointer, XtPointer);

+

+/*

+ * External

+ */

+void _XawTextAlterSelection(TextWidget,

+			    XawTextSelectionMode, XawTextSelectionAction,

+			    String*, Cardinal*);

+void _XawTextCheckResize(TextWidget);

+void _XawTextClearAndCenterDisplay(TextWidget);

+void _XawTextExecuteUpdate(TextWidget);

+char *_XawTextGetText(TextWidget, XawTextPosition, XawTextPosition);

+void _XawTextPrepareToUpdate(TextWidget);

+int _XawTextReplace(TextWidget, XawTextPosition, XawTextPosition,

+		    XawTextBlock*);

+Atom *_XawTextSelectionList(TextWidget, String*, Cardinal);

+void _XawTextSetScrollBars(TextWidget);

+void _XawTextSetSelection(TextWidget, XawTextPosition, XawTextPosition,

+			  String*, Cardinal);

+void _XawTextVScroll(TextWidget, int);

+void XawTextScroll(TextWidget, int, int);

+void _XawTextSetSource(Widget, Widget, XawTextPosition, XawTextPosition);

+#ifndef OLDXAW

+void _XawTextSetLineAndColumnNumber(TextWidget, Bool);

+#endif

+void _XawTextSourceChanged(Widget, XawTextPosition, XawTextPosition,

+			   XawTextBlock*, int);

+

+/* Not used by other modules, but were extern on previous versions

+ * of the library

+ */

+void _XawTextShowPosition(TextWidget);

+

+/*

+ * From TextAction.c

+ */

+extern void _XawTextZapSelection(TextWidget, XEvent*, Bool);

+

+/*

+ * From TextSrc.c

+ */

+void _XawSourceAddText(Widget, Widget);

+void _XawSourceRemoveText(Widget, Widget, Bool);

+Bool _XawTextSourceNewLineAtEOF(Widget);

+

+/*

+ * From TextSink.c

+ */

+void _XawTextSinkClearToBackground(Widget, int, int, unsigned, unsigned);

+void _XawTextSinkDisplayText(Widget, int, int, XawTextPosition, XawTextPosition,

+			     Bool);

+

+/****************************************************************

+ *

+ * Full class record constant

+ *

+ ****************************************************************/

+/*

+ * From TextTr.c

+ */

+static XawTextSelectType defaultSelectTypes[] = {

+  XawselectPosition,  XawselectAlphaNumeric, XawselectWord, XawselectLine,

+  XawselectParagraph, XawselectAll,	     XawselectNull,

+};

+

+static XPointer defaultSelectTypesPtr = (XPointer)defaultSelectTypes;

+static Dimension defWidth = 100;

+static Dimension defHeight = DEFAULT_TEXT_HEIGHT;

+

+#define offset(field) XtOffsetOf(TextRec, field)

+static XtResource resources[] = {

+  {

+    XtNwidth,

+    XtCWidth,

+    XtRDimension,

+    sizeof(Dimension),

+    offset(core.width),

+    XtRDimension,

+    (XtPointer)&defWidth

+  },

+  {

+    XtNcursor,

+    XtCCursor,

+    XtRCursor,

+    sizeof(Cursor),

+    offset(simple.cursor),

+    XtRString,

+    "xterm"

+  },

+  {

+    XtNheight,

+    XtCHeight,

+    XtRDimension,

+    sizeof(Dimension),

+    offset(core.height),

+    XtRDimension,

+    (XtPointer)&defHeight

+  },

+  {

+    XtNdisplayPosition,

+    XtCTextPosition,

+    XtRInt,

+    sizeof(XawTextPosition), 

+    offset(text.lt.top),

+    XtRImmediate,

+    (XtPointer)0

+  },

+  {

+    XtNinsertPosition,

+    XtCTextPosition,

+    XtRInt,

+    sizeof(XawTextPosition),

+    offset(text.insertPos),

+    XtRImmediate,

+    (XtPointer)0

+  },

+  {

+    XtNleftMargin,

+    XtCMargin,

+    XtRPosition,

+    sizeof(Position),

+    offset(text.r_margin.left),

+    XtRImmediate,

+    (XtPointer)2

+  },

+  {

+    XtNrightMargin,

+    XtCMargin,

+    XtRPosition,

+    sizeof(Position),

+    offset(text.r_margin.right),

+    XtRImmediate,

+    (XtPointer)4

+  },

+  {

+    XtNtopMargin,

+    XtCMargin,

+    XtRPosition,

+    sizeof(Position),

+    offset(text.r_margin.top),

+    XtRImmediate,

+    (XtPointer)2

+  },

+  {

+    XtNbottomMargin,

+    XtCMargin,

+    XtRPosition,

+    sizeof(Position),

+    offset(text.r_margin.bottom),

+    XtRImmediate,

+    (XtPointer)2

+  },

+  {

+    XtNselectTypes,

+    XtCSelectTypes,

+    XtRPointer,

+    sizeof(XawTextSelectType*),

+    offset(text.sarray),

+    XtRPointer,

+    (XtPointer)&defaultSelectTypesPtr

+  },

+  {

+    XtNtextSource,

+    XtCTextSource,

+    XtRWidget,

+    sizeof(Widget),

+    offset(text.source),

+    XtRImmediate,

+    NULL

+  },

+  {

+    XtNtextSink,

+    XtCTextSink,

+    XtRWidget,

+    sizeof(Widget),

+    offset(text.sink),

+    XtRImmediate,

+    NULL

+  },

+  {

+    XtNdisplayCaret,

+    XtCOutput,

+    XtRBoolean,

+    sizeof(Boolean),

+    offset(text.display_caret),

+    XtRImmediate,

+    (XtPointer)True

+  },

+  {

+    XtNscrollVertical,

+    XtCScroll,

+    XtRScrollMode,

+    sizeof(XawTextScrollMode),

+    offset(text.scroll_vert),

+    XtRImmediate,

+    (XtPointer)False

+  },

+  {

+    XtNscrollHorizontal,

+    XtCScroll,

+    XtRScrollMode,

+    sizeof(XawTextScrollMode),

+    offset(text.scroll_horiz),

+    XtRImmediate,

+    (XtPointer)False

+  },

+  {

+    XtNwrap,

+    XtCWrap,

+    XtRWrapMode,

+    sizeof(XawTextWrapMode),

+    offset(text.wrap),

+    XtRImmediate,

+    (XtPointer)XawtextWrapNever

+  },

+  {

+    XtNautoFill,

+    XtCAutoFill,

+    XtRBoolean,

+    sizeof(Boolean),

+    offset(text.auto_fill),

+    XtRImmediate,

+    (XtPointer)False

+  },

+#ifndef OLDXAW

+  {

+    XtNpositionCallback,

+    XtCCallback,

+    XtRCallback,

+    sizeof(XtPointer),

+    offset(text.position_callbacks),

+    XtRCallback,

+    NULL

+  },

+  {

+    XtNleftColumn,

+    XtCColumn,

+    XtRShort,

+    sizeof(short),

+    offset(text.left_column),

+    XtRImmediate,

+    (XtPointer)0

+  },

+  {

+    XtNrightColumn,

+    XtCColumn,

+    XtRShort,

+    sizeof(short),

+    offset(text.right_column),

+    XtRImmediate,

+    (XtPointer)0

+  },

+  {

+    XtNjustifyMode,

+    XtCJustifyMode,

+    XtRJustifyMode,

+    sizeof(XawTextJustifyMode),

+    offset(text.justify),

+    XtRImmediate,

+    (XtPointer)XawjustifyLeft

+  },

+#endif /* OLDXAW */

+};

+#undef offset

+

+#define done(address, type) \

+	{ toVal->size = sizeof(type); toVal->addr = (XPointer)address; }

+

+static XrmQuark QWrapNever, QWrapLine, QWrapWord;

+#ifndef notdef

+static XrmQuark QScrollNever, QScrollWhenNeeded, QScrollAlways;

+#endif

+static XrmQuark QJustifyLeft, QJustifyRight, QJustifyCenter, QJustifyFull;

+

+/*ARGSUSED*/

+static void

+CvtStringToScrollMode(XrmValuePtr args, Cardinal *num_args,

+		      XrmValuePtr fromVal, XrmValuePtr toVal)

+{

+    static XawTextScrollMode scrollMode = XawtextScrollNever;

+    XrmQuark q;

+    char name[32];

+

+    XmuNCopyISOLatin1Lowered(name, (char *)fromVal->addr, sizeof(name));

+    q = XrmStringToQuark(name);

+

+    if (q == QScrollNever || q == QScrollWhenNeeded)

+	scrollMode = XawtextScrollNever;

+    else if (q == QScrollAlways)

+	scrollMode = XawtextScrollAlways;

+    else if (strcmp(name, "true") == 0 || strcmp(name, "1") == 0)

+	scrollMode = XawtextScrollAlways;

+    else if (strcmp(name, "false") == 0 || strcmp(name, "0") == 0)

+	scrollMode = XawtextScrollNever;

+    else

+	XtStringConversionWarning((char *)fromVal->addr, XtRScrollMode);

+

+    done(&scrollMode, XawTextScrollMode);

+}

+

+/*ARGSUSED*/

+static Boolean

+CvtScrollModeToString(Display *dpy, XrmValue *args, Cardinal *num_args,

+		      XrmValue *fromVal, XrmValue *toVal, XtPointer *data)

+{

+    static char *buffer;

+    Cardinal size;

+

+    switch (*(XawTextScrollMode *)fromVal->addr) {

+	case XawtextScrollNever:

+	case XawtextScrollWhenNeeded:

+	    buffer = XtEtextScrollNever;

+	    break;

+	case XawtextScrollAlways:

+	    buffer = XtEtextScrollAlways;

+	    break;

+	default:

+	    XawTypeToStringWarning(dpy, XtRScrollMode);

+	    toVal->addr = NULL;

+	    toVal->size = 0;

+	    return (False);

+    }

+    size = strlen(buffer) + 1;

+    if (toVal->addr != NULL) {

+	if (toVal->size < size)	{

+	    toVal->size = size;

+	    return (False);

+	}

+	strcpy((char *)toVal->addr, buffer);

+    }

+    else

+	toVal->addr = (XPointer)buffer;

+    toVal->size = sizeof(String);

+

+    return (True);

+}

+

+/*ARGSUSED*/

+static void

+CvtStringToWrapMode(XrmValuePtr args, Cardinal *num_args,

+		    XrmValuePtr fromVal, XrmValuePtr toVal)

+{

+    static XawTextWrapMode wrapMode = XawtextWrapNever;

+    XrmQuark q;

+    char lowerName[6];

+

+    XmuNCopyISOLatin1Lowered(lowerName, (char *)fromVal->addr,

+			     sizeof(lowerName));

+    q = XrmStringToQuark(lowerName);

+

+    if (q == QWrapNever)

+	wrapMode = XawtextWrapNever;

+    else if (q == QWrapLine)

+	wrapMode = XawtextWrapLine;

+    else if (q == QWrapWord)

+	wrapMode = XawtextWrapWord;

+    else

+	XtStringConversionWarning((char *)fromVal->addr, XtRWrapMode);

+

+    done(&wrapMode, XawTextWrapMode);

+}

+

+/*ARGSUSED*/

+static Boolean

+CvtWrapModeToString(Display *dpy, XrmValue *args, Cardinal *num_args,

+		    XrmValue *fromVal, XrmValue *toVal, XtPointer *data)

+{

+    static char *buffer;

+    Cardinal size;

+

+    switch (*(XawTextWrapMode *)fromVal->addr) {

+	case XawtextWrapNever:

+	    buffer = XtEtextWrapNever;

+	    break;

+	case XawtextWrapLine:

+	    buffer = XtEtextWrapLine;

+	    break;

+	case XawtextWrapWord:

+	    buffer = XtEtextWrapWord;

+	    break;

+	default:

+	    XawTypeToStringWarning(dpy, XtRWrapMode);

+	    toVal->addr = NULL;

+	    toVal->size = 0;

+	    return (False);

+    }

+    size = strlen(buffer) + 1;

+    if (toVal->addr != NULL) {

+	if (toVal->size < size)	{

+	    toVal->size = size;

+	    return (False);

+	}

+	strcpy((char *)toVal->addr, buffer);

+    }

+    else

+	toVal->addr = (XPointer)buffer;

+    toVal->size = sizeof(String);

+

+    return (True);

+}

+

+/*ARGSUSED*/

+static Boolean

+CvtStringToJustifyMode(Display *dpy, XrmValue *args, Cardinal *num_args,

+		       XrmValue *fromVal, XrmValue *toVal, XtPointer *data)

+{

+    XawTextJustifyMode justify;

+    XrmQuark q;

+    char lowerName[8];

+

+    XmuNCopyISOLatin1Lowered(lowerName, (char *)fromVal->addr,

+			   sizeof(lowerName));

+    q = XrmStringToQuark(lowerName);

+

+    if (q == QJustifyLeft)

+	justify = XawjustifyLeft;

+    else if (q == QJustifyRight)

+	justify = XawjustifyRight;

+    else if (q == QJustifyCenter)

+	justify = XawjustifyCenter;

+    else if(q ==  QJustifyFull)

+	justify = XawjustifyFull;

+    else {

+	XtStringConversionWarning((char *)fromVal->addr, XtRJustifyMode);

+	return (False);

+    }

+

+    toVal->size = sizeof(XawTextJustifyMode);

+    *(XawTextJustifyMode *)(toVal->addr) = justify;

+

+    return (True);

+}

+

+

+/*ARGSUSED*/

+static Boolean

+CvtJustifyModeToString(Display *dpy, XrmValue *args, Cardinal *num_args,

+		       XrmValue *fromVal, XrmValue *toVal, XtPointer *data)

+{

+    static char *buffer;

+    Cardinal size;

+

+    switch (*(XawTextJustifyMode *)fromVal->addr) {

+	case XawjustifyLeft:

+	    buffer = XtEtextJustifyLeft;

+	    break;

+	case XawjustifyRight:

+	    buffer = XtEtextJustifyRight;

+	    break;

+	case XawjustifyCenter:

+	    buffer = XtEtextJustifyCenter;

+	    break;

+	case XawjustifyFull:

+	    buffer = XtEtextJustifyFull;

+	    break;

+	default:

+	    XawTypeToStringWarning(dpy, XtRJustifyMode);

+	    toVal->addr = NULL;

+	    toVal->size = 0;

+	    return (False);

+    }

+    size = strlen(buffer) + 1;

+    if (toVal->addr != NULL) {

+	if (toVal->size < size)	{

+	    toVal->size = size;

+	    return (False);

+	}

+	strcpy((char *)toVal->addr, buffer);

+    }

+    else

+	toVal->addr = (XPointer)buffer;

+    toVal->size = sizeof(String);

+

+    return (True);

+}

+

+#undef done

+

+static void

+XawTextClassInitialize(void)

+{

+    if (!XawFmt8Bit)

+	FMT8BIT = XawFmt8Bit = XrmPermStringToQuark("FMT8BIT");

+    if (!XawFmtWide)

+	XawFmtWide = XrmPermStringToQuark("FMTWIDE");

+

+    XawInitializeWidgetSet();

+

+    textClassRec.core_class.num_actions = _XawTextActionsTableCount;

+  

+    QWrapNever	= XrmPermStringToQuark(XtEtextWrapNever);

+    QWrapLine	= XrmPermStringToQuark(XtEtextWrapLine);

+    QWrapWord	= XrmPermStringToQuark(XtEtextWrapWord);

+    XtAddConverter(XtRString, XtRWrapMode, CvtStringToWrapMode, NULL, 0);

+    XtSetTypeConverter(XtRWrapMode, XtRString, CvtWrapModeToString,

+		       NULL, 0, XtCacheNone, NULL);

+    QScrollNever = XrmPermStringToQuark(XtEtextScrollNever);

+    QScrollWhenNeeded = XrmPermStringToQuark(XtEtextScrollWhenNeeded);

+    QScrollAlways = XrmPermStringToQuark(XtEtextScrollAlways);

+    XtAddConverter(XtRString, XtRScrollMode, CvtStringToScrollMode,

+		   NULL, 0);

+    XtSetTypeConverter(XtRScrollMode, XtRString, CvtScrollModeToString,

+		       NULL, 0, XtCacheNone, NULL);

+    QJustifyLeft   = XrmPermStringToQuark(XtEtextJustifyLeft);

+    QJustifyRight  = XrmPermStringToQuark(XtEtextJustifyRight);

+    QJustifyCenter = XrmPermStringToQuark(XtEtextJustifyCenter);

+    QJustifyFull   = XrmPermStringToQuark(XtEtextJustifyFull);

+    XtSetTypeConverter(XtRString, XtRJustifyMode, CvtStringToJustifyMode,

+		       NULL, 0, XtCacheNone, NULL);

+    XtSetTypeConverter(XtRJustifyMode, XtRString, CvtJustifyModeToString,

+		       NULL, 0, XtCacheNone, NULL);

+}

+

+/*

+ * Function:

+ *	PositionHScrollBar

+ *

+ * Parameters:

+ *	ctx - text widget

+ *

+ * Description:

+ *	Positions the Horizontal scrollbar.

+ */

+static void

+PositionHScrollBar(TextWidget ctx)

+{

+    Widget hbar = ctx->text.hbar, vbar = ctx->text.vbar;

+    Position x, y;

+    Dimension width, height;

+

+    if (ctx->text.hbar == NULL)

+	return;

+

+    if (vbar != NULL)

+	x = XtWidth(vbar);

+    else

+	x = -XtBorderWidth(hbar);

+    y = XtHeight(ctx) - XtHeight(hbar) - XtBorderWidth(hbar);

+    if (vbar != NULL) {

+	width = XtWidth(ctx) - XtWidth(vbar) - XtBorderWidth(vbar);

+	if (width > XtWidth(ctx))

+	    width = XtWidth(ctx);

+    }

+    else

+	width = XtWidth(ctx);

+    height = XtHeight(hbar);

+

+    XtConfigureWidget(hbar, x, y, width, height, XtBorderWidth(hbar));

+}

+

+/*

+ * Function:

+ *	PositionVScrollBar

+ *

+ * Parameters:

+ *	ctx - text widget

+ *

+ * Description:

+ *	Positions the Vertical scrollbar.

+ */

+static void

+PositionVScrollBar(TextWidget ctx)

+{

+    Widget vbar = ctx->text.vbar;

+    Position x, y;

+    Dimension width, height;

+

+    if (vbar == NULL)

+	return;

+

+    x = y = -XtBorderWidth(vbar);

+    height = XtHeight(ctx);

+    width = XtWidth(vbar);

+

+    XtConfigureWidget(vbar, x, y, width, height, XtBorderWidth(vbar));

+}

+

+static void

+CreateVScrollBar(TextWidget ctx)

+{

+    Widget vbar;

+

+    if (ctx->text.vbar != NULL)

+	return;

+

+    ctx->text.vbar = vbar =

+	XtCreateWidget("vScrollbar", scrollbarWidgetClass, (Widget)ctx, NULL, 0);

+    XtAddCallback(vbar, XtNscrollProc, VScroll, (XtPointer)ctx);

+    XtAddCallback(vbar, XtNjumpProc, VJump, (XtPointer)ctx);

+

+    ctx->text.r_margin.left += XtWidth(vbar) + XtBorderWidth(vbar);

+    ctx->text.left_margin = ctx->text.margin.left = ctx->text.r_margin.left;

+

+    PositionVScrollBar(ctx);

+    PositionHScrollBar(ctx);

+    TextSinkResize(ctx->text.sink);

+

+    if (XtIsRealized((Widget)ctx)) {

+	XtRealizeWidget(vbar);

+	XtMapWidget(vbar);

+    }

+    XtSetKeyboardFocus(vbar, (Widget)ctx);

+}

+

+/*

+ * Function:

+ *	DestroyVScrollBar

+ *

+ * Parameters:

+ *	ctx - parent text widget

+ *

+ * Description:

+ *	Removes vertical ScrollBar.

+ */

+static void

+DestroyVScrollBar(TextWidget ctx)

+{

+    Widget vbar = ctx->text.vbar;

+

+    if (vbar == NULL)

+	return;

+

+    ctx->text.r_margin.left -= XtWidth(vbar) + XtBorderWidth(vbar);

+    ctx->text.left_margin = ctx->text.margin.left = ctx->text.r_margin.left;

+

+    XtDestroyWidget(vbar);

+    ctx->text.vbar = NULL;

+    if (!ctx->core.being_destroyed) {

+	PositionHScrollBar(ctx);

+	TextSinkResize(ctx->text.sink);

+    }

+}

+

+static void

+CreateHScrollBar(TextWidget ctx)

+{

+    Arg args[1];

+    Widget hbar;

+    int bottom;

+

+    if (ctx->text.hbar != NULL)

+	return;

+

+    XtSetArg(args[0], XtNorientation, XtorientHorizontal);

+    ctx->text.hbar = hbar =

+	XtCreateWidget("hScrollbar", scrollbarWidgetClass, (Widget)ctx, args, 1);

+    XtAddCallback(hbar, XtNscrollProc, HScroll, (XtPointer)ctx);

+    XtAddCallback(hbar, XtNjumpProc, HJump, (XtPointer)ctx);

+

+    bottom = ctx->text.r_margin.bottom + XtHeight(hbar) + XtBorderWidth(hbar);

+

+    ctx->text.margin.bottom = ctx->text.r_margin.bottom = bottom;

+

+    PositionHScrollBar(ctx);

+    TextSinkResize(ctx->text.sink);

+

+    if (XtIsRealized((Widget)ctx)) {

+	XtRealizeWidget(hbar);

+	XtMapWidget(hbar);

+    }

+    XtSetKeyboardFocus(hbar, (Widget)ctx);

+}

+

+/*

+ * Function:

+ *	DestroyHScrollBar

+ *

+ * Parameters:

+ *	ctx - parent text widget

+ *

+ * Description:

+ *	Removes horizontal ScrollBar.

+ */

+static void

+DestroyHScrollBar(TextWidget ctx)

+{

+    Widget hbar = ctx->text.hbar;

+

+    if (hbar == NULL)

+	return;

+

+    ctx->text.r_margin.bottom -= XtHeight(hbar) + XtBorderWidth(hbar);

+    ctx->text.margin.bottom = ctx->text.r_margin.bottom;

+

+    XtDestroyWidget(hbar);

+    ctx->text.hbar = NULL;

+    if (!ctx->core.being_destroyed)

+	TextSinkResize(ctx->text.sink);

+}

+

+/*ARGSUSED*/

+static void

+XawTextInitialize(Widget request, Widget cnew,

+		  ArgList args, Cardinal *num_args)

+{

+    TextWidget ctx = (TextWidget)cnew;

+

+    ctx->text.lt.lines = 0;

+    ctx->text.lt.info = (XawTextLineTableEntry *)

+	XtCalloc(1, sizeof(XawTextLineTableEntry));

+#ifndef OLDXAW

+    ctx->text.lt.base_line = 1;

+#endif

+    (void)bzero(&ctx->text.origSel, sizeof(XawTextSelection));

+    (void)bzero(&ctx->text.s, sizeof(XawTextSelection));

+    ctx->text.s.type = XawselectPosition;

+    ctx->text.salt = NULL;

+    ctx->text.hbar = ctx->text.vbar = NULL;

+    ctx->text.lasttime = 0;

+    ctx->text.time = 0;

+    ctx->text.showposition = True;

+    ctx->text.lastPos = ctx->text.source != NULL ?

+			XawTextGetLastPosition(ctx) : 0;

+    ctx->text.file_insert = NULL;

+    ctx->text.search = NULL;

+    ctx->text.update = XmuNewScanline(0, 0, 0);

+    ctx->text.gc = XtGetGC(cnew, 0, 0);

+    ctx->text.hasfocus = False;

+    ctx->text.margin = ctx->text.r_margin; /* Strucure copy */

+    ctx->text.left_margin = ctx->text.r_margin.left;

+    ctx->text.update_disabled = False;

+    ctx->text.clear_to_eol = True;

+    ctx->text.old_insert = -1;

+    ctx->text.mult = 1;

+    ctx->text.salt2 = NULL;

+    ctx->text.from_left = -1;

+

+#ifndef OLDXAW

+    ctx->text.numeric = False;

+    ctx->text.selection_state = False;

+    ctx->text.kill_ring = 0;

+

+    ctx->text.line_number = -1;

+    ctx->text.column_number = -1;

+    ctx->text.source_changed = SRC_CHANGE_NONE;

+

+    ctx->text.kill_ring_ptr = NULL;

+    ctx->text.overwrite = False;

+#endif

+

+    if (XtHeight(ctx) == DEFAULT_TEXT_HEIGHT) {

+	XtHeight(ctx) = VMargins(ctx);

+	if (ctx->text.sink != NULL)

+	    XtHeight(ctx) += XawTextSinkMaxHeight(ctx->text.sink, 1);

+    }

+

+    if (ctx->text.scroll_vert == XawtextScrollAlways)

+	CreateVScrollBar(ctx);

+    if (ctx->text.scroll_horiz == XawtextScrollAlways)

+	CreateHScrollBar(ctx);

+

+#ifndef OLDXAW

+    if (ctx->text.left_column < 0)

+	ctx->text.left_column = 0;

+    if (ctx->text.right_column < 0)

+	ctx->text.right_column = 0;

+#endif

+}

+

+static void

+XawTextRealize(Widget w, XtValueMask *mask, XSetWindowAttributes *attr)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    (*textClassRec.core_class.superclass->core_class.realize)(w, mask, attr);

+  

+    if (ctx->text.hbar != NULL) {

+	XtRealizeWidget(ctx->text.hbar);

+	XtMapWidget(ctx->text.hbar);

+    }

+

+    if (ctx->text.vbar != NULL) {

+	XtRealizeWidget(ctx->text.vbar);

+	XtMapWidget(ctx->text.vbar);

+    }

+

+    _XawTextBuildLineTable(ctx, ctx->text.lt.top, True);

+

+#ifndef OLDXAW

+    _XawTextSetLineAndColumnNumber(ctx, True);

+#endif

+}

+

+/* Utility routines for support of Text */

+static void

+_CreateCutBuffers(Display *d)

+{

+    static struct _DisplayRec {

+	struct _DisplayRec *next;

+	Display *dpy;

+    } *dpy_list = NULL;

+    struct _DisplayRec *dpy_ptr;

+

+    for (dpy_ptr = dpy_list; dpy_ptr != NULL; dpy_ptr = dpy_ptr->next)

+	if (dpy_ptr->dpy == d)

+	    return;

+

+    dpy_ptr = XtNew(struct _DisplayRec);

+    dpy_ptr->next = dpy_list;

+    dpy_ptr->dpy = d;

+    dpy_list = dpy_ptr;

+

+#define Create(buffer) \

+  XChangeProperty(d, RootWindow(d, 0), buffer, XA_STRING, 8, \

+		  PropModeAppend, NULL, 0);

+

+    Create(XA_CUT_BUFFER0);

+    Create(XA_CUT_BUFFER1);

+    Create(XA_CUT_BUFFER2);

+    Create(XA_CUT_BUFFER3);

+    Create(XA_CUT_BUFFER4);

+    Create(XA_CUT_BUFFER5);

+    Create(XA_CUT_BUFFER6);

+    Create(XA_CUT_BUFFER7);

+

+#undef Create

+}

+

+/*

+ * Procedure to manage insert cursor visibility for editable text.  It uses

+ * the value of ctx->insertPos and an implicit argument. In the event that

+ * position is immediately preceded by an eol graphic, then the insert cursor

+ * is displayed at the beginning of the next line.

+ */

+static void

+InsertCursor(Widget w, XawTextInsertState state)

+{

+    TextWidget ctx = (TextWidget)w;

+    int x, y;

+    int line;

+

+    if (ctx->text.lt.lines < 1)

+	return;

+

+    if (ctx->text.display_caret &&

+	LineAndXYForPosition(ctx, ctx->text.insertPos, &line, &x, &y)) {

+	if (line < ctx->text.lt.lines)

+	    y += (ctx->text.lt.info[line + 1].y - ctx->text.lt.info[line].y) + 1;

+	else

+	    y += (ctx->text.lt.info[line].y - ctx->text.lt.info[line - 1].y) + 1;

+

+	XawTextSinkInsertCursor(ctx->text.sink, x, y, state);

+    }

+

+    /* Keep Input Method up to speed  */

+    if (ctx->simple.international) {

+	Arg list[1];

+

+	XtSetArg(list[0], XtNinsertPosition, ctx->text.insertPos);

+	_XawImSetValues(w, list, 1);

+    }

+}

+

+/*

+ * Procedure to register a span of text that is no longer valid on the display

+ * It is used to avoid a number of small, and potentially overlapping, screen

+ * updates.

+*/

+void

+_XawTextNeedsUpdating(TextWidget ctx,

+		      XawTextPosition left, XawTextPosition right)

+{

+    XmuSegment segment;

+

+    if (left >= right)

+	return;

+

+    segment.x1 = (int)left;

+    segment.x2 = (int)right;

+    (void)XmuScanlineOrSegment(ctx->text.update, &segment);

+}

+

+/*

+ * Procedure to read a span of text in Ascii form. This is purely a hack and

+ * we probably need to add a function to sources to provide this functionality.

+ * [note: this is really a private procedure but is used in multiple modules].

+ */

+char *

+_XawTextGetText(TextWidget ctx, XawTextPosition left, XawTextPosition right)

+{

+    char *result, *tempResult;

+    XawTextBlock text;

+    int bytes;

+

+    if (XawTextFormat(ctx, XawFmt8Bit))

+	bytes = sizeof(unsigned char);

+    else if (XawTextFormat(ctx, XawFmtWide)) 

+	bytes = sizeof(wchar_t);

+    else /* if there is another fomat, add here */

+	bytes = 1;

+

+    /* leave space for ZERO */

+    tempResult = result = XtMalloc((unsigned)(right - left + ONE) * bytes);

+

+    while (left < right) {

+	left = SrcRead(ctx->text.source, left, &text, (int)(right - left));

+	if (!text.length)

+	    break;

+	memmove(tempResult, text.ptr, (unsigned)(text.length * bytes));

+	tempResult += text.length * bytes;

+    }

+

+    if (bytes == sizeof(wchar_t))

+	*((wchar_t*)tempResult) = (wchar_t)0;

+    else

+	*tempResult = '\0';

+

+    return (result);

+}

+

+/* Like _XawTextGetText, but enforces ICCCM STRING type encoding.  This

+ * routine is currently used to put just the ASCII chars in the selection

+ * into a cut buffer.

+ */

+char *

+_XawTextGetSTRING(TextWidget ctx, XawTextPosition left, XawTextPosition right)

+{

+    unsigned char *s;

+    unsigned char c;

+    long i, j, n;

+    wchar_t *ws, wc;

+

+    /* allow ESC in accordance with ICCCM */

+    if (XawTextFormat(ctx, XawFmtWide)) {

+	MultiSinkObject sink = (MultiSinkObject)ctx->text.sink;

+	ws = (wchar_t *)_XawTextGetText(ctx, left, right);

+	n = wcslen(ws);

+	for (j = 0, i = 0; j < n; j++) {

+	    wc = ws[j];

+	    if (XwcTextEscapement (sink->multi_sink.fontset, &wc, 1)

+		|| (wc == _Xaw_atowc(XawTAB)) || (wc == _Xaw_atowc(XawLF))

+		|| (wc == _Xaw_atowc(XawESC)))

+		ws[i++] = wc;

+	}

+	ws[i] = (wchar_t)0;

+	return ((char *)ws);

+    }

+    else {

+	s = (unsigned char *)_XawTextGetText(ctx, left, right);

+	/* only HT and NL control chars are allowed, strip out others */

+	n = strlen((char *)s);

+	i = 0;

+	for (j = 0; j < n; j++)	{

+	    c = s[j];

+	    if (((c >= 0x20) && c <= 0x7f)

+		||(c >= 0xa0) || (c == XawTAB) || (c == XawLF)

+		|| (c == XawESC)) {

+		s[i] = c;

+		i++;

+	    }

+	}

+	s[i] = 0;

+

+	return ((char *)s);

+    }

+}

+

+/* 

+ * This routine maps an x and y position in a window that is displaying text

+ * into the corresponding position in the source.

+ */

+static XawTextPosition

+PositionForXY(TextWidget ctx, int x, int y)

+{

+    int fromx, line, width, height;

+    XawTextPosition position;

+

+    if (ctx->text.lt.lines == 0)

+	return (0);

+

+    for (line = 0; line < ctx->text.lt.lines - 1; line++) {

+	if (y <= ctx->text.lt.info[line + 1].y)

+	    break;

+    }

+    position = ctx->text.lt.info[line].position;

+    if (position >= ctx->text.lastPos)

+	return (ctx->text.lastPos);

+    fromx = ctx->text.left_margin;

+    XawTextSinkFindPosition(ctx->text.sink, position, fromx, x - fromx,

+			    False, &position, &width, &height);

+

+    if (position > ctx->text.lastPos)

+	return (ctx->text.lastPos);

+

+    if (position >= ctx->text.lt.info[line + 1].position)

+	position = SrcScan(ctx->text.source, ctx->text.lt.info[line + 1].position,

+			   XawstPositions, XawsdLeft, 1, True);

+

+    return (position);

+}

+

+/*

+ * This routine maps a source position in to the corresponding line number

+ * of the text that is displayed in the window.

+ */

+static int

+LineForPosition(TextWidget ctx, XawTextPosition position)

+{

+    int line;

+

+    for (line = 0; line < ctx->text.lt.lines; line++)

+	if (position < ctx->text.lt.info[line + 1].position)

+	    break;

+

+    return (line);

+}

+

+/*

+ * This routine maps a source position into the corresponding line number

+ * and the x, y coordinates of the text that is displayed in the window.

+ */

+static Bool

+LineAndXYForPosition(TextWidget ctx, XawTextPosition pos,

+		     int *line, int *x, int *y)

+{

+    XawTextPosition linePos, endPos;

+    Boolean visible;

+    int realW, realH;

+

+    *line = 0;

+    *x = ctx->text.left_margin;

+    *y = ctx->text.margin.top + 1;

+    if ((visible = IsPositionVisible(ctx, pos)) != False) {

+	*line = LineForPosition(ctx, pos);

+	*y = ctx->text.lt.info[*line].y;

+	linePos = ctx->text.lt.info[*line].position;

+	XawTextSinkFindDistance(ctx->text.sink, linePos,

+				*x, pos, &realW, &endPos, &realH);

+	*x += realW;

+    }

+

+    return (visible);

+}

+

+/*

+ * This routine builds a line table. It does this by starting at the

+ * specified position and measuring text to determine the staring position

+ * of each line to be displayed. It also determines and saves in the

+ * linetable all the required metrics for displaying a given line (e.g.

+ * x offset, y offset, line length, etc.).

+ */

+void

+_XawTextBuildLineTable(TextWidget ctx, XawTextPosition position,

+		       _XtBoolean force_rebuild)

+{

+    Dimension height = 0;

+    int lines = 0;

+    Cardinal size;

+

+    if ((int)XtHeight(ctx) > VMargins(ctx)) {

+	height = XtHeight(ctx) - VMargins(ctx);

+	lines = XawTextSinkMaxLines(ctx->text.sink, height);

+    }

+    size = sizeof(XawTextLineTableEntry) * (lines + 1);

+

+    if (lines != ctx->text.lt.lines || ctx->text.lt.info == NULL) {

+	ctx->text.lt.info = (XawTextLineTableEntry *)

+	    XtRealloc((char *)ctx->text.lt.info, size);

+	ctx->text.lt.lines = lines;

+	force_rebuild = True;

+    }

+

+    if (force_rebuild) {

+	(void)bzero((char *)ctx->text.lt.info, size);

+	/* force a text update in the first text line if it is visible */

+	ctx->text.lt.info[0].position = (XawTextPosition)-1;

+    }

+    if (position != ctx->text.lt.info[0].position) {

+	(void)_BuildLineTable(ctx, position, 0);

+	ctx->text.clear_to_eol = True;

+    }

+}

+

+/*

+ * We may need to resize the line table here, since there maybe lines with

+ * different fonts (that can be shorter or taller than the default one)

+ */

+static XawTextPosition

+_BuildLineTable(TextWidget ctx, XawTextPosition position, int line)

+{

+    XawTextLineTableEntry *lt = ctx->text.lt.info + line;

+    XawTextPosition end, update_from = -1;

+    Position y;

+    int wwidth, width, height;

+#ifndef OLDXAW

+    Widget src = ctx->text.source;

+#endif

+    int max_y = (int)XtHeight(ctx) - (int)ctx->text.margin.bottom;

+

+    if (ctx->text.wrap == XawtextWrapNever)

+	wwidth = 0x7fffffff;

+    else

+	wwidth = GetMaxTextWidth(ctx);

+

+    /* XXX y may change, due to font size changes. See later */

+    y = line == 0 ? ctx->text.margin.top : lt->y;

+

+#ifndef OLDXAW

+    if (ctx->text.lt.base_line < 0) {

+	if (line == 0)

+	    ctx->text.lt.top = position;

+    }

+    else if (line == 0) {

+	XawTextPosition pos = ctx->text.lt.top;

+	int base_line = ctx->text.lt.base_line;

+

+	if (position == 0)

+	    base_line = 1;

+	else if (ctx->text.lt.base_line == 0 ||

+		 ctx->text.source_changed == SRC_CHANGE_OVERLAP) {

+	    pos = 0;

+	    base_line = 1;

+

+	    while (pos < position) {

+		pos = SrcScan(src, pos, XawstEOL, XawsdRight, 1, True);

+		if (pos <= position) {

+		    ++base_line;

+		    if (pos == ctx->text.lastPos) {

+			base_line -= !_XawTextSourceNewLineAtEOF(src);

+			break;

+		    }

+		}

+	    }

+	}

+	else if (ctx->text.wrap == XawtextWrapNever

+		 && IsPositionVisible(ctx, position))

+	    base_line += LineForPosition(ctx, position);

+	else if (pos < position) {

+	    while (pos < position) {

+		pos = SrcScan(src, pos, XawstEOL, XawsdRight, 1, True);

+		if (pos <= position) {

+		    ++base_line;

+		    if (pos == ctx->text.lastPos) {

+			base_line -= !_XawTextSourceNewLineAtEOF(src);

+			break;

+		    }

+		}

+	    }

+	}

+	else if (pos > position) {

+	    while (pos > position) {

+		pos = SrcScan(src, pos, XawstEOL, XawsdLeft, 1, False);

+		if (--pos >= position)

+		    --base_line;

+	    }

+	}

+

+	ctx->text.lt.top = position;

+	ctx->text.lt.base_line = base_line;

+    }

+#else

+    if (line == 0)

+	ctx->text.lt.top = position;

+#endif

+

+    /* CONSTCOND */

+    while (True) {

+	XawTextSinkFindPosition(ctx->text.sink, position, ctx->text.left_margin,

+				wwidth, ctx->text.wrap == XawtextWrapWord,

+				&end, &width, &height);

+

+	if (lt->position != position) {

+	    _XawTextNeedsUpdating(ctx, position,

+				  end <= position ? position + 1 : end);

+	    ctx->text.clear_to_eol = True;

+	    lt->position = position;

+	}

+	if (lt->y != y) {

+	    if (update_from < 0)

+		update_from = line == 0 ?

+		    ctx->text.lt.info[0].position :

+		    ctx->text.lt.info[line - 1].position;

+	    lt->y = y;

+	    ctx->text.clear_to_eol = True;

+	}

+	if (lt->textWidth != width) {

+	    if (lt->textWidth > width)

+		ctx->text.clear_to_eol = True;

+	    lt->textWidth = width;

+	}

+	y += height;

+

+	if (end > ctx->text.lastPos) {

+	    position = end;

+	    ctx->text.clear_to_eol = True;

+	    _XawTextNeedsUpdating(ctx, end, end + ctx->text.lt.lines - line);

+	    while (line++ < ctx->text.lt.lines) {

+		if (line > 1 && y > max_y) {

+		    ctx->text.lt.lines = line - 1;

+		    break;

+		}

+		++lt;

+		if (lt->y != y) {

+		    if (update_from < 0)

+			update_from = line < 2 ?

+			    ctx->text.lt.info[0].position :

+			    ctx->text.lt.info[line - 2].position;

+		    lt->y = y;

+		}

+		lt->position = ++position;

+		lt->textWidth = 0;

+		y += height;

+	    }

+	    if (update_from >= 0)

+		_XawTextNeedsUpdating(ctx, update_from,

+				      ctx->text.lt.info[ctx->text.lt.lines].position);

+	    _XawTextSetScrollBars(ctx);

+

+	    return (ctx->text.lastPos);

+	}

+

+	if (line && y > max_y)

+	    /* will return in the next loop */

+	    ctx->text.lt.lines = line;

+

+	if (++line > ctx->text.lt.lines && y < max_y) {

+	/* grow the line table */

+	    ctx->text.lt.info = (XawTextLineTableEntry *)

+		XtRealloc((char *)ctx->text.lt.info,

+			  sizeof(XawTextLineTableEntry) * (line + 1));

+	    lt = ctx->text.lt.info + line;

+	    bzero(lt, sizeof(XawTextLineTableEntry));

+	    ++ctx->text.lt.lines;

+	}

+	else

+	    ++lt;

+	if (position == end)

+	    ++position;

+	else

+	    position = end;

+

+	if (line > ctx->text.lt.lines) {

+	    if (update_from >= 0)

+		_XawTextNeedsUpdating(ctx, update_from,

+				      ctx->text.lt.info[ctx->text.lt.lines].position);

+	    _XawTextSetScrollBars(ctx);

+

+	    return (position);

+	}

+    }

+    /*NOTREACHED*/

+}

+

+/*

+ * Function:

+ *	GetWidestLine

+ *

+ * Parameters:

+ *	ctx - text widget

+ *

+ * Description:

+ *	  Returns the width (in pixels) of the widest line that

+ *		     is currently visable.

+ *

+ * Returns:

+ *	The width of the widest line

+ */

+static unsigned int

+GetWidestLine(TextWidget ctx)

+{

+    int i;

+    unsigned int widest;

+    XawTextLineTablePtr lt = &(ctx->text.lt);

+

+    for (i = 0, widest = 0; i < lt->lines; i++)

+	if (widest < lt->info[i].textWidth)

+	    widest = lt->info[i].textWidth;

+

+    return (widest);

+}

+

+/*

+ * This routine is used by Text to notify an associated scrollbar of the

+ * correct metrics (position and shown fraction) for the text being currently

+ * displayed in the window.

+ */

+void

+_XawTextSetScrollBars(TextWidget ctx)

+{

+    float first, last, denom, widest;

+

+    if (ctx->text.scroll_vert == XawtextScrollAlways) {

+	if (ctx->text.lastPos == 0)

+	    first = 0.0;

+	else

+	    first = ctx->text.lt.top / (float)ctx->text.lastPos;

+

+	if (ctx->text.lt.info[ctx->text.lt.lines].position < ctx->text.lastPos)

+	    last = ctx->text.lt.info[ctx->text.lt.lines].position /

+		   (float)ctx->text.lastPos;

+	else

+	    last = 1.0;

+

+	XawScrollbarSetThumb(ctx->text.vbar, first, last - first);

+    }

+

+    if (ctx->text.scroll_horiz == XawtextScrollAlways) {

+	denom = GetWidestLine(ctx);

+	if (denom <= 0)

+	    denom = (int)XtWidth(ctx) - RHMargins(ctx);

+	if (denom <= 0)

+	    denom = 1;

+	widest = ((int)XtWidth(ctx) - RHMargins(ctx)) / denom;

+	first = ctx->text.r_margin.left - ctx->text.left_margin;

+	first /= denom;

+

+	XawScrollbarSetThumb(ctx->text.hbar, first, widest);

+    }

+}

+

+static void

+DoCopyArea(TextWidget ctx, int src_x, int src_y,

+	   unsigned int width, unsigned int height, int dst_x, int dst_y)

+{

+    int x1, y1, x2, y2;

+

+    x1 = ctx->text.r_margin.left;

+    y1 = ctx->text.r_margin.top;

+    x2 = XtWidth(ctx) - ctx->text.r_margin.right;

+    y2 = XtHeight(ctx) - ctx->text.r_margin.bottom;

+

+    if (x1 >= x2 || y1 >= y2)

+	return;

+

+    src_x = XawMax(x1, XawMin(src_x, x2));

+    src_y = XawMax(y1, XawMin(src_y, y2));

+    dst_x = XawMax(x1, XawMin(dst_x, x2));

+    dst_y = XawMax(y1, XawMin(dst_y, y2));

+    width = XawMax(0, XawMin(x2 - dst_x, (int)width));

+    height = XawMax(0, XawMin(y2 - dst_y, (int)height));

+

+    XCopyArea(XtDisplay(ctx), XtWindow(ctx), XtWindow(ctx), ctx->text.gc,

+	      src_x, src_y, width, height, dst_x, dst_y);

+}

+

+/*

+ * Function:

+ *	XawTextScroll

+ *

+ * Parameters:

+ *	ctx	- text widget

+ *	vlines	- number of lines to scroll vertically

+ *	hpixels	- number of pixels to scroll horizontally

+ *

+ * Description:

+ *	Generic function for scrolling the text window.

+ *	Allows vertical and horizontal scroll at the same time.

+ */

+void

+XawTextScroll(TextWidget ctx, int vlines, int hpixels)

+{

+    XawTextPosition top, tmp, update_from, update_to;

+    XawTextLineTable *lt;

+    Arg arglist[1];

+    int y0, y1, y2, count, dim, wwidth, lines = ctx->text.lt.lines;

+    int vwidth, vheight;	/* visible width and height */

+    Bool scroll;

+

+    vwidth = (int)XtWidth(ctx) - RHMargins(ctx);

+    vheight = (int)XtHeight(ctx) - RVMargins(ctx);

+    lt = &ctx->text.lt;

+

+    if (!lt || vwidth <= 0 || vheight <= 0)

+	return;

+

+    if ((scroll = ctx->core.background_pixmap == XtUnspecifiedPixmap) == True) {

+	dim = lt->info[1].y - lt->info[0].y;

+	for (count = 1; count < lt->lines - 1; count++)

+	    if (lt->info[count + 1].y - lt->info[count].y != dim) {

+		scroll = False;

+		break;

+	    }

+    }

+

+    wwidth = GetMaxTextWidth(ctx);

+

+    /*

+     * Do the horizontall scrolling

+     */

+    if (hpixels < 0 && ctx->text.left_margin - hpixels > ctx->text.r_margin.left)

+	hpixels = ctx->text.left_margin - ctx->text.r_margin.left;

+    ctx->text.left_margin -= hpixels;

+

+    update_from = lt->top;	/* remember the old value */

+    /*

+     *	 Checks the requested number of lines and calculates the top

+     * of the line table

+     */

+    if (vlines < 0) {		  /* VScroll Up */

+	if (IsPositionVisible(ctx, 0))

+	    vlines = 0;

+	else if (ctx->text.wrap != XawtextWrapNever) {

+	    XawTextPosition end;

+	    int n_lines = 0;

+

+	    count = -vlines;

+	    end = lt->top;

+	    while (n_lines < count) {

+		top = SrcScan(ctx->text.source, end, XawstEOL,

+			      XawsdLeft, 2, False);

+		n_lines += CountLines(ctx, top, end);

+		end = top;

+	    }

+

+	    while (count++ < n_lines) {

+		tmp = top;

+		XawTextSinkFindPosition(ctx->text.sink, top,

+					ctx->text.left_margin,

+					wwidth,ctx->text.wrap == XawtextWrapWord,

+					&top, &dim, &dim);

+		if (tmp == top)

+		    ++top;

+	    }

+	}

+	else

+	    top = SrcScan(ctx->text.source, lt->top, XawstEOL,

+			  XawsdLeft, -vlines + 1, False);

+	if (-vlines >= ctx->text.lt.lines)

+	  scroll = False;

+     }

+    else if (vlines > 0) {	  /* VScroll Down */

+	if (LineForPosition(ctx, ctx->text.lastPos) == 0)

+	    vlines = 0;

+	if (vlines < lt->lines)

+	    top = XawMin(lt->info[vlines].position, ctx->text.lastPos);

+	else if (ctx->text.wrap == XawtextWrapNever)

+	    top = SrcScan(ctx->text.source,

+			  SrcScan(ctx->text.source, lt->top,

+				  XawstEOL, XawsdRight, vlines,

+				  True),

+			  XawstEOL, XawsdLeft, 1, False);

+	else {

+	    top = lt->top;

+	    count = 0;

+	    while (count++ < vlines) {

+		tmp = top;

+		XawTextSinkFindPosition(ctx->text.sink, top,

+					ctx->text.left_margin,

+					wwidth, ctx->text.wrap == XawtextWrapWord,

+					&top, &dim, &dim);

+		if (tmp == top)

+		    ++top;

+	    }

+	}

+	if (vlines >= ctx->text.lt.lines

+	    || lt->info[vlines].position >= ctx->text.lastPos)

+	    scroll = False;

+    }

+

+    if (!vlines) {

+	if (hpixels) {

+	    ClearWindow(ctx);

+	    ctx->text.clear_to_eol = True;

+	}

+	_XawTextSetScrollBars(ctx);

+	return;

+    }

+

+    /* Flushes any pending updates. Normally, there may be a call to

+     * XawTextUnsetSelection not yet updated.

+     */

+    if (!hpixels && scroll) {

+	ctx->text.clear_to_eol = True;

+	FlushUpdate(ctx);

+    }

+

+    /*

+     * Rebuild the line table, doing the vertical scroll

+     */

+    (void)_BuildLineTable(ctx, top, 0);

+    lt = &ctx->text.lt;

+    if (scroll) {

+	for (count = 0; count < lt->lines - 1; count++)

+	    if (lt->info[count + 1].y - lt->info[count].y != dim) {

+		scroll = False;

+		break;

+	    }

+    }

+

+    XtSetArg(arglist[0], XtNinsertPosition, lt->top + lt->lines);

+    _XawImSetValues((Widget)ctx, arglist, 1);

+

+    if (hpixels || !scroll || lines != lt->lines)

+	return;

+

+    /* _BuildLineTable updates everything if the top position changes.

+     * It is not required here.

+     */

+    (void)XmuScanlineXor(ctx->text.update, ctx->text.update);

+    if (vlines < 0 && IsPositionVisible(ctx, 0))

+	vlines = -LineForPosition(ctx, update_from);

+

+    y0 = ctx->text.r_margin.top;

+    if (vlines < 0) {

+	update_from = lt->top;

+	update_to = lt->info[-vlines + 1].position - 1;

+	y1 = lt->info[lt->lines + vlines].y;

+	y2 = lt->info[-vlines].y;

+	DoCopyArea(ctx, ctx->text.r_margin.left, y0, vwidth,

+		   y1 - y0,

+		   ctx->text.r_margin.left, y2);

+    }

+    else {

+	update_from = lt->info[lt->lines - vlines].position;

+	update_to = lt->info[lt->lines].position;

+	y1 = lt->info[lt->lines - vlines].y;

+	y2 = lt->info[vlines].y;

+	DoCopyArea(ctx, ctx->text.r_margin.left, y2,

+		   vwidth, lt->info[lt->lines].y - y2,

+		   ctx->text.r_margin.left, y0);

+    }

+    _XawTextNeedsUpdating(ctx, update_from, update_to);

+    ctx->text.clear_to_eol = True;

+}

+

+/*

+ * The routine will scroll the displayed text by lines.  If the arg  is

+ * positive, move up; otherwise, move down. [note: this is really a private

+ * procedure but is used in multiple modules].

+ */

+void

+_XawTextVScroll(TextWidget ctx, int n)

+{

+  XawTextScroll(ctx, n, 0);

+}

+

+/*ARGSUSED*/

+static void

+HScroll(Widget w, XtPointer closure, XtPointer callData)

+{

+    TextWidget ctx = (TextWidget)closure;

+    long pixels = (long)callData;

+

+    if (pixels > 0) {

+	long max;

+

+	max = (int)GetWidestLine(ctx) + ctx->text.left_margin -

+	      ctx->text.r_margin.left;

+	max = XawMax(0, max);

+	pixels = XawMin(pixels, max);

+    }

+

+    if (pixels) {

+	_XawTextPrepareToUpdate(ctx);

+	XawTextScroll(ctx, 0, pixels);

+	_XawTextExecuteUpdate(ctx);

+    }

+}

+

+/*ARGSUSED*/

+static void

+HJump(Widget w, XtPointer closure, XtPointer callData)

+{

+    TextWidget ctx = (TextWidget)closure;

+    float percent = *(float *)callData;

+    long pixels;

+

+    pixels = ctx->text.left_margin -

+	     (ctx->text.r_margin.left - (int)(percent * GetWidestLine(ctx)));

+

+    HScroll(w, (XtPointer)ctx, (XtPointer)pixels);

+}

+

+/*

+ * Function:

+ *	UpdateTextInLine

+ *

+ * Parameters:

+ *	ctx  - text widget

+ *	line - line to update

+ *	x1   - left pixel

+ *	x2   - right pixel

+ *

+ * Description:

+ *	Updates the text in the given line and pixel interval

+ */

+static void

+UpdateTextInLine(TextWidget ctx, int line, int x1, int x2)

+{

+    XawTextLineTableEntry *lt = ctx->text.lt.info + line;

+    XawTextPosition left, right;

+    int from_x, width, height;

+

+    if (lt->position >= ctx->text.lastPos

+	|| ctx->text.left_margin > x2

+	|| (int)lt->textWidth + ctx->text.left_margin < x1) {

+	/* Mark line to be cleared */

+	if (ctx->text.clear_to_eol)

+	    _XawTextNeedsUpdating(ctx, lt->position, lt->position + 1);

+	return;

+    }

+

+    from_x = ctx->text.left_margin;

+    XawTextSinkFindPosition(ctx->text.sink, lt->position,

+			    from_x, x1 - from_x,

+			    False, &left, &width, &height);

+    if (line == ctx->text.lt.lines)

+	right = -1;

+    else if (x2 >= lt->textWidth - from_x)

+	right = lt[1].position - 1;

+    else {

+	from_x += width;

+	XawTextSinkFindPosition(ctx->text.sink, left,

+				from_x, x2 - from_x,

+				False, &right, &width, &height);

+    }

+

+    if ((right < 0) || (right + 1 <= lt[1].position))

+	++right;

+

+    /* Mark text interval to be repainted */

+    _XawTextNeedsUpdating(ctx, left, right);

+}

+

+/*

+ * The routine will scroll the displayed text by pixels.  If the calldata is

+ * positive, move up; otherwise, move down.

+ */

+/*ARGSUSED*/

+static void

+VScroll(Widget w, XtPointer closure, XtPointer callData)

+{

+    TextWidget ctx = (TextWidget)closure;

+    long height, lines = (long)callData;

+

+    height = XtHeight(ctx) - VMargins(ctx);

+    if (height < 1)

+	height = 1;

+    lines = (lines * ctx->text.lt.lines) / height;

+    _XawTextPrepareToUpdate(ctx);

+    XawTextScroll(ctx, lines, 0);

+    _XawTextExecuteUpdate(ctx);

+}

+

+/*ARGSUSED*/

+static void

+VJump(Widget w, XtPointer closure, XtPointer callData)

+{

+    float percent = *(float *)callData;

+    TextWidget ctx = (TextWidget)closure;

+    XawTextPosition top, last, position, tmp;

+    XawTextLineTable *lt = &(ctx->text.lt);

+    int dim, vlines = 0, wwidth = GetMaxTextWidth(ctx);

+    Bool scroll = True;

+

+    position = percent * ctx->text.lastPos;

+    top = lt->top;

+

+    if (!lt->lines || (position >= lt->top && position < lt->info[1].position)) {

+	_XawTextSetScrollBars(ctx);

+	return;

+    }

+

+#ifndef OLDXAW

+    ctx->text.lt.base_line = -1;

+#endif

+

+    if (position > lt->top) {	  /* VScroll Up */

+	if (position > lt->top && position < lt->info[lt->lines].position)

+	    vlines = LineForPosition(ctx, position);

+	else {

+	    scroll = False;

+	    top = SrcScan(ctx->text.source, position, XawstEOL,

+			  XawsdLeft, 1, False);

+	    if (ctx->text.wrap != XawtextWrapNever) {

+		last = top;

+		while (last < position) {

+		    tmp = last;

+		    XawTextSinkFindPosition(ctx->text.sink, last,

+					    ctx->text.left_margin, wwidth,

+					    ctx->text.wrap == XawtextWrapWord,

+					    &last, &dim, &dim);

+		    if (last == tmp)

+			++last;

+		    if (last < position)

+			top = last;

+		}

+	    }

+	}

+    }

+    else {		  /* VScroll Down */

+	/*

+	 * Calculates the number of lines

+	 */

+	while (top > position) {

+	    last = top;

+	    top = SrcScan(ctx->text.source, top, XawstEOL,

+			  XawsdLeft, 2, False);

+	    vlines -= CountLines(ctx, top, last);

+	    if (-vlines >= ctx->text.lt.lines) {

+		scroll = False;

+		top = SrcScan(ctx->text.source, position, XawstEOL,

+			      XawsdLeft, 1, False);

+		break;

+	      }

+	  }

+	/*

+	 * Normalize

+	 */

+	if (ctx->text.wrap != XawtextWrapNever) {

+	    last = top;

+	    while (last < position) {

+		tmp = last;

+		XawTextSinkFindPosition(ctx->text.sink, last,

+					ctx->text.left_margin,

+					wwidth,

+					ctx->text.wrap == XawtextWrapWord,

+					&last, &dim, &dim);

+		if (last == tmp)

+		    ++last;

+		if (last < position)

+		    top = last;

+		++vlines;

+	    }

+	}

+    }

+

+    if (vlines || !scroll) {

+	_XawTextPrepareToUpdate(ctx);

+	if (scroll)

+	    XawTextScroll(ctx, vlines, 0);

+	else

+	    _BuildLineTable(ctx, top, 0);

+	_XawTextExecuteUpdate(ctx);

+    }

+}

+

+static Bool

+MatchSelection(Atom selection, XawTextSelection *s)

+{

+    Atom *match;

+    int count;

+

+    for (count = 0, match = s->selections; count < s->atom_count;

+       match++, count++)

+    if (*match == selection)

+	return (True);

+

+  return (False);

+}

+

+static Boolean

+TextConvertSelection(Widget w, Atom *selection, Atom *target, Atom *type,

+		 XtPointer *value, unsigned long *length, int *format)

+{

+    Display *d = XtDisplay(w);

+    TextWidget ctx = (TextWidget)w;

+    Widget src = ctx->text.source;

+    XawTextEditType edit_mode;

+    Arg args[1];

+    XawTextSelectionSalt *salt = NULL;

+    XawTextSelection *s;

+

+    if (*target == XA_TARGETS(d)) {

+	Atom *targetP, *std_targets;

+	unsigned long std_length;

+

+	if (SrcCvtSel(src, selection, target, type, value, length, format))

+	    return (True);

+

+	XtSetArg(args[0], XtNeditType, &edit_mode);

+	XtGetValues(src, args, ONE);

+

+	XmuConvertStandardSelection(w, ctx->text.time, selection,

+				    target, type, (XPointer*)&std_targets,

+				    &std_length, format);

+

+	*length = 7 + (edit_mode == XawtextEdit) + std_length;

+	*value = XtMalloc((unsigned)sizeof(Atom)*(*length));

+	targetP = *(Atom**)value;

+	*targetP++ = XA_STRING;

+	*targetP++ = XA_TEXT(d);

+	*targetP++ = XA_UTF8_STRING(d);

+	*targetP++ = XA_COMPOUND_TEXT(d);

+	*targetP++ = XA_LENGTH(d);

+	*targetP++ = XA_LIST_LENGTH(d);

+	*targetP++ = XA_CHARACTER_POSITION(d);

+	if (edit_mode == XawtextEdit) {

+	    *targetP++ = XA_DELETE(d);

+	}

+	(void)memmove((char*)targetP, (char*)std_targets,

+		      sizeof(Atom) * std_length);

+	XtFree((char*)std_targets);

+	*type = XA_ATOM;

+	*format = 32;

+	return (True);

+    }

+

+    if (SrcCvtSel(src, selection, target, type, value, length, format))

+	return (True);

+

+    if (MatchSelection(*selection, &ctx->text.s))

+	s = &ctx->text.s;

+    else {

+	for (salt = ctx->text.salt; salt; salt = salt->next)

+	    if (MatchSelection(*selection, &salt->s))

+		break;

+	if (!salt)

+	    return (False);

+	s = &salt->s;

+    }

+    if (*target == XA_STRING

+	|| *target == XA_TEXT(d)

+	|| *target == XA_UTF8_STRING(d)

+	|| *target == XA_COMPOUND_TEXT(d)) {

+	if (*target == XA_TEXT(d)) {

+	    if (XawTextFormat(ctx, XawFmtWide))

+		*type = XA_COMPOUND_TEXT(d);

+	    else

+		*type = XA_STRING;

+	}

+	else

+	    *type = *target;

+	/* 

+	 * If salt is True, the salt->contents stores CT string,

+	 * its length is measured in bytes.

+	 * Refer to _XawTextSaltAwaySelection().

+	 *

+	 * by Li Yuhong, Mar. 20, 1991.

+	 */

+	if (!salt) {

+	    *value = _XawTextGetSTRING(ctx, s->left, s->right);

+	    if (XawTextFormat(ctx, XawFmtWide)) {

+		XTextProperty textprop;

+		if (XwcTextListToTextProperty(d, (wchar_t **)value, 1,

+					      XCompoundTextStyle, &textprop)

+		    <  Success) {

+		    XtFree((char *)*value);

+		    return (False);

+		}

+	 	XtFree((char *)*value);

+		*value = (XtPointer)textprop.value;

+		*length = textprop.nitems;

+	    }

+	    else

+	        *length = strlen((char *)*value);

+	}

+	else {

+	    *value = XtMalloc((salt->length + 1) * sizeof(unsigned char));

+	    strcpy ((char *)*value, salt->contents);

+	    *length = salt->length;

+	}

+	/* Got *value,*length, now in COMPOUND_TEXT format. */

+	if (XawTextFormat(ctx, XawFmtWide) && *type == XA_STRING) {

+	    XTextProperty textprop;

+	    wchar_t **wlist;

+	    int count;

+

+	    textprop.encoding = XA_COMPOUND_TEXT(d);

+	    textprop.value = (unsigned char *)*value;

+	    textprop.nitems = strlen(*value);

+	    textprop.format = 8;

+	    if (XwcTextPropertyToTextList(d, &textprop, &wlist, &count)

+		 < Success

+		|| count < 1) {

+		XtFree((char *)*value);

+		return (False);

+	    }

+	    XtFree((char *)*value);

+	    if (XwcTextListToTextProperty(d, wlist, 1, XStringStyle, &textprop)

+		 < Success) {

+		XwcFreeStringList((wchar_t**) wlist);

+		return (False);

+	    }

+	    *value = (XtPointer)textprop.value;

+	    *length = textprop.nitems;

+	    XwcFreeStringList(wlist);

+	} else if (*type == XA_UTF8_STRING(d)) {

+	    XTextProperty textprop;

+	    char **list;

+	    int count;

+

+	    textprop.encoding = XA_COMPOUND_TEXT(d);

+	    textprop.value = (unsigned char *)*value;

+	    textprop.nitems = strlen(*value);

+	    textprop.format = 8;

+	    if (Xutf8TextPropertyToTextList(d, &textprop, &list, &count)

+		 < Success

+		|| count < 1) {

+		XtFree((char *)*value);

+		return (False);

+	    }

+	    XtFree((char *)*value);

+	    *value = *list;

+	    *length = strlen(*list);

+	    XFree(list);

+	}

+	*format = 8;

+	return (True);

+    }

+

+    if ((*target == XA_LIST_LENGTH(d)) || (*target == XA_LENGTH(d))) {

+	long * temp;

+

+	temp = (long *)XtMalloc((unsigned)sizeof(long));

+	if (*target == XA_LIST_LENGTH(d))

+	    *temp = 1L;

+	else			/* *target == XA_LENGTH(d) */

+	    *temp = (long) (s->right - s->left);

+

+	*value = (XPointer)temp;

+	*type = XA_INTEGER;

+	*length = 1L;

+	*format = 32;

+	return (True);

+    }

+

+    if (*target == XA_CHARACTER_POSITION(d)) {

+	long * temp;

+

+	temp = (long *)XtMalloc((unsigned)(2 * sizeof(long)));

+	temp[0] = (long)(s->left + 1);

+	temp[1] = s->right;

+	*value = (XPointer)temp;

+	*type = XA_SPAN(d);

+	*length = 2L;

+	*format = 32;

+	return (True);

+    }

+

+    if (*target == XA_DELETE(d)) {

+	if (!salt)

+	    _XawTextZapSelection(ctx, NULL, True);

+	*value = NULL;

+	*type = XA_NULL(d);

+	*length = 0;

+	*format = 32;

+	return (True);

+    }

+

+    if (XmuConvertStandardSelection(w, ctx->text.time, selection, target, type,

+				    (XPointer *)value, length, format))

+	return (True);

+

+    /* else */

+    return (False);

+}

+

+/*

+ * Function:

+ *	GetCutBuffferNumber

+ *

+ * Parameters:

+ *	atom - atom to check

+ *

+ * Description:

+ *	Returns the number of the cut buffer.

+ *

+ * Returns:

+ *	The number of the cut buffer representing this atom or NOT_A_CUT_BUFFER

+ */

+#define NOT_A_CUT_BUFFER -1

+static int

+GetCutBufferNumber(Atom atom)

+{

+    if (atom == XA_CUT_BUFFER0) return (0);

+    if (atom == XA_CUT_BUFFER1) return (1);

+    if (atom == XA_CUT_BUFFER2) return (2);

+    if (atom == XA_CUT_BUFFER3) return (3);

+    if (atom == XA_CUT_BUFFER4) return (4);

+    if (atom == XA_CUT_BUFFER5) return (5);

+    if (atom == XA_CUT_BUFFER6) return (6);

+    if (atom == XA_CUT_BUFFER7) return (7);

+    return (NOT_A_CUT_BUFFER);

+}

+

+static void

+TextLoseSelection(Widget w, Atom *selection)

+{

+    TextWidget ctx = (TextWidget)w;

+    Atom *atomP;

+    int i;

+    XawTextSelectionSalt*salt, *prevSalt, *nextSalt;

+

+    atomP = ctx->text.s.selections;

+    for (i = 0 ; i < ctx->text.s.atom_count; i++, atomP++)

+	if ((*selection == *atomP)

+	    || (GetCutBufferNumber(*atomP) != NOT_A_CUT_BUFFER))

+	    *atomP = (Atom)0;

+

+    while (ctx->text.s.atom_count

+	   && ctx->text.s.selections[ctx->text.s.atom_count - 1] == 0)

+	ctx->text.s.atom_count--;

+

+    /*

+     * Must walk the selection list in opposite order from UnsetSelection

+     */

+    atomP = ctx->text.s.selections;

+    for (i = 0 ; i < ctx->text.s.atom_count; i++, atomP++)

+	if (*atomP == (Atom)0) {

+	    *atomP = ctx->text.s.selections[--ctx->text.s.atom_count];

+	    while (ctx->text.s.atom_count

+		   && ctx->text.s.selections[ctx->text.s.atom_count-1] == 0)

+		ctx->text.s.atom_count--;

+	}

+

+    if (ctx->text.s.atom_count == 0)

+	ModifySelection(ctx, ctx->text.insertPos, ctx->text.insertPos);

+

+    prevSalt = 0;

+    for (salt = ctx->text.salt; salt; salt = nextSalt) {

+	atomP = salt->s.selections;

+	nextSalt = salt->next;

+	for (i = 0 ; i < salt->s.atom_count; i++, atomP++)

+	    if (*selection == *atomP)

+		*atomP = (Atom)0;

+

+	while (salt->s.atom_count

+	       && salt->s.selections[salt->s.atom_count-1] == 0)

+	    salt->s.atom_count--;

+    	

+	/*

+	 * Must walk the selection list in opposite order from UnsetSelection

+	 */

+	atomP = salt->s.selections;

+	for (i = 0 ; i < salt->s.atom_count; i++, atomP++)

+	    if (*atomP == (Atom)0) {

+		*atomP = salt->s.selections[--salt->s.atom_count];

+		while (salt->s.atom_count

+		       && salt->s.selections[salt->s.atom_count-1] == 0)

+		    salt->s.atom_count--;

+	    }

+

+	if (salt->s.atom_count == 0) {

+	    XtFree ((char *) salt->s.selections);

+	    XtFree (salt->contents);

+	    if (prevSalt)

+		prevSalt->next = nextSalt;

+	    else

+		ctx->text.salt = nextSalt;

+	    XtFree((char *)salt);

+	}

+	else

+	    prevSalt = salt;

+    }

+}

+

+void

+_XawTextSaltAwaySelection(TextWidget ctx, Atom *selections, int num_atoms)

+{

+    XawTextSelectionSalt *salt;

+    int i, j;

+

+    for (i = 0; i < num_atoms; i++)

+	TextLoseSelection((Widget)ctx, selections + i);

+    if (num_atoms == 0)

+	return;

+    salt = (XawTextSelectionSalt *)

+	XtMalloc((unsigned)sizeof(XawTextSelectionSalt));

+    if (!salt)

+	return;

+    salt->s.selections = (Atom *)XtMalloc((unsigned)(num_atoms * sizeof(Atom)));

+    if (!salt->s.selections) {

+	XtFree((char *)salt);

+	return;

+    }

+    salt->s.left = ctx->text.s.left;

+    salt->s.right = ctx->text.s.right;

+    salt->s.type = ctx->text.s.type;

+    salt->contents = _XawTextGetSTRING(ctx, ctx->text.s.left, ctx->text.s.right);

+    if (XawTextFormat(ctx, XawFmtWide)) {

+	XTextProperty textprop;

+	if (XwcTextListToTextProperty(XtDisplay((Widget)ctx),

+				      (wchar_t**)(&(salt->contents)), 1,

+				      XCompoundTextStyle,

+				      &textprop) < Success) {

+	    XtFree(salt->contents);

+	    salt->length = 0;

+	    return;

+	}

+	XtFree(salt->contents);

+	salt->contents = (char *)textprop.value;

+	salt->length = textprop.nitems;

+    }

+    else

+	salt->length = strlen (salt->contents);

+    salt->next = ctx->text.salt;

+    ctx->text.salt = salt;

+    j = 0;

+    for (i = 0; i < num_atoms; i++) {

+	if (GetCutBufferNumber (selections[i]) == NOT_A_CUT_BUFFER) {

+	    salt->s.selections[j++] = selections[i];

+	    XtOwnSelection((Widget)ctx, selections[i], ctx->text.time,

+			   TextConvertSelection, TextLoseSelection, NULL);

+	}

+    }

+    salt->s.atom_count = j;

+}

+

+static void

+_SetSelection(TextWidget ctx, XawTextPosition left, XawTextPosition right,

+	      Atom *selections, Cardinal count)

+{

+#ifndef OLDXAW

+    Cardinal i;

+    XawTextPosition pos;

+    TextSrcObject src = (TextSrcObject)ctx->text.source;

+

+    for (i = 0; i < src->textSrc.num_text; i++) {

+	TextWidget tw = (TextWidget)src->textSrc.text[i];

+	Bool needs_updating = tw->text.old_insert < 0;

+	Bool showposition = tw->text.showposition;

+

+	if (needs_updating) {

+	    tw->text.showposition = False;

+	    _XawTextPrepareToUpdate(tw);

+	}

+#else

+	TextWidget tw = ctx;

+	XawTextPosition pos;

+#endif /* OLDXAW */

+

+	if (left < tw->text.s.left) {

+	    pos = Min(right, tw->text.s.left);

+	    _XawTextNeedsUpdating(tw, left, pos);

+	}

+	if (left > tw->text.s.left) {

+	    pos = Min(left, tw->text.s.right);

+	    _XawTextNeedsUpdating(tw, tw->text.s.left, pos);

+	}

+	if (right < tw->text.s.right) {

+	    pos = Max(right, tw->text.s.left);

+	    _XawTextNeedsUpdating(tw, pos, tw->text.s.right);

+	}

+	if (right > tw->text.s.right) {

+	    pos = Max(left, tw->text.s.right);

+	    _XawTextNeedsUpdating(tw, pos, right);

+	}

+

+	tw->text.s.left = left;

+	tw->text.s.right = right;

+

+#ifndef OLDXAW

+	if (needs_updating) {

+	    _XawTextExecuteUpdate(tw);

+	    tw->text.showposition = showposition;

+	}

+    }

+#endif /* OLDXAW */

+

+    SrcSetSelection(ctx->text.source, left, right,

+		    (count == 0) ? None : selections[0]);

+

+    if (left < right) {

+	Widget w = (Widget)ctx;

+	int buffer;

+

+	while (count) {

+	    Atom selection = selections[--count];

+

+	    /*

+	     * If this is a cut buffer

+	     */

+	    if ((buffer = GetCutBufferNumber(selection)) != NOT_A_CUT_BUFFER) {

+		unsigned char *ptr, *tptr;

+		unsigned int amount, max_len = MAX_CUT_LEN(XtDisplay(w));

+		unsigned long len;

+

+		tptr= ptr= (unsigned char *)_XawTextGetSTRING(ctx,

+							      ctx->text.s.left,

+							      ctx->text.s.right);

+		if (XawTextFormat(ctx, XawFmtWide)) {

+		    /*

+		     * Only XA_STRING(Latin 1) is allowed in CUT_BUFFER,

+		     * so we get it from wchar string, then free the wchar string

+		     */

+		    XTextProperty textprop;

+

+		    if (XwcTextListToTextProperty(XtDisplay(w), (wchar_t**)&ptr,

+						  1, XStringStyle, &textprop)

+			<  Success){

+			XtFree((char *)ptr);

+			return;

+		    }

+		    XtFree((char *)ptr);

+		    tptr = ptr = textprop.value;

+		}

+		if (buffer == 0) {

+		    _CreateCutBuffers(XtDisplay(w));

+		    XRotateBuffers(XtDisplay(w), 1);

+		}

+		amount = Min ((len = strlen((char *)ptr)), max_len);

+		XChangeProperty(XtDisplay(w), RootWindow(XtDisplay(w), 0),

+				selection, XA_STRING, 8, PropModeReplace,

+				ptr, amount);

+

+		while (len > max_len) {

+		    len -= max_len;

+		    tptr += max_len;

+		    amount = Min (len, max_len);

+		    XChangeProperty(XtDisplay(w), RootWindow(XtDisplay(w), 0),

+				    selection, XA_STRING, 8, PropModeAppend,

+				    tptr, amount);

+		}

+		XtFree ((char *)ptr);

+	    }

+	    else		/* This is a real selection */

+		XtOwnSelection(w, selection, ctx->text.time, TextConvertSelection,

+			       TextLoseSelection, NULL);

+	}

+    }

+    else

+	XawTextUnsetSelection((Widget)ctx);

+}

+

+#ifndef OLDXAW

+void

+_XawTextSetLineAndColumnNumber(TextWidget ctx, Bool force)

+{

+    int line_number, column_number;

+

+    if (ctx->text.old_insert != ctx->text.insertPos &&

+	ctx->text.lt.base_line < 0) {

+	ctx->text.lt.base_line = 0;

+	(void)_BuildLineTable(ctx, ctx->text.lt.top, 0);

+    }

+

+    line_number = ResolveLineNumber(ctx);

+    column_number = ResolveColumnNumber(ctx);

+

+    if (force || (ctx->text.column_number != column_number

+		  || ctx->text.line_number != line_number)) {

+	XawTextPositionInfo info;

+

+	ctx->text.line_number = info.line_number = line_number;

+	ctx->text.column_number = info.column_number = column_number;

+	info.insert_position = ctx->text.insertPos;

+	info.last_position = ctx->text.lastPos;

+	info.overwrite_mode = ctx->text.overwrite;

+

+	XtCallCallbacks((Widget)ctx, XtNpositionCallback, (XtPointer)&info);

+    }

+}

+

+static int

+ResolveColumnNumber(TextWidget ctx)

+{

+    Widget src = ctx->text.source;

+    short column_number = 0;

+    XawTextPosition position;

+    XawTextBlock block;

+    unsigned long format = _XawTextFormat(ctx);

+    TextSinkObject sink = (TextSinkObject)ctx->text.sink;

+    short *char_tabs = sink->text_sink.char_tabs;

+    int tab_count = sink->text_sink.tab_count;

+    int tab_index = 0, tab_column = 0, tab_base = 0;

+

+    if (ctx->text.lt.base_line < 1)

+	return (ctx->text.column_number);

+

+    position = SrcScan(src, ctx->text.insertPos, XawstEOL, XawsdLeft, 1, False);

+    XawTextSourceRead(src, position, &block, ctx->text.insertPos - position);

+

+    for (; position < ctx->text.insertPos; position++) {

+	if (position - block.firstPos >= block.length)

+	    XawTextSourceRead(src, position, &block, ctx->text.insertPos - position);

+	if ((format == XawFmt8Bit && block.ptr[position - block.firstPos] == '\t') ||

+	    (format == XawFmtWide && ((wchar_t*)block.ptr)[position - block.firstPos] == _Xaw_atowc(XawTAB))) {

+	    while (tab_base + tab_column <= column_number) {

+		if (tab_count) {

+		    for (; tab_index < tab_count; ++tab_index)

+			if (tab_base + char_tabs[tab_index] > column_number) {

+			    tab_column = char_tabs[tab_index];

+			    break;

+			}

+		    if (tab_index >= tab_count) {

+			tab_base += char_tabs[tab_count - 1];

+			tab_column = tab_index = 0;

+		    }

+		}

+		else

+		    tab_column += DEFAULT_TAB_SIZE;

+	    }

+	    column_number = tab_base + tab_column;

+	}

+	else

+	    ++column_number;

+	if (column_number >= 16384) {

+	    column_number = 16383;

+	    break;

+	}

+    }

+

+    return (column_number);

+}

+#endif /* OLDXAW */

+

+void

+_XawTextSourceChanged(Widget w, XawTextPosition left, XawTextPosition right,

+		      XawTextBlock *block, int lines)

+{

+    TextWidget ctx = (TextWidget)w;

+    Widget src = ctx->text.source;

+    XawTextPosition update_from, update_to, top;

+    Boolean update_disabled;

+    int delta, line, line_from;

+

+    if (left < ctx->text.old_insert) {

+	XawTextPosition old_insert = ctx->text.old_insert;

+

+	if (right < ctx->text.old_insert)

+	    old_insert -= right - left;

+	else

+	    old_insert = left;

+

+	ctx->text.insertPos = old_insert + block->length;

+    }

+#ifndef OLDXAW

+    if (left <= ctx->text.lt.top) {

+	if (left + block->length - (right - left) < ctx->text.lt.top) {

+	    ctx->text.source_changed = SRC_CHANGE_BEFORE;

+	    ctx->text.lt.base_line += lines;

+	}

+	else

+	    ctx->text.source_changed = SRC_CHANGE_OVERLAP;

+    }

+    else

+	ctx->text.source_changed = SRC_CHANGE_AFTER;

+#endif

+

+    update_from = left;

+    update_to = left + block->length;

+    update_to = SrcScan(src, update_to, XawstEOL, XawsdRight, 1, False);

+    delta = block->length - (right - left);

+    if (delta < 0)

+	ctx->text.clear_to_eol = True;

+    if (update_to == update_from)

+	++update_to;

+    update_disabled = ctx->text.update_disabled;

+    ctx->text.update_disabled = True;

+    ctx->text.lastPos = XawTextGetLastPosition(ctx);

+    top = ctx->text.lt.info[0].position;

+

+    XawTextUnsetSelection((Widget)ctx);

+

+    if (delta) {

+	int i;

+	XmuSegment *seg;

+

+	for (seg = ctx->text.update->segment; seg; seg = seg->next) {

+	    if (seg->x1 > (int)left)

+		break;

+	    else if (seg->x2 > (int)left) {

+		seg->x2 += delta;

+		seg = seg->next;

+		break;

+	    }

+	}

+	for (; seg; seg = seg->next) {

+	    seg->x1 += delta;

+	    seg->x2 += delta;

+	}

+	XmuOptimizeScanline(ctx->text.update);

+

+	for (i = 0; i <= ctx->text.lt.lines; i++)

+	    if (ctx->text.lt.info[i].position > left)

+		break;

+	for (; i <= ctx->text.lt.lines; i++)

+	    ctx->text.lt.info[i].position += delta;

+    }

+

+    if (top != ctx->text.lt.info[0].position) {

+	line_from = line = 0;

+	ctx->text.lt.top = top = SrcScan(src, ctx->text.lt.info[0].position,

+					 XawstEOL, XawsdLeft, 1, False);

+	update_from = top;

+    }

+    else {

+	line_from = line = LineForPosition(ctx, update_from + delta);

+	top = ctx->text.lt.info[line].position;

+    }

+

+    if (line > 0 && ctx->text.wrap == XawtextWrapWord) {

+	--line;

+	top = ctx->text.lt.info[line].position;

+    }

+

+    (void)_BuildLineTable(ctx, top, line);

+

+    if (ctx->text.wrap == XawtextWrapWord) {

+	if (line_from != LineForPosition(ctx, update_from)

+	    || line_from != LineForPosition(ctx, update_to)) {

+	    ctx->text.clear_to_eol = True;

+	    update_from = SrcScan(src, update_from,

+				  XawstWhiteSpace, XawsdLeft, 1, True);

+	    if (update_to >= ctx->text.lastPos)

+	    /* this is not an error, it just tells _BuildLineTable to

+	     * clear to the bottom of the window. The value of update_to

+	     * should not be > ctx->text.lastPos.

+	     */

+		++update_to;

+	}

+    }

+    else if (!ctx->text.clear_to_eol) {

+	if (LineForPosition(ctx, update_from)

+	    != LineForPosition(ctx, update_to))

+	    ctx->text.clear_to_eol = True;

+    }

+

+    _XawTextNeedsUpdating(ctx, update_from, update_to);

+    ctx->text.update_disabled = update_disabled;

+}

+

+/*

+ * Function:

+ *	_XawTextReplace

+ *

+ * Parameters:

+ *	ctx   - text widget

+ *	left  - left offset

+ *	right - right offset

+ *	block - text block

+ *

+ * Description:

+ *	  Replaces the text between left and right by the text in block.

+ *	  Does all the required calculations of offsets, and rebuild the

+ *	the line table, from the insertion point (or previous line, if

+ *	wrap mode is 'word').

+ *

+ * Returns:

+ *	XawEditDone     - success

+ *	any other value - error code

+ */

+int

+_XawTextReplace(TextWidget ctx, XawTextPosition left, XawTextPosition right,

+		XawTextBlock *block)

+{

+    Arg args[1];

+    Widget src;

+    XawTextEditType edit_mode;

+

+    if (left == right && block->length == 0)

+	return (XawEditDone);

+

+    src = ctx->text.source;

+    XtSetArg(args[0], XtNeditType, &edit_mode);

+    XtGetValues(src, args, 1);

+

+    if (edit_mode == XawtextAppend) {

+	if (block->length == 0)

+	    return (XawEditError);

+	ctx->text.insertPos = ctx->text.lastPos;

+    }

+

+#ifndef OLDXAW

+    return (SrcReplace(src, left, right, block));

+#else

+    if (SrcReplace(src, left, right, block) == XawEditDone) {

+	_XawTextSourceChanged((Widget)ctx, left, right, block, 0);

+

+	return (XawEditDone);

+    }

+

+    return (XawEditError);

+#endif

+}

+

+/*

+ * This routine will display text between two arbitrary source positions.

+ * In the event that this span contains highlighted text for the selection,

+ * only that portion will be displayed highlighted.

+ */

+static void

+OldDisplayText(Widget w, XawTextPosition left, XawTextPosition right)

+{

+    static XmuSegment segment;

+    static XmuScanline next;

+    static XmuScanline scanline = {0, &segment, &next};

+    static XmuArea area = {&scanline};

+

+    TextWidget ctx = (TextWidget)w;

+    int x, y, line;

+    XawTextPosition start, end, last, final;

+    XmuScanline *scan;

+    XmuSegment *seg;

+    XmuArea *clip = NULL;

+    Bool cleol = ctx->text.clear_to_eol;

+    Bool has_selection = ctx->text.s.right > ctx->text.s.left;

+

+    left = left < ctx->text.lt.top ? ctx->text.lt.top : left;

+

+    if (left > right || !LineAndXYForPosition(ctx, left, &line, &x, &y))

+	return;

+

+    last = XawTextGetLastPosition(ctx);

+    segment.x2 = (int)XtWidth(ctx) - ctx->text.r_margin.right;

+

+    if (cleol)

+	clip = XmuCreateArea();

+

+    for (start = left; start < right && line < ctx->text.lt.lines; line++) {

+	if ((end = ctx->text.lt.info[line + 1].position) > right)

+	    end = right;

+

+	final = end;

+	if (end > last)

+	    end = last;

+

+	if (end > start) {

+	    if (!has_selection

+		|| (start >= ctx->text.s.right || end <= ctx->text.s.left))

+		_XawTextSinkDisplayText(ctx->text.sink, x, y, start, end, False);

+	    else if (start >= ctx->text.s.left && end <= ctx->text.s.right)

+		_XawTextSinkDisplayText(ctx->text.sink, x, y, start, end, True);

+	    else {

+		OldDisplayText(w, start, ctx->text.s.left);

+		OldDisplayText(w, Max(start, ctx->text.s.left),

+			       Min(end, ctx->text.s.right));

+		OldDisplayText(w, ctx->text.s.right, end);

+	    }

+	}

+

+	x = ctx->text.left_margin;

+	if (cleol) {

+	    segment.x1 = ctx->text.lt.info[line].textWidth + x;

+	    if (XmuValidSegment(&segment)) {

+		scanline.y = y;

+		next.y = ctx->text.lt.info[line + 1].y;

+		XmuAreaOr(clip, &area);

+	    }

+	}

+

+	start = final;

+	y = ctx->text.lt.info[line + 1].y;

+    }

+

+    if (cleol)  {

+	for (scan = clip->scanline; scan && scan->next; scan = scan->next)

+	    for (seg = scan->segment; seg; seg = seg->next)

+		SinkClearToBG(ctx->text.sink,

+			      seg->x1, scan->y,

+			      seg->x2 - seg->x1, scan->next->y - scan->y);

+	XmuDestroyArea(clip);

+    }

+}

+

+#ifndef OLDXAW

+/*ARGSUSED*/

+static void

+DisplayText(Widget w, XawTextPosition left, XawTextPosition right)

+{

+    static XmuSegment segment;

+    static XmuScanline next;

+    static XmuScanline scanline = {0, &segment, &next};

+    static XmuArea area = {&scanline};

+

+    TextWidget ctx = (TextWidget)w;

+    int y, line;

+    XawTextPosition from, to, lastPos;

+    Bool cleol = ctx->text.clear_to_eol;

+    Bool has_selection = ctx->text.s.right > ctx->text.s.left;

+    XawTextPaintList *paint_list;

+

+    left = left < ctx->text.lt.top ? ctx->text.lt.top : left;

+

+    if (left > right || !IsPositionVisible(ctx, left))

+	return;

+

+    line = LineForPosition(ctx, left);

+    y = ctx->text.lt.info[line].y;

+    segment.x2 = (int)XtWidth(ctx) - ctx->text.r_margin.right;

+    lastPos = XawTextGetLastPosition(ctx);

+

+    paint_list = ((TextSinkObject)ctx->text.sink)->text_sink.paint;

+

+    for (from = left; from < right && line < ctx->text.lt.lines; line++) {

+	if ((to = ctx->text.lt.info[line + 1].position) > right)

+	    to = right;

+

+	if (to > lastPos)

+	    to = lastPos;

+

+	if (from < to) {

+	    if (!has_selection

+		|| (from >= ctx->text.s.right || to <= ctx->text.s.left))

+		XawTextSinkPreparePaint(ctx->text.sink, y, line, from, to, False);

+	    else if (from >= ctx->text.s.left && to <= ctx->text.s.right)

+		XawTextSinkPreparePaint(ctx->text.sink, y, line, from, to, True);

+	    else {

+		XawTextSinkPreparePaint(ctx->text.sink, y, line, from,

+					ctx->text.s.left, False);

+		XawTextSinkPreparePaint(ctx->text.sink, y, line,

+					XawMax(from, ctx->text.s.left),

+					XawMin(to, ctx->text.s.right), True);

+		XawTextSinkPreparePaint(ctx->text.sink, y, line,

+					ctx->text.s.right, to, False);

+	    }

+	}

+

+	if (cleol) {

+	    segment.x1 = ctx->text.lt.info[line].textWidth + ctx->text.left_margin;

+	    if (XmuValidSegment(&segment)) {

+		scanline.y = y;

+		next.y = ctx->text.lt.info[line + 1].y;

+		XmuAreaOr(paint_list->clip, &area);

+	    }

+	}

+	y = ctx->text.lt.info[line + 1].y;

+	from = to;

+    }

+

+    /* clear to the bottom of the window */

+    if (cleol && line >= ctx->text.lt.lines) {

+	segment.x1 = ctx->text.left_margin;

+	if (XmuValidSegment(&segment)) {

+	    scanline.y = y;

+	    next.y = (int)XtHeight(ctx) - (int)ctx->text.margin.bottom;

+	    XmuAreaOr(paint_list->clip, &area);

+	}

+    }

+}

+#endif

+

+/*

+ * This routine implements multi-click selection in a hardwired manner.

+ * It supports multi-click entity cycling (char, word, line, file) and mouse

+ * motion adjustment of the selected entitie (i.e. select a word then, with

+ * button still down, adjust wich word you really meant by moving the mouse).

+ * [NOTE: This routine is to be replaced by a set of procedures that

+ * will allows clients to implements a wide class of draw through and

+ * multi-click selection user interfaces.]

+ */

+static void

+DoSelection(TextWidget ctx, XawTextPosition pos, Time time, Bool motion)

+{

+    XawTextPosition newLeft, newRight;

+    XawTextSelectType newType, *sarray;

+    Widget src = ctx->text.source;

+

+    if (motion)

+	newType = ctx->text.s.type;

+    else {

+	if ((abs((long) time - (long) ctx->text.lasttime) < MULTI_CLICK_TIME)

+	    && (pos >= ctx->text.s.left && pos <= ctx->text.s.right)) {

+	    sarray = ctx->text.sarray;

+	    for (; *sarray != XawselectNull && *sarray != ctx->text.s.type;

+		 sarray++)

+		;

+	    if (*sarray == XawselectNull)

+		newType = *(ctx->text.sarray);

+	    else {

+		newType = *(sarray + 1);

+		if (newType == XawselectNull)

+		    newType = *(ctx->text.sarray);

+	    }

+	}

+	else		/* single-click event */

+	    newType = *(ctx->text.sarray);

+

+	ctx->text.lasttime = time;

+    }

+    switch (newType) {

+	case XawselectPosition:

+	    newLeft = newRight = pos;

+	    break;

+	case XawselectChar:

+	    newLeft = pos;

+	    newRight = SrcScan(src, pos, XawstPositions, XawsdRight, 1, False);

+	    break;

+	case XawselectWord:

+	case XawselectParagraph:

+	case XawselectAlphaNumeric: {

+	    XawTextScanType stype;

+

+	    if (newType == XawselectWord)

+		stype = XawstWhiteSpace;

+	    else if (newType == XawselectParagraph)

+		stype = XawstParagraph;

+	    else

+		stype = XawstAlphaNumeric;

+

+	    /*

+	     * Somewhat complicated, but basically I treat the space between

+	     * two objects as another object.  The object that I am currently

+	     * in then becomes the end of the selection.

+	     *

+	     * Chris Peterson - 4/19/90.

+	     */

+	    newRight = SrcScan(ctx->text.source, pos, stype,

+			       XawsdRight, 1, False);

+	    newRight = SrcScan(ctx->text.source, newRight, stype,

+			       XawsdLeft, 1, False);

+

+	    if (pos != newRight)

+		newLeft = SrcScan(ctx->text.source, pos, stype,

+				  XawsdLeft, 1, False);

+	    else

+		newLeft = pos;

+

+	    newLeft =SrcScan(ctx->text.source, newLeft, stype,

+			     XawsdRight, 1, False);

+

+	    if (newLeft > newRight) {

+		XawTextPosition temp = newLeft;

+		newLeft = newRight;

+		newRight = temp;

+	    }

+	}   break;

+	case XawselectLine:

+	    newLeft = SrcScan(src, pos, XawstEOL, XawsdLeft, 1, False);

+	    newRight = SrcScan(src, pos, XawstEOL, XawsdRight, 1, False);

+	    break;

+	case XawselectAll:

+	    newLeft = SrcScan(src, pos, XawstAll, XawsdLeft, 1, False);

+	    newRight = SrcScan(src, pos, XawstAll, XawsdRight, 1, False);

+	    break;

+	default:

+	    XtAppWarning(XtWidgetToApplicationContext((Widget) ctx),

+			 "Text Widget: empty selection array.");

+	    return;

+    }

+

+    if (newLeft != ctx->text.s.left || newRight != ctx->text.s.right

+	|| newType != ctx->text.s.type) {

+	ModifySelection(ctx, newLeft, newRight);

+	if (pos - ctx->text.s.left < ctx->text.s.right - pos)

+	    ctx->text.insertPos = newLeft;

+	else

+	    ctx->text.insertPos = newRight;

+	ctx->text.s.type = newType;

+    }

+    if (!motion) {	/* setup so we can freely mix select extend calls*/

+	ctx->text.origSel.type = ctx->text.s.type;

+	ctx->text.origSel.left = ctx->text.s.left;

+	ctx->text.origSel.right = ctx->text.s.right;

+

+	if (pos >= ctx->text.s.left + (ctx->text.s.right - ctx->text.s.left) / 2)

+	    ctx->text.extendDir = XawsdRight;

+	else

+	    ctx->text.extendDir = XawsdLeft;

+    }

+}

+

+/*

+ * This routine implements extension of the currently selected text in

+ * the "current" mode (i.e. char word, line, etc.). It worries about

+ * extending from either end of the selection and handles the case when you

+ * cross through the "center" of the current selection (e.g. switch which

+ * end you are extending!).

+ */

+static void

+ExtendSelection(TextWidget ctx, XawTextPosition pos, Bool motion)

+{

+    XawTextScanDirection dir;

+

+    if (!motion) {	/* setup for extending selection */

+	if (ctx->text.s.left == ctx->text.s.right) /* no current selection. */

+	    ctx->text.s.left = ctx->text.s.right = ctx->text.insertPos;

+	else {

+	    ctx->text.origSel.left = ctx->text.s.left;

+	    ctx->text.origSel.right = ctx->text.s.right;

+	}

+

+	ctx->text.origSel.type = ctx->text.s.type;

+

+	if (pos >= ctx->text.s.left + (ctx->text.s.right - ctx->text.s.left) / 2)

+	    ctx->text.extendDir = XawsdRight;

+	else

+	    ctx->text.extendDir = XawsdLeft;

+    }

+    else	/* check for change in extend direction */

+	if ((ctx->text.extendDir == XawsdRight &&

+	     pos <= ctx->text.origSel.left) ||

+	    (ctx->text.extendDir == XawsdLeft &&

+	     pos >= ctx->text.origSel.right)) {

+	    ctx->text.extendDir = (ctx->text.extendDir == XawsdRight) ?

+		XawsdLeft : XawsdRight;

+	    ModifySelection(ctx, ctx->text.origSel.left, ctx->text.origSel.right);

+	}

+

+    dir = ctx->text.extendDir;

+    switch (ctx->text.s.type) {

+	case XawselectWord:

+	case XawselectParagraph:

+	case XawselectAlphaNumeric: {

+	    XawTextPosition left_pos, right_pos;

+	    XawTextScanType stype;

+

+	    if (ctx->text.s.type == XawselectWord)

+	        stype = XawstWhiteSpace;

+	    else if (ctx->text.s.type == XawselectParagraph)

+	        stype = XawstParagraph;

+	    else

+	        stype = XawstAlphaNumeric;

+

+	    /*

+	     * Somewhat complicated, but basically I treat the space between

+	     * two objects as another object.  The object that I am currently

+	     * in then becomes the end of the selection.

+	     *

+	     * Chris Peterson - 4/19/90.

+	     */

+	    right_pos = SrcScan(ctx->text.source, pos, stype,

+				XawsdRight, 1, False);

+	    right_pos =SrcScan(ctx->text.source, right_pos, stype,

+			       XawsdLeft, 1, False);

+

+	    if (pos != right_pos)

+		left_pos = SrcScan(ctx->text.source, pos, stype,

+				   XawsdLeft, 1, False);

+	    else

+		left_pos = pos;

+

+	    left_pos =SrcScan(ctx->text.source, left_pos, stype,

+			      XawsdRight, 1, False);

+

+	    if (dir == XawsdLeft)

+		pos = Min(left_pos, right_pos);

+	    else	/* dir == XawsdRight */

+		pos = Max(left_pos, right_pos);

+	}   break;

+	case XawselectLine:

+	    pos = SrcScan(ctx->text.source, pos, XawstEOL,

+			  dir, 1, dir == XawsdRight);

+	    break;

+	case XawselectAll:

+	    pos = ctx->text.insertPos;

+	    /*FALLTHROUGH*/

+	case XawselectPosition:

+	default:

+	    break;

+    }

+

+    if (dir == XawsdRight)

+	ModifySelection(ctx, ctx->text.s.left, pos);

+    else

+	ModifySelection(ctx, pos, ctx->text.s.right);

+

+    ctx->text.insertPos = pos;

+}

+

+/*

+ * Function:

+ *	_XawTextClearAndCenterDisplay

+ *

+ * Parameters:

+ *	ctx - text widget

+ *

+ * Description:

+ *	  Redraws the display with the cursor in insert point

+ *		     centered vertically.

+ */

+void

+_XawTextClearAndCenterDisplay(TextWidget ctx)

+{

+    int left_margin = ctx->text.left_margin;

+    Bool visible = IsPositionVisible(ctx, ctx->text.insertPos);

+

+    _XawTextShowPosition(ctx);

+

+    if (XtIsRealized((Widget)ctx) && visible &&

+	left_margin == ctx->text.left_margin) {

+	int insert_line = LineForPosition(ctx, ctx->text.insertPos);

+	int scroll_by = insert_line - (ctx->text.lt.lines >> 1);

+	Boolean clear_to_eol = ctx->text.clear_to_eol;

+

+	XawTextScroll(ctx, scroll_by, 0);

+	SinkClearToBG(ctx->text.sink, 0, 0, XtWidth(ctx), XtHeight(ctx));

+	ClearWindow(ctx);

+	clear_to_eol = ctx->text.clear_to_eol;

+	ctx->text.clear_to_eol = False;

+	FlushUpdate(ctx);

+	ctx->text.clear_to_eol = clear_to_eol;

+    }

+}

+

+/*

+ * Internal redisplay entire window

+ * Legal to call only if widget is realized

+ */

+static void

+DisplayTextWindow(Widget w)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    _XawTextBuildLineTable(ctx, ctx->text.lt.top, False);

+    ClearWindow(ctx);

+}

+

+static void

+TextSinkResize(Widget w)

+{

+    if (w && XtClass(w)->core_class.resize)

+	XtClass(w)->core_class.resize(w);

+}

+

+/* ARGSUSED */

+void

+_XawTextCheckResize(TextWidget ctx)

+{

+    return;

+}

+

+/*

+ * Converts (params, num_params) to a list of atoms & caches the

+ * list in the TextWidget instance.

+ */

+Atom *

+_XawTextSelectionList(TextWidget ctx, String *list, Cardinal nelems)

+{

+    Atom *sel = ctx->text.s.selections;

+    Display *dpy = XtDisplay((Widget)ctx);

+    int n;

+

+    if (nelems > (Cardinal)ctx->text.s.array_size) {

+	sel = (Atom *)XtRealloc((char *)sel, sizeof(Atom) * nelems);

+	ctx->text.s.array_size = nelems;

+	ctx->text.s.selections = sel;

+    }

+    for (n = nelems; --n >= 0; sel++, list++)

+	*sel = XInternAtom(dpy, *list, False);

+    ctx->text.s.atom_count = nelems;

+

+    return (ctx->text.s.selections);

+}

+

+/*

+ * Function:

+ *	SetSelection

+ *

+ * Parameters:

+ *	ctx	   - text widget

+ *	defaultSel - default selection

+ *	l	   - left and right ends of the selection

+ *	r	   - ""

+ *	list	   - the selection list (as strings).

+ *	nelems	   - ""

+ *

+ * Description:

+ *	Sets the current selection.

+ *

+ * Note:

+ *	if (ctx->text.s.left >= ctx->text.s.right) then the selection is unset

+ */

+void

+_XawTextSetSelection(TextWidget ctx, XawTextPosition l, XawTextPosition r,

+		     String *list, Cardinal nelems)

+{

+    if (nelems == 1 && !strcmp (list[0], "none"))

+	return;

+    if (nelems == 0) {

+	String defaultSel = "PRIMARY";

+	list = &defaultSel;

+	nelems = 1;

+    }

+    _SetSelection(ctx, l, r, _XawTextSelectionList(ctx, list, nelems), nelems);

+}

+

+/*

+ * Function:

+ *	ModifySelection

+ *

+ * Parameters:

+ *	ctx   - text widget

+ *	left  - left and right ends of the selection

+ *	right - ""

+ *

+ * Description:

+ *	Modifies the current selection.

+ *

+ * Note:

+ *	if (ctx->text.s.left >= ctx->text.s.right) then the selection is unset

+ */

+static void

+ModifySelection(TextWidget ctx, XawTextPosition left, XawTextPosition right)

+{

+    if (left == right)

+	ctx->text.insertPos = left;

+    _SetSelection(ctx, left, right, NULL, 0);

+}

+

+/*

+ * This routine is used to perform various selection functions. The goal is

+ * to be able to specify all the more popular forms of draw-through and

+ * multi-click selection user interfaces from the outside.

+ */

+void

+_XawTextAlterSelection(TextWidget ctx, XawTextSelectionMode mode,

+		       XawTextSelectionAction action, String *params,

+		       Cardinal *num_params)

+{

+    XawTextPosition position;

+    Boolean flag;

+

+    /*

+     * This flag is used by TextPop.c:DoReplace() to determine if the selection

+     * is okay to use, or if it has been modified.

+     */

+    if (ctx->text.search != NULL)

+	ctx->text.search->selection_changed = True;

+

+    position = PositionForXY(ctx, (int) ctx->text.ev_x, (int) ctx->text.ev_y);

+

+    flag = (action != XawactionStart);

+    if (mode == XawsmTextSelect)

+	DoSelection(ctx, position, ctx->text.time, flag);

+    else		/* mode == XawsmTextExtend */

+	ExtendSelection (ctx, position, flag);

+

+    if (action == XawactionEnd)

+	_XawTextSetSelection(ctx, ctx->text.s.left, ctx->text.s.right,

+			     params, *num_params);

+}

+

+/*

+ * Function:

+ *	UpdateTextInRectangle

+ *

+ * Parameters:

+ *	ctx  - the text widget

+ *	rect - rectangle

+ *

+ * Description:

+ *	Updates the text in the given rectangle

+ */

+static void

+UpdateTextInRectangle(TextWidget ctx, XRectangle *rect)

+{

+    XawTextLineTable *lt;

+    int line, y1, y2, x2;

+

+    y1 = rect->y;

+    y2 = y1 + rect->height;

+    x2 = rect->x + rect->width;

+

+    for (line = 0, lt = &ctx->text.lt; line < lt->lines; line++)

+	if (lt->info[line + 1].y > y1)

+	    break;

+    for (; line <= lt->lines; line++) {

+	if (lt->info[line].y > y2)

+	    break;

+	UpdateTextInLine(ctx, line, rect->x, x2);

+    }

+}

+

+/*

+ * This routine processes all "expose region" XEvents. In general, its job

+ * is to the best job at minimal re-paint of the text, displayed in the

+ * window, that it can.

+ */

+/* ARGSUSED */

+static void

+XawTextExpose(Widget w, XEvent *event, Region region)

+{

+    TextWidget ctx = (TextWidget)w;

+    Boolean clear_to_eol;

+    XRectangle expose;

+

+    if (event->type == Expose) {

+	expose.x = event->xexpose.x;

+	expose.y = event->xexpose.y;

+	expose.width = event->xexpose.width;

+	expose.height = event->xexpose.height;

+    }

+    else if (event->type == GraphicsExpose) {

+	expose.x = event->xgraphicsexpose.x;

+	expose.y = event->xgraphicsexpose.y;

+	expose.width = event->xgraphicsexpose.width;

+	expose.height = event->xgraphicsexpose.height;

+    }

+    else

+	return;

+

+    _XawTextPrepareToUpdate(ctx);

+

+    if (Superclass->core_class.expose)

+	(*Superclass->core_class.expose)(w, event, region);

+

+    clear_to_eol = ctx->text.clear_to_eol;

+    ctx->text.clear_to_eol = False;

+

+    UpdateTextInRectangle(ctx, &expose);

+    XawTextSinkGetCursorBounds(ctx->text.sink, &expose);

+    UpdateTextInRectangle(ctx, &expose);

+    SinkClearToBG(ctx->text.sink, expose.x, expose.y,

+		  expose.width, expose.height);

+    _XawTextExecuteUpdate(ctx);

+    ctx->text.clear_to_eol = clear_to_eol;

+}

+

+/*

+ * This routine does all setup required to syncronize batched screen updates

+ */

+void

+_XawTextPrepareToUpdate(TextWidget ctx)

+{

+    if (ctx->text.old_insert < 0) {

+	InsertCursor((Widget)ctx, XawisOff);

+	ctx->text.showposition = False;

+	ctx->text.old_insert = ctx->text.insertPos;

+	ctx->text.clear_to_eol = False;

+#ifndef OLDXAW

+	ctx->text.source_changed = SRC_CHANGE_NONE;

+#endif

+    }

+}

+

+/*

+ * This is a private utility routine used by _XawTextExecuteUpdate. It

+ * processes all the outstanding update requests and merges update

+ * ranges where possible.

+ */

+static void

+FlushUpdate(TextWidget ctx)

+{

+    XmuSegment *seg;

+    void (*display_text)(Widget, XawTextPosition, XawTextPosition);

+

+    if (XtIsRealized((Widget)ctx)) {

+	ctx->text.s.right = XawMin(ctx->text.s.right, ctx->text.lastPos);

+	ctx->text.s.left = XawMin(ctx->text.s.left, ctx->text.s.right);

+

+#ifndef OLDXAW

+	if (XawTextSinkBeginPaint(ctx->text.sink) == False)

+#endif

+	    display_text = OldDisplayText;

+#ifndef OLDXAW

+	else

+	    display_text = DisplayText;

+#endif

+	for (seg = ctx->text.update->segment; seg; seg = seg->next)

+	    (*display_text)((Widget)ctx,

+			    (XawTextPosition)seg->x1,

+			    (XawTextPosition)seg->x2);

+#ifndef OLDXAW

+	if (display_text != OldDisplayText) {

+	    XawTextSinkDoPaint(ctx->text.sink);

+	    XawTextSinkEndPaint(ctx->text.sink);

+	}

+#endif

+    }

+    (void)XmuScanlineXor(ctx->text.update, ctx->text.update);

+}

+

+static int

+CountLines(TextWidget ctx, XawTextPosition left, XawTextPosition right)

+{

+    if (ctx->text.wrap == XawtextWrapNever || left >= right)

+	return (1);

+    else {

+	XawTextPosition tmp;

+	int dim, lines = 0, wwidth = GetMaxTextWidth(ctx);

+

+	while (left < right) {

+	    tmp = left;

+	    XawTextSinkFindPosition(ctx->text.sink, left,

+				    ctx->text.left_margin,

+				    wwidth, ctx->text.wrap == XawtextWrapWord,

+				    &left, &dim, &dim);

+	    ++lines;

+	    if (tmp == left)

+	      ++left;

+	}

+

+	return (lines);

+    }

+    /*NOTREACHED*/

+}

+

+static int

+GetMaxTextWidth(TextWidget ctx)

+{

+    XRectangle cursor;

+    int width;

+

+    XawTextSinkGetCursorBounds(ctx->text.sink, &cursor);

+    width = (int)XtWidth(ctx) - RHMargins(ctx) - cursor.width;

+

+    return (XawMax(0, width));

+}

+

+/*

+ * Function:

+ *	_XawTextShowPosition

+ *

+ * Parameters:

+ *	ctx - the text widget to show the position

+ *

+ * Description:

+ *	  Makes sure the text cursor visible, scrolling the text window

+ *	if required.

+ */

+void

+_XawTextShowPosition(TextWidget ctx)

+{

+    /*

+     * Variable scroll is used to avoid scanning large files to calculate

+     * line offsets

+     */

+    int hpixels, vlines;

+    XawTextPosition first, last, top, tmp;

+    Bool visible, scroll;

+

+    if (!XtIsRealized((Widget)ctx))

+	return;

+

+    /*

+     * Checks if a horizontal scroll is required

+     */

+    if (ctx->text.wrap == XawtextWrapNever) {

+	int x, vwidth, distance, dim;

+	XRectangle rect;

+

+	vwidth = (int)XtWidth(ctx) - RHMargins(ctx);

+	last = SrcScan(ctx->text.source, ctx->text.insertPos,

+		       XawstEOL, XawsdLeft, 1, False);

+	XawTextSinkFindDistance(ctx->text.sink, last,

+				ctx->text.left_margin,

+				ctx->text.insertPos,

+				&distance, &first, &dim);

+	XawTextSinkGetCursorBounds(ctx->text.sink, &rect);

+	x = ctx->text.left_margin - ctx->text.r_margin.left;

+

+	if (x + distance + rect.width > vwidth)

+	    hpixels = x + distance + rect.width - vwidth + (vwidth >> 2);

+	else if (x + distance < 0)

+	    hpixels = x + distance - (vwidth >> 2);

+	else

+	    hpixels = 0;

+    }

+    else

+	hpixels = 0;

+

+    visible = IsPositionVisible(ctx, ctx->text.insertPos);

+

+    /*

+     * If the cursor is already visible

+     */

+    if (!hpixels && visible)

+	return;

+

+    scroll = ctx->core.background_pixmap == XtUnspecifiedPixmap && !hpixels;

+    vlines = 0;

+    first = ctx->text.lt.top;

+

+    /*

+     * Needs to scroll the text window

+     */

+    if (visible)

+      top = ctx->text.lt.top;

+    else {

+        top = SrcScan(ctx->text.source, ctx->text.insertPos,

+		      XawstEOL, XawsdLeft, 1, False);

+

+	/*

+	 * Finds the nearest left position from ctx->text.insertPos

+	 */

+	if (ctx->text.wrap != XawtextWrapNever) {

+	    int dim, vwidth = GetMaxTextWidth(ctx);

+

+	    last = top;

+	    /*CONSTCOND*/

+	    while (1) {

+		tmp = last;

+		XawTextSinkFindPosition(ctx->text.sink, last,

+					ctx->text.left_margin, vwidth,

+					ctx->text.wrap == XawtextWrapWord,

+					&last, &dim, &dim);

+		if (last == tmp)

+		    ++last;

+		if (last <= ctx->text.insertPos)

+		    top = last;

+		else

+		    break;

+	    }

+	}

+    }

+

+    if (scroll) {

+	if (ctx->text.insertPos < first) {	/* Scroll Down */

+	    while (first > top) {

+		last = first;

+		first = SrcScan(ctx->text.source, first,

+				XawstEOL, XawsdLeft, 2, False);

+		vlines -= CountLines(ctx, first, last);

+		if (-vlines >= ctx->text.lt.lines) {

+		    scroll = False;

+		    break;

+		}

+	    }

+	}

+	else if (!visible) {			/* Scroll Up */

+	    while (first < top) {

+		last = first;

+		first = SrcScan(ctx->text.source, first,

+				XawstEOL, XawsdRight, 1, True);

+		vlines += CountLines(ctx, last, first);

+		if (vlines > ctx->text.lt.lines) {

+		    scroll = False;

+		    break;

+		}

+	    }

+	}

+	else

+	    scroll = False;

+    }

+

+    /*

+     * If a portion of the text that will be scrolled is visible

+     */

+    if (scroll)

+	XawTextScroll(ctx, vlines ? vlines - (ctx->text.lt.lines >> 1) : 0, 0);

+    /*

+     * Else redraw the entire text window

+     */

+    else {

+	ctx->text.left_margin -= hpixels;

+	if (ctx->text.left_margin > ctx->text.r_margin.left)

+	    ctx->text.left_margin = ctx->text.margin.left =

+		ctx->text.r_margin.left;

+

+	if (!visible) {

+	    vlines = ctx->text.lt.lines >> 1;

+	    if (vlines)

+		top = SrcScan(ctx->text.source, ctx->text.insertPos,

+			      XawstEOL, XawsdLeft, vlines + 1, False);

+

+	    if (ctx->text.wrap != XawtextWrapNever) {

+		int dim;

+		int n_lines = CountLines(ctx, top, ctx->text.insertPos);

+		int vwidth = GetMaxTextWidth(ctx);

+

+		while (n_lines-- > vlines) {

+		    tmp = top;

+		    XawTextSinkFindPosition(ctx->text.sink, top,

+					    ctx->text.left_margin,

+					    vwidth,

+					    ctx->text.wrap == XawtextWrapWord,

+					    &top, &dim, &dim);

+		    if (tmp == top)

+			++top;

+		}

+	    }

+	    _XawTextBuildLineTable(ctx, top, True);

+	}

+	else

+	    ClearWindow(ctx);

+    }

+    ctx->text.clear_to_eol = True;

+}

+

+#ifndef OLDXAW

+static int

+ResolveLineNumber(TextWidget ctx)

+{

+    int line_number = ctx->text.lt.base_line;

+    XawTextPosition position = ctx->text.lt.top;

+

+    if (ctx->text.lt.base_line < 1)

+	return (ctx->text.line_number);

+

+    if (ctx->text.wrap == XawtextWrapNever

+	&& IsPositionVisible(ctx, ctx->text.insertPos))

+	line_number += LineForPosition(ctx, ctx->text.insertPos);

+    else if (position < ctx->text.insertPos) {

+	while (position < ctx->text.insertPos) {

+	    position = SrcScan(ctx->text.source, position,

+			       XawstEOL, XawsdRight, 1, True);

+	    if (position <= ctx->text.insertPos) {

+		++line_number;

+		if (position == ctx->text.lastPos) {

+		    line_number -= !_XawTextSourceNewLineAtEOF(ctx->text.source);

+		    break;

+		}

+	    }

+	}

+    }

+    else if (position > ctx->text.insertPos) {

+	while (position > ctx->text.insertPos) {

+	    position = SrcScan(ctx->text.source, position,

+			       XawstEOL, XawsdLeft, 1, False);

+	    if (--position >= ctx->text.insertPos)

+		--line_number;

+	}

+    }

+

+    return (line_number);

+}

+#endif

+

+/*

+ * This routine causes all batched screen updates to be performed

+ */

+void

+_XawTextExecuteUpdate(TextWidget ctx)

+{

+    if (ctx->text.update_disabled || ctx->text.old_insert < 0)

+	return;

+

+    if(ctx->text.old_insert != ctx->text.insertPos || ctx->text.showposition)

+	_XawTextShowPosition(ctx);

+

+    FlushUpdate(ctx);

+    InsertCursor((Widget)ctx, XawisOn);

+    ctx->text.old_insert = -1;

+#ifndef OLDXAW

+    _XawTextSetLineAndColumnNumber(ctx, False);

+#endif

+}

+

+static void

+XawTextDestroy(Widget w)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    DestroyHScrollBar(ctx);

+    DestroyVScrollBar(ctx);

+

+    XtFree((char *)ctx->text.s.selections);

+    XtFree((char *)ctx->text.lt.info);

+    XtFree((char *)ctx->text.search);

+    XmuDestroyScanline(ctx->text.update);

+    XtReleaseGC((Widget)ctx, ctx->text.gc);

+}

+

+/*

+ * by the time we are managed (and get this far) we had better

+ * have both a source and a sink 

+ */

+static void

+XawTextResize(Widget w)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    PositionVScrollBar(ctx);

+    PositionHScrollBar(ctx);

+    TextSinkResize(ctx->text.sink);

+

+    ctx->text.showposition = True;

+    _XawTextBuildLineTable(ctx, ctx->text.lt.top, True);

+}

+

+/*

+ * This routine allow the application program to Set attributes.

+ */

+/*ARGSUSED*/

+static Boolean

+XawTextSetValues(Widget current, Widget request, Widget cnew,

+		 ArgList args, Cardinal *num_args)

+{

+    TextWidget oldtw = (TextWidget)current;

+    TextWidget newtw = (TextWidget)cnew;

+    Boolean redisplay = False;

+    Boolean display_caret = newtw->text.display_caret;

+#ifndef OLDXAW

+    Boolean show_lc = False;

+#endif

+

+    newtw->text.display_caret = oldtw->text.display_caret;

+    _XawTextPrepareToUpdate(newtw);

+    newtw->text.display_caret = display_caret;

+

+    if (oldtw->text.r_margin.left != newtw->text.r_margin.left) {

+	newtw->text.left_margin = newtw->text.margin.left =

+	    newtw->text.r_margin.left;

+	if (newtw->text.vbar != NULL) {

+	    newtw->text.left_margin += XtWidth(newtw->text.vbar) +

+		XtBorderWidth(newtw->text.vbar);

+	}

+	redisplay = True;

+    }

+

+    if (oldtw->text.scroll_vert != newtw->text.scroll_vert) {

+	if (newtw->text.scroll_vert == XawtextScrollAlways)

+	    CreateVScrollBar(newtw);

+	else

+	    DestroyVScrollBar(newtw);

+

+	redisplay = True;

+    }

+

+    if (oldtw->text.r_margin.bottom != newtw->text.r_margin.bottom) {

+	newtw->text.margin.bottom = newtw->text.r_margin.bottom;

+	if (newtw->text.hbar != NULL)

+	    newtw->text.margin.bottom += newtw->text.hbar->core.height +

+		newtw->text.hbar->core.border_width;

+	redisplay = True;

+    }

+

+    if (oldtw->text.scroll_horiz != newtw->text.scroll_horiz) {

+	if (newtw->text.scroll_horiz == XawtextScrollAlways)

+	    CreateHScrollBar(newtw);

+	else

+	    DestroyHScrollBar(newtw);

+

+	redisplay = True;

+    }

+

+    if (oldtw->text.source != newtw->text.source) {

+#ifndef OLDXAW

+	show_lc = True;

+	_XawSourceRemoveText(oldtw->text.source, cnew,

+			     oldtw->text.source &&

+			     XtParent(oldtw->text.source) == cnew);

+	_XawSourceAddText(newtw->text.source, cnew);

+#endif

+	_XawTextSetSource((Widget)newtw, newtw->text.source, newtw->text.lt.top,

+			  newtw->text.insertPos);

+    }

+

+    newtw->text.redisplay_needed = False;

+    XtSetValues((Widget)newtw->text.source, args, *num_args);

+    XtSetValues((Widget)newtw->text.sink, args, *num_args);

+

+    if (oldtw->text.wrap != newtw->text.wrap

+	|| oldtw->text.lt.top != newtw->text.lt.top

+	|| oldtw->text.insertPos != newtw->text.insertPos

+	|| oldtw->text.r_margin.right != newtw->text.r_margin.right

+	|| oldtw->text.r_margin.top != newtw->text.r_margin.top

+	|| oldtw->text.sink != newtw->text.sink

+	|| newtw->text.redisplay_needed) {

+	if (oldtw->text.wrap != newtw->text.wrap) {

+	    newtw->text.left_margin = newtw->text.margin.left =

+		newtw->text.r_margin.left;

+	    if (oldtw->text.lt.top == newtw->text.lt.top)

+		newtw->text.lt.top = SrcScan(newtw->text.source, 0, XawstEOL,

+					     XawsdLeft, 1, False);

+	}

+	newtw->text.showposition = True;

+#ifndef OLDXAW

+	show_lc = True;

+	newtw->text.source_changed = SRC_CHANGE_OVERLAP;

+#endif

+	_XawTextBuildLineTable(newtw, newtw->text.lt.top, True);

+	redisplay = True;

+    }

+

+#ifndef OLDXAW

+    if (newtw->text.left_column < 0)

+	newtw->text.left_column = 0;

+    if (newtw->text.right_column < 0)

+	newtw->text.right_column = 0;

+#endif

+

+    _XawTextExecuteUpdate(newtw);

+

+#ifndef OLDXAW

+    if (show_lc)

+	_XawTextSetLineAndColumnNumber(newtw, True);

+#endif

+

+    if (redisplay)

+	_XawTextSetScrollBars(newtw);

+

+    return (redisplay);

+}

+

+/* invoked by the Simple widget's SetValues */

+static Bool

+XawTextChangeSensitive(Widget w)

+{

+    Arg args[1];

+    TextWidget tw = (TextWidget)w;

+

+    (*(&simpleClassRec)->simple_class.change_sensitive)(w);

+

+    XtSetArg(args[0], XtNancestorSensitive,

+	     (tw->core.ancestor_sensitive && tw->core.sensitive));

+    if (tw->text.vbar)

+	XtSetValues(tw->text.vbar, args, ONE);

+    if (tw->text.hbar)

+	XtSetValues(tw->text.hbar, args, ONE);

+    return (False);

+}

+

+/*

+ * Function:

+ *	XawTextGetValuesHook

+ *

+ * Parameters:

+ *	w	 - Text Widget

+ *	args	 - argument list

+ *	num_args - number of args

+ *

+ * Description:

+ *	  This is a get values hook routine that gets the

+ *		     values in the text source and sink.

+ */

+static void

+XawTextGetValuesHook(Widget w, ArgList args, Cardinal *num_args)

+{

+    XtGetValues(((TextWidget)w)->text.source, args, *num_args);

+    XtGetValues(((TextWidget)w)->text.sink, args, *num_args);

+}

+

+/*

+ * Function:

+ *	FindGoodPosition

+ *

+ * Parameters:

+ *	pos - any position

+ *

+ * Description:

+ *	Returns a valid position given any postition.

+ *

+ * Returns:

+ *	A position between (0 and lastPos)

+ */

+static XawTextPosition

+FindGoodPosition(TextWidget ctx, XawTextPosition pos)

+{

+    if (pos < 0)

+	return (0);

+    return (((pos > ctx->text.lastPos) ? ctx->text.lastPos : pos));

+}

+

+/* Li wrote this so the IM can find a given text position's screen position */

+void

+_XawTextPosToXY(Widget w, XawTextPosition pos, Position *x, Position *y)

+{

+    int line, ix, iy;

+

+    LineAndXYForPosition((TextWidget)w, pos, &line, &ix, &iy);

+    *x = ix;

+    *y = iy;

+}

+

+/*******************************************************************

+The following routines provide procedural interfaces to Text window state

+setting and getting. They need to be redone so than the args code can use

+them. I suggest we create a complete set that takes the context as an

+argument and then have the public version lookup the context and call the

+internal one. The major value of this set is that they have actual application

+clients and therefore the functionality provided is required for any future

+version of Text.

+********************************************************************/

+void

+XawTextDisplay(Widget w)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    if (!XtIsRealized(w))

+	return;

+

+    _XawTextPrepareToUpdate(ctx);

+    ctx->text.clear_to_eol = True;

+    DisplayTextWindow(w);

+    _XawTextExecuteUpdate(ctx);

+}

+

+void

+XawTextSetSelectionArray(Widget w, XawTextSelectType *sarray)

+{

+    ((TextWidget)w)->text.sarray = sarray;

+}

+

+void

+XawTextGetSelectionPos(Widget w, XawTextPosition *left, XawTextPosition *right)

+{

+    *left = ((TextWidget)w)->text.s.left;

+    *right = ((TextWidget)w)->text.s.right;

+}

+

+void

+_XawTextSetSource(Widget w, Widget source,

+		  XawTextPosition top, XawTextPosition startPos)

+{

+    TextWidget ctx = (TextWidget)w;

+#ifndef OLDXAW

+    Bool resolve = False;

+#endif

+

+#ifndef OLDXAW

+    if (source != ctx->text.source)

+	_XawSourceRemoveText(ctx->text.source, w, ctx->text.source &&

+			     XtParent(ctx->text.source) == w);

+    _XawSourceAddText(source, w);

+

+    if (source != ctx->text.source || ctx->text.insertPos != startPos)

+	resolve = True;

+

+    ctx->text.source_changed = SRC_CHANGE_OVERLAP;

+#endif

+    ctx->text.source = source;

+    ctx->text.s.left = ctx->text.s.right = 0;

+    ctx->text.lastPos = GETLASTPOS;

+    top = FindGoodPosition(ctx, top);

+    startPos = FindGoodPosition(ctx, startPos);

+    ctx->text.insertPos = ctx->text.old_insert = startPos;

+    _XawTextPrepareToUpdate(ctx);

+

+    _XawTextBuildLineTable(ctx, top, True);

+

+    _XawTextExecuteUpdate(ctx);

+#ifndef OLDXAW

+    if (resolve)

+	_XawTextSetLineAndColumnNumber(ctx, True);

+#endif

+}

+

+void

+XawTextSetSource(Widget w, Widget source, XawTextPosition top)

+{

+    _XawTextSetSource(w, source, top, top);

+}

+

+/*

+ * This public routine deletes the text from startPos to endPos in a source and

+ * then inserts, at startPos, the text that was passed. As a side effect it

+ * "invalidates" that portion of the displayed text (if any), so that things

+ * will be repainted properly.

+ */

+int

+XawTextReplace(Widget w, XawTextPosition startPos, XawTextPosition endPos,

+	       XawTextBlock *text)

+{

+    TextWidget ctx = (TextWidget)w;

+    int result;

+#ifndef OLDXAW

+    Cardinal i;

+    TextSrcObject src = (TextSrcObject)ctx->text.source;

+

+    for (i = 0; i < src->textSrc.num_text; i++)

+	_XawTextPrepareToUpdate((TextWidget)src->textSrc.text[i]);

+#else

+    _XawTextPrepareToUpdate(ctx);

+#endif

+

+    endPos = FindGoodPosition(ctx, endPos);

+    startPos = FindGoodPosition(ctx, startPos);

+    result = _XawTextReplace(ctx, startPos, endPos, text);

+

+#ifndef OLDXAW

+    for (i = 0; i < src->textSrc.num_text; i++)

+	_XawTextExecuteUpdate((TextWidget)src->textSrc.text[i]);

+#else

+    _XawTextExecuteUpdate(ctx);

+#endif

+

+    return (result);

+}

+

+XawTextPosition 

+XawTextTopPosition(Widget w)

+{

+    return (((TextWidget)w)->text.lt.top);

+}

+

+XawTextPosition 

+XawTextLastPosition(Widget w)

+{

+    return (((TextWidget)w)->text.lastPos);

+}

+

+void

+XawTextSetInsertionPoint(Widget w, XawTextPosition position)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    _XawTextPrepareToUpdate(ctx);

+    ctx->text.insertPos = FindGoodPosition(ctx, position);

+    ctx->text.showposition = True;

+    ctx->text.from_left = -1;

+

+    _XawTextExecuteUpdate(ctx);

+#ifndef OLDXAW

+    _XawTextSetLineAndColumnNumber(ctx, False);

+#endif

+}

+

+XawTextPosition

+XawTextGetInsertionPoint(Widget w)

+{

+    return (((TextWidget)w)->text.insertPos);

+}

+

+/*

+ * Note: Must walk the selection list in opposite order from TextLoseSelection

+ */

+void

+XawTextUnsetSelection(Widget w)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    while (ctx->text.s.atom_count != 0) {

+	Atom sel = ctx->text.s.selections[ctx->text.s.atom_count - 1];

+

+	if (sel != (Atom) 0) {

+	    /*

+	     * As selections are lost the atom_count will decrement

+	     */

+	    if (GetCutBufferNumber(sel) == NOT_A_CUT_BUFFER)

+		XtDisownSelection(w, sel, ctx->text.time);

+	    TextLoseSelection(w, &sel); /* In case this is a cut buffer, or

+					   XtDisownSelection failed to call us */

+	}

+    }

+}

+

+void

+XawTextSetSelection(Widget w, XawTextPosition left, XawTextPosition right)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    _XawTextPrepareToUpdate(ctx);

+    _XawTextSetSelection(ctx, FindGoodPosition(ctx, left),

+			 FindGoodPosition(ctx, right), NULL, 0);

+    _XawTextExecuteUpdate(ctx);

+}

+

+void

+XawTextInvalidate(Widget w, XawTextPosition from, XawTextPosition to)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    from = FindGoodPosition(ctx, from);

+    to = FindGoodPosition(ctx, to);

+    ctx->text.lastPos = GETLASTPOS;

+    _XawTextPrepareToUpdate(ctx);

+    _XawTextNeedsUpdating(ctx, from, to);

+    _XawTextExecuteUpdate(ctx);

+}

+

+/*ARGSUSED*/

+void

+XawTextDisableRedisplay(Widget w)

+{

+    ((TextWidget)w)->text.update_disabled = True;

+    _XawTextPrepareToUpdate((TextWidget)w);

+}

+

+void 

+XawTextEnableRedisplay(Widget w)

+{

+    TextWidget ctx = (TextWidget)w;

+    XawTextPosition lastPos;

+

+    if (!ctx->text.update_disabled)

+	return;

+

+    ctx->text.update_disabled = False;

+    lastPos = ctx->text.lastPos = GETLASTPOS;

+    ctx->text.lt.top = FindGoodPosition(ctx, ctx->text.lt.top);

+    ctx->text.insertPos = FindGoodPosition(ctx, ctx->text.insertPos);

+

+    if (ctx->text.s.left > lastPos || ctx->text.s.right > lastPos)

+	ctx->text.s.left = ctx->text.s.right = 0;

+

+    _XawTextExecuteUpdate(ctx);

+}

+

+Widget

+XawTextGetSource(Widget w)

+{

+    return (((TextWidget)w)->text.source);

+}

+

+Widget

+XawTextGetSink(Widget w)

+{

+    return (((TextWidget)w)->text.sink);

+}

+

+void

+XawTextDisplayCaret(Widget w,

+#if NeedWidePrototypes

+	int display_caret

+#else

+	Boolean display_caret

+#endif

+)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    if (XtIsRealized(w)) {

+	_XawTextPrepareToUpdate(ctx);

+	ctx->text.display_caret = display_caret;

+	_XawTextExecuteUpdate(ctx);

+    }

+    else

+	ctx->text.display_caret = display_caret;

+}

+

+/*

+ * Function:

+ *	XawTextSearch

+ *

+ * Parameters:

+ *	w    - text widget

+ *	dir  - direction to search

+ *	text - text block containing info about the string to search for

+ *

+ * Description:

+ *	Searches for the given text block.

+ *

+ * Returns:

+ *	The position of the text found, or XawTextSearchError on an error

+ */

+XawTextPosition

+XawTextSearch(Widget w,

+#if NeedWidePrototypes

+	int dir,

+#else

+	XawTextScanDirection dir,

+#endif

+	XawTextBlock *text)

+{

+    TextWidget ctx = (TextWidget)w;

+

+    return (SrcSearch(ctx->text.source, ctx->text.insertPos, dir, text));

+}

+

+TextClassRec textClassRec = {

+  /* core */

+  {

+    (WidgetClass)&simpleClassRec,	/* superclass */ 

+    "Text",				/* class_name */

+    sizeof(TextRec),			/* widget_size */

+    XawTextClassInitialize,		/* class_initialize */

+    NULL,				/* class_part_init */

+    False,				/* class_inited */

+    XawTextInitialize,			/* initialize */

+    NULL,				/* initialize_hook */

+    XawTextRealize,			/* realize */

+    _XawTextActionsTable,		/* actions */

+    0,					/* num_actions */

+    resources,				/* resources */

+    XtNumber(resources),		/* num_resource */

+    NULLQUARK,				/* xrm_class */

+    True,				/* compress_motion */

+    XtExposeGraphicsExpose |		/* compress_exposure */

+	XtExposeNoExpose,

+    True,				/* compress_enterleave */

+    False,				/* visible_interest */

+    XawTextDestroy,			/* destroy */

+    XawTextResize,			/* resize */

+    XawTextExpose,			/* expose */

+    XawTextSetValues,			/* set_values */

+    NULL,				/* set_values_hook */

+    XtInheritSetValuesAlmost,		/* set_values_almost */

+    XawTextGetValuesHook,		/* get_values_hook */

+    NULL,				/* accept_focus */

+    XtVersion,				/* version */

+    NULL,				/* callback_private */

+    _XawDefaultTextTranslations,	/* tm_table */

+    XtInheritQueryGeometry,		/* query_geometry */

+    XtInheritDisplayAccelerator,	/* display_accelerator */

+    NULL,				/* extension */

+  },

+  /* simple */

+  {

+    XawTextChangeSensitive,		/* change_sensitive */

+  },

+  /* text */

+  {

+    NULL,				/* extension */

+  }

+};

+

+WidgetClass textWidgetClass = (WidgetClass)&textClassRec;