gtk_select.c File Reference

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

Include dependency graph for gtk_select.c:

Go to the source code of this file.

Enumerations
enum	{ GPIPS_MAX_MODULE_MENU_SIZE = 50 }
	Maximum size of the module menu of the main frame: More...

Functions
success	close_workspace_notify (GtkWidget *widget, gpointer data)
void	select_a_module_by_default ()
	Try to select a main module (that is the PROGRAM in the Fortran stuff) if no one is selected: More...
success	end_directory_notify (const char *dir)
void	end_directory_text_notify (GtkWidget *text_item, gpointer data)
void	direct_change_directory ()
	FC: uses an external wish script I do not know how to activate this function safely... More...
GtkWidget *	generate_directory_menu ()
void	prompt_user_not_allowed_to_change_directory (GtkWidget *widget, gpointer data)
void	start_directory_notify (GtkWidget *widget, gpointer data)
void	enable_change_directory ()
void	disable_change_directory ()
static void	restore_enable_change_directory_state ()
void	disable_workspace_create_or_open ()
void	enable_workspace_create_or_open ()
void	disable_workspace_delete_or_open ()
void	enable_workspace_delete_or_open ()
void	disable_workspace_close ()
void	enable_workspace_close ()
void	restore_enable_workspace_close_state ()
void	disable_module_selection ()
void	enable_module_selection ()
void	end_delete_workspace_notify (const char *name)
void	cancel_delete_workspace_notify ()
void	start_delete_workspace_notify (GtkWidget *widget, gpointer data)
void	start_create_workspace_notify (GtkWidget *widget, gpointer data)
void	cancel_create_workspace_notify (GtkWidget *widget, gpointer data)
success	continue_create_workspace_notify (const char *name)
void	user_prompt_not_a_valid_workspace_name (const char *workspace_name)
void	end_create_workspace_notify (gen_array_t files)
void	end_open_workspace_notify (const char *name)
void	cancel_open_workspace_notify ()
void	open_workspace_notify (GtkWidget *widget, gpointer data)
void	open_or_create_workspace (const char *workspace_name_original)
	To be used with schoose_create_abbrev_menu_with_text from the main panel: More...
void	select_workspace_notify (GtkWidget *w, gpointer data __attribute__((unused)))
GtkWidget *	generate_workspace_menu ()
	To use with schoose_create_abbrev_menu_with_text: More...
void	end_select_module_callback (const char *name)
void	cancel_select_module_notify (void)
void	select_module_from_menubar_callback (GtkWidget *widget, gpointer data)
static void	select_module_from_status_menu_callback (GtkWidget *widget, gpointer data __attribute__((unused)))
GtkWidget *	generate_module_menu ()
	participe à la génération du menu associés aux modules dans la fenetre principale More...
void	create_select_menu ()

Variables
GtkWidget *	directory_menu_item
static GtkWidget *	create_menu_item
static GtkWidget *	open_menu_item
static GtkWidget *	close_menu_item
static GtkWidget *	module_menu_item
bool	gpips_close_workspace_menu_inactive
	To enable or disable the menu items generated by generate_module_menu(): More...
bool	gpips_close_workspace_menu_inactive_old
bool	gpips_create_workspace_menu_inactive
bool	gpips_open_workspace_menu_inactive
bool	gpips_delete_workspace_menu_inactive
bool	gpips_change_directory_inactive
bool	gpips_change_directory_inactive_old

Enumeration Type Documentation

anonymous enum

anonymous enum

Maximum size of the module menu of the main frame:

Enumerator
GPIPS_MAX_MODULE_MENU_SIZE

Definition at line 62 of file gtk_select.c.

     {
        GPIPS_MAX_MODULE_MENU_SIZE = 50
};

Function Documentation

cancel_create_workspace_notify()

void cancel_create_workspace_notify	(	GtkWidget *	widget,
		gpointer	data
	)

enable the rights (in the gui) to create or open a workspace :

Definition at line 357 of file gtk_select.c.

                                                                       {
        /* enable the rights (in the gui) to create or open a workspace : */
        enable_workspace_create_or_open();
        enable_workspace_delete_or_open();
        enable_change_directory();
        cancel_query_notify(widget, data);
        show_workspace();
}

References cancel_query_notify(), enable_change_directory(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), and show_workspace().

Referenced by continue_create_workspace_notify(), and start_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

cancel_delete_workspace_notify()

void cancel_delete_workspace_notify

(

)

Nothing to do.

Definition at line 305 of file gtk_select.c.

                                      {
        /* Nothing to do. */
        enable_workspace_delete_or_open();
        enable_workspace_create_or_open();
        restore_enable_workspace_close_state();
        restore_enable_change_directory_state();
}

References enable_workspace_create_or_open(), enable_workspace_delete_or_open(), restore_enable_change_directory_state(), and restore_enable_workspace_close_state().

Referenced by start_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

cancel_open_workspace_notify()

void cancel_open_workspace_notify

(

)

Definition at line 502 of file gtk_select.c.

                                    {
        enable_workspace_create_or_open();
        enable_change_directory();
        show_workspace();
}

References enable_change_directory(), enable_workspace_create_or_open(), and show_workspace().

Referenced by open_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

cancel_select_module_notify()

void cancel_select_module_notify

(

void

)

Definition at line 720 of file gtk_select.c.

                                       {
}

Referenced by select_module_from_menubar_callback().

Here is the caller graph for this function:

close_workspace_notify()

success close_workspace_notify	(	GtkWidget *	widget,
		gpointer	data
	)

The close has been successful:

close_log_file();

It is the only place to enable a directory change, after a close workspace:

Definition at line 537 of file gtk_select.c.

                                                                  {
        success return_value;
 
        return_value = close_workspace(FALSE);
        debug(1, "close_workspace_notify", "return_value = %d\n", return_value);
 
        if (return_value) {
                /* The close has been successful: */
                /* close_log_file(); */
                initialize_gpips_hpfc_hack_for_fabien_and_from_fabien();
 
                edit_close_notify(NULL, NULL);
 
                enable_workspace_create_or_open();
                disable_workspace_close();
 
                /* It is the only place to enable a directory change, after a close
                 workspace: */
                enable_change_directory();
 
                disable_module_selection();
        }
 
        hide_window(schoose_window, NULL, NULL);
        show_workspace();
        show_module();
        display_memory_usage();
 
        return return_value;
}

