#include <stdio.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <xview/xview.h>
#include <xview/panel.h>
#include <xview/notice.h>
#include <xview/notify.h>
#include "genC.h"
#include "misc.h"
#include "wpips.h"

Include dependency graph for xv_mchoose.c:

Functions
static void	mchoose_help_notify (Panel_item item, Event *event)

static void	mchoose_ok_notify (Panel_item item, Event *event)

static void	mchoose_cancel_notify (Panel_item item, Event *event)

static void	mchoose_frame_done_proc (Frame frame)
	Avoid the mchoose_frame destruction and act as cancel: More...

static int	mchoose_notify (Panel_item item, char item_string, Xv_opaque client_data, Panel_list_op op, Event event, int row)
	Function used to update the text panel according to the list panel: More...

static void	mchoose_de_select_all_notify (Panel_item item, Event *event)
	When we press on the "(De)Select" all button, select or deselect all the items. More...

void	mchoose (char title, gen_array_t array, void(function_ok)(gen_array_t), void(*function_cancel)(void))

void	create_mchoose_window ()

Variables
static Panel_item	mchoices
	Multiple choices handling. More...

static Panel_item	choices

static Panel_item	ok

static Panel_item	cancel

static Panel_item	help

static void(*	apply_on_mchoices )(gen_array_t) = NULL

static void(*	cancel_on_mchoices )(void) = NULL

Function Documentation

◆ create_mchoose_window()

void create_mchoose_window ( )

Carriage return enable for "OK". RK, 19/05/1993.

PANEL_NOTIFY_PROC, mchoose_ok_notify,

Avoid the mchoose_frame destruction:

Definition at line 290 of file xv_mchoose.c.

 {
    mchoose_panel = xv_create(mchoose_frame, PANEL, NULL);
  
 /* Carriage return enable for "OK". RK, 19/05/1993. */
  
    mchoices = xv_create(mchoose_panel, PANEL_TEXT,
                         PANEL_LABEL_STRING, "Current choices",
                         PANEL_VALUE_DISPLAY_LENGTH, 30,
                         PANEL_VALUE_STORED_LENGTH, 12800,
                         /* PANEL_NOTIFY_PROC, mchoose_ok_notify, */
                         XV_X, xv_col(mchoose_panel, 0),
                         NULL);
  
    choices = xv_create(mchoose_panel, PANEL_LIST,
                        PANEL_LABEL_STRING, "Available choices",
                        PANEL_LIST_DISPLAY_ROWS, 5,
                        PANEL_NOTIFY_PROC, mchoose_notify,
                        PANEL_CHOOSE_ONE, FALSE,
                        XV_X, xv_col(mchoose_panel, 0),
                        XV_Y, xv_rows(mchoose_panel, 1),
                        NULL);
  
    ok = xv_create(mchoose_panel, PANEL_BUTTON,
                   PANEL_LABEL_STRING, "OK",
                   PANEL_NOTIFY_PROC, mchoose_ok_notify,
                   XV_X, xv_col(mchoose_panel, 5),
                   XV_Y, xv_rows(mchoose_panel, 5),
                   NULL);
  
    (void) xv_create(mchoose_panel, PANEL_BUTTON,
                       PANEL_LABEL_STRING, "(De)Select all",
                       PANEL_NOTIFY_PROC, mchoose_de_select_all_notify,
                       NULL);
  
    cancel = xv_create(mchoose_panel, PANEL_BUTTON,
                       PANEL_LABEL_STRING, "Cancel",
                       PANEL_NOTIFY_PROC, mchoose_cancel_notify,
                       NULL);
  
    help = xv_create(mchoose_panel, PANEL_BUTTON,
                     PANEL_LABEL_STRING, "Help",
                     PANEL_NOTIFY_PROC, mchoose_help_notify,
                     NULL);
  
    window_fit(mchoose_panel);
    window_fit(mchoose_frame);
  
    /*
      Just to veto the xv_destroy(): 
    (void) notify_interpose_destroy_func(mchoose_frame,
                                         try_to_avoid_mchoose_destruction);
    xv_set((Window) xv_get(mchoose_frame, XV_XID)
                                         */
    /* Avoid the mchoose_frame destruction: */
    xv_set(mchoose_frame,
           FRAME_DONE_PROC, mchoose_frame_done_proc,
           NULL);
 }

References cancel, choices, help, mchoices, mchoose_cancel_notify(), mchoose_de_select_all_notify(), mchoose_frame, mchoose_frame_done_proc(), mchoose_help_notify(), mchoose_notify(), mchoose_ok_notify(), mchoose_panel, and ok.

Here is the call graph for this function:

◆ mchoose()

void mchoose	(	char *	title,
		gen_array_t	array,
		void(*)(gen_array_t)	function_ok,
		void(*)(void)	function_cancel
	)

