X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fdescriptives-dialog.c;h=9d8502de058b34b2cfa301338978ccc69267f4e2;hb=fd0c595927a23ea0373551a1eed4570388ea0fc5;hp=4697c9fdfa073308f08fc1ef823519537f90af97;hpb=c86f5b8a45cca158b46a4fe3b48280e88ce9aba1;p=pspp-builds.git diff --git a/src/ui/gui/descriptives-dialog.c b/src/ui/gui/descriptives-dialog.c index 4697c9fd..9d8502de 100644 --- a/src/ui/gui/descriptives-dialog.c +++ b/src/ui/gui/descriptives-dialog.c @@ -18,19 +18,19 @@ #include "checkbox-treeview.h" #include "descriptives-dialog.h" +#include "psppire-var-view.h" #include -#include #include #include -#include +#include #include #include #include #include #include -#include +#include "executor.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -118,7 +118,7 @@ generate_syntax (const struct descriptives_dialog *scd) string = g_string_new ("DESCRIPTIVES"); g_string_append (string, "\n /VARIABLES="); - append_variable_names (string, scd->dict, GTK_TREE_VIEW (scd->stat_vars)); + psppire_var_view_append_names (PSPPIRE_VAR_VIEW (scd->stat_vars), 0, string); listwise = gtk_toggle_button_get_active (scd->exclude_missing_listwise); include = gtk_toggle_button_get_active (scd->include_user_missing); @@ -203,39 +203,31 @@ void descriptives_dialog (GObject *o, gpointer data) { gint response; - struct data_editor *de = data; + PsppireDataWindow *de = PSPPIRE_DATA_WINDOW (data); struct descriptives_dialog scd; - GladeXML *xml = XML_NEW ("descriptives-dialog.glade"); + GtkBuilder *xml = builder_new ("descriptives.ui"); GtkWidget *dialog = get_widget_assert (xml, "descriptives-dialog"); GtkWidget *source = get_widget_assert (xml, "all-variables"); - GtkWidget *selector = get_widget_assert (xml, "stat-var-selector"); GtkWidget *dest = get_widget_assert (xml, "stat-variables"); GtkWidget *stats_treeview = get_widget_assert (xml, "statistics"); - GtkSheet *var_sheet = - GTK_SHEET (get_widget_assert (de->xml, "variable_sheet")); - - PsppireVarStore *vs = PSPPIRE_VAR_STORE (gtk_sheet_get_model (var_sheet)); + PsppireVarStore *vs = NULL; + PsppireDict *dict; - gtk_window_set_transient_for (GTK_WINDOW (dialog), de->parent.window); + g_object_get (de->data_editor, "var-store", &vs, NULL); + g_object_get (vs, "dictionary", &dict, NULL); - attach_dictionary_to_treeview (GTK_TREE_VIEW (source), - vs->dict, - GTK_SELECTION_MULTIPLE, var_is_numeric); + gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (de)); - set_dest_model (GTK_TREE_VIEW (dest), vs->dict); - psppire_selector_set_subjects (PSPPIRE_SELECTOR (selector), - source, - dest, - insert_source_row_into_tree_view, - NULL); + g_object_set (source, "model", dict, + "predicate", var_is_numeric, NULL); put_checkbox_items_in_treeview (GTK_TREE_VIEW (stats_treeview), B_DS_DEFAULT, @@ -243,7 +235,9 @@ descriptives_dialog (GObject *o, gpointer data) scd.stat_vars = GTK_TREE_VIEW (dest); scd.stats = gtk_tree_view_get_model (GTK_TREE_VIEW (stats_treeview)); - scd.dict = vs->dict; + + g_object_get (vs, "dictionary", &scd.dict, NULL); + scd.include_user_missing = GTK_TOGGLE_BUTTON (get_widget_assert (xml, "include_user_missing")); scd.exclude_missing_listwise = @@ -264,6 +258,7 @@ descriptives_dialog (GObject *o, gpointer data) case GTK_RESPONSE_OK: { gchar *syntax = generate_syntax (&scd); + struct getl_interface *sss = create_syntax_string_source (syntax); execute_syntax (sss); @@ -273,12 +268,7 @@ descriptives_dialog (GObject *o, gpointer data) case PSPPIRE_RESPONSE_PASTE: { gchar *syntax = generate_syntax (&scd); - - struct syntax_editor *se = - (struct syntax_editor *) window_create (WINDOW_SYNTAX, NULL); - - gtk_text_buffer_insert_at_cursor (se->buffer, syntax, -1); - + paste_syntax_in_new_window (syntax); g_free (syntax); } break;