This section illustrates how ToolTalk code was added to the Xedit and Xfontsel applications.
The ellipses (. . .) indicate code has been skipped. The code examples only show a few lines of the code preceding and following the inserted ToolTalk lines of code.
The actual ToolTalk code that you need to add to the files is shown in bold type; for example:
#include <desktop/tt_c.h> /* ToolTalk header */ |
The changes made to the Xedit files are described in Modifying the Xedit Application.
/* * 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 */
#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); } }
#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() {
The changes made to the Xfontsel files are described in Modifying the Xfontsel Application.
#ifndef lint static char Xrcsid[] = “$XConsortium: xfontsel.c,v 1.16 89/12/12 14:10:48 rws Exp $”; #endif ... #include <X11/Xaw/Viewport.h> #include <X11/Xmu/Atoms.h> /* * For the ToolTalk demonstration, add the * following line to include * the ToolTalk header file: */ #include <desktop/tt_c.h> /* ToolTalk header file */ #define MIN_APP_DEFAULTS_VERSION 1 ... void SetCurrentFont(); Boolean IsXLFDFontName(); /* * For the ToolTalk demonstration, add the * following lines to tell * Xfontsel how to handle a ToolTalk message: */ void dieFromToolTalkError(); /* Fail if error occurs */ void processToolTalkMessage(); /* Process ToolTalk message */ void ReplyToMessage(); /* Reply to ToolTalk message */ Tt_message replymsg; typedef void (*XtProc)(); ... int matchingFontCount; static Boolean anyDisabled = False; Widget ownButton; /* * For the ToolTalk demonstration, add the * next line to add * the apply button to change the font: */ Widget applyButton; /* Add apply button */ Widget fieldBox; /* * For the ToolTalk demonstration, add * the next line to add * a command box to make the font change: */ Widget commandBox; /* Make commandBox global */ Widget countLabel; ... void main(argc, argv) unsigned int argc; char **argv; { Widget topLevel, pane; /* * For the ToolTalk demonstration, * add the following lines: */ int ttmark, ttfd; /* ToolTalk mark, ToolTalk file descriptor */ char *procid; /* Process identifier */ Tt_status ttrc; /* ToolTalk status */ topLevel = XtInitialize( NULL, “XFontSel”, options, XtNumber(options), &argc, argv ); ... pane = XtCreateManagedWidget(“pane” ,panedWidgetClass,topLevel,NZ); { /* * For the ToolTalk demonstration, * make the command box widget * global; change the line * Widget commandBox, * fieldBox, currentFontName, viewPort; * as follows: */ Widget /* commandBox, fieldBox, currentFontName,*/ viewPort; commandBox = XtCreateManagedWidget(“commandBox ”,formWidgetClass,pane,NZ); { ... ownButton = XtCreateManagedWidget(“ownButton” ,toggleWidgetClass,commandBox,NZ); /* * For the ToolTalk demonstration, add the * following lines to create * an apply button for the font change: */ applyButton = XtVaCreateManagedWidget(“applyButton”, commandWidgetClass, commandBox, XtNlabel, “apply”, XtNfromHoriz, ownButton, XtNleft, XtChainLeft, XtNright, XtChainLeft, 0); countLabel = XtCreateManagedWidget(“countLabel” ,labelWidgetClass,commandBox,NZ); XtAddCallback(quitButton, XtNcallback, Quit, NULL); XtAddCallback(ownButton,XtNcallback, OwnSelection,(XtPointer)True); /* * For the ToolTalk demonstration, add the * following line to notify * Xedit when the apply button has been pressed: */ XtAddCallback(applyButton, XtNcallback,ReplyToMessage, NULL); } fieldBox = XtCreateManagedWidget(“fieldBox”, boxWidgetClass, pane, NZ); ... { int f; for (f = 0; f < FIELD_COUNT; f++) currentFont.value_index[f] = -1; } /* * 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(); /* * Fail if no proces identifier */ dieFromToolTalkError(“tt_open” ,tt_ptr_error(procid)); ttfd = tt_fd(); /* * Fail if no ToolTalk file descriptor */ dieFromToolTalkError(“tt_fd” ,tt_int_error(ttfd)); ttrc = tt_ptype_declare(“xfontsel”); /* * Fail if ptype not declared */ dieFromToolTalkError(“tt_ptype_declare” ,tt_int_error(ttfd)); ttrc = tt_session_join(tt_default_session()); /* * Fail if unable to join session */ dieFromToolTalkError(“tt_session_join”,ttrc); /* * Add input */ XtAddInput(ttfd, (XtPointer)XtInputReadMask, processToolTalkMessage, 0); XtAppMainLoop(appCtx); tt_close(); /* End ToolTalk session */ tt_release(ttmark); /* Free space */ } ... Boolean field_bits[FIELD_COUNT]; int max_field; if (*fontName == DELIM) field++; /* * * For the ToolTalk demonstration, * use the standard routines * instead of BSD; change the line * bzero( field_bits, sizeof(field_bits) ); * to read as follows: * */ memset( field_bits, 0, sizeof(field_bits) ); if (Matches(pattern, fontName++, field_bits, &max_field)) { ... XtDisownSelection(w, XA_PRIMARY, time); XtSetSensitive(currentFontName, False); } /* * For the ToolTalk Demonstration, * add the following lines: */ } void dieFromToolTalkError(procname, errid) /* Fail if error occurs */ char *procname; /* Process name */ Tt_status errid; /* Error identifier */ { /* * 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); } } void processToolTalkMessage() /* Process message */ { int ttmark; /* ToolTalk mark */ Tt_message incoming; /* Incoming message */ ttmark = tt_mark(); incoming = tt_message_receive(); /* Receive message */ /* * It's possible that the file descriptor * may become active but * there's not actually a ToolTalk message * for us. */ if (incoming == 0) return; if (tt_is_err(tt_ptr_error(incoming))) { dieFromToolTalkError(“tt_message_receive”, tt_ptr_error(incoming)); } if (0==strcmp(tt_message_op(incoming),” GetFontName”)) { /* * This is the message we expected. * If we're already * busy, reject it. Otherwise activate * the “apply” button. */ if (replymsg) { tt_message_reject(incoming); tt_message_destroy(incoming); tt_release(ttmark); return; } XtVaSetValues(applyButton, XtNsensitive, TRUE, 0); replymsg = incoming; tt_release(ttmark); return; } /* * This is not a message we recognize. * If it's 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); tt_release(ttmark); } /* * Called when the Apply button is pressed. * Replies to the outstanding * message and turn off the Apply button. */ /* ARGSUSED */ void ReplyToMessage(w, msg, wdata) Widget w; caddr_t msg; caddr_t wdata; { tt_message_arg_val_set(replymsg, 0, currentFontNameString); tt_message_reply(replymsg); tt_message_destroy(replymsg); replymsg = 0; XtVaSetValues(applyButton, XtNsensitive, FALSE, 0); }