reset the choice set to empty

Delete all the rows, ie nchoices rows from row 0:

move the pointer to the center of the query window

The OK button becomes active through RETURN:

Definition at line 253 of file xv_mchoose.c.

 {
    int i, nchoices, argc = gen_array_nitems(array);
  
    apply_on_mchoices = function_ok;
    cancel_on_mchoices = function_cancel;
  
    xv_set(mchoose_frame, FRAME_LABEL, title, NULL);
  
    /* reset the choice set to empty */
    nchoices = (int) xv_get(choices, PANEL_LIST_NROWS, 0);
  
    /* Delete all the rows, ie nchoices rows from row 0: */
    xv_set(choices,
           PANEL_LIST_DELETE_ROWS, 0, nchoices,
           NULL);
  
    for (i = 0; i < argc; i++) {
        string mn = gen_array_item(array, i);
        xv_set(choices, PANEL_LIST_STRING, i, mn, NULL);
    }
  
    unhide_window(mchoose_frame);
  
    /* move the pointer to the center of the query window */
    pointer_in_center_of_frame(mchoose_frame);
  
    /* The OK button becomes active through RETURN: */
    xv_set(mchoose_panel, PANEL_DEFAULT_ITEM, ok, NULL);
    xv_set(mchoices, PANEL_NOTIFY_PROC, mchoose_ok_notify, NULL);
 }

References apply_on_mchoices, array, cancel_on_mchoices, choices, gen_array_item(), gen_array_nitems(), int, mchoices, mchoose_frame, mchoose_ok_notify(), mchoose_panel, ok, pointer_in_center_of_frame(), and unhide_window().

Here is the call graph for this function:

◆ mchoose_cancel_notify()

static void mchoose_cancel_notify	(	Panel_item	item,
		Event *	event
	)

static

The OK button becomes inactive through RETURN:

Delete all the rows, ie nchoices rows from row 0:

Definition at line 126 of file xv_mchoose.c.

 {
    hide_window(mchoose_frame);
    
    /* The OK button becomes inactive through RETURN: */
    xv_set(mchoose_panel, PANEL_DEFAULT_ITEM, NULL, NULL);
    xv_set(mchoices, PANEL_NOTIFY_PROC, NULL);
    
    (*cancel_on_mchoices)();
    
    /* Delete all the rows, ie nchoices rows from row 0: */
    xv_set(choices,
           PANEL_LIST_DELETE_ROWS, 0, (int) xv_get(choices,
                                                   PANEL_LIST_NROWS,
                                                   NULL),
           NULL);
  
    xv_set(mchoices, PANEL_VALUE, "", NULL);
 }

References choices, hide_window(), mchoices, mchoose_frame, and mchoose_panel.

Referenced by create_mchoose_window(), and mchoose_frame_done_proc().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ mchoose_de_select_all_notify()

static void mchoose_de_select_all_notify	(	Panel_item	item,
		Event *	event
	)

static

When we press on the "(De)Select" all button, select or deselect all the items.

Update the "Current choices":

Next time we press this button, do the opposite:

Definition at line 229 of file xv_mchoose.c.

 {
     int i;
     static bool select_all_when_press_this_button = TRUE;
  
     int nchoices = (int) xv_get(choices, PANEL_LIST_NROWS);
  
     for(i = nchoices - 1; i >= 0; i--)
         xv_set (choices,
                 PANEL_LIST_SELECT, i, select_all_when_press_this_button,
                 NULL);
  
     /* Update the "Current choices": */
     (void) mchoose_notify((Panel_item)NULL, NULL, 
                           (Xv_opaque)NULL, PANEL_LIST_OP_SELECT, 
                           (Event*) NULL, 0);
  
     /* Next time we press this button, do the opposite: */
     select_all_when_press_this_button = !select_all_when_press_this_button;
 }

References choices, int, and mchoose_notify().

Referenced by create_mchoose_window().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ mchoose_frame_done_proc()

static void mchoose_frame_done_proc ( Frame frame )

static

Avoid the mchoose_frame destruction and act as cancel:

Definition at line 150 of file xv_mchoose.c.

 {
    mchoose_cancel_notify((Panel_item)NULL, (Event*)NULL);
 }

References mchoose_cancel_notify().

Referenced by create_mchoose_window().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ mchoose_help_notify()

static void mchoose_help_notify	(	Panel_item	item,
		Event *	event
	)

static

Definition at line 49 of file xv_mchoose.c.

 {
     display_help("MultipleChoice");
 }

References display_help().

Referenced by create_mchoose_window().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ mchoose_notify()

static int mchoose_notify	(	Panel_item	item,
		char *	item_string,
		Xv_opaque	client_data,
		Panel_list_op	op,
		Event *	event,
		int	row
	)

