xv_query.c

Go to the documentation of this file.

/*
 
  $Id: xv_query.c 23065 2016-03-02 09:05:50Z coelho $
 
  Copyright 1989-2016 MINES ParisTech
 
  This file is part of PIPS.
 
  PIPS is free software: you can redistribute it and/or modify it
  under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  any later version.
 
  PIPS is distributed in the hope that it will be useful, but WITHOUT ANY
  WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.
 
  See the GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public License
  along with PIPS.  If not, see <http://www.gnu.org/licenses/>.
 
*/
#ifdef HAVE_CONFIG_H
    #include "pips_config.h"
#endif
#include <stdlib.h>
#include <stdio.h>
#include <stdarg.h>
 
#include <sys/time.h>
#include <sys/resource.h>
#include <xview/xview.h>
#include <xview/panel.h>
#include <xview/text.h>
 
#include "xv_sizes.h"
 
#include "genC.h"
#include "misc.h"
 
#include "wpips.h"
 
static Panel_item query_pad;
static Panel_item query_cancel_button;
 
static char *query_help_topic;
static success (*apply_on_query)(char *);
 
void
start_query(char * window_title,
            char * query_title,
            char * help_topic,
            success (* ok_func)(char *),
            void (* cancel_func)(Panel_item, Event *))
{
   xv_set(query_frame, FRAME_LABEL, window_title, NULL);
   /*        PANEL_NOTIFY_PROC, cancel_query_notify, */
 
   if (cancel_func == NULL)
      /* No cancel button requested: */
      xv_set(query_cancel_button, 
             PANEL_INACTIVE, TRUE,
             NULL);
   else
      xv_set(query_cancel_button, PANEL_NOTIFY_PROC, cancel_func,
             PANEL_INACTIVE, FALSE,
             NULL);
 
   xv_set(query_pad, PANEL_LABEL_STRING, query_title, NULL);
 
   xv_set(query_pad, PANEL_VALUE, "", NULL);
 
   query_help_topic = help_topic;
 
   apply_on_query = ok_func;
 
   unhide_window(query_frame);
 
   /* move the pointer to the center of the query window */
   pointer_in_center_of_frame(query_frame);
 
   /* Valide le focus sur l'entrée : */
   /* J'ai l'impression que le code pre'ce'dent est pluto^t obsole`te... RK. */
   /* Mais pourquoi cela ne marche pas ??? */
   win_set_kbd_focus(query_frame, xv_get(query_panel, XV_XID));
   /* xv_set(query_xwindow , WIN_SET_FOCUS, NULL); */
   xv_set(query_panel, PANEL_CARET_ITEM, query_pad, NULL);
}
 
void query_canvas_event_proc(window, event)
Xv_Window window;
Event *event;
{
  debug_on("WPIPS_EVENT_DEBUG_LEVEL");
  debug(2,"query_canvas_event_proc",
        "Event_id %d, event_action %d\n",
        event_id(event), event_action(event));
  debug_off();
    switch(event_id(event)) {
        case LOC_WINENTER :
          /* enter_window(window); */
          break;
        case '\r' :
          /* ie. return key pressed */
          if (event_is_up(event)) 
              /* ie. key is released. It is necessary to use this event
                 because notice_prompt() (in prompt_user() (in 
                 end_query_notify() )) also returns on up RETURN.
                 This can cause the notice to return immediately when it is 
                 called on down RETURN.
                 There schould be another possibility: put a mask to ignore
                 key release events on the window which owns notice_prompt().
                 This was done in create_main_window() but seems without 
                 effect.
                */
              end_query_notify(NULL, event);
          break;
        default : ;
      }
}
 