References close_workspace(), debug(), disable_module_selection(), disable_workspace_close(), display_memory_usage(), edit_close_notify(), enable_change_directory(), enable_workspace_create_or_open(), hide_window(), initialize_gpips_hpfc_hack_for_fabien_and_from_fabien(), schoose_window, show_module(), and show_workspace().

Referenced by create_select_menu(), end_delete_workspace_notify(), generate_workspace_menu(), open_or_create_workspace(), and start_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

continue_create_workspace_notify()

success continue_create_workspace_notify

(

const char *

name

)

Is the name a valid workspace name?

Code added to confirm for a database destruction before opening a database with the same name. RK 18/05/1993.

Only one Fortran program: use it without user confirmation.

Memory leak if mchoose exit...

If it failed, cancel the creation:

Definition at line 366 of file gtk_select.c.

                                                           {
        gen_array_t fortran_list;
        int fortran_list_length = 0;
 
        /* Is the name a valid workspace name? */
        if (!workspace_name_p(name)) {
                user_prompt_not_a_valid_workspace_name(name);
        } else {
                fortran_list = gen_array_make(0);
                pips_get_fortran_list(fortran_list);
                fortran_list_length = gen_array_nitems(fortran_list);
 
                if (fortran_list_length == 0) {
                        prompt_user("No Fortran files in this directory");
                } else {
                        /* Code added to confirm for a database destruction before
                         opening a database with the same name.
                         RK 18/05/1993. */
                        if (workspace_exists_p(name)) {
                                int result;
 
                                GtkWidget * dialog = gtk_message_dialog_new(GTK_WINDOW(
                                                log_window), GTK_DIALOG_DESTROY_WITH_PARENT,
                                                                            GTK_MESSAGE_INFO, GTK_BUTTONS_YES_NO, "%s", concatenate(
                                                                "The database ", name, " already exists!\n",
                                                                "Do you really want to remove it ?", NULL));
                                result = gtk_dialog_run(GTK_DIALOG(dialog));
                                gtk_widget_destroy(dialog);
 
                                if (result == GTK_RESPONSE_NO) {
                                        goto continue_create_workspace_notify_failed;
                                }
                        }
 
                        disable_workspace_create_or_open();
 
                        // On enregistre le nom du workspace qui va être créé dans l'entry associée
                        gtk_entry_set_text(GTK_ENTRY(workspace_name_entry), name);
 
                        if (fortran_list_length == 1) {
                                /* Only one Fortran program: use it without user
                                 confirmation. */
                                user_log(
                                                "There is only one Fortran program in the current directory.\n"
                                                        "\tCreating the workspace \"%s\" from the file \"%s\"...\n",
                                                name, gen_array_item(fortran_list, 0));
                                end_create_workspace_notify(fortran_list);
                        } else {
                                mchoose("Create Workspace", fortran_list,
                                                end_create_workspace_notify,
                                                (void(*)(void)) cancel_create_workspace_notify);
                        }
                        /* Memory leak if mchoose exit... */
                        gen_array_full_free(fortran_list);
 
                        return (TRUE);
                }
        }
 
        /* If it failed, cancel the creation: */
        continue_create_workspace_notify_failed: cancel_create_workspace_notify(
                        NULL, NULL);
 
        return FALSE;
}

References cancel_create_workspace_notify(), concatenate(), disable_workspace_create_or_open(), end_create_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), log_window, mchoose(), pips_get_fortran_list(), prompt_user(), user_log(), user_prompt_not_a_valid_workspace_name(), workspace_exists_p(), workspace_name_entry, and workspace_name_p().

Referenced by open_or_create_workspace(), and start_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

create_select_menu()

void create_select_menu

(

)

Definition at line 788 of file gtk_select.c.

                          {
        GtkWidget *menu, *menu_item, *pmenu, *pmenu_item;
 
        create_menu_item = gtk_menu_item_new_with_label("Create");
        g_signal_connect(G_OBJECT(create_menu_item), "activate", G_CALLBACK(
                        start_create_workspace_notify), NULL);
 
        open_menu_item = gtk_menu_item_new_with_label("Open");
        g_signal_connect(G_OBJECT(open_menu_item), "activate", G_CALLBACK(
                        open_workspace_notify), NULL);
 
        close_menu_item = gtk_menu_item_new_with_label("Close");
        g_signal_connect(G_OBJECT(close_menu_item), "activate", G_CALLBACK(
                        close_workspace_notify), NULL);
        gtk_widget_set_sensitive(GTK_WIDGET(close_menu_item), FALSE);
 
        pmenu = gtk_menu_new();
        gtk_menu_append(GTK_MENU(pmenu), open_menu_item);
        gtk_menu_append(GTK_MENU(pmenu), create_menu_item);
        gtk_menu_append(GTK_MENU(pmenu), close_menu_item);
 
        pmenu_item = gtk_menu_item_new_with_label("Deal with workspaces");
        gtk_menu_item_set_submenu(GTK_MENU_ITEM(pmenu_item), pmenu);
 
        module_menu_item = gtk_menu_item_new_with_label("Module");
        g_signal_connect(G_OBJECT(module_menu_item), "activate", G_CALLBACK(
                        select_module_from_menubar_callback), NULL);
        gtk_widget_set_sensitive(GTK_WIDGET(module_menu_item), FALSE);
 
        directory_menu_item = gtk_menu_item_new_with_label("Directory");
        g_signal_connect(G_OBJECT(directory_menu_item), "activate", G_CALLBACK(
                        start_directory_notify), NULL);
 
        menu = gtk_menu_new();
        gtk_menu_append(GTK_MENU(menu), module_menu_item);
        gtk_menu_append(GTK_MENU(menu), pmenu_item);
        gtk_menu_append(GTK_MENU(menu), directory_menu_item);
 
        menu_item = gtk_menu_item_new_with_label("Selection Menu");
        gtk_menu_item_set_submenu(GTK_MENU_ITEM(menu_item), menu);
 
        gtk_widget_show(menu_item);
        gtk_widget_show_all(menu);
 
        gtk_menu_bar_append(GTK_MENU_BAR(main_window_menu_bar), menu_item);
}

References close_menu_item, close_workspace_notify(), create_menu_item, directory_menu_item, main_window_menu_bar, module_menu_item, open_menu_item, open_workspace_notify(), select_module_from_menubar_callback(), start_create_workspace_notify(), and start_directory_notify().