static

Function used to update the text panel according to the list panel:

Now it is mchoices_notify_buffer which is used for the selection. No size verification implemented yet... :-) RK, 19/05/1993.

Make the PANEL_VALUE of mchoices a string that is all the names of the selected files:

Avoid deletion and insertion with the edit menu of button 3:

Accept the operation by default:

Definition at line 177 of file xv_mchoose.c.

 {
    switch (op) {    
      case PANEL_LIST_OP_SELECT:
      case PANEL_LIST_OP_DESELECT:
      {
         int i;
         int nchoices = (int) xv_get(choices, PANEL_LIST_NROWS);
  
         /* Now it is mchoices_notify_buffer which is used for the selection.
            No size verification implemented yet... :-)
            RK, 19/05/1993. */
         /* Make the PANEL_VALUE of mchoices a string that is all the
            names of the selected files: */
         xv_set(mchoices, PANEL_VALUE, "", NULL);
         
         for(i = 0; i < nchoices; i++) {
            if ((int) xv_get(choices, PANEL_LIST_SELECTED, i) == TRUE) {
               xv_set(mchoices, PANEL_VALUE,
                      concatenate((char *) xv_get(mchoices, PANEL_VALUE),
                                  (char *) xv_get(choices,
                                                  PANEL_LIST_STRING, i),
                                  " ",
                                  NULL),
                      NULL);
            }
         }
         break;
      }
      
      /* Avoid deletion and insertion with the edit menu of button 3: */
      case PANEL_LIST_OP_DELETE:
      case PANEL_LIST_OP_VALIDATE:
        return XV_ERROR;
      
      default:
        pips_assert("schoose_choice_notify: unknown operation !", 0);
    }
  
    /* Accept the operation by default: */
    return XV_OK;
 }

References choices, concatenate(), int, mchoices, and pips_assert.

Referenced by create_mchoose_window(), and mchoose_de_select_all_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ mchoose_ok_notify()

static void mchoose_ok_notify	(	Panel_item	item,
		Event *	event
	)

static

Upperbound size for the scanf buffer:

At least on item selected, and in the list. RK, 21/05/1993.

The OK button becomes inactive through RETURN:

Delay the graphics transformations. RK, 21/05/1993.

Delete all the rows, ie nchoices rows from row 0:

Definition at line 57 of file xv_mchoose.c.

 {
     gen_array_t mchoices_args = gen_array_make(0);
     char * buffer, * mchoices_notify_buffer;
     int mchoices_length = 0;
     int i, nchoices, len;
     int item_is_in_the_list = FALSE;
     char * p;
     
     nchoices = (int) xv_get(choices, PANEL_LIST_NROWS, NULL);
     mchoices_length = 0;
  
     mchoices_notify_buffer = strdup((char *) xv_get(mchoices, PANEL_VALUE));
     /* Upperbound size for the scanf buffer: */
     buffer = (char *) malloc(strlen(mchoices_notify_buffer) + 1);
     
     p = mchoices_notify_buffer;
     while(sscanf(p, "%s%n", buffer, &len) == 1) {
         gen_array_dupaddto(mchoices_args, mchoices_length++, buffer);
         item_is_in_the_list = FALSE;
         for(i = 0; i < nchoices; i++)
             if (strcmp((char *)
                        xv_get(choices, PANEL_LIST_STRING, i), buffer) == 0) {
                 item_is_in_the_list = TRUE;
                 break;
             }
         if (item_is_in_the_list == FALSE)
             break;
       p += len;
     }
     
     free(mchoices_notify_buffer);
     free(buffer);
     
     /*  At least on item selected, and in the list.
         RK, 21/05/1993.
     */
     if (mchoices_length == 0 || item_is_in_the_list == FALSE) {
         char *s;
         s = mchoices_length == 0 ? "You have to select at least 1 item!" :
             "You have selected an item not in the choice list!";
         gen_array_full_free(mchoices_args);
         prompt_user(s);
         return;
     }
     
     hide_window(mchoose_frame);
     
     /* The OK button becomes inactive through RETURN: */
     xv_set(mchoose_panel, PANEL_DEFAULT_ITEM, NULL, NULL);
     xv_set(mchoices, PANEL_NOTIFY_PROC, NULL);
     
     (*apply_on_mchoices)(mchoices_args);
     gen_array_full_free(mchoices_args);
     
     /* Delay the graphics transformations. RK, 21/05/1993. */
     
     /* Delete all the rows, ie nchoices rows from row 0: */
     xv_set(choices,
            PANEL_LIST_DELETE_ROWS, 0, nchoices,
            NULL);
     
     xv_set(mchoices, PANEL_VALUE, "", NULL);
 }