Filter file choosers by mimetype instead of file name
[pspp-builds.git] / src / ui / gui / examine-dialog.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2007, 2008, 2009, 2010, 2011  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 "examine-dialog.h"
20 #include "psppire-var-view.h"
21
22 #include <gtk/gtk.h>
23 #include <stdlib.h>
24
25 #include <ui/gui/psppire-data-window.h>
26 #include <ui/gui/dialog-common.h>
27 #include <ui/gui/dict-display.h>
28 #include <ui/gui/helper.h>
29 #include <ui/gui/psppire-dialog.h>
30 #include <ui/gui/psppire-var-store.h>
31 #include "executor.h"
32
33 #include "gettext.h"
34 #define _(msgid) gettext (msgid)
35 #define N_(msgid) msgid
36
37 enum opts
38   {
39     OPT_LISTWISE,
40     OPT_PAIRWISE,
41     OPT_REPORT
42   };
43
44
45 #define     STAT_DESCRIPTIVES  0x01
46 #define     STAT_EXTREMES      0x02
47 #define     STAT_PERCENTILES   0x04
48
49
50 struct examine_dialog
51 {
52   PsppireDict *dict;
53
54   GtkWidget *dep_list ;
55   GtkWidget *fct_list ;
56   GtkWidget *id_entry ;
57
58   GtkWidget *stats_dialog;
59   GtkWidget *opts_dialog;
60
61   /* Options */
62   enum opts opts;
63   guint stats;
64   GtkWidget *listwise;
65   GtkWidget *pairwise;
66   GtkWidget *report;
67
68   GtkToggleButton *descriptives_button;
69   GtkToggleButton *extremes_button;
70   GtkToggleButton *percentiles_button;
71 };
72
73 static void
74 refresh (PsppireDialog *dialog, struct examine_dialog *ex_d)
75 {
76   GtkTreeModel *liststore =
77     gtk_tree_view_get_model (GTK_TREE_VIEW (ex_d->dep_list));
78
79   gtk_list_store_clear (GTK_LIST_STORE (liststore));
80
81   liststore = gtk_tree_view_get_model (GTK_TREE_VIEW (ex_d->fct_list));
82   gtk_list_store_clear (GTK_LIST_STORE (liststore));
83
84
85   gtk_entry_set_text (GTK_ENTRY (ex_d->id_entry), "");
86
87   ex_d->opts = OPT_LISTWISE;
88   ex_d->stats = 0x00;
89 }
90
91 static char *
92 generate_syntax (const struct examine_dialog *ed)
93 {
94   const char *label;
95   gchar *text = NULL;
96   GString *str = g_string_new ("EXAMINE ");
97
98   g_string_append (str, "\n\t/VARIABLES=");
99   psppire_var_view_append_names (PSPPIRE_VAR_VIEW (ed->dep_list), 0, str);
100
101   if ( 0  < gtk_tree_model_iter_n_children
102        (gtk_tree_view_get_model (GTK_TREE_VIEW (ed->fct_list)), NULL))
103     {
104       g_string_append (str, "\n\tBY ");
105       psppire_var_view_append_names (PSPPIRE_VAR_VIEW (ed->fct_list), 0, str);
106     }
107
108   label = gtk_entry_get_text (GTK_ENTRY (ed->id_entry));
109   if ( 0 != strcmp (label, "") )
110     {
111       g_string_append (str, "\n\t/ID = ");
112       g_string_append (str, label);
113     }
114
115   if ( ed->stats & (STAT_DESCRIPTIVES | STAT_EXTREMES))
116     {
117       g_string_append (str, "\n\t/STATISTICS =");
118
119       if ( ed->stats & STAT_DESCRIPTIVES)
120         g_string_append (str, " DESCRIPTIVES");
121
122       if ( ed->stats & STAT_EXTREMES)
123         g_string_append (str, " EXTREME");
124     }
125
126   if ( ed->stats & STAT_PERCENTILES)
127     g_string_append (str, "\n\t/PERCENTILES");
128
129   g_string_append (str, "\n\t/MISSING=");
130   switch (ed->opts)
131     {
132     case OPT_REPORT:
133       g_string_append (str, "REPORT");
134       break;
135     case OPT_PAIRWISE:
136       g_string_append (str, "PAIRWISE");
137       break;
138     default:
139       g_string_append (str, "LISTWISE");
140       break;
141     };
142
143   g_string_append (str, ".");
144
145   text = str->str;
146
147   g_string_free (str, FALSE);
148
149   return text;
150 }
151
152 /* Dialog is valid iff at least one variable has been selected */
153 static gboolean
154 dialog_state_valid (gpointer data)
155 {
156   struct examine_dialog *ex_d = data;
157
158   GtkTreeModel *vars =
159     gtk_tree_view_get_model (GTK_TREE_VIEW (ex_d->dep_list));
160
161   GtkTreeIter notused;
162
163   return gtk_tree_model_get_iter_first (vars, &notused);
164 }
165
166
167 static void
168 run_stats_dialog (struct examine_dialog *ed)
169 {
170   gint response;
171
172   gtk_toggle_button_set_active (ed->descriptives_button,
173                                 ed->stats & STAT_DESCRIPTIVES);
174
175   gtk_toggle_button_set_active (ed->extremes_button,
176                                 ed->stats & STAT_EXTREMES);
177
178   gtk_toggle_button_set_active (ed->percentiles_button,
179                                 ed->stats & STAT_PERCENTILES);
180
181   response = psppire_dialog_run (PSPPIRE_DIALOG (ed->stats_dialog));
182
183   if ( response == PSPPIRE_RESPONSE_CONTINUE )
184     {
185       ed->stats = 0;
186       if ( gtk_toggle_button_get_active (ed->descriptives_button) )
187         ed->stats |= STAT_DESCRIPTIVES;
188
189       if ( gtk_toggle_button_get_active (ed->extremes_button) )
190         ed->stats |= STAT_EXTREMES;
191
192       if ( gtk_toggle_button_get_active (ed->percentiles_button) )
193         ed->stats |= STAT_PERCENTILES;
194     }
195 }
196
197 static void
198 run_opts_dialog (struct examine_dialog *ed)
199 {
200   gint response;
201
202
203   switch (ed->opts)
204     {
205     case OPT_LISTWISE:
206       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->listwise), TRUE);
207       break;
208     case OPT_PAIRWISE:
209       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->pairwise), TRUE);
210       break;
211     case OPT_REPORT:
212       gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (ed->report), TRUE);
213       break;
214     default:
215       g_assert_not_reached ();
216       break;
217     };
218
219   response = psppire_dialog_run (PSPPIRE_DIALOG (ed->opts_dialog));
220
221   if ( response == PSPPIRE_RESPONSE_CONTINUE )
222     {
223       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->listwise)))
224         ed->opts = OPT_LISTWISE;
225       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->pairwise)))
226         ed->opts = OPT_PAIRWISE;
227       if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (ed->report)))
228         ed->opts = OPT_REPORT;
229   }
230 }
231
232
233
234 /* Pops up the Examine dialog box */
235 void
236 examine_dialog (PsppireDataWindow *de)
237 {
238   gint response;
239
240   struct examine_dialog ex_d;
241
242   GtkBuilder *xml = builder_new ("examine.ui");
243
244   GtkWidget *dialog = get_widget_assert   (xml, "examine-dialog");
245   GtkWidget *source = get_widget_assert   (xml, "treeview1");
246
247   GtkWidget *stats_button = get_widget_assert   (xml, "stats-button");
248   GtkWidget *opts_button = get_widget_assert   (xml, "opts-button");
249
250
251   GtkWidget *dep_selector = get_widget_assert (xml, "psppire-selector1");
252
253   PsppireVarStore *vs = NULL;
254
255   g_object_get (de->data_editor, "var-store", &vs, NULL);
256
257   ex_d.dep_list =   get_widget_assert   (xml, "treeview2");
258   ex_d.fct_list =   get_widget_assert   (xml, "treeview3");
259   ex_d.id_entry =   get_widget_assert   (xml, "entry1");
260   ex_d.stats_dialog =   get_widget_assert   (xml, "statistics-dialog");
261   ex_d.opts_dialog =   get_widget_assert   (xml, "options-dialog");
262   ex_d.listwise = get_widget_assert (xml, "radiobutton1");
263   ex_d.pairwise = get_widget_assert (xml, "radiobutton2");
264   ex_d.report   = get_widget_assert (xml, "radiobutton3");
265
266   ex_d.descriptives_button = GTK_TOGGLE_BUTTON
267     (get_widget_assert (xml, "descriptives-button"));
268
269   ex_d.extremes_button    = GTK_TOGGLE_BUTTON
270     (get_widget_assert (xml, "extremes-button"));
271
272   ex_d.percentiles_button = GTK_TOGGLE_BUTTON
273     (get_widget_assert (xml, "percentiles-button"));
274
275   gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (de));
276   gtk_window_set_transient_for (GTK_WINDOW (ex_d.stats_dialog), GTK_WINDOW (de));
277   gtk_window_set_transient_for (GTK_WINDOW (ex_d.opts_dialog), GTK_WINDOW (de));
278
279   g_object_get (vs, "dictionary", &ex_d.dict, NULL);
280   g_object_set (source, "model", ex_d.dict, NULL);
281
282   psppire_selector_set_allow (PSPPIRE_SELECTOR (dep_selector),
283                               numeric_only);
284
285   g_signal_connect (dialog, "refresh", G_CALLBACK (refresh),  &ex_d);
286
287   psppire_dialog_set_valid_predicate (PSPPIRE_DIALOG (dialog),
288                                       dialog_state_valid, &ex_d);
289
290
291   g_signal_connect_swapped (stats_button, "clicked",
292                     G_CALLBACK (run_stats_dialog), &ex_d);
293
294   g_signal_connect_swapped (opts_button, "clicked",
295                     G_CALLBACK (run_opts_dialog), &ex_d);
296
297   response = psppire_dialog_run (PSPPIRE_DIALOG (dialog));
298
299
300   switch (response)
301     {
302     case GTK_RESPONSE_OK:
303       g_free (execute_syntax_string (de, generate_syntax (&ex_d)));
304       break;
305     case PSPPIRE_RESPONSE_PASTE:
306       g_free (paste_syntax_to_window (generate_syntax (&ex_d)));
307       break;
308     default:
309       break;
310     }
311
312   g_object_unref (xml);
313 }