test

ToolTalk User's Guide

Adding ToolTalk Code to the Xedit Files

The changes made to the Xedit files are described in "Modifying the Xedit Application".

Example B-1 Modify the Xedit.h File

 /*
 *	rcs_id[] = "$XConsortium: xedit.h,v 1.18 89/07/21 19:52:58 kit Exp $";
 */

...

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

 /*
 * For the ToolTalk demonstration, add the following include line.
 */
 #include <desktop/tt_c.h>	
 /* ToolTalk header */

 extern struct _app_resources {
 Boolean enableBackups;
 char *backupNamePrefix;
 char *backupNameSuffix;

...

 /*	externals in xedit.c 	*/

 extern void Feep();
 /*
 * For the ToolTalk demonstration, add the following externals.
 */
 extern void processToolTalkMessage();	/* Process ToolTalk message */
 extern void dieFromToolTalkError();
		/* Fail if error occurs */
 extern Display *CurDpy;
  /* Display */

...

  /* externs in commands.c */

...

 extern void DoChangeFont();
 		/* Change font */

Example B-2 Modified Xedit.c File

#if (!defined(lint) && !defined(SABER)) \
 static char Xrcsid[] = "$XConsortium: \
 xedit.c,v 1.23 89/12/07 \
 19:19:17 kit Exp $";
 #endif 			/* lint && SABER */

...

 void main(argc, argv)
 int argc;
 char **argv;
 {
 Widget top;
 String filename = NULL;
 static void makeButtonsAndBoxes();

 /*
  * For the ToolTalk demonstration, 
    add the following lines:
  */
 int ttmark;
/* ToolTalk mark */
 int ttfd;
/* ToolTalk file descriptor */
 char *procid;	
/* Process identifier */
 Tt_status ttrc;
/* ToolTalk status */

 top = XtInitialize( "xedit", \ 
"Xedit", NULL, 0, &argc, argv);

...

XtRealizeWidget(top);
XDefineCursor(XtDisplay(top),XtWindow(top), \
XCreateFontCursor( XtDisplay(top), \ 
XC_left_ptr));
 /*
  * For the ToolTalk demonstration, 
  * add the following lines
  * to make the top of stack the ToolTalk
  * session and set
  * it to be the default session.
  */
 ttmark = tt_mark();
 ttrc = tt_default_session_set( 
	/* set the default session .. */
 tt_X_session( 	
	/* .. to the X session for .. */
 DisplayString( 
	/* .. the X server displaying ..*/
 XtDisplay(top))));
 /* .. our top window... */
	/*
 	* Fail if no default session
		*/
 dieFromToolTalkError( \
 "tt_default_session_set",ttrc); 
 procid = tt_open();	
		/* Initialize ToolTalk */
		/*
		 * Fail if no process identifier
		 */
 dieFromToolTalkError("tt_open" \
,tt_ptr_error(procid));
 ttfd = tt_fd();	
		/* ToolTalk file descriptor */
		/*
		 * Fail if no file descriptor
		 */
dieFromToolTalkError("tt_fd", \
tt_int_error(ttfd));
		/*
		 * Activate file descriptor
		 */
XtAddInput(ttfd, (XtPointer)XtInputReadMask, \
 processToolTalkMessage, 0);

 XtMainLoop();
 }

...

 MakeCommandButton(b_row, "load", DoLoad);
 /*
  * For the ToolTalk demonstration, add the 
  * next line to make
  * a button for the font change command:
  */
 MakeCommandButton(b_row, "changefont", \ 
 DoChangeFont);	
 filenamewindow = MakeStringBox(b_row, \ 
"filename", filename);
 }
 XtCreateManagedWidget("bc_label", 
 labelWidgetClass, outer, NULL, ZERO);

