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

   1 /* PSPPIRE - a graphical user interface for PSPP.
   2    Copyright (C) 2007, 2009, 2010, 2011, 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-indep-samps.h"
  21 #include "psppire-value-entry.h"
  22
  23 #include "dialog-common.h"
  24 #include <ui/syntax-gen.h>
  25 #include "psppire-var-view.h"
  26
  27 #include "t-test-options.h"
  28
  29 #include "psppire-dialog.h"
  30 #include "builder-wrapper.h"
  31
  32 #include "psppire-dict.h"
  33 #include "libpspp/str.h"
  34
  35 static void
  36 psppire_dialog_action_indep_samps_class_init (PsppireDialogActionIndepSampsClass *class);
  37
  38 G_DEFINE_TYPE (PsppireDialogActionIndepSamps, psppire_dialog_action_indep_samps, PSPPIRE_TYPE_DIALOG_ACTION);
  39
  40 static gboolean
  41 dialog_state_valid (gpointer data)
  42 {
  43   PsppireDialogActionIndepSamps *act = PSPPIRE_DIALOG_ACTION_INDEP_SAMPS (data);
  44
  45   GtkTreeModel *vars = gtk_tree_view_get_model (GTK_TREE_VIEW (act->test_vars_tv));
  46
  47   GtkTreeIter notused;
  48
  49   if (NULL == act->grp_var)
  50     return FALSE;
  51
  52   if ( 0 == gtk_tree_model_get_iter_first (vars, &notused))
  53     return FALSE;
  54
  55   if ( act->group_defn == GROUPS_UNDEF)
  56     return FALSE;
  57
  58   return TRUE;
  59 }
  60
  61
  62 static void
  63 refresh (PsppireDialogAction *da)
  64 {
  65   PsppireDialogActionIndepSamps *act = PSPPIRE_DIALOG_ACTION_INDEP_SAMPS (da);
  66
  67   GtkTreeModel *model = gtk_tree_view_get_model (GTK_TREE_VIEW (act->test_vars_tv));
  68
  69   act->group_defn = GROUPS_UNDEF;
  70
  71   if (act->grp_var)
  72     {
  73       int width = var_get_width (act->grp_var);
  74       value_destroy (&act->cut_point, width);
  75       value_destroy (&act->grp_val[0], width);
  76       value_destroy (&act->grp_val[1], width);
  77       act->grp_var = NULL;
  78     }
  79
  80   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[0]), NULL);
  81   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[1]), NULL);
  82   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (act->dg_cut_point_entry), NULL);
  83
  84   gtk_entry_set_text (GTK_ENTRY (act->group_var_entry), "");
  85
  86   gtk_list_store_clear (GTK_LIST_STORE (model));
  87
  88   gtk_widget_set_sensitive (act->define_groups_button, FALSE);
  89 }
  90
  91 /* Return TRUE if VE contains a text which is not valid for VAR or if it
  92    contains the SYSMIS value */
  93 static gboolean
  94 value_entry_contains_invalid (PsppireValueEntry *ve, const struct variable *var)
  95 {
  96   gboolean result = FALSE;
  97
  98   if (var)
  99     {
 100       union value val;
 101       const int width = var_get_width (var);
 102       value_init (&val, width);
 103
 104       if ( psppire_value_entry_get_value (ve, &val, width))
 105         {
 106           if (var_is_value_missing (var, &val, MV_SYSTEM))
 107             {
 108               result = TRUE;
 109             }
 110         }
 111       else
 112         result = TRUE;
 113
 114       value_destroy (&val, width);
 115     }
 116
 117   return result;
 118 }
 119
 120 /* Returns TRUE iff the define groups subdialog has a
 121    state which defines a valid group criterion */
 122 static gboolean
 123 define_groups_state_valid (gpointer data)
 124 {
 125   PsppireDialogActionIndepSamps *act = data;
 126
 127   if (gtk_toggle_button_get_active
 128       (GTK_TOGGLE_BUTTON (act->dg_values_toggle_button)))
 129     {
 130       if (value_entry_contains_invalid (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[0]),
 131                                         act->grp_var))
 132         return FALSE;
 133
 134       if (value_entry_contains_invalid (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[1]),
 135                                         act->grp_var))
 136         return FALSE;
 137     }
 138   else
 139     {
 140       if (value_entry_contains_invalid (PSPPIRE_VALUE_ENTRY (act->dg_cut_point_entry),
 141                                         act->grp_var))
 142         return FALSE;
 143     }
 144
 145   return TRUE;
 146 }
 147
 148
 149 static void
 150 run_define_groups (PsppireDialogActionIndepSamps *act)
 151 {
 152   gint response;
 153   PsppireDialogAction *da = PSPPIRE_DIALOG_ACTION (act);
 154   GtkWidget *parent1 = gtk_widget_get_parent (act->dg_table1);
 155   GtkWidget *parent2 = gtk_widget_get_parent (act->dg_table2);
 156
 157   if (parent1)
 158     gtk_container_remove (GTK_CONTAINER (parent1), act->dg_table1);
 159
 160   if (parent2)
 161     gtk_container_remove (GTK_CONTAINER (parent2), act->dg_table2);
 162
 163   if ( var_is_numeric (act->grp_var))
 164     {
 165       gtk_grid_attach (GTK_GRID (act->dg_table1), act->dg_table2,
 166                        1, 1, 1, 1);
 167
 168       gtk_container_add (GTK_CONTAINER (act->dg_box), act->dg_table1);
 169     }
 170   else
 171     {
 172       gtk_container_add (GTK_CONTAINER (act->dg_box), act->dg_table2);
 173       act->group_defn = GROUPS_VALUES;
 174     }
 175
 176
 177   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (act->dg_dialog),
 178                                       define_groups_state_valid, act);
 179
 180   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[0]), act->grp_var);
 181   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[1]), act->grp_var);
 182   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (act->dg_cut_point_entry), act->grp_var);
 183
 184   if ( act->group_defn != GROUPS_CUT_POINT )
 185     {
 186       gtk_toggle_button_set_active
 187         (GTK_TOGGLE_BUTTON (act->dg_cut_point_toggle_button), TRUE);
 188
 189       gtk_toggle_button_set_active
 190         (GTK_TOGGLE_BUTTON (act->dg_values_toggle_button), TRUE);
 191     }
 192   else
 193     {
 194       gtk_toggle_button_set_active
 195         (GTK_TOGGLE_BUTTON (act->dg_values_toggle_button), TRUE);
 196
 197       gtk_toggle_button_set_active
 198         (GTK_TOGGLE_BUTTON (act->dg_cut_point_toggle_button), TRUE);
 199     }
 200
 201   g_signal_emit_by_name (act->dg_grp_entry[0], "changed");
 202   g_signal_emit_by_name (act->dg_grp_entry[1], "changed");
 203   g_signal_emit_by_name (act->dg_cut_point_entry, "changed");
 204
 205   response = psppire_dialog_run (PSPPIRE_DIALOG (act->def_grps_dialog));
 206
 207   if (response == PSPPIRE_RESPONSE_CONTINUE)
 208     {
 209       const int width = var_get_width (act->grp_var);
 210
 211       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (act->dg_values_toggle_button)))
 212         {
 213           act->group_defn = GROUPS_VALUES;
 214
 215           psppire_value_entry_get_value (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[0]),
 216                                          &act->grp_val[0], width);
 217
 218           psppire_value_entry_get_value (PSPPIRE_VALUE_ENTRY (act->dg_grp_entry[1]),
 219                                          &act->grp_val[1], width);
 220         }
 221       else
 222         {
 223           act->group_defn = GROUPS_CUT_POINT;
 224
 225           psppire_value_entry_get_value (PSPPIRE_VALUE_ENTRY (act->dg_cut_point_entry),
 226                                          &act->cut_point, width);
 227         }
 228
 229       psppire_dialog_notify_change (PSPPIRE_DIALOG (da->dialog));
 230     }
 231 }
 232
 233 /* Called whenever the group variable entry widget's contents change */
 234 static void
 235 on_grp_var_change (GtkEntry *entry, PsppireDialogActionIndepSamps *act)
 236 {
 237   PsppireDialogAction *da = PSPPIRE_DIALOG_ACTION (act);
 238   const gchar *text = gtk_entry_get_text (entry);
 239
 240   const struct variable *v = psppire_dict_lookup_var (da->dict, text);
 241
 242   gtk_widget_set_sensitive (act->define_groups_button, v != NULL);
 243
 244   if (act->grp_var)
 245     {
 246       int width = var_get_width (act->grp_var);
 247       value_destroy (&act->cut_point, width);
 248       value_destroy (&act->grp_val[0], width);
 249       value_destroy (&act->grp_val[1], width);
 250     }
 251
 252   if (v)
 253     {
 254       const int width = var_get_width (v);
 255       value_init (&act->cut_point, width);
 256       value_init (&act->grp_val[0], width);
 257       value_init (&act->grp_val[1], width);
 258
 259       if (width == 0)
 260         {
 261           act->cut_point.f  = SYSMIS;
 262           act->grp_val[0].f = SYSMIS;
 263           act->grp_val[1].f = SYSMIS;
 264         }
 265       else
 266         {
 267           act->cut_point.short_string[0] = '\0';
 268           act->grp_val[0].short_string[0] = '\0';
 269           act->grp_val[1].short_string[0] = '\0';
 270         }
 271     }
 272
 273   act->grp_var = v;
 274 }
 275
 276 static void
 277 set_group_criterion_type (GtkToggleButton *button,
 278                           PsppireDialogActionIndepSamps *act)
 279 {
 280   gboolean by_values = gtk_toggle_button_get_active (button);
 281
 282   gtk_widget_set_sensitive (act->dg_label, by_values);
 283   gtk_widget_set_sensitive (act->dg_table2, by_values);
 284
 285   gtk_widget_set_sensitive (act->dg_hbox1, !by_values);
 286 }
 287
 288
 289 static void
 290 psppire_dialog_action_indep_samps_activate (GtkAction *a)
 291 {
 292   PsppireDialogActionIndepSamps *act = PSPPIRE_DIALOG_ACTION_INDEP_SAMPS (a);
 293   PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
 294
 295   GHashTable *thing = psppire_dialog_action_get_hash_table (pda);
 296   GtkBuilder *xml = g_hash_table_lookup (thing, a);
 297   if (!xml)
 298     {
 299       xml = builder_new ("indep-samples.ui");
 300       g_hash_table_insert (thing, a, xml);
 301     }
 302
 303   pda->dialog = get_widget_assert (xml,"independent-samples-dialog");
 304   pda->source = get_widget_assert (xml, "indep-samples-treeview1");
 305   act->define_groups_button = get_widget_assert (xml, "define-groups-button");
 306   act->options_button = get_widget_assert (xml, "indep-samples-options-button");
 307
 308   act->def_grps_dialog = get_widget_assert (xml, "define-groups-dialog");
 309   act->group_var_entry = get_widget_assert (xml, "indep-samples-entry");
 310   act->test_vars_tv = get_widget_assert (xml, "indep-samples-treeview2");
 311
 312   act->dg_dialog = get_widget_assert (xml, "define-groups-dialog");
 313   act->dg_grp_entry[0] = get_widget_assert (xml, "group1-entry");
 314   act->dg_grp_entry[1] = get_widget_assert (xml, "group2-entry");
 315   act->dg_cut_point_entry = get_widget_assert (xml, "cut-point-entry");
 316   act->dg_box = get_widget_assert (xml, "dialog-hbox2");
 317
 318   act->dg_table1 = get_widget_assert (xml, "table1");
 319   act->dg_table2 = get_widget_assert (xml, "table2");
 320   act->dg_label  = get_widget_assert (xml, "label4");
 321   act->dg_hbox1  = get_widget_assert (xml, "hbox1");
 322   act->dg_values_toggle_button = get_widget_assert (xml, "radiobutton3");
 323   act->dg_cut_point_toggle_button = get_widget_assert (xml, "radiobutton4");
 324
 325   act->opts = tt_options_dialog_create (GTK_WINDOW (pda->toplevel));
 326
 327   g_object_ref (act->dg_table1);
 328   g_object_ref (act->dg_table2);
 329
 330   g_signal_connect (act->dg_values_toggle_button, "toggled",
 331                     G_CALLBACK (set_group_criterion_type), act);
 332
 333   psppire_dialog_action_set_refresh (pda, refresh);
 334
 335   psppire_dialog_action_set_valid_predicate (pda,
 336                                         dialog_state_valid);
 337
 338   g_signal_connect_swapped (act->define_groups_button, "clicked",
 339                             G_CALLBACK (run_define_groups), act);
 340
 341   g_signal_connect_swapped (act->options_button, "clicked",
 342                             G_CALLBACK (tt_options_dialog_run), act->opts);
 343
 344
 345   g_signal_connect (act->group_var_entry, "changed",
 346                     G_CALLBACK (on_grp_var_change), act);
 347
 348   if (PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_indep_samps_parent_class)->activate)
 349     PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_indep_samps_parent_class)->activate (pda);
 350 }
 351
 352
 353
 354 static char *
 355 generate_syntax (PsppireDialogAction *a)
 356 {
 357   PsppireDialogActionIndepSamps *act = PSPPIRE_DIALOG_ACTION_INDEP_SAMPS (a);
 358   gchar *text;
 359
 360   GString *str = g_string_new ("T-TEST /VARIABLES=");
 361
 362   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (act->test_vars_tv), 0, str);
 363
 364   g_string_append (str, "\n\t/GROUPS=");
 365
 366   g_string_append (str, var_get_name (act->grp_var));
 367
 368   if (act->group_defn != GROUPS_UNDEF)
 369     {
 370       g_string_append (str, "(");
 371
 372       {
 373         const union value *val =
 374           (act->group_defn == GROUPS_VALUES) ?
 375           &act->grp_val[0] :
 376           &act->cut_point;
 377
 378         struct string strx;
 379         ds_init_empty (&strx);
 380         syntax_gen_value (&strx, val, var_get_width (act->grp_var),
 381                           var_get_print_format (act->grp_var));
 382
 383         g_string_append (str, ds_cstr (&strx));
 384         ds_destroy (&strx);
 385       }
 386
 387       if (act->group_defn == GROUPS_VALUES)
 388         {
 389           g_string_append (str, ",");
 390
 391           {
 392             struct string strx;
 393             ds_init_empty (&strx);
 394
 395             syntax_gen_value (&strx, &act->grp_val[1], var_get_width (act->grp_var),
 396                               var_get_print_format (act->grp_var));
 397
 398             g_string_append (str, ds_cstr (&strx));
 399             ds_destroy (&strx);
 400           }
 401         }
 402
 403       g_string_append (str, ")");
 404     }
 405
 406   tt_options_dialog_append_syntax (act->opts, str);
 407
 408   g_string_append (str, ".\n");
 409
 410   text = str->str;
 411
 412   g_string_free (str, FALSE);
 413
 414   return text;
 415 }
 416
 417 static void
 418 psppire_dialog_action_indep_samps_class_init (PsppireDialogActionIndepSampsClass *class)
 419 {
 420   psppire_dialog_action_set_activation (class, psppire_dialog_action_indep_samps_activate);
 421
 422   PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
 423 }
 424
 425
 426 static void
 427 psppire_dialog_action_indep_samps_init (PsppireDialogActionIndepSamps *act)
 428 {
 429   act->grp_var = NULL;
 430   act->group_defn = GROUPS_UNDEF;
 431 }
 432