Referenced by create_menus().

Here is the call graph for this function:

Here is the caller graph for this function:

direct_change_directory()

void direct_change_directory

(

)

FC: uses an external wish script I do not know how to activate this function safely...

no cd in this state!

last was

generate_workspace_menu();

Definition at line 126 of file gtk_select.c.

                               {
        char newdir[MAXPATHLEN];
        char * tmp = strdup("/tmp/gpips.dir.XXXXXX");
        int i = 0, c;
        FILE * tmph;
 
        (void) mkstemp(tmp);
 
        if (gpips_change_directory_inactive)
                return; /* no cd in this state! */
 
        safe_system(concatenate("gpips-changedir -- ", get_cwd(), " > ", tmp, NULL));
 
        tmph = safe_fopen(tmp, "r");
        while ((c = getc(tmph)) != EOF && i < MAXPATHLEN)
                newdir[i++] = c;
        newdir[i - 1] = '\0'; /* last was \n */
        safe_fclose(tmph, tmp);
 
        end_directory_notify(newdir);
 
        unlink(tmp);
        free(tmp);
 
        return /* generate_workspace_menu(); */;
}

References concatenate(), end_directory_notify(), free(), get_cwd(), gpips_change_directory_inactive, MAXPATHLEN, safe_fclose(), safe_fopen(), safe_system(), and strdup().

Referenced by cd_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

disable_change_directory()

void disable_change_directory

(

)

In order to warn the user as soon as possible that (s)he can't change the directory, notify for whatever character:

Definition at line 186 of file gtk_select.c.

                                {
        gtk_widget_set_sensitive(GTK_WIDGET(directory_menu_item), FALSE);
 
        /* In order to warn the user as soon as possible that (s)he can't
         change the directory, notify for whatever character: */
        gtk_widget_set_sensitive(GTK_WIDGET(directory_name_entry), FALSE);
        g_signal_connect(G_OBJECT(directory_name_entry), "activate", G_CALLBACK(
                        prompt_user_not_allowed_to_change_directory), NULL);
 
        gpips_change_directory_inactive_old = gpips_change_directory_inactive;
        gpips_change_directory_inactive = TRUE;
}

References directory_menu_item, directory_name_entry, gpips_change_directory_inactive, gpips_change_directory_inactive_old, and prompt_user_not_allowed_to_change_directory().

Referenced by end_create_workspace_notify(), end_open_workspace_notify(), execute_workspace_creation_and_so_on_given_with_options(), open_or_create_workspace(), restore_enable_change_directory_state(), start_create_workspace_notify(), and start_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

disable_module_selection()

void disable_module_selection

(

)

Definition at line 253 of file gtk_select.c.

                                {
        gtk_widget_set_sensitive(GTK_WIDGET(module_menu_item), FALSE);
        gtk_widget_set_sensitive(GTK_WIDGET(module_name_entry), FALSE);
        disable_view_selection();
        disable_transform_selection();
        disable_compile_selection();
        disable_option_selection();
}

References disable_compile_selection(), disable_option_selection(), disable_transform_selection(), disable_view_selection(), module_menu_item, and module_name_entry.

Referenced by close_workspace_notify(), gpips_main(), and wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

disable_workspace_close()

void disable_workspace_close

(

)

For generate_module_menu():

Definition at line 234 of file gtk_select.c.

                               {
        gtk_widget_set_sensitive(GTK_WIDGET(close_menu_item), FALSE);
        gpips_close_workspace_menu_inactive_old
                        = gpips_close_workspace_menu_inactive;
        /* For generate_module_menu(): */
        gpips_close_workspace_menu_inactive = TRUE;
}

References close_menu_item, gpips_close_workspace_menu_inactive, and gpips_close_workspace_menu_inactive_old.

Referenced by close_workspace_notify(), gpips_main(), start_delete_workspace_notify(), user_prompt_not_a_valid_workspace_name(), and wpips_main().

Here is the caller graph for this function:

disable_workspace_create_or_open()

void disable_workspace_create_or_open

(

)

Definition at line 206 of file gtk_select.c.

                                        {
        gtk_widget_set_sensitive(GTK_WIDGET(create_menu_item), FALSE);
        gtk_widget_set_sensitive(GTK_WIDGET(open_menu_item), FALSE);
        gtk_widget_set_sensitive(GTK_WIDGET(workspace_name_entry), FALSE);
        gpips_create_workspace_menu_inactive = TRUE;
}

References create_menu_item, gpips_create_workspace_menu_inactive, open_menu_item, and workspace_name_entry.

Referenced by continue_create_workspace_notify(), open_workspace_notify(), start_create_workspace_notify(), and start_delete_workspace_notify().

Here is the caller graph for this function:

disable_workspace_delete_or_open()

void disable_workspace_delete_or_open

(

)

Avoid also to delete a workspace during a creation in case the name of the workspace is the same...

Definition at line 220 of file gtk_select.c.

                                        {
        /* Avoid also to delete a workspace during a creation in case the
         name of the workspace is the same... */
        gpips_delete_workspace_menu_inactive = TRUE;
        gpips_open_workspace_menu_inactive = TRUE;
        gtk_widget_set_sensitive(GTK_WIDGET(workspace_name_entry), FALSE);
}

References gpips_delete_workspace_menu_inactive, gpips_open_workspace_menu_inactive, and workspace_name_entry.

Referenced by start_create_workspace_notify(), and start_delete_workspace_notify().

Here is the caller graph for this function:

enable_change_directory()

void enable_change_directory

(

)

Enable the normal notify mode: notify when return and so is typed:

Definition at line 173 of file gtk_select.c.

                               {
        gtk_widget_set_sensitive(GTK_WIDGET(directory_menu_item), TRUE);
 
        /* Enable the normal notify mode: notify when return and so is
         typed: */
        gtk_widget_set_sensitive(GTK_WIDGET(directory_name_entry), TRUE);
        g_signal_connect(G_OBJECT(directory_name_entry), "activate", G_CALLBACK(
                        end_directory_text_notify), NULL);
 
        gpips_change_directory_inactive_old = gpips_change_directory_inactive;
        gpips_change_directory_inactive = FALSE;
}

References directory_menu_item, directory_name_entry, end_directory_text_notify(), gpips_change_directory_inactive, and gpips_change_directory_inactive_old.

