probeButtons.c

/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
* National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
* Operator of Los Alamos National Laboratory.
* This file is distributed subject to a Software License Agreement found
* in the file LICENSE that is included with this distribution. 
\*************************************************************************/
/*
 * $Id$
 */
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <Xm/Xm.h>
#include <Xm/RowColumn.h>
#include <Xm/ToggleB.h>

/*	
 *       System includes for CA		
 */

#include <caerr.h>
#include <cadef.h>
#include <db_access.h>
#include <stdio.h>
#include <string.h>
#include <alarm.h>

#include "probe.h"

/*
 *          X's stuff
 */

extern XmFontList fontList;
extern XFontStruct *font;
extern XmFontList fontList1;
extern XFontStruct *font1;

char      *stateButtonLabels[] = {
    "state 0",
    "state 1",
    "state 2",
    "state 3",
    "state 4",
    "state 5",
    "state 6",
    "state 7",
    "state 8",
    "state 9",
    "state 10",
    "state 11",
    "state 12",
    "state 13",
    "state 14",
    "state 15"};
                 

void adjustButtonsCallback(
  Widget    w,
  XtPointer clientData,
  XtPointer callbackData)
{
    short i;

    atom *ch = (atom *) clientData;
    XmToggleButtonCallbackStruct *callData = (XmToggleButtonCallbackStruct *) callbackData;

    Buttons *b = &(ch->adjust.buttons);

    if (!callData->set) return;
    for (i=0; i < ch->info.data.E.no_str; i++) {
	if (w == b->buttons[i]) break;
    }
    if (i == ch->info.data.E.no_str) {
	xerrmsg("adjustButtonsCallback : buttons out of range.\n");
	return;
    }
    b->buttonsSelected = i;
    ch->updateMask |= UPDATE_DISPLAY | UPDATE_TEXT;
    ch->data.E.value = i;

    probeCASetValue(ch);
    updateDisplay(ch);  
}

void updateButtons(atom *ch, int dummy)
{
    Buttons *b = &(ch->adjust.buttons);

  /* Return if the dialog is not up */
    if ((ch->adjust.upMask & ADJUST_BUTTONS_UP) == 0) return;

  /* Return if this value is already selected */
    if (b->buttonsSelected == ch->data.E.value) return;

  /* Return if there are no buttons */
    if(ch->info.data.E.no_str == 0) return;

  /* Return if the current value is out of range */
    if (ch->data.E.value >= MAX_ADJUST_BUTTONS || ch->data.E.value <= 0) {
	xerrmsg("updateButtons: Enum value [%d] out of range",
	  ch->data.E.value);
	return;
    }

  /* Return if there is no button defined */
    if (!b->buttons[b->buttonsSelected]) {
	xerrmsg("updateButtons: No button for enum value=%d",
	  ch->data.E.value);
	return;
    }
    
    XtVaSetValues(b->buttons[b->buttonsSelected],
      XmNset,False,
      NULL);
    XtVaSetValues(b->buttons[ch->data.E.value],
      XmNset,True,
      NULL);
    b->buttonsSelected = ch->data.E.value;
}

void destroyButtons(atom *ch)
{
    short i;
    Buttons *b = &(ch->adjust.buttons);

    XtUnmanageChild(b->panel);
    XtDestroyWidget(b->panel);
    b->panel = NULL;
    for (i=0; i<MAX_ADJUST_BUTTONS; i++)
      b->buttons[i] = NULL;
    b->buttonsSelected = -1;
    ch->d[BUTTON].w = NULL;
    ch->d[BUTTON].proc = NULL;
    ch->adjust.upMask &= ~ADJUST_BUTTONS_UP;
}
     

void createButtons(atom *ch) 
{
    short i, n;
    Arg  wargs[5];

    Buttons *b = &(ch->adjust.buttons);

    if ((ch->adjust.upMask & ADJUST_BUTTONS_UP)) {
	xerrmsg("createButtons: Buttons not destroyed yet.\n");
	return;
    }

    n = 0;
    XtSetArg(wargs[n], XmNentryClass, xmToggleButtonWidgetClass); n++;
    XtSetArg(wargs[n], XmNnumColumns, 4); n++;
    b->panel = XmCreateRadioBox(ch->adjust.panel, "stateButton", wargs, n);
    for (i=0; i < ch->info.data.E.no_str; i++) {
	n = 0;
	if (i == ch->data.E.value) {
	    b->buttonsSelected = i;
	    XtSetArg(wargs[n],XmNset,TRUE); n++;
	}
	if (strlen(ch->info.data.E.strs[i]) > (size_t)0) {
	    b->buttons[i] = XmCreateToggleButton(b->panel,
	      ch->info.data.E.strs[i],wargs,n);
	} else {
	    b->buttons[i] = XmCreateToggleButton(b->panel,
	      stateButtonLabels[i],wargs,n);
	}
	XtAddCallback(b->buttons[i], 
	  XmNvalueChangedCallback,adjustButtonsCallback,ch);
    }
    ch->d[BUTTON].w = b->panel;
    ch->d[BUTTON].proc = updateButtons;
    ch->adjust.upMask |= ADJUST_BUTTONS_UP;
    XtManageChild(b->panel);
    XtManageChildren(b->buttons,ch->info.data.E.no_str);
}