25 #include "pips_config.h"
32 #include <sys/resource.h>
33 #include <xview/xview.h>
34 #include <xview/panel.h>
35 #include <xview/text.h>
55 void (* cancel_func)(Panel_item, Event *))
57 xv_set(
query_frame, FRAME_LABEL, window_title, NULL);
60 if (cancel_func == NULL)
67 PANEL_INACTIVE, FALSE,
70 xv_set(
query_pad, PANEL_LABEL_STRING, query_title, NULL);
96 debug(2,
"query_canvas_event_proc",
97 "Event_id %d, event_action %d\n",
98 event_id(event), event_action(event));
100 switch(event_id(event)) {
106 if (event_is_up(event))
126 debug_on(
"WPIPS_EVENT_DEBUG_LEVEL");
127 debug(2,
"find_dead_code",
128 "end_query_pad_notify: Event_id %d, event_action %d\n",
129 event_id(event), event_action(event));
139 char *s = (
char *) xv_get(
query_pad, PANEL_VALUE);
179 xv_set(
query_pad, PANEL_VALUE,
"", NULL);
182 xv_window_return((Xv_opaque) xv_get(
query_pad, PANEL_VALUE));
190 xv_window_return((Xv_opaque) the_answer);
204 (void) vsprintf(message_buffer, a_printf_format, args);
218 user_log(
"%s\n\"%s\"\nEnd User Request\n",
219 message_buffer, the_answer);
224 the_answer =
strdup(the_answer);
236 WIN_CONSUME_EVENT, LOC_WINENTER, NULL,
243 PANEL_VALUE_DISPLAY_LENGTH, 20,
244 PANEL_VALUE_STORED_LENGTH, 128,
250 PANEL_LABEL_STRING,
" OK ",
257 PANEL_LABEL_STRING,
"Help",
262 PANEL_LABEL_STRING,
"Cancel",
void user_log(const char *format,...)
#define SMALL_BUFFER_LENGTH
void display_help(char *topic)
gint hide_window(GtkWidget *window, GdkEvent *ev __attribute__((unused)), gpointer data __attribute__((unused)))
void debug(const int the_expected_debug_level, const char *calling_function_name, const char *a_message_format,...)
ARARGS0.
#define string_undefined_p(s)
static char * query_help_topic
void query_canvas_event_proc(Xv_Window window, Event *event)
void create_query_window()
void cancel_user_request_notify(Panel_item item, Event *event)
Cancel clear the string value and return:
static Panel_item query_cancel_button
void end_query_notify(Panel_item item, Event *event)
static success(* apply_on_query)(char *)
static Panel_item query_pad
success end_user_request_notify(char *the_answer)
void start_query(char *window_title, char *query_title, char *help_topic, success(*ok_func)(char *), void(*cancel_func)(Panel_item, Event *))
void cancel_query_notify(Panel_item item, Event *event)
Ne fait rien d'autre que de fermer la fene^tre...
string wpips_user_request(char *a_printf_format, va_list args)
void end_query_pad_notify(Panel_item item, Event *event)
Pour debug seulement :
void help_query_notify(Panel_item item, Event *event)
void unhide_window(Frame frame)
map a frame on the screen
void pointer_in_center_of_frame(Frame frame)
Centre la souris sur une fene^tre :