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       g_string_append (string, "\n\tBY");
  55       for (ok = psppire_var_view_get_iter_first (vv, &iter);
  56            ok;
  57            ok = psppire_var_view_get_iter_next (vv, &iter))
  58           {
  59             const struct variable *var = psppire_var_view_get_variable (vv, 0, &iter);
  60             g_string_append (string, " ");
  61             g_string_append (string, var_get_name (var));
  62           }
  63     }
  64
  65   g_string_append (string, ".");
  66   text = string->str;
  67
  68   g_string_free (string, FALSE);
  69
  70   return text;
  71 }
  72
  73 static gboolean
  74 dialog_state_valid (PsppireDialogAction *da)
  75 {
  76   PsppireDialogActionMeans *pdm  = PSPPIRE_DIALOG_ACTION_MEANS (da);
  77   GtkTreeIter notused;
  78   GtkTreeModel *vars =
  79     gtk_tree_view_get_model (GTK_TREE_VIEW (pdm->variables));
  80
  81   return gtk_tree_model_get_iter_first (vars, &notused);
  82 }
  83
  84 static void
  85 dialog_refresh (PsppireDialogAction *da)
  86 {
  87   PsppireDialogActionMeans *pdm  = PSPPIRE_DIALOG_ACTION_MEANS (da);
  88   GtkTreeModel *liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (pdm->variables));
  89
  90   gtk_list_store_clear (GTK_LIST_STORE (liststore));
  91
  92   psppire_means_layer_clear (PSPPIRE_MEANS_LAYER (pdm->layer));
  93 }
  94
  95 static void
  96 psppire_dialog_action_means_activate (GtkAction *a)
  97 {
  98   PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
  99   PsppireDialogActionMeans *act = PSPPIRE_DIALOG_ACTION_MEANS (a);
 100
 101   GtkBuilder *xml = builder_new ("means.ui");
 102
 103   GtkWidget *vb =   get_widget_assert   (xml, "alignment3");
 104   act->layer = psppire_means_layer_new ();
 105   gtk_container_add (GTK_CONTAINER (vb), act->layer);
 106   gtk_widget_show (act->layer);
 107
 108   pda->dialog = get_widget_assert   (xml, "means-dialog");
 109   pda->source = get_widget_assert   (xml, "all-variables");
 110   act->variables = get_widget_assert   (xml, "stat-variables");
 111
 112   g_object_set (pda->source,
 113                 "model", pda->dict,
 114                 "predicate", var_is_numeric,
 115                 NULL);
 116
 117   psppire_means_layer_set_source (PSPPIRE_MEANS_LAYER (act->layer), pda->source);
 118
 119   psppire_dialog_action_set_valid_predicate (pda, (void *) dialog_state_valid);
 120   psppire_dialog_action_set_refresh (pda, dialog_refresh);
 121
 122   PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_means_parent_class)->activate (pda);
 123 }
 124
 125 static void
 126 psppire_dialog_action_means_class_init (PsppireDialogActionMeansClass *class)
 127 {
 128   GTK_ACTION_CLASS (class)->activate = psppire_dialog_action_means_activate;
 129
 130   PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
 131 }
 132
 133 static void
 134 psppire_dialog_action_means_init (PsppireDialogActionMeans *act)
 135 {
 136 }