/*
* trial_read_window()
*
* routine to read data from all items in the trial window
*/
int
trial_read_window()
{
int i, n_varb;
char *strng;
double atof();
/* if no window, then nothing to read */
if (trial_ip == NULL) return;
n_varb = *((int *) pm(GET, Traj_Ds_Object, Varb_Dim, NULL));
/* read text fields */
for (i=0; i<n_varb; i++)
{
strng = (char *) xv_get(trial_ip->varb_value[i], PANEL_VALUE);
trial_varb_value[i] = atof(strng);
}
/* read setting item */
trial_choice = xv_get(trial_ip->setting1, PANEL_VALUE);
}