babd4b306aa65dab3ab14b8c9c81340b5b1f3686
[pspp] / src / ui / gui / psppire-dialog-action-roc.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-roc.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 "psppire-dialog.h"
28 #include "builder-wrapper.h"
29
30 #include "psppire-dict.h"
31 #include "libpspp/str.h"
32
33 static void
34 psppire_dialog_action_roc_class_init (PsppireDialogActionRocClass *class);
35
36 G_DEFINE_TYPE (PsppireDialogActionRoc, psppire_dialog_action_roc, PSPPIRE_TYPE_DIALOG_ACTION);
37
38 static gboolean
39 dialog_state_valid (gpointer data)
40 {
41   int width;
42   gboolean result ;
43   union value val;
44   PsppireDialogActionRoc *rd = data;
45   const gchar *var_name;
46   const struct variable *var;
47
48   GtkTreeModel *liststore =
49     gtk_tree_view_get_model (GTK_TREE_VIEW (rd->test_variables));
50
51   if  (gtk_tree_model_iter_n_children (liststore, NULL) < 1)
52     return FALSE;
53
54   var_name = gtk_entry_get_text (GTK_ENTRY (rd->state_variable));
55
56   var = psppire_dict_lookup_var (PSPPIRE_DIALOG_ACTION (rd)->dict, var_name);
57
58   if ( var == NULL)
59     return FALSE;
60
61   width = var_get_width (var);
62   value_init (&val, width);
63
64   result = psppire_value_entry_get_value (PSPPIRE_VALUE_ENTRY (rd->state_value), &val, width);
65   
66   if (var_is_value_missing (var, &val, MV_SYSTEM))
67       result = FALSE;
68   
69   value_destroy (&val, width);
70
71   return result;
72 }
73
74 static void
75 on_curve_button_toggle (GtkCheckButton *curve, PsppireDialogActionRoc *rd)
76 {
77   if ( !gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (curve)))
78     {
79       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->reference)))
80         g_object_set (rd->reference, "inconsistent", TRUE, NULL);
81       g_object_set (rd->reference, "sensitive", FALSE, NULL);
82     }
83   else 
84     {
85       g_object_set (rd->reference, "inconsistent", FALSE, NULL);
86       g_object_set (rd->reference, "sensitive", TRUE, NULL);
87     }
88 }
89
90 static void
91 refresh (PsppireDialogAction *rd_)
92 {
93   PsppireDialogActionRoc *rd = PSPPIRE_DIALOG_ACTION_ROC (rd_);
94   GtkTreeModel *liststore =
95     gtk_tree_view_get_model (GTK_TREE_VIEW (rd->test_variables));
96   gtk_list_store_clear (GTK_LIST_STORE (liststore));
97
98   gtk_entry_set_text (GTK_ENTRY (rd->state_variable), "");
99   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (rd->state_value), NULL);
100
101   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->curve),          TRUE);
102   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->reference),      FALSE);
103   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->standard_error), FALSE);
104   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->coordinates),    FALSE);
105 }
106
107 static void
108 on_state_var_changed (GtkAction *a)
109 {
110   PsppireDialogActionRoc *act = PSPPIRE_DIALOG_ACTION_ROC (a);
111   PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
112
113   const gchar *var_name = gtk_entry_get_text (GTK_ENTRY(act->state_variable));
114
115   const struct variable *var =
116     psppire_dict_lookup_var (PSPPIRE_DIALOG_ACTION(act)->dict, var_name);
117
118   if ( var == NULL)
119     return;
120
121   psppire_value_entry_set_variable (PSPPIRE_VALUE_ENTRY (act->state_value), var);
122 }
123
124 static void
125 psppire_dialog_action_roc_activate (GtkAction *a)
126 {
127   PsppireDialogActionRoc *act = PSPPIRE_DIALOG_ACTION_ROC (a);
128   PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
129
130   GtkBuilder *xml = builder_new ("roc.ui");
131   pda->dialog = get_widget_assert   (xml, "roc-dialog");
132   pda->source = get_widget_assert   (xml, "dict-view");
133
134   act->test_variables    = get_widget_assert   (xml, "psppire-var-view1");
135   act->state_variable    = get_widget_assert   (xml, "entry1");
136   act->state_value       = get_widget_assert   (xml, "entry2");
137
138   act->curve          = get_widget_assert   (xml, "curve");
139   act->reference      = get_widget_assert   (xml, "reference-line");
140   act->standard_error = get_widget_assert   (xml, "standard-error");
141   act->coordinates    = get_widget_assert   (xml, "co-ordinates");
142
143   g_signal_connect_swapped (act->state_variable, "changed",
144                             G_CALLBACK (on_state_var_changed), act);
145
146   g_object_unref (xml);
147
148   g_signal_connect (act->curve, "toggled",
149                     G_CALLBACK (on_curve_button_toggle), act);
150
151   psppire_dialog_action_set_refresh (pda, refresh);
152
153   psppire_dialog_action_set_valid_predicate (pda,
154                                         dialog_state_valid);
155
156   if (PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_roc_parent_class)->activate)
157     PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_roc_parent_class)->activate (pda);
158 }
159
160
161
162 static char *
163 generate_syntax (PsppireDialogAction *a)
164 {
165   PsppireDialogActionRoc *rd = PSPPIRE_DIALOG_ACTION_ROC (a);
166   gchar *text;
167   const gchar *var_name = gtk_entry_get_text (GTK_ENTRY (rd->state_variable));
168   GString *string = g_string_new ("ROC");
169
170   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->test_variables), 0, string);
171
172   g_string_append (string, " BY ");
173
174   g_string_append (string, var_name);
175
176   g_string_append (string, " (");
177   {
178     const struct variable *var =
179       psppire_dict_lookup_var (PSPPIRE_DIALOG_ACTION(rd)->dict, var_name);
180
181     union value val;
182     value_init (&val, var_get_width (var));
183
184     psppire_value_entry_get_value (PSPPIRE_VALUE_ENTRY (rd->state_value),
185                                    &val, var_get_width (var));
186
187     g_return_val_if_fail (var, NULL);
188
189     {
190       struct string str;
191       ds_init_empty (&str);
192       
193       syntax_gen_value (&str, &val, var_get_width (var),
194                         var_get_print_format (var));
195       
196       g_string_append (string, ds_cstr (&str));
197       ds_destroy (&str);
198     }
199     value_destroy (&val, var_get_width (var));
200   }
201
202   g_string_append (string, ")");
203
204
205   /* The /PLOT subcommand */
206   g_string_append (string, "\n\t/PLOT ");
207   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->curve)))
208     {
209       g_string_append (string, "CURVE");
210       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->reference)))
211         g_string_append (string, " (REFERENCE)");
212     }
213   else
214     g_string_append (string, "NONE");
215
216
217   /* The /PRINT subcommand */
218   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->standard_error)) ||
219        gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->coordinates)) )
220     {
221       g_string_append (string, "\n\t/PRINT");
222
223       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->standard_error)))
224         g_string_append (string, " SE");
225
226       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->coordinates)))
227         g_string_append (string, " COORDINATES");
228     }
229
230   g_string_append (string, ".\n");
231
232   text = string->str;
233
234   g_string_free (string, FALSE);
235
236   return text;
237 }
238
239 static void
240 psppire_dialog_action_roc_class_init (PsppireDialogActionRocClass *class)
241 {
242   GtkActionClass *action_class = GTK_ACTION_CLASS (class);
243
244   action_class->activate = psppire_dialog_action_roc_activate;
245
246   PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
247 }
248
249
250 static void
251 psppire_dialog_action_roc_init (PsppireDialogActionRoc *act)
252 {
253 }
254