...

 void Feep()
 {
 XBell(CurDpy, 0);
 /*
  * For the ToolTalk demonstration, add the 
  * following lines to receive and
  * process an incoming message:
  */
 }


 void processToolTalkMessage()
		/* Process ToolTalk message */
 {
 	int ttmark;				
  /* ToolTalk mark */
 	Tt_message incoming;						
		/* Incoming message */

 	ttmark = tt_mark();					
		/* ToolTalk mark */

 	incoming = tt_message_receive();
		/* Receive incoming message */
 	/*
 	 * The callback should process the 
   * message, so we should never
 	 * get a message returned.
 	 */
 	if (incoming == 0) return;	
		/* Return incoming message */

	if (tt_is_err(tt_ptr_error(incoming))) {
 		dieFromToolTalkError("tt_message_receive",
 				 tt_ptr_error(incoming));
 	}
 
 	/*
   * This is not a message we recognize.
 	 * If it is a request, or a notice that 
   * caused us to start, fail it.
 	 */

 	if (tt_message_class(incoming) == TT_REQUEST ||
 	 tt_message_status(incoming) ==
   TT_WRN_START_MESSAGE) {
 		tt_message_fail(incoming);
 	}
 	tt_message_destroy(incoming);								
			/* Destroy message */
 	tt_release(ttmark);						
			/* Free space */
 }

 void dieFromToolTalkError(procname, errid)
 char *procname;
 Tt_status errid;
		/* Fail if error occurs */
 {
 	/*
 	 * Don't die on warnings or TT_OK.
 	 */

 	if (tt_is_err(errid)) {
 		fprintf(stderr,"%s returned ToolTalk 
   error: %s\n",
 			procname, tt_status_message(errid));
 		exit(1);
 	}
 }

Example B-3 Modified commands.c File

#if (!defined(lint) && !defined(SABER))
static char Xrcsid[] = "$XConsortium: 
commands.c,v 1.27 89/12/10
					17:08:26 rws Exp $";
#endif /* lint && SABER */

...

#ifdef USG
int rename (from, to)
 char *from, *to;
{
 (void) unlink (to);
 if (link (from, to) == 0) {
 unlink (from);
 return 0;
 } else {
 return -1;
 }
}
#endif

/*
 * For the ToolTalk demonstration, add the
 * following lines to have Xfontsel
 * send a callback that the operation has either
 * completed or failed:
 */
static Tt_callback_action FinishChangeFont(m,p)/* ToolTalk message callback */
 Tt_message m;
		/* ToolTalk message */
 Tt_pattern p;	
		/* ToolTalk pattern */
{
	static XFontStruct *fs;
			/* Font structure */
	int ttmark;				
			/* ToolTalk mark */
	
	ttmark = tt_mark();	
			/* ToolTalk mark */
		/*
		 * If operation fails, notify user
		 */
	if (TT_FAILED==tt_message_state(m)) {
		XeditPrintf("Font change failed\n");
		tt_message_destroy(m);						
			/* Destroy message */
	} else if (TT_HANDLED==tt_message_state(m)) {
		XFontStruct *newfs;
		/* Try to load the new font */
		newfs = 
XLoadQueryFont(CurDpy,tt_message_arg_val(m,0));
		/* If the new font is OK, and there is an 
   * old font,
		 * unload the old font. Then use the new font
		 */
		if (newfs) {
			if (fs) {
				XUnloadFont(CurDpy, fs->fid);
			}
			XtVaSetValues(textwindow, XtNfont, newfs, 0);
			fs = newfs;
		}
		tt_message_destroy(m);	
			/* Destroy message */
	}
	tt_release(ttmark);	
				/* Release mark */
		/*
		 * Process callback to notify sender 
   * operation completed
		 */
	return TT_CALLBACK_PROCESSED;		
}

void
DoChangeFont()		
/* Change font */
{
	Tt_message m;
		/* ToolTalk message */
	Tt_status ttrc;			
		/* ToolTalk status */

		/*
		 * Create request
		 */
	m = tt_prequest_create(TT_SESSION, 
  "GetFontName");
		/*
		 * Add arguments to message
		 */
	tt_message_arg_add(m,TT_OUT,"string",
   (char *)NULL);
		/*
		 * Add callback to notify when change 
   * complete
		 */
	tt_message_callback_add(m,FinishChangeFont);
		/*
		 * Send message
		 */
	ttrc = tt_message_send(m);
		/*
		 * Fail if error occurs
		 */
	dieFromToolTalkError("tt_message_send",ttrc);
}



void DoSave()
{