Referenced by cancel_create_workspace_notify(), cancel_open_workspace_notify(), close_workspace_notify(), end_create_workspace_notify(), gpips_main(), restore_enable_change_directory_state(), user_prompt_not_a_valid_workspace_name(), and wpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

enable_module_selection()

void enable_module_selection

(

)

Well, after a workspace creation without automatic module selection successful, there is no module selected and thus the following menus are not very interestiong, except for the option part of the option selection. Anyway, there is a guard in each of these menu, so, just do nothing... :-)

Definition at line 262 of file gtk_select.c.

                               {
        gtk_widget_set_sensitive(GTK_WIDGET(module_menu_item), TRUE);
        gtk_widget_set_sensitive(GTK_WIDGET(module_name_entry), TRUE);
        /* Well, after a workspace creation without automatic module
         selection successful, there is no module selected and thus the
         following menus are not very interestiong, except for the option
         part of the option selection. Anyway, there is a guard in each
         of these menu, so, just do nothing... :-) */
        enable_view_selection();
        enable_transform_selection();
        enable_compile_selection();
        enable_option_selection();
}

References enable_compile_selection(), enable_option_selection(), enable_transform_selection(), enable_view_selection(), module_menu_item, and module_name_entry.

Referenced by end_create_workspace_notify(), end_open_workspace_notify(), and execute_workspace_creation_and_so_on_given_with_options().

Here is the call graph for this function:

Here is the caller graph for this function:

enable_workspace_close()

void enable_workspace_close

(

)

For generate_module_menu():

Definition at line 242 of file gtk_select.c.

                              {
        gtk_widget_set_sensitive(GTK_WIDGET(close_menu_item), TRUE);
        /* For generate_module_menu(): */
        gpips_close_workspace_menu_inactive = FALSE;
}

References close_menu_item, and gpips_close_workspace_menu_inactive.

Referenced by end_create_workspace_notify(), end_open_workspace_notify(), and execute_workspace_creation_and_so_on_given_with_options().

Here is the caller graph for this function:

enable_workspace_create_or_open()

void enable_workspace_create_or_open

(

)

Definition at line 213 of file gtk_select.c.

                                       {
        gtk_widget_set_sensitive(GTK_WIDGET(create_menu_item), TRUE);
        gtk_widget_set_sensitive(GTK_WIDGET(open_menu_item), TRUE);
        gtk_widget_set_sensitive(GTK_WIDGET(workspace_name_entry), TRUE);
        gpips_create_workspace_menu_inactive = FALSE;
}

References create_menu_item, gpips_create_workspace_menu_inactive, open_menu_item, and workspace_name_entry.

Referenced by cancel_create_workspace_notify(), cancel_delete_workspace_notify(), cancel_open_workspace_notify(), close_workspace_notify(), end_create_workspace_notify(), end_delete_workspace_notify(), end_open_workspace_notify(), execute_workspace_creation_and_so_on_given_with_options(), gpips_main(), user_prompt_not_a_valid_workspace_name(), and wpips_main().

Here is the caller graph for this function:

enable_workspace_delete_or_open()

void enable_workspace_delete_or_open

(

)

Definition at line 228 of file gtk_select.c.

                                       {
        gpips_delete_workspace_menu_inactive = FALSE;
        gpips_open_workspace_menu_inactive = FALSE;
        gtk_widget_set_sensitive(GTK_WIDGET(workspace_name_entry), TRUE);
}

References gpips_delete_workspace_menu_inactive, gpips_open_workspace_menu_inactive, and workspace_name_entry.

Referenced by cancel_create_workspace_notify(), cancel_delete_workspace_notify(), end_create_workspace_notify(), and end_delete_workspace_notify().

Here is the caller graph for this function:

end_create_workspace_notify()

void end_create_workspace_notify

(

gen_array_t

files

)

If the user click quickly on OK, be sure end_create_workspace_notify() is not reentrant by verifying something as not been opened already:

Is the name a valid workspace name?

The create workspace has been successful:

open_log_file();

The processing of user files has been successful:

close_log_file();

The creation failed:

Definition at line 440 of file gtk_select.c.

                                                    {
        /* If the user click quickly on OK, be sure
         end_create_workspace_notify() is not reentrant by verifying
         something as not been opened already: */
        const char* workspace_name_to_create = gtk_entry_get_text(GTK_ENTRY(
                        workspace_name_entry));
        if (db_get_current_workspace_name() == NULL) {
                /* Is the name a valid workspace name? */
                if (workspace_name_p(workspace_name_to_create)) {
                        if (db_create_workspace(workspace_name_to_create)) {
                                /* The create workspace has been successful: */
                                /* open_log_file(); */
                                display_memory_usage();
 
                                if (create_workspace(files)) {
                                        /* The processing of user files has been successful: */
                                        enable_workspace_close();
 
                                        show_workspace();
                                        select_a_module_by_default();
                                        enable_module_selection();
                                        disable_change_directory();
 
                                        enable_workspace_create_or_open();
                                        enable_workspace_delete_or_open();
 
                                        display_memory_usage();
 
                                        return;
                                } else
                                        /* close_log_file(); */
                                        ;
                        }
                } else
                        user_prompt_not_a_valid_workspace_name(workspace_name_to_create);
 
                /* The creation failed: */
                enable_change_directory();
                enable_workspace_create_or_open();
                enable_workspace_delete_or_open();
 
                display_memory_usage();
        }
}

References create_workspace(), db_create_workspace(), db_get_current_workspace_name(), disable_change_directory(), display_memory_usage(), enable_change_directory(), enable_module_selection(), enable_workspace_close(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), select_a_module_by_default(), show_workspace(), user_prompt_not_a_valid_workspace_name(), workspace_name_entry, workspace_name_p(), and workspace_name_to_create.

Referenced by continue_create_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_delete_workspace_notify()

void end_delete_workspace_notify

(

const char *

name

)

Definition at line 276 of file gtk_select.c.

                                                    {
        schoose_close();
 
        if (db_get_current_workspace_name() != NULL && strcmp(
                        db_get_current_workspace_name(), name) == 0) {
                int result;
 
                GtkWidget * dialog = gtk_message_dialog_new(GTK_WINDOW(log_window),
                                GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_INFO,
                                                            GTK_BUTTONS_YES_NO, "%s", concatenate("The workspace ", name,
                                                " is currently opened!\n",
                                                "Do you really want to close and remove it ?", NULL));
                result = gtk_dialog_run(GTK_DIALOG(dialog));
                gtk_widget_destroy(dialog);
 
                if (result == GTK_RESPONSE_NO || !close_workspace_notify(NULL, NULL))
                        goto do_not_delete_the_workspace;
        }
 
        (void) delete_workspace(name);
 
        do_not_delete_the_workspace: enable_workspace_delete_or_open();
        enable_workspace_create_or_open();
        restore_enable_workspace_close_state();
        restore_enable_change_directory_state();
 
        display_memory_usage();
}

