void wxListBox::DoSetSelection(int N, bool select)
{
m_inSetValue = true;
if (select)
{
#if 0
if (m_windowStyle & wxLB_MULTIPLE)
{
int *selections = NULL;
int n = GetSelections (&selections);
// This hack is supposed to work, to make it possible
// to select more than one item, but it DOESN'T under Motif 1.1.
XtVaSetValues ((Widget) m_mainWidget,
XmNselectionPolicy, XmMULTIPLE_SELECT,
NULL);
int i;
for (i = 0; i < n; i++)
XmListSelectPos ((Widget) m_mainWidget,
selections[i] + 1, False);
XmListSelectPos ((Widget) m_mainWidget, N + 1, False);
XtVaSetValues ((Widget) m_mainWidget,
XmNselectionPolicy, XmEXTENDED_SELECT,
NULL);
}
else
#endif // 0
XmListSelectPos ((Widget) m_mainWidget, N + 1, False);
}
else
XmListDeselectPos ((Widget) m_mainWidget, N + 1);
m_inSetValue = false;
}
/*######################### print_data_button() #########################*/
void
print_data_button(Widget w, XtPointer client_data, XtPointer call_data)
{
char message[MAX_MESSAGE_LENGTH],
sum_sep_line[MAX_OUTPUT_LINE_LENGTH + SHOW_LONG_FORMAT + 1];
/* Prepare separator line. */
(void)memset(sum_sep_line, '=', sum_line_length);
sum_sep_line[sum_line_length] = '\0';
if (range_type == SELECTION_TOGGLE)
{
int no_selected,
*select_list;
if (XmListGetSelectedPos(listbox_w, &select_list, &no_selected) == False)
{
show_message(statusbox_w, "No data selected for printing!");
XtPopdown(printshell);
return;
}
else
{
int fd,
prepare_status;
char *line,
line_buffer[256];
XmStringTable all_items;
if (device_type == PRINTER_TOGGLE)
{
prepare_status = prepare_printer(&fd);
}
else
{
prepare_status = prepare_file(&fd, (device_type == MAIL_TOGGLE) ? 0 : 1);
if ((prepare_status != SUCCESS) && (device_type == MAIL_TOGGLE))
{
prepare_tmp_name();
prepare_status = prepare_file(&fd, 1);
}
}
if (prepare_status == SUCCESS)
{
register int i,
length;
write_header(fd, sum_sep_line);
XtVaGetValues(listbox_w, XmNitems, &all_items, NULL);
for (i = 0; i < no_selected; i++)
{
XmStringGetLtoR(all_items[select_list[i] - 1], XmFONTLIST_DEFAULT_TAG, &line);
length = sprintf(line_buffer, "%s\n", line);
if (write(fd, line_buffer, length) != length)
{
(void)fprintf(stderr, "write() error : %s (%s %d)\n",
strerror(errno), __FILE__, __LINE__);
XtFree(line);
exit(INCORRECT);
}
XtFree(line);
XmListDeselectPos(listbox_w, select_list[i]);
}
write_summary(fd, sum_sep_line);
/*
* Remember to insert the correct summary, since all files
* have now been deselected.
*/
(void)strcpy(summary_str, total_summary_str);
SHOW_SUMMARY_DATA();
if (device_type == PRINTER_TOGGLE)
{
int status;
char buf;
/* Send Control-D to printer queue. */
buf = CONTROL_D;
if (write(fd, &buf, 1) != 1)
{
(void)fprintf(stderr, "write() error : %s (%s %d)\n",
strerror(errno), __FILE__, __LINE__);
XtFree(line);
exit(INCORRECT);
}
if ((status = pclose(fp)) < 0)
{
(void)sprintf(message,
"Failed to send printer command (%d) : %s",
status, strerror(errno));
}
else
{
(void)sprintf(message, "Send job to printer (%d)", status);
}
}
else
{
if (close(fd) < 0)
{
(void)fprintf(stderr, "close() error : %s (%s %d)\n",
strerror(errno), __FILE__, __LINE__);
}
if (device_type == MAIL_TOGGLE)
{
send_mail_cmd(message);
}
else
{
(void)sprintf(message, "Send job to file %s.", file_name);
}
}
}
XtFree((char *)select_list);
}
}
else /* Print everything! */
{
int fd,
no_of_items,
prepare_status;
char *line,
line_buffer[256];
XmStringTable all_items;
if (device_type == PRINTER_TOGGLE)
{
prepare_status = prepare_printer(&fd);
}
else
{
prepare_status = prepare_file(&fd, (device_type == MAIL_TOGGLE) ? 0 : 1);
if ((prepare_status != SUCCESS) && (device_type == MAIL_TOGGLE))
{
prepare_tmp_name();
prepare_status = prepare_file(&fd, 1);
}
}
if (prepare_status == SUCCESS)
{
register int i,
length;
write_header(fd, sum_sep_line);
XtVaGetValues(listbox_w,
XmNitemCount, &no_of_items,
XmNitems, &all_items,
NULL);
for (i = 0; i < no_of_items; i++)
{
XmStringGetLtoR(all_items[i], XmFONTLIST_DEFAULT_TAG, &line);
length = sprintf(line_buffer, "%s\n", line);
if (write(fd, line_buffer, length) != length)
{
(void)fprintf(stderr, "write() error : %s (%s %d)\n",
strerror(errno), __FILE__, __LINE__);
XtFree(line);
exit(INCORRECT);
}
XtFree(line);
}
write_summary(fd, sum_sep_line);
if (device_type == PRINTER_TOGGLE)
{
int status;
char buf;
/* Send Control-D to printer queue. */
buf = CONTROL_D;
if (write(fd, &buf, 1) != 1)
{
(void)fprintf(stderr, "write() error : %s (%s %d)\n",
strerror(errno), __FILE__, __LINE__);
XtFree(line);
exit(INCORRECT);
}
if ((status = pclose(fp)) < 0)
{
(void)sprintf(message, "Failed to send printer command (%d) : %s",
status, strerror(errno));
}
else
{
(void)sprintf(message, "Send job to printer (%d)", status);
}
}
else
{
if (close(fd) < 0)
{
(void)fprintf(stderr, "close() error : %s (%s %d)\n",
strerror(errno), __FILE__, __LINE__);
}
if (device_type == MAIL_TOGGLE)
{
send_mail_cmd(message);
}
else
{
(void)sprintf(message, "Send job to file %s.", file_name);
}
}
}
}
show_message(statusbox_w, message);
XtPopdown(printshell);
return;
}
/*ARGSUSED*/
void
_XmCommandUpOrDown(
Widget wid,
XEvent *event, /* unused */
String *argv,
Cardinal *argc ) /* unused */
{
XmCommandWidget cmd = (XmCommandWidget) wid ;
int visible ;
int top ;
int key_pressed ;
Widget list ;
int * position ;
int count ;
Arg av[5] ;
Cardinal ac ;
int selected_count ;
/****************/
if( !(list = cmd->selection_box.list) )
{ return ;
}
ac = 0 ;
XtSetArg( av[ac], XmNitemCount, &count) ; ++ac ;
XtSetArg( av[ac], XmNtopItemPosition, &top) ; ++ac ;
XtSetArg( av[ac], XmNvisibleItemCount, &visible) ; ++ac ;
XtSetArg( av[ac], XmNselectedItemCount, &selected_count); ac++;
XtGetValues( (Widget) list, av, ac) ;
if( !count
|| (cmd->command.error && (count <= 2)) )
{ return ;
}
/*
* Fix for 5237 - Check the selected_count to ensure that a selection
* exists. No items may be selected if the application
* has run XmListDeselect* routine. If no items in the
* list are selected, set list_selected_item_position to 0.
*/
if (!selected_count)
cmd->selection_box.list_selected_item_position = 0;
if (_XmConvertActionParamToRepTypeId((Widget) cmd,
XmRID_COMMAND_SELECTION_BOX_UP_OR_DOWN_ACTION_PARAMS,
argv[0], True, &key_pressed) == False)
{
/* We couldn't convert the value. Just assume a value of 0. */
key_pressed = 0;
}
position = &(cmd->selection_box.list_selected_item_position) ;
if( *position == 0 )
{
/* If error is visible, select last item - 2. Otherwise, select
* last item in list.
*/
if( cmd->command.error )
{ *position = count - 2 ;
}
else
{ *position = count ;
}
XmListSelectPos( list, *position, True) ;
}
else
{ if( !key_pressed && (*position > 1) )
{ /* up */
XmListDeselectPos( list, *position) ;
XmListSelectPos( list, --*position, True) ;
}
else
{ if( (key_pressed == 1) && (*position < count) )
{ /* down */
XmListDeselectPos( list, *position) ;
XmListSelectPos( list, ++*position, True) ;
}
else
{ if( key_pressed == 2 )
{ /* home */
XmListDeselectPos( list, *position) ;
*position = 1 ;
XmListSelectPos( list, *position, True) ;
}
else
{ if( key_pressed == 3 )
{ /* end */
XmListDeselectPos( list, *position) ;
*position = count ;
XmListSelectPos( list, *position, True) ;
}
}
}
}
}
if( top > *position )
{ XmListSetPos( list, *position) ;
}
else
{ if( (top + visible) <= *position )
{ XmListSetBottomPos( list, *position) ;
}
}
return ;
}
/*ARGSUSED*/
static void
ListCallback(
Widget w, /* unused */
XtPointer client_data,
XtPointer call_data )
{
XmListCallbackStruct * listCB = (XmListCallbackStruct *)
call_data ;
XmCommandCallbackStruct cmdCB ;
XmCommandWidget cmdWid = (XmCommandWidget) client_data ;
char * text_value ;
Arg argv[5] ;
Cardinal argc ;
int count ;
XmString tmpXmString ;
/*********** reset is not used ************
Boolean reset = FALSE ;
****************/
argc = 0 ;
XtSetArg( argv[argc], XmNitemCount, &count) ; ++argc ;
XtGetValues( SB_List( cmdWid), argv, argc) ;
if( !count )
{ return ;
}
if( cmdWid->command.error )
{
if( (listCB->item_position == (count - 1))
|| ( (listCB->item_position == count)
&& (listCB->reason != XmCR_DEFAULT_ACTION)) )
{
/* Selection or default action on the blank line, or selection on
* error message. Restore previous selection and return.
*/
XmListDeselectPos( SB_List( cmdWid), listCB->item_position) ;
if( cmdWid->selection_box.list_selected_item_position )
{ XmListSelectPos( SB_List( cmdWid),
cmdWid->selection_box.list_selected_item_position, FALSE) ;
}
return ;
}
XmListDeletePos( SB_List( cmdWid), 0) ; /* Delete error message.*/
XmListDeletePos( SB_List( cmdWid), 0) ; /* Delete blank line.*/
cmdWid->command.error = FALSE ;
if( count <= 2 )
{ /* List only contained error message and blank line.
*/
cmdWid->selection_box.list_selected_item_position = 0 ;
return ;
}
count -= 2 ;
if( (listCB->item_position > count)
&& (listCB->reason == XmCR_DEFAULT_ACTION) )
{
/* Default action on the error message line. Restore previous
* selection, clear text area, and return.
*/
if( cmdWid->selection_box.list_selected_item_position )
{ XmListSelectPos( SB_List( cmdWid),
cmdWid->selection_box.list_selected_item_position, FALSE) ;
}
XmTextFieldSetString( cmdWid->selection_box.text, "") ;
return ;
}
}
if( listCB->reason == XmCR_DEFAULT_ACTION )
{
/* If we are already at max items, remove first item.
*/
if( count >= cmdWid->command.history_max_items )
{
XmListDeletePos( cmdWid->selection_box.list, 1) ;
if( cmdWid->selection_box.list_selected_item_position > 0 )
{ cmdWid->selection_box.list_selected_item_position-- ;
}
}
tmpXmString = XmStringCopy( listCB->item) ;
XmListAddItemUnselected( cmdWid->selection_box.list, tmpXmString, 0) ;
XmListSetBottomPos( cmdWid->selection_box.list, 0) ;
XmTextFieldSetString( cmdWid->selection_box.text, "") ;
/* Call the users command entered callback.
*/
cmdCB.reason = XmCR_COMMAND_ENTERED ;
cmdCB.event = NULL ;
cmdCB.value = tmpXmString ;
cmdCB.length = XmStringLength( tmpXmString) ;
XtCallCallbackList( (Widget) cmdWid, cmdWid->command.callback, &cmdCB) ;
XmStringFree( tmpXmString) ;
}
else /* listCB->reason is BROWSE_SELECT or SINGLE_SELECT */
{ /* Update the text widget to relect the latest list selection.
*/
cmdWid->selection_box.list_selected_item_position =
listCB->item_position ;
if((text_value = _XmStringGetTextConcat( listCB->item)) != NULL)
{
XmTextFieldSetString( SB_Text( cmdWid), text_value) ;
XmTextFieldSetInsertionPosition( SB_Text( cmdWid),
XmTextFieldGetLastPosition( SB_Text( cmdWid))) ;
XtFree( text_value) ;
}
}
return ;
}
void
GetModelVectorCB ( Widget w, XtPointer client_data, XtPointer xt_call_data )
/*
* Callback for vector scrolled list.
* Set Field Description and GVECT text field using Field Description file
* as input.
*/
{
Widget scalar_list;
GuiScalarGridDialogType *grd;
GuiVectorGridDialogType *vec;
char *file, *chapter, *directory;
int *index, count;
int verbose;
ListParentObjectType *lpo =
(ListParentObjectType *) client_data;
grd = GetGuiScalarGridDialog();
vec = GetGuiVectorGridDialog();
verbose = GetVerboseLevel();
if( verbose > VERBOSE_0 )
printf ( "GetModelVectorCB\n" );
/*
* Set plot type to vector.
*/
SetModelGridTypeCB ( w, (XtPointer) VECTORGRIDOBJECT,
(XtPointer) NULL );
/*
* Deselect vector field item.
*/
scalar_list = GetScrolledListHSW ( grd );
if ( XmListGetSelectedPos ( scalar_list, &index, &count ) ) {
XtUnmanageChild ( scalar_list );
XmListDeselectPos ( scalar_list, *index );
XtManageChild ( scalar_list );
Free ( index );
}
/*
* Get index of chosen field.
*/
XmListGetSelectedPos ( lpo->w, &index, &count );
if ( count <= 0 ) {
printf ( "GetModelVectorCB - nothing selected ... returning\n");
return;
}
/*
* Read in model field.
*/
file = strdup ( lpo->label[*index-1] );
chapter = strdup ( GetModelVectorDir ( grd ) );
Free (index);
directory = GetConfigValue( "vectorfdf" );
if ( directory == NULL ) {
printf ( "*** GetModelVectorCB - vectorfdf key is undefined\n" );
return;
}
GetModelField ( file, chapter, directory );
/*
* Free.
*/
Free ( file );
Free ( chapter );
Free ( directory );
}