Path: utzoo!attcan!uunet!husc6!bloom-beacon!earth.cray.COM!jlf
From: jlf@earth.cray.COM (John Freeman)
Newsgroups: comp.windows.x
Subject: Text Widget Question
Message-ID: <8812222359.AA01387@thelake.cray.com>
Date: 22 Dec 88 23:59:26 GMT
Sender: daemon@bloom-beacon.MIT.EDU
Organization: The Internet
Lines: 40

Question:  Given the following text translation table and arguments 
to an AsciiStringWidget, why do I get the *default* Text translation
table?  I know this is happening because I do not execute my routine 
roll_proc on a newline, and text editing occurs like page 21 of the
Athena Widget manual.

char roll_translations[] = "\
<Key>Right:	forward-character() \n\
<Key>Left:	backward-character() \n\
<Key>Down:	next-line() \n\
<Key>Up:	previous-line() \n\
<Key>Delete:	delete-previous-character() \n\
<Key>BackSpace:	delete-previous-character() \n\
<Key>Linefeed:	newline-and-indent() \n\
<Key>Return:	roll_proc() \n\
<Key>:		insert-char() \n\
<FocusIn>:	focus-in() \n\
<FocusOut>:	focus-out() \n\
<Btn1Down>:	select-start() \n\
<Btn1Motion>:	extend-adjust() \n\
<Btn1Up>:	extend-end(PRIMARY, CUT_BUFFER0) \n\
<Btn2Down>:	insert-selection(PRIMARY, CUT_BUFFER0) \n\
<Btn3Down>:	extend-start() \n\
<Btn3Motion>:	extend-adjust() \n\
<Btn3Up>:	extend-end(PRIMARY, CUT_BUFFER0) \
";
/*
 * various declarations here to make it all compile
 */
static Arg roll_arg[] = {{XtNheight,(XtArgVal)50},
			{XtNwidth,(XtArgVal)564},
			{XtNstring,(XtArgVal) roll_buff},
			{XtNlength,(XtArgVal)1024},
			{XtNeditType,(XtArgVal)XttextEdit},
			{XtNtranslations, (XtArgVal) roll_translations},
			{XtNtextOptions,(XtArgVal)scrollVertical|
			scrollOnOverflow}};

roll_box=XtCreateManagedWidget("roll_input",asciiStringWidgetClass,
		box,roll_arg,XtNumber(roll_arg));