pintos-os.org Git - pspp/blob - src/ui/gui/psppire-dialog-action-means.c

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2012  Free Software Foundation
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  16
  17
  18 #include <config.h>
  19
  20 #include "psppire-dialog-action-means.h"
  21
  22 #include "psppire-means-layer.h"
  23
  24 #include "psppire-var-view.h"
  25 #include "psppire-dict.h"
  26 #include "psppire-dialog.h"
  27 #include "builder-wrapper.h"
  28
  29 #include "gettext.h"
  30 #define _(msgid) gettext (msgid)
  31 #define N_(msgid) msgid
  32
  33 static void psppire_dialog_action_means_class_init      (PsppireDialogActionMeansClass *class);
  34
  35 G_DEFINE_TYPE (PsppireDialogActionMeans, psppire_dialog_action_means, PSPPIRE_TYPE_DIALOG_ACTION);
  36
  37
  38 static char *
  39 generate_syntax (PsppireDialogAction *act)
  40 {
  41   gint l;
  42   PsppireDialogActionMeans *scd = PSPPIRE_DIALOG_ACTION_MEANS (act);
  43   gchar *text;
  44   GString *string = g_string_new ("MEANS TABLES = ");
  45   PsppireMeansLayer *layer = PSPPIRE_MEANS_LAYER (scd->layer);
  46   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (scd->variables), 0, string);
  47
  48   for (l = 0; l < layer->n_layers; ++l)
  49     {
  50       gboolean ok;
  51       GtkTreeIter iter;
  52       PsppireVarView *vv = PSPPIRE_VAR_VIEW (layer->var_view);
  53       psppire_var_view_set_current_model (vv, l);
  54       ok = psppire_var_view_get_iter_first (vv, &iter);
  55       if (ok)
  56         g_string_append (string, "\n\tBY");
  57       for (;
  58            ok;
  59            ok = psppire_var_view_get_iter_next (vv, &iter))
  60           {
  61             const struct variable *var = psppire_var_view_get_variable (vv, 0, &iter);
  62             g_string_append (string, " ");
  63             g_string_append (string, var_get_name (var));
  64           }
  65     }
  66
  67   g_string_append (string, ".\n");
  68   text = string->str;
  69
  70   g_string_free (string, FALSE);
  71
  72   return text;
  73 }
  74
  75 static gboolean
  76 dialog_state_valid (PsppireDialogAction *da)
  77 {
  78   PsppireDialogActionMeans *pdm  = PSPPIRE_DIALOG_ACTION_MEANS (da);
  79   GtkTreeIter notused;
  80   GtkTreeModel *vars =
  81     gtk_tree_view_get_model (GTK_TREE_VIEW (pdm->variables));
  82
  83   return gtk_tree_model_get_iter_first (vars, &notused);
  84 }
  85
  86 static void
  87 dialog_refresh (PsppireDialogAction *da)
  88 {
  89   PsppireDialogActionMeans *pdm  = PSPPIRE_DIALOG_ACTION_MEANS (da);
  90   GtkTreeModel *liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (pdm->variables));
  91
  92   gtk_list_store_clear (GTK_LIST_STORE (liststore));
  93
  94   psppire_means_layer_clear (PSPPIRE_MEANS_LAYER (pdm->layer));
  95 }
  96
  97 static void
  98 psppire_dialog_action_means_activate (GtkAction *a)
  99 {
 100   PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
 101   PsppireDialogActionMeans *act = PSPPIRE_DIALOG_ACTION_MEANS (a);
 102
 103   GtkBuilder *xml = builder_new ("means.ui");
 104
 105   GtkWidget *vb =   get_widget_assert   (xml, "alignment3");
 106   act->layer = psppire_means_layer_new ();
 107   gtk_container_add (GTK_CONTAINER (vb), act->layer);
 108   gtk_widget_show (act->layer);
 109
 110   pda->dialog = get_widget_assert   (xml, "means-dialog");
 111   pda->source = get_widget_assert   (xml, "all-variables");
 112   act->variables = get_widget_assert   (xml, "stat-variables");
 113
 114   g_object_set (pda->source,
 115                 "predicate", var_is_numeric,
 116                 NULL);
 117
 118   psppire_means_layer_set_source (PSPPIRE_MEANS_LAYER (act->layer), pda->source);
 119
 120   psppire_dialog_action_set_valid_predicate (pda, (void *) dialog_state_valid);
 121   psppire_dialog_action_set_refresh (pda, dialog_refresh);
 122
 123   PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_means_parent_class)->activate (pda);
 124
 125   g_object_unref (xml);
 126 }
 127
 128 static void
 129 psppire_dialog_action_means_class_init (PsppireDialogActionMeansClass *class)
 130 {
 131   GTK_ACTION_CLASS (class)->activate = psppire_dialog_action_means_activate;
 132
 133   PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
 134 }
 135
 136 static void
 137 psppire_dialog_action_means_init (PsppireDialogActionMeans *act)
 138 {
 139 }