#include <stdio.h>
#include <sys/time.h>
#include <sys/resource.h>
#include "genC.h"
#include "database.h"
#include "misc.h"
#include "linear.h"
#include "ri.h"
#include "ri-util.h"
#include "pipsdbm.h"
#include "top-level.h"
#include <gtk/gtk.h>
#include "gpips.h"

Include dependency graph for gtk_quit.c:

Macros
#define	QUICK_QUIT "Quit without saving"

#define	CLOSE_QUIT "Close (save) the Workspace & Quit"

#define	DELETE_QUIT "Delete the Workspace & Quit"

#define	CD_HACK_QUIT "Change Directory (tcl/tk hack)"

Functions
void	cd_notify (GtkWidget *widget, gpointer data)

void	quit_notify (GtkWidget *widget, gpointer data)

void	create_quit_button ()

Variables
GtkWidget *	quit_menu_item

Macro Definition Documentation

◆ CD_HACK_QUIT

#define CD_HACK_QUIT "Change Directory (tcl/tk hack)"

Definition at line 49 of file gtk_quit.c.

◆ CLOSE_QUIT

#define CLOSE_QUIT "Close (save) the Workspace & Quit"

Definition at line 47 of file gtk_quit.c.

◆ DELETE_QUIT

#define DELETE_QUIT "Delete the Workspace & Quit"

Definition at line 48 of file gtk_quit.c.

◆ QUICK_QUIT

#define QUICK_QUIT "Quit without saving"

Definition at line 46 of file gtk_quit.c.

Function Documentation

◆ cd_notify()

void cd_notify	(	GtkWidget *	widget,
		gpointer	data
	)

Definition at line 53 of file gtk_quit.c.

                                                   {
         direct_change_directory();
 }

References direct_change_directory().

Referenced by create_quit_button().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ create_quit_button()

void create_quit_button ( )

Definition at line 108 of file gtk_quit.c.

                           {
         GtkWidget * quit_menu;
  
         quit_menu = gtk_menu_new();
         quit_menu_item = gtk_menu_item_new_with_label("Quit");
         gtk_menu_item_set_submenu(GTK_MENU_ITEM(quit_menu_item), quit_menu);
  
         GtkWidget * menu_item;
  
         menu_item = gtk_menu_item_new_with_label(CLOSE_QUIT);
         g_signal_connect(G_OBJECT(menu_item), "activate", G_CALLBACK(quit_notify),
                         NULL);
         gtk_menu_append(GTK_MENU(quit_menu), menu_item);
  
         menu_item = gtk_menu_item_new_with_label(QUICK_QUIT);
         g_signal_connect(G_OBJECT(menu_item), "activate", G_CALLBACK(quit_notify),
                         NULL);
         gtk_menu_append(GTK_MENU(quit_menu), menu_item);
  
         menu_item = gtk_menu_item_new_with_label(DELETE_QUIT);
         g_signal_connect(G_OBJECT(menu_item), "activate", G_CALLBACK(quit_notify),
                         NULL);
         gtk_menu_append(GTK_MENU(quit_menu), menu_item);
  
         menu_item = gtk_menu_item_new_with_label(CD_HACK_QUIT);
         g_signal_connect(G_OBJECT(menu_item), "activate", G_CALLBACK(cd_notify),
                         NULL);
         gtk_menu_append(GTK_MENU(quit_menu), menu_item);
  
         gtk_widget_show(quit_menu_item);
         gtk_widget_show_all(quit_menu);
         gtk_menu_bar_append(GTK_MENU_BAR(main_window_menu_bar), quit_menu_item);
 }

References CD_HACK_QUIT, cd_notify(), CLOSE_QUIT, DELETE_QUIT, main_window_menu_bar, QUICK_QUIT, quit_menu_item, and quit_notify().

Referenced by create_menus().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ quit_notify()

void quit_notify	(	GtkWidget *	widget,
		gpointer	data
	)

Destroy all the windows (close open files)

Clear the log window to avoid the message about the edited state: clear_log_subwindow(NULL, NULL); Does not work... Quit: xv_destroy[_safe](main_frame);

Exit xv_main_loop() at top level:

Definition at line 57 of file gtk_quit.c.

                                                     {
         int result;
         string pn;
  
         if ((pn = db_get_current_workspace_name())) {
                 string fmt = "Workspace %s not closed";
                 char str[SMALL_BUFFER_LENGTH];
                 string str1, str2;
         const char *menu_string;
  
                 str2 = "Do you really want to quit PIPS?";
                 menu_string = gpips_gtk_menu_item_get_label(widget);
                 if (strcmp(menu_string, CLOSE_QUIT) == 0)
                         str1 = " ";
                 else
                         str1 = "-=< Resources can get lost! >=-";
  
                 sprintf(str, fmt, pn);
  
                 GtkWidget * dialog = gtk_message_dialog_new(GTK_WINDOW(main_window),
                                 GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_INFO,
                                 GTK_BUTTONS_YES_NO,  "%s%s%s",str,str1,str2);
                 result = gtk_dialog_run(GTK_DIALOG(dialog));
  
                 if (result == GTK_RESPONSE_NO)
                         return;
                 else if (strcmp(menu_string, CLOSE_QUIT) == 0)
                         close_workspace(TRUE);
                 else if (strcmp(menu_string, DELETE_QUIT) == 0) {
                         int win = 0;
  
                         /* Destroy all the windows (close open files) */
                         for (win = 0; win < number_of_gpips_windows; win++)
                                 gtk_widget_destroy(edit_window[win]);
  
                         check_delete_workspace(pn, FALSE);
                 }
  
         }
  
         /* Clear the log window to avoid the message about the edited
          state:
          clear_log_subwindow(NULL, NULL);
          Does not work...
          Quit:
          xv_destroy[_safe](main_frame);
          */
         /* Exit xv_main_loop() at top level: */
         gtk_main_quit();
 }