Categoricals.c Create entries for all groups.
[pspp] / src / ui / gui / roc-dialog.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2009  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 #include <config.h>
18
19 #include "dialog-common.h"
20 #include <language/syntax-string-source.h>
21 #include <ui/syntax-gen.h>
22 #include <libpspp/str.h>
23
24 #include "roc-dialog.h"
25 #include "psppire-selector.h"
26 #include "psppire-dictview.h"
27 #include "psppire-dialog.h"
28
29 #include "psppire-data-window.h"
30 #include "psppire-var-view.h"
31
32 #include "executor.h"
33 #include "helper.h"
34
35 #include <gtk/gtk.h>
36
37 #include "gettext.h"
38 #define _(msgid) gettext (msgid)
39 #define N_(msgid) msgid
40
41
42 struct roc
43 {
44   PsppireDict *dict;
45
46   GtkWidget *test_variables;
47   GtkWidget *state_variable;
48   GtkWidget *state_value;
49
50   GtkWidget *curve;
51   GtkWidget *reference;
52   GtkWidget *standard_error;
53   GtkWidget *coordinates;
54 };
55
56
57 static char * generate_syntax (const struct roc *rd);
58
59
60 static void
61 refresh (struct roc *rd)
62 {
63   GtkTreeModel *liststore =
64     gtk_tree_view_get_model (GTK_TREE_VIEW (rd->test_variables));
65   gtk_list_store_clear (GTK_LIST_STORE (liststore));
66
67   gtk_entry_set_text (GTK_ENTRY (rd->state_variable), "");
68   gtk_entry_set_text (GTK_ENTRY (rd->state_value), "");
69
70   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->curve),          TRUE);
71   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->reference),      FALSE);
72   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->standard_error), FALSE);
73   gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->coordinates),    FALSE);
74 }
75
76
77 static gboolean
78 dialog_state_valid (gpointer data)
79 {
80   struct roc *rd = data;
81   const gchar *text;
82
83   GtkTreeModel *liststore =
84     gtk_tree_view_get_model (GTK_TREE_VIEW (rd->test_variables));
85
86   if  (gtk_tree_model_iter_n_children (liststore, NULL) < 1)
87     return FALSE;
88
89   
90   text = gtk_entry_get_text (GTK_ENTRY (rd->state_variable));
91   if ( 0 == strcmp ("", text))
92     return FALSE;
93
94
95   text = gtk_entry_get_text (GTK_ENTRY (rd->state_value));
96   if ( 0 == strcmp ("", text))
97     return FALSE;
98
99
100   return TRUE;
101 }
102
103 static void
104 on_curve_button_toggle  (GtkCheckButton *curve, struct roc *rd)
105 {
106   if ( !gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (curve)))
107     {
108       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->reference)))
109         g_object_set (rd->reference, "inconsistent", TRUE, NULL);
110       g_object_set (rd->reference, "sensitive", FALSE, NULL);
111     }
112   else 
113     {
114       g_object_set (rd->reference, "inconsistent", FALSE, NULL);
115       g_object_set (rd->reference, "sensitive", TRUE, NULL);
116     }
117 }
118
119
120 /* Pops up the Roc dialog box */
121 void
122 roc_dialog (PsppireDataWindow *de)
123 {
124   struct roc rd;
125   gint response;
126
127   GtkBuilder *xml = builder_new ("roc.ui");
128   PsppireVarStore *vs;
129
130   GtkWidget *dialog = get_widget_assert   (xml, "roc-dialog");
131   GtkWidget *source = get_widget_assert   (xml, "dict-view");
132
133   rd.test_variables    = get_widget_assert   (xml, "psppire-var-view1");
134   rd.state_variable    = get_widget_assert   (xml, "entry1");
135   rd.state_value       = get_widget_assert   (xml, "entry2");
136
137   rd.curve          = get_widget_assert   (xml, "curve");
138   rd.reference      = get_widget_assert   (xml, "reference-line");
139   rd.standard_error = get_widget_assert   (xml, "standard-error");
140   rd.coordinates    = get_widget_assert   (xml, "co-ordinates");
141
142
143   g_object_get (de->data_editor, "var-store", &vs, NULL);
144
145   gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (de));
146
147   g_object_get (vs, "dictionary", &rd.dict, NULL);
148   g_object_set (source, "model", rd.dict, NULL);
149
150   g_signal_connect (rd.curve, "toggled", G_CALLBACK (on_curve_button_toggle), &rd);
151
152   g_signal_connect_swapped (dialog, "refresh", G_CALLBACK (refresh),  &rd);
153
154   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
155                                       dialog_state_valid, &rd);
156
157   psppire_selector_set_allow (PSPPIRE_SELECTOR (get_widget_assert (xml, "dep-selector")),
158                               numeric_only);
159
160   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
161
162   switch (response)
163     {
164     case GTK_RESPONSE_OK:
165       {
166         gchar *syntax = generate_syntax (&rd);
167
168         struct getl_interface *sss = create_syntax_string_source (syntax);
169         execute_syntax (sss);
170
171         g_free (syntax);
172       }
173       break;
174     case PSPPIRE_RESPONSE_PASTE:
175       {
176         gchar *syntax = generate_syntax (&rd);
177         paste_syntax_to_window (syntax);
178
179         g_free (syntax);
180       }
181       break;
182     default:
183       break;
184     }
185
186   g_object_unref (xml);
187 }
188
189
190 \f
191
192 static char *
193 generate_syntax (const struct roc *rd)
194 {
195   gchar *text;
196   const gchar *var_name = gtk_entry_get_text (GTK_ENTRY (rd->state_variable));
197   GString *string = g_string_new ("ROC");
198
199   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (rd->test_variables), 0, string);
200
201   g_string_append (string, " BY ");
202
203   g_string_append (string, var_name);
204
205   g_string_append (string, " (");
206   {
207     const gchar *value = gtk_entry_get_text (GTK_ENTRY (rd->state_value));
208
209     const struct variable *var = psppire_dict_lookup_var (rd->dict, var_name);
210
211     g_return_val_if_fail (var, NULL);
212
213     if ( var_is_alpha (var))
214       {
215         struct string xx;
216         ds_init_empty (&xx);
217         syntax_gen_string (&xx, ss_cstr (value));
218         g_string_append (string, ds_cstr (&xx));
219         ds_destroy (&xx);
220       }
221     else
222       g_string_append (string, value);
223   }
224   g_string_append (string, ")");
225
226
227   /* The /PLOT subcommand */
228   g_string_append (string, "\n\t/PLOT ");
229   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->curve)))
230     {
231       g_string_append (string, "CURVE");
232       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->reference)))
233         g_string_append (string, " (REFERENCE)");
234     }
235   else
236     g_string_append (string, "NONE");
237
238
239   /* The /PRINT subcommand */
240   if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->standard_error)) ||
241        gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->coordinates)) )
242     {
243       g_string_append (string, "\n\t/PRINT");
244
245       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->standard_error)))
246         g_string_append (string, " SE");
247
248       if ( gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->coordinates)))
249         g_string_append (string, " COORDINATES");
250     }
251
252   g_string_append (string, ".\n");
253
254   text = string->str;
255
256   g_string_free (string, FALSE);
257
258   return text;
259 }