References close_workspace_notify(), concatenate(), db_get_current_workspace_name(), delete_workspace(), display_memory_usage(), enable_workspace_create_or_open(), enable_workspace_delete_or_open(), log_window, restore_enable_change_directory_state(), restore_enable_workspace_close_state(), and schoose_close().

Referenced by start_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_directory_notify()

success end_directory_notify

(

const char *

dir

)

if (dir != NULL) {

Definition at line 103 of file gtk_select.c.

                                               {
        char *s;
 
        /*   if (dir != NULL) {*/
        if ((s = pips_change_directory(dir)) == NULL) {
                user_log("Directory \"%s\" does not exist\n", dir);
                prompt_user("Directory \"%s\" does not exist\n", dir);
                show_directory();
                return FALSE;
        } else {
                user_log("Directory \"%s\" selected\n", dir);
                show_directory();
                return TRUE;
        }
}

References pips_change_directory(), prompt_user(), show_directory(), and user_log().

Referenced by create_status_subwindow(), direct_change_directory(), end_directory_notify_callback(), end_directory_text_notify(), generate_a_directory_menu_notify(), and start_directory_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_directory_text_notify()

void end_directory_text_notify	(	GtkWidget *	text_item,
		gpointer	data
	)

Definition at line 119 of file gtk_select.c.

                                                                     {
        (void) end_directory_notify(gtk_entry_get_text(GTK_ENTRY(text_item)));
}

References end_directory_notify().

Referenced by enable_change_directory().

Here is the call graph for this function:

Here is the caller graph for this function:

end_open_workspace_notify()

void end_open_workspace_notify

(

const char *

name

)

open_log_file();

Definition at line 485 of file gtk_select.c.

                                                 {
        schoose_close();
 
        if (open_workspace(name)) {
                /* open_log_file(); */
                enable_workspace_close();
                show_workspace();
                select_a_module_by_default();
                enable_module_selection();
                disable_change_directory();
        }
 
        enable_workspace_create_or_open();
 
        display_memory_usage();
}

References disable_change_directory(), display_memory_usage(), enable_module_selection(), enable_workspace_close(), enable_workspace_create_or_open(), open_workspace(), schoose_close(), select_a_module_by_default(), and show_workspace().

Referenced by open_or_create_workspace(), and open_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

end_select_module_callback()

void end_select_module_callback

(

const char *

name

)

Definition at line 691 of file gtk_select.c.

                                                  {
        gen_array_t module_list = db_get_module_list();
        int module_list_length = gen_array_nitems(module_list);
 
        if (module_list_length == 0) {
                prompt_user("No module available in this workspace.");
        } else {
                bool module_found = FALSE;
                int i;
 
                for (i = 0; i < module_list_length; i++) {
                        string mn = gen_array_item(module_list, i);
                        if (strcmp(name, mn) == 0) {
                                module_found = TRUE;
                                break;
                        }
                }
                if (module_found)
                        lazy_open_module(name);
                else
                        prompt_user("The module \"%s\" does not exist in this workspace.",
                                        name);
        }
 
        show_module();
        display_memory_usage();
        gen_array_full_free(module_list);
}

References db_get_module_list(), display_memory_usage(), gen_array_full_free(), gen_array_item(), gen_array_nitems(), lazy_open_module(), prompt_user(), and show_module().

Referenced by create_module_entry(), execute_workspace_creation_and_so_on_given_with_options(), select_a_module_by_default(), select_module_from_menubar_callback(), and select_module_from_status_menu_callback().

Here is the call graph for this function:

Here is the caller graph for this function:

generate_directory_menu()

GtkWidget* generate_directory_menu

(

)

Definition at line 153 of file gtk_select.c.

                                      {
        return generate_a_directory_menu(get_cwd());
}

References generate_a_directory_menu(), and get_cwd().

Referenced by create_status_subwindow().

Here is the call graph for this function:

Here is the caller graph for this function:

generate_module_menu()

GtkWidget* generate_module_menu

(

)

participe à la génération du menu associés aux modules dans la fenetre principale

Definition at line 749 of file gtk_select.c.

                                   {
        GtkWidget * menu;
        int i;
 
        menu = gtk_menu_new();
 
        if (db_get_current_workspace_name() == NULL) {
                GtkWidget * no_workspace_menu_item;
                no_workspace_menu_item = gtk_menu_item_new_with_label(
                                "* No workspace yet! *");
                gtk_widget_set_sensitive(no_workspace_menu_item, FALSE);
                gtk_menu_append(GTK_MENU(menu), no_workspace_menu_item);
        } else {
                gen_array_t module_list = db_get_module_list();
                int module_list_length = gen_array_nitems(module_list);
 
                if (module_list_length == 0) {
                        GtkWidget * no_workspace_menu_item;
                        no_workspace_menu_item = gtk_menu_item_new_with_label(
                                        "* No module available in this workspace *");
                        gtk_widget_set_sensitive(no_workspace_menu_item, FALSE);
                        gtk_menu_append(GTK_MENU(menu), no_workspace_menu_item);
                } else {
                        GtkWidget * module_menu_item;
                        for (i = 0; i < module_list_length; i++) {
                                string mn = gen_array_item(module_list, i);
                                module_menu_item = gtk_menu_item_new_with_label(mn);
                                gtk_menu_append(GTK_MENU(menu), module_menu_item);
                                g_signal_connect(G_OBJECT(module_menu_item), "activate",
                                                                        G_CALLBACK(select_module_from_status_menu_callback), NULL);
                        }
                }
                gen_array_full_free(module_list);
        }
 
        gtk_widget_show_all(menu);
        return menu;
}

References db_get_current_workspace_name(), db_get_module_list(), gen_array_full_free(), gen_array_item(), gen_array_nitems(), module_menu_item, and select_module_from_status_menu_callback().

Referenced by create_status_subwindow(), and regenerate_module_menu_callback().

Here is the call graph for this function:

Here is the caller graph for this function:

generate_workspace_menu()

GtkWidget* generate_workspace_menu

(

)

To use with schoose_create_abbrev_menu_with_text:

Replace the Select Workspace menu from the status window with the following items:

Now complete with the list of the workspaces:

Well, since there is no workspace, there is nothing to delete...

Definition at line 625 of file gtk_select.c.

                                      {
        GtkWidget * menu;
 
        GtkWidget * delete_menu_item;
        int i;
        gen_array_t workspace_list;
        int workspace_list_length = 0;
 
        workspace_list = gen_array_make(0);
        pips_get_workspace_list(workspace_list);
        workspace_list_length = gen_array_nitems(workspace_list);
 
        menu = gtk_menu_new();
 
        /* Replace the Select Workspace menu from the status window with
         the following items: */
        GtkWidget * temp_item;
 
        temp_item = gtk_menu_item_new_with_label("Create Workspace");
        g_signal_connect(G_OBJECT(temp_item), "activate",
                        G_CALLBACK(start_create_workspace_notify), NULL);
        gtk_menu_append(GTK_MENU(menu), temp_item);
        gtk_widget_set_sensitive(temp_item, !gpips_create_workspace_menu_inactive);
 
        temp_item = gtk_menu_item_new_with_label("Close Workspace");
        g_signal_connect(G_OBJECT(temp_item), "activate", G_CALLBACK(close_workspace_notify),
                        NULL);
        gtk_menu_append(GTK_MENU(menu), temp_item);
        gtk_widget_set_sensitive(temp_item, !gpips_close_workspace_menu_inactive);
 
        delete_menu_item = gtk_menu_item_new_with_label("Delete Workspace");
        g_signal_connect(G_OBJECT(delete_menu_item), "activate",
                        G_CALLBACK(start_delete_workspace_notify), NULL);
        gtk_menu_append(GTK_MENU(menu), delete_menu_item);
        gtk_widget_set_sensitive(delete_menu_item,
                        !gpips_delete_workspace_menu_inactive);
 
        /* Now complete with the list of the workspaces: */
        if (workspace_list_length == 0) {
                temp_item = gtk_menu_item_new_with_label(
                                "* No workspace available in this directory *");
                gtk_menu_append(GTK_MENU(menu), temp_item);
                gtk_widget_set_sensitive(temp_item, FALSE);
                /* Well, since there is no workspace, there is nothing to
                 delete... */
                gtk_widget_set_sensitive(delete_menu_item, FALSE);
        } else {
                gtk_menu_append(GTK_MENU(menu), gtk_separator_menu_item_new());
                for (i = 0; i < workspace_list_length; i++) {
                        string name = gen_array_item(workspace_list, i);
                        temp_item = gtk_menu_item_new_with_label(name);
                        gtk_menu_append(GTK_MENU(menu), temp_item);
                        g_signal_connect(G_OBJECT(temp_item), "activate",
                                        G_CALLBACK(select_workspace_notify), NULL);
                        gtk_widget_set_sensitive(temp_item,
                                        !gpips_open_workspace_menu_inactive);
                }
        }
 
        gen_array_full_free(workspace_list);
 
        gtk_widget_show_all(menu);
 
        return menu;
}

References close_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), gpips_close_workspace_menu_inactive, gpips_create_workspace_menu_inactive, gpips_delete_workspace_menu_inactive, gpips_open_workspace_menu_inactive, pips_get_workspace_list(), select_workspace_notify(), start_create_workspace_notify(), and start_delete_workspace_notify().

