25 #include "pips_config.h"
30 #include <sys/resource.h>
31 #include <xview/xview.h>
32 #include <xview/panel.h>
33 #include <xview/notice.h>
47 #define QUICK_QUIT "Quit without saving"
48 #define CLOSE_QUIT "Close (save) the Workspace & Quit"
49 #define DELETE_QUIT "Delete the Workspace & Quit"
50 #define CD_HACK_QUIT "Change Directory (tcl/tk hack)"
70 string fmt=
"Workspace %s not closed";
72 string str1, str2, menu_string;
74 str2 =
"Do you really want to quit PIPS?";
75 menu_string=(
string) xv_get(menu_item, MENU_STRING);
79 str1=
"-=< Resources can get lost! >=-";
81 sprintf(str, fmt , pn);
86 result = notice_prompt(xv_find(
main_frame, WINDOW, 0),
88 NOTICE_MESSAGE_STRINGS,
91 NOTICE_BUTTON_YES, menu_string,
92 NOTICE_BUTTON_NO,
"Cancel",
94 if (result == NOTICE_NO)
128 menu = xv_create(XV_NULL, MENU_COMMAND_MENU,
136 PANEL_LABEL_STRING,
"Quit ",
137 PANEL_ITEM_MENU, menu,
bool close_workspace(bool is_quit)
bool check_delete_workspace(const char *wname, bool check)
bool wpips_emacs_mode
Here are all the stuff to interface Pips with Emacs.
void send_notice_prompt_to_emacs(char *first_line,...)
#define SMALL_BUFFER_LENGTH
GtkWidget * main_frame
If we are in the Emacs mode, the log_frame is no longer really used:
void direct_change_directory()
FC: uses an external wish script I do not know how to activate this function safely....
string db_get_current_workspace_name(void)
the function is used to check that there is some current workspace...
Frame edit_frame[MAX_NUMBER_OF_WPIPS_WINDOWS]
int number_of_wpips_windows
void cd_notify(Menu menu, Menu_item menu_item)
void create_quit_button()
void quit_notify(Menu menu, Menu_item menu_item)