/* Pour debug seulement : */
void end_query_pad_notify(Panel_item item, Event *event)
{
  debug_on("WPIPS_EVENT_DEBUG_LEVEL");
  debug(2,"find_dead_code",
        "end_query_pad_notify: Event_id %d, event_action %d\n",
        event_id(event), event_action(event));
  debug_off();
}
 
 
void end_query_notify(item, event)
Panel_item item;
Event *event;
{
    
    char *s = (char *) xv_get(query_pad, PANEL_VALUE);
 
    /* Dans le cas ou` on vient d'un retour charriot dans le texte : */
/* Cela ne peut bien entendu pas marcher... :-( */
/*
    xv_set(xv_get(query_panel, PANEL_DEFAULT_ITEM, NULL),
           PANEL_BUSY, FALSE,
           NULL);
*/    
    if (apply_on_query(s)) {
        hide_window(query_frame);
        /* Remet le bouton OK a l'e'tat normal : */
/*      xv_set(xv_get(query_panel, PANEL_DEFAULT_ITEM, NULL),
               PANEL_BUSY, FALSE,
               NULL);
*/
    }
}
 
void help_query_notify(item, event)
Panel_item item;
Event *event;
{
    display_help(query_help_topic);
}
 
/* Ne fait rien d'autre que de fermer la fene^tre... */
void
cancel_query_notify(Panel_item item,
                    Event * event)
{
   hide_window(query_frame);
}
 
 
/* Cancel clear the string value and return: */
void
cancel_user_request_notify(Panel_item item,
                           Event * event)
{
   xv_set(query_pad, PANEL_VALUE, "", NULL);
   hide_window(query_frame);
   /* Just return the "": */
   xv_window_return((Xv_opaque) xv_get(query_pad, PANEL_VALUE));
}
 
 
success
end_user_request_notify(char * the_answer)
{
   hide_window(query_frame);
   xv_window_return((Xv_opaque) the_answer);
   /* In fact, the function above never return... */
   return TRUE;
}
 
 
string
wpips_user_request(char * a_printf_format,
                   va_list args)
{
   char * the_answer;
   
   static char message_buffer[SMALL_BUFFER_LENGTH];
 
   (void) vsprintf(message_buffer, a_printf_format, args);
 
   start_query("User Query",
               message_buffer, 
               "UserQuery",
               end_user_request_notify,
               cancel_user_request_notify);
 
   user_log("User Request...\n");
 
   /* Loop on the Query window: */
   the_answer = (string) xv_window_loop(query_frame);
 
   /* Log the answer for possible rerun through tpips: */
   user_log("%s\n\"%s\"\nEnd User Request\n",
            message_buffer, the_answer);
   
   /* returns a newly allocated string...
    */
   if (the_answer && !string_undefined_p(the_answer))
       the_answer = strdup(the_answer);
 
   return the_answer;
}
 
 
void create_query_window()
{
    query_panel = xv_create(query_frame, PANEL, NULL);
 
/* Semble ne servir a` rien. RK, 9/11/93. */
    xv_set(canvas_paint_window(query_panel), 
           WIN_CONSUME_EVENT, LOC_WINENTER, NULL, 
/*         WIN_IGNORE_X_EVENT_MASK, KeyReleaseMask, */
           WIN_EVENT_PROC, query_canvas_event_proc, 
           NULL);
 
 
    query_pad = xv_create(query_panel, PANEL_TEXT, 
                          PANEL_VALUE_DISPLAY_LENGTH, 20,
                          PANEL_VALUE_STORED_LENGTH, 128,
                          PANEL_NOTIFY_PROC, end_query_notify,
                          NULL);
 
    xv_set(query_panel, PANEL_DEFAULT_ITEM,
                xv_create(query_panel, PANEL_BUTTON,
                     PANEL_LABEL_STRING, " OK ",
                     XV_Y, xv_row(query_panel, 2),
                     XV_X, QUERY_WIDTH/2-100,
                     PANEL_NOTIFY_PROC, end_query_notify,
                     NULL),NULL);
 
    (void) xv_create(query_panel, PANEL_BUTTON,
                     PANEL_LABEL_STRING, "Help",
                     PANEL_NOTIFY_PROC, help_query_notify,
                     NULL);
 
    query_cancel_button = xv_create(query_panel, PANEL_BUTTON,
                     PANEL_LABEL_STRING, "Cancel",
                     NULL);
}