Referenced by create_status_subwindow(), and regenerate_workspace_menu_callback().

Here is the call graph for this function:

Here is the caller graph for this function:

open_or_create_workspace()

void open_or_create_workspace

(

const char *

workspace_name_original

)

To be used with schoose_create_abbrev_menu_with_text from the main panel:

If close_workspace_notify() is called below, show_workspace() will set the name to "(* none *)" in the panel and workspace_name_original is directly a pointer to it !

Prompt the warning and restore the menu enable state:

There is an open workspace: close it first:

To choose between open or create, look for the an existing workspace with the same name:

OK, the workspace exists, open it:

The workspace does not exist, create it:

Definition at line 570 of file gtk_select.c.

                                                                    {
        int i;
        gen_array_t workspace_list;
        int workspace_list_length = 0;
        char workspace_name[SMALL_BUFFER_LENGTH];
 
        /* If close_workspace_notify() is called below, show_workspace() will
         set the name to "(* none *)" in the panel and
         workspace_name_original is directly a pointer to it ! */
        (void) strncpy(workspace_name, workspace_name_original,
                        sizeof(workspace_name) - 1);
 
        if (!workspace_name_p(workspace_name)) {
                /* Prompt the warning and restore the menu enable state: */
                user_prompt_not_a_valid_workspace_name(workspace_name);
                show_workspace();
                return;
        }
 
        if (db_get_current_workspace_name() != NULL)
                /* There is an open workspace: close it first: */
                if (!close_workspace_notify(NULL, NULL))
                        return;
 
        /* To choose between open or create, look for the an existing
         workspace with the same name: */
        workspace_list = gen_array_make(0);
        pips_get_workspace_list(workspace_list);
        workspace_list_length = gen_array_nitems(workspace_list);
 
        for (i = 0; i < workspace_list_length; i++) {
                string name = gen_array_item(workspace_list, i);
                if (strcmp(workspace_name, name) == 0) {
                        /* OK, the workspace exists, open it: */
                        end_open_workspace_notify(workspace_name);
                        return;
                }
        }
        /* The workspace does not exist, create it: */
        disable_change_directory();
        gen_array_full_free(workspace_list);
        (void) continue_create_workspace_notify(workspace_name);
}

References close_workspace_notify(), continue_create_workspace_notify(), db_get_current_workspace_name(), disable_change_directory(), end_open_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), pips_get_workspace_list(), show_workspace(), SMALL_BUFFER_LENGTH, user_prompt_not_a_valid_workspace_name(), and workspace_name_p().

Referenced by create_status_subwindow(), and open_or_create_workspace_callback().

Here is the call graph for this function:

Here is the caller graph for this function:

open_workspace_notify()

void open_workspace_notify	(	GtkWidget *	widget,
		gpointer	data
	)

There is only workspace: open it without asking confirmation to the user:

Choix initial sur le workspace courant si possible :

