Function IntervalMouseProc

micropolis-activity/src/sim/w_inter.c:1375–1415

(clientData, eventPtr)

 *	This procedure is called back by Tk in response to
 *	mouse events such as window entry, window exit, mouse
 *	motion, and button presses.
 *
 * Results:
 *	None.
 *
 * Side effects:
 *	This procedure implements the "feel" of the interval by
 *	issuing commands in response to button presses and mouse
 *	motion.
 *
 *--------------------------------------------------------------
 */

static void
IntervalMouseProc(clientData, eventPtr)
    ClientData clientData;		/* Information about window. */
    register XEvent *eventPtr;		/* Information about event. */
{
    register Interval *intervalPtr = (Interval *) clientData;

    if (intervalPtr->state != tkNormalUid) {
	return;
    }

    Tk_Preserve((ClientData) intervalPtr);
    if (eventPtr->type == EnterNotify) {
	intervalPtr->flags |= ACTIVE;
	EventuallyRedrawInterval(intervalPtr, REDRAW_SLIDER);
    } else if (eventPtr->type == LeaveNotify) {
	intervalPtr->flags &= ~ACTIVE;
	EventuallyRedrawInterval(intervalPtr, REDRAW_SLIDER);
    } else if ((eventPtr->type == MotionNotify)
	    && (intervalPtr->flags & BUTTON_PRESSED)) {
	TrackInterval(intervalPtr,  PixelToValue(intervalPtr,
		eventPtr->xmotion.x, eventPtr->xmotion.y));
    } else if ((eventPtr->type == ButtonPress)
/*	    && (eventPtr->xbutton.button == Button1) */
	    && (eventPtr->xbutton.state == 0)) {
	intervalPtr->flags |= BUTTON_PRESSED;
	StartTrackInterval(intervalPtr, PixelToValue(intervalPtr,
		eventPtr->xbutton.x, eventPtr->xbutton.y));
/*	NotifyInterval(intervalPtr); */
	EventuallyRedrawInterval(intervalPtr, REDRAW_SLIDER);
    } else if ((eventPtr->type == ButtonRelease)