Function EntryFocusProc

micropolis-activity/src/tk/tkentry.c:1698–1722

(clientData, gotFocus)

/*
 *----------------------------------------------------------------------
 *
 * EntryFocusProc --
 *
 *	This procedure is called whenever the entry gets or loses the
 *	input focus.  It's also called whenever the window is reconfigured
 *	while it has the focus.
 *
 * Results:
 *	None.
 *
 * Side effects:
 *	The cursor gets turned on or off.
 *
 *----------------------------------------------------------------------
 */

static void
EntryFocusProc(clientData, gotFocus)
    ClientData clientData;	/* Pointer to structure describing entry. */
    int gotFocus;		/* 1 means window is getting focus, 0 means
				 * it's losing it. */
{
    register Entry *entryPtr = (Entry *) clientData;

    if (entryPtr->cursorBlinkHandler != NULL) {
      Tk_DeleteTimerHandler(entryPtr->cursorBlinkHandler);