Function ButtonEventProc

micropolis-activity/src/tk/tkbutton.c:1222–1258

(clientData, eventPtr)

 *
 * Side effects:
 *	When the window gets deleted, internal structures get
 *	cleaned up.  When it gets exposed, it is redisplayed.
 *
 *--------------------------------------------------------------
 */

static void
ButtonEventProc(clientData, eventPtr)
    ClientData clientData;	/* Information about window. */
    XEvent *eventPtr;		/* Information about event. */
{
    Button *butPtr = (Button *) clientData;
    if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
	if ((butPtr->tkwin != NULL) && !(butPtr->flags & REDRAW_PENDING)) {
//Tk_TimerToken last = butPtr->updateTimerToken;
	    butPtr->flags |= REDRAW_PENDING;
//	    Tk_DoWhenIdle(DisplayButton, (ClientData) butPtr);
	    assert(butPtr->updateTimerToken == NULL);
	    if (butPtr->updateTimerToken == NULL) {
	      butPtr->updateTimerToken =
		Tk_CreateTimerHandler(
		  ButtonUpdateTime,
		  DisplayButton,
		  (ClientData) butPtr);
	    } // if
//fprintf(stderr, "ButtonEventProc Expose Set Timer %s %s was %d now %d\n", Tk_Class(butPtr->tkwin), Tk_PathName(butPtr->tkwin), last, butPtr->updateTimerToken);
	}
    } else if (eventPtr->type == DestroyNotify) {
	Tcl_DeleteCommand(butPtr->interp, Tk_PathName(butPtr->tkwin));
	butPtr->tkwin = NULL;
	if (butPtr->flags & REDRAW_PENDING) {
//fprintf(stderr, "ButtonEventProc Destroy Timer was %d now 0\n", butPtr->updateTimerToken);
//	    Tk_CancelIdleCall(DisplayButton, (ClientData) butPtr);
	    butPtr->flags &= ~REDRAW_PENDING;
	    assert(butPtr->updateTimerToken != NULL);
	    if (butPtr->updateTimerToken != NULL) {
	        Tk_DeleteTimerHandler(butPtr->updateTimerToken);
	        butPtr->updateTimerToken = 0;
	    }
	}