Definition at line 508 of file gtk_select.c.

                                                              {
        gen_array_t workspace_list;
        int workspace_list_length = 0;
 
        workspace_list = gen_array_make(0);
        pips_get_workspace_list(workspace_list);
        workspace_list_length = gen_array_nitems(workspace_list);
 
        if (workspace_list_length == 0) {
                prompt_user("No workspace available in this directory.");
        } else if (workspace_list_length == 1) {
                /* There is only workspace: open it without asking confirmation
                 to the user: */
                user_log("There is only one workspace in the current directory.\n"
                        "\tOpening the workspace \"%s\"...\n", gen_array_item(
                                workspace_list, 0));
                end_open_workspace_notify(gen_array_item(workspace_list, 0));
        } else {
                disable_workspace_create_or_open();
 
                schoose("Select Workspace", workspace_list,
                /* Choix initial sur le workspace courant si
                 possible : */
                db_get_current_workspace_name(), end_open_workspace_notify,
                                cancel_open_workspace_notify);
        }
        gen_array_full_free(workspace_list);
}

References cancel_open_workspace_notify(), db_get_current_workspace_name(), disable_workspace_create_or_open(), end_open_workspace_notify(), gen_array_full_free(), gen_array_item(), gen_array_make(), gen_array_nitems(), pips_get_workspace_list(), prompt_user(), schoose(), and user_log().

Referenced by create_select_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

prompt_user_not_allowed_to_change_directory()

void prompt_user_not_allowed_to_change_directory	(	GtkWidget *	widget,
		gpointer	data
	)

First untype whatever the user typed:

Definition at line 157 of file gtk_select.c.

                               {
        /* First untype whatever the user typed: */
        show_directory();
        prompt_user("You have to close the current workspace"
                " before changing directory.");
}

References prompt_user(), and show_directory().

Referenced by disable_change_directory(), and start_directory_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

restore_enable_change_directory_state()

static void restore_enable_change_directory_state ( )

static

Definition at line 199 of file gtk_select.c.

                                                    {
        if (gpips_change_directory_inactive_old)
                disable_change_directory();
        else
                enable_change_directory();
}

References disable_change_directory(), enable_change_directory(), and gpips_change_directory_inactive_old.

Referenced by cancel_delete_workspace_notify(), and end_delete_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

restore_enable_workspace_close_state()

void restore_enable_workspace_close_state

(

)

Definition at line 248 of file gtk_select.c.

                                            {
        gpips_close_workspace_menu_inactive
                        = gpips_close_workspace_menu_inactive_old;
}

References gpips_close_workspace_menu_inactive, and gpips_close_workspace_menu_inactive_old.

Referenced by cancel_delete_workspace_notify(), and end_delete_workspace_notify().

Here is the caller graph for this function:

select_a_module_by_default()

void select_a_module_by_default

(

)

Try to select a main module (that is the PROGRAM in the Fortran stuff) if no one is selected:

Ok, no current module, then find a main module (PROGRAM):

Ok, we got it ! Now we select it:

GO: show_module() has already been called so return now

Refresh the module name on the status window:

Definition at line 83 of file gtk_select.c.

                                  {
        char *module_name = db_get_current_module_name();
 
        if (module_name == NULL) {
                /* Ok, no current module, then find a main module (PROGRAM): */
                string main_module_name = get_first_main_module();
 
                if (!string_undefined_p(main_module_name)) {
                        /* Ok, we got it ! Now we select it: */
                        module_name = main_module_name;
                        user_log("Main module PROGRAM \"%s\" found.\n", module_name);
                        end_select_module_callback(module_name);
                        /* GO: show_module() has already been called so return now */
                        return;
                }
        }
        /* Refresh the module name on the status window: */
        show_module();
}

References db_get_current_module_name(), end_select_module_callback(), get_first_main_module(), module_name(), show_module(), string_undefined_p, and user_log().

Referenced by end_create_workspace_notify(), and end_open_workspace_notify().

Here is the call graph for this function:

Here is the caller graph for this function:

select_module_from_menubar_callback()

void select_module_from_menubar_callback	(	GtkWidget *	widget,
		gpointer	data
	)

If there is no module... RK, 23/1/1993.

Affiche comme choix courant le module courant (c'est utile si on ferme la fenï¿œtre module entre temps) :

Definition at line 723 of file gtk_select.c.

                                                                            {
        gen_array_t module_list = db_get_module_list();
        int module_list_length = gen_array_nitems(module_list);
 
        if (module_list_length == 0) {
                /* If there is no module... RK, 23/1/1993. */
                prompt_user("No module available in this workspace.");
        } else
                schoose("Select Module", module_list,
                /* Affiche comme choix courant le module
                 courant (c'est utile si on ferme la fenï¿œtre
                 module entre temps) : */
                db_get_current_module_name(), end_select_module_callback,
                                cancel_select_module_notify);
 
        gen_array_full_free(module_list);
}

References cancel_select_module_notify(), db_get_current_module_name(), db_get_module_list(), end_select_module_callback(), gen_array_full_free(), gen_array_nitems(), prompt_user(), and schoose().

Referenced by create_select_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

select_module_from_status_menu_callback()

static void select_module_from_status_menu_callback ( GtkWidget *  widget, gpointer data   __attribute__(unused)  )

static

Definition at line 741 of file gtk_select.c.

{
        const char * module_name = gpips_gtk_menu_item_get_label(widget);
        gtk_entry_set_text(GTK_ENTRY(module_name_entry), module_name);
        end_select_module_callback(module_name);
}

References end_select_module_callback(), gpips_gtk_menu_item_get_label(), module_name(), and module_name_entry.

Referenced by generate_module_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

select_workspace_notify()

void select_workspace_notify	(	GtkWidget *	w,
		gpointer data	__attribute__(unused)
	)

Definition at line 618 of file gtk_select.c.

                                                                                   {
        gtk_entry_set_text(GTK_ENTRY(workspace_name_entry),
                        gpips_gtk_menu_item_get_label(w));
        g_signal_emit_by_name(workspace_name_entry, "activate");
}

References gpips_gtk_menu_item_get_label(), and workspace_name_entry.

Referenced by generate_workspace_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

start_create_workspace_notify()

void start_create_workspace_notify	(	GtkWidget *	widget,
		gpointer	data
	)

There is an open workspace: close it first:

If it fails:

Pas la peine de faire quelque chose si on appuie sur cancel :

Definition at line 337 of file gtk_select.c.

                                                                      {
        disable_workspace_delete_or_open();
        disable_workspace_create_or_open();
        disable_change_directory();
 
        if (db_get_current_workspace_name() != NULL)
                /* There is an open workspace: close it first: */
                if (!close_workspace_notify(NULL, NULL)) {
                        /* If it fails: */
                        cancel_create_workspace_notify(NULL, NULL);
                        return;
                }
 
        start_query("Create Workspace", "Enter workspace name: ",
                        "CreateWorkspace", continue_create_workspace_notify,
                        /* Pas la peine de faire quelque chose si on appuie
                         sur cancel : */
                        cancel_create_workspace_notify);
}

References cancel_create_workspace_notify(), close_workspace_notify(), continue_create_workspace_notify(), db_get_current_workspace_name(), disable_change_directory(), disable_workspace_create_or_open(), disable_workspace_delete_or_open(), and start_query().

Referenced by create_select_menu(), and generate_workspace_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

start_delete_workspace_notify()

void start_delete_workspace_notify	(	GtkWidget *	widget,
		gpointer	data
	)

current workspace as default choice :

Definition at line 313 of file gtk_select.c.

                                                                      {
        gen_array_t workspace_list;
        int workspace_list_length = 0;
 
        workspace_list = gen_array_make(0);
        pips_get_workspace_list(workspace_list);
        workspace_list_length = gen_array_nitems(workspace_list);
 
        if (workspace_list_length == 0) {
                prompt_user("No workspace available in this directory.");
        } else {
                disable_workspace_delete_or_open();
                disable_workspace_create_or_open();
                disable_workspace_close();
                disable_change_directory();
 
                schoose("Select the Workspace to Delete", workspace_list,
                /* current workspace as default choice : */
                db_get_current_workspace_name(), end_delete_workspace_notify,
                                cancel_delete_workspace_notify);
        }
        gen_array_full_free(workspace_list);
}

References cancel_delete_workspace_notify(), db_get_current_workspace_name(), disable_change_directory(), disable_workspace_close(), disable_workspace_create_or_open(), disable_workspace_delete_or_open(), end_delete_workspace_notify(), gen_array_full_free(), gen_array_make(), gen_array_nitems(), pips_get_workspace_list(), prompt_user(), and schoose().

Referenced by generate_workspace_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

start_directory_notify()

void start_directory_notify	(	GtkWidget *	widget,
		gpointer	data
	)

Definition at line 165 of file gtk_select.c.

                                                               {
        if (db_get_current_workspace_name())
                prompt_user_not_allowed_to_change_directory(NULL, NULL);
        else
                start_query("Change Directory", "Enter directory path: ",
                                "ChangeDirectory", end_directory_notify, cancel_query_notify);
}

References cancel_query_notify(), db_get_current_workspace_name(), end_directory_notify(), prompt_user_not_allowed_to_change_directory(), and start_query().

Referenced by create_select_menu().

Here is the call graph for this function:

Here is the caller graph for this function:

user_prompt_not_a_valid_workspace_name()

void user_prompt_not_a_valid_workspace_name

(

const char *

workspace_name

)

Definition at line 432 of file gtk_select.c.

                                                                         {
        prompt_user("The name \"%s\" is not a valid workspace name!\n",
                        workspace_name);
        enable_workspace_create_or_open();
        disable_workspace_close();
        enable_change_directory();
}

References disable_workspace_close(), enable_change_directory(), enable_workspace_create_or_open(), and prompt_user().

Referenced by continue_create_workspace_notify(), end_create_workspace_notify(), and open_or_create_workspace().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

close_menu_item

GtkWidget * close_menu_item

static

Definition at line 68 of file gtk_select.c.

Referenced by create_select_menu(), disable_workspace_close(), and enable_workspace_close().

create_menu_item

GtkWidget* create_menu_item

static

Definition at line 68 of file gtk_select.c.

Referenced by create_select_menu(), disable_workspace_create_or_open(), and enable_workspace_create_or_open().

directory_menu_item

GtkWidget* directory_menu_item

Definition at line 66 of file gtk_select.c.

Referenced by create_select_menu(), disable_change_directory(), and enable_change_directory().

gpips_change_directory_inactive

bool gpips_change_directory_inactive

Definition at line 78 of file gtk_select.c.

Referenced by direct_change_directory(), disable_change_directory(), and enable_change_directory().

gpips_change_directory_inactive_old

bool gpips_change_directory_inactive_old

Definition at line 79 of file gtk_select.c.

Referenced by disable_change_directory(), enable_change_directory(), and restore_enable_change_directory_state().

gpips_close_workspace_menu_inactive

bool gpips_close_workspace_menu_inactive

To enable or disable the menu items generated by generate_module_menu():

Definition at line 74 of file gtk_select.c.

Referenced by disable_workspace_close(), enable_workspace_close(), generate_workspace_menu(), and restore_enable_workspace_close_state().

gpips_close_workspace_menu_inactive_old

bool gpips_close_workspace_menu_inactive_old

Definition at line 75 of file gtk_select.c.

Referenced by disable_workspace_close(), and restore_enable_workspace_close_state().

gpips_create_workspace_menu_inactive

bool gpips_create_workspace_menu_inactive

Definition at line 76 of file gtk_select.c.

Referenced by disable_workspace_create_or_open(), enable_workspace_create_or_open(), and generate_workspace_menu().

gpips_delete_workspace_menu_inactive

bool gpips_delete_workspace_menu_inactive

Definition at line 78 of file gtk_select.c.

Referenced by disable_workspace_delete_or_open(), enable_workspace_delete_or_open(), and generate_workspace_menu().

gpips_open_workspace_menu_inactive

bool gpips_open_workspace_menu_inactive

Definition at line 77 of file gtk_select.c.

Referenced by disable_workspace_delete_or_open(), enable_workspace_delete_or_open(), and generate_workspace_menu().

module_menu_item

GtkWidget * module_menu_item

static

Definition at line 69 of file gtk_select.c.

Referenced by create_select_menu(), disable_module_selection(), enable_module_selection(), and generate_module_menu().

open_menu_item

GtkWidget * open_menu_item

static

Definition at line 68 of file gtk_select.c.

Referenced by create_select_menu(), disable_workspace_create_or_open(), and enable_workspace_create_or_open().