Fixed bug reporting the significance of paired value t-test.
[pspp-builds.git] / src / ui / gui / psppire-buttonbox.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2007  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 <glib.h>
21 #include <gtk/gtk.h>
22 #include <gtk/gtksignal.h>
23 #include "psppire-buttonbox.h"
24 #include "psppire-dialog.h"
25
26 #include <gettext.h>
27
28 #define _(msgid) gettext (msgid)
29 #define N_(msgid) msgid
30
31 GType psppire_button_flags_get_type (void);
32
33
34 static void psppire_button_box_class_init          (PsppireButtonBoxClass *);
35 static void psppire_button_box_init                (PsppireButtonBox      *);
36
37
38 GType
39 psppire_button_box_get_type (void)
40 {
41   static GType button_box_type = 0;
42
43   if (!button_box_type)
44     {
45       static const GTypeInfo button_box_info =
46       {
47         sizeof (PsppireButtonBoxClass),
48         NULL, /* base_init */
49         NULL, /* base_finalize */
50         (GClassInitFunc) psppire_button_box_class_init,
51         NULL, /* class_finalize */
52         NULL, /* class_data */
53         sizeof (PsppireButtonBox),
54         0,
55         (GInstanceInitFunc) psppire_button_box_init,
56       };
57
58       button_box_type = g_type_register_static (GTK_TYPE_BUTTON_BOX,
59                                             "PsppireButtonBox", &button_box_info, 0);
60     }
61
62   return button_box_type;
63 }
64
65 enum {
66   PROP_BUTTONS = 1
67 };
68
69 static void
70 psppire_buttonbox_set_property (GObject         *object,
71                                guint            prop_id,
72                                const GValue    *value,
73                                GParamSpec      *pspec)
74 {
75   gint i;
76   guint flags;
77   PsppireButtonBox *bb = PSPPIRE_BUTTONBOX (object);
78   if ( prop_id != PROP_BUTTONS)
79     {
80       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
81       return ;
82     }
83
84   flags = g_value_get_flags (value);
85
86   for (i = 0 ; i < n_PsppireButtonBoxButtons ; ++i )
87     g_object_set (bb->button[i], "visible", 0x01 & (flags >> i)  , NULL);
88 }
89
90 static void
91 psppire_buttonbox_get_property (GObject         *object,
92                                guint            prop_id,
93                                GValue          *value,
94                                GParamSpec      *pspec)
95 {
96   guint flags = 0;
97   gint i;
98
99   PsppireButtonBox *bb = PSPPIRE_BUTTONBOX (object);
100
101   if  (PROP_BUTTONS != prop_id)
102     {
103       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
104       return;
105     }
106
107   for (i = 0 ; i < n_PsppireButtonBoxButtons ; ++i )
108     {
109       gboolean visibility;
110       g_object_get (bb->button[i], "visible", &visibility, NULL);
111
112       if ( visibility )
113         flags |= (0x01 << i);
114     }
115
116   g_value_set_flags (value, flags);
117 }
118
119
120 typedef enum
121   {
122     PSPPIRE_BUTTON_OK_MASK     = (1 << PSPPIRE_BUTTON_OK),
123     PSPPIRE_BUTTON_GOTO_MASK   = (1 << PSPPIRE_BUTTON_GOTO),
124     PSPPIRE_BUTTON_CONTINUE_MASK = (1 << PSPPIRE_BUTTON_CONTINUE),
125     PSPPIRE_BUTTON_CANCEL_MASK = (1 << PSPPIRE_BUTTON_CANCEL),
126     PSPPIRE_BUTTON_HELP_MASK   = (1 << PSPPIRE_BUTTON_HELP),
127     PSPPIRE_BUTTON_RESET_MASK  = (1 << PSPPIRE_BUTTON_RESET),
128     PSPPIRE_BUTTON_PASTE_MASK  = (1 << PSPPIRE_BUTTON_PASTE)
129   } PsppireButtonMask;
130
131 static GParamSpec *button_flags;
132
133 static void
134 psppire_button_box_class_init (PsppireButtonBoxClass *class)
135 {
136   GObjectClass *object_class = G_OBJECT_CLASS (class);
137
138   object_class->set_property = psppire_buttonbox_set_property;
139   object_class->get_property = psppire_buttonbox_get_property;
140
141   button_flags =
142     g_param_spec_flags ("buttons",
143                         _("Buttons"),
144                         _("The mask that decides what buttons appear in the button box"),
145                         G_TYPE_PSPPIRE_BUTTON_MASK,
146                         PSPPIRE_BUTTON_OK_MASK |
147                         PSPPIRE_BUTTON_CANCEL_MASK |
148                         PSPPIRE_BUTTON_RESET_MASK |
149                         PSPPIRE_BUTTON_HELP_MASK |
150                         PSPPIRE_BUTTON_PASTE_MASK,
151                         G_PARAM_READWRITE);
152
153
154   g_object_class_install_property (object_class,
155                                    PROP_BUTTONS,
156                                    button_flags);
157
158 }
159
160 static void
161 close_and_respond (GtkWidget *w, gint response)
162 {
163   PsppireDialog *dialog;
164
165   GtkWidget *toplevel = gtk_widget_get_toplevel (w);
166
167   /* If we're not in a psppire dialog (for example when in glade)
168      then do nothing */
169   if ( ! PSPPIRE_IS_DIALOG (toplevel))
170     return;
171
172   dialog = PSPPIRE_DIALOG (toplevel);
173
174   dialog->response = response;
175
176   psppire_dialog_close (dialog);
177 }
178
179
180 static void
181 close_dialog (GtkWidget *w, gpointer data)
182 {
183   close_and_respond (w, GTK_RESPONSE_CLOSE);
184 }
185
186 static void
187 continue_button_clicked (GtkWidget *w, gpointer data)
188 {
189   close_and_respond (w, PSPPIRE_RESPONSE_CONTINUE);
190 }
191
192
193 static void
194 ok_button_clicked (GtkWidget *w, gpointer data)
195 {
196   close_and_respond (w, GTK_RESPONSE_OK);
197 }
198
199
200 static void
201 paste_button_clicked (GtkWidget *w, gpointer data)
202 {
203   close_and_respond (w, PSPPIRE_RESPONSE_PASTE);
204 }
205
206 static void
207 goto_button_clicked (GtkWidget *w, gpointer data)
208 {
209   close_and_respond (w, PSPPIRE_RESPONSE_GOTO);
210 }
211
212
213 static void
214 refresh_clicked (GtkWidget *w, gpointer data)
215 {
216   GtkWidget *toplevel = gtk_widget_get_toplevel (w);
217   PsppireDialog *dialog;
218
219   if ( ! PSPPIRE_IS_DIALOG (toplevel))
220     return;
221
222   dialog = PSPPIRE_DIALOG (toplevel);
223
224   psppire_dialog_reload (dialog);
225 }
226
227
228
229 static void
230 on_validity_change (GtkWidget *toplevel, gboolean valid, gpointer data)
231 {
232   PsppireButtonBox *bb = data;
233
234   /* Set the sensitivity of all the 'executive order' buttons */
235   gtk_widget_set_sensitive (GTK_WIDGET (bb->button[PSPPIRE_BUTTON_OK]), valid);
236   gtk_widget_set_sensitive (GTK_WIDGET (bb->button[PSPPIRE_BUTTON_PASTE]), valid);
237   gtk_widget_set_sensitive (GTK_WIDGET (bb->button[PSPPIRE_BUTTON_GOTO]), valid);
238   gtk_widget_set_sensitive (GTK_WIDGET (bb->button[PSPPIRE_BUTTON_CONTINUE]), valid);
239 }
240
241 static void
242 on_realize (GtkWidget *buttonbox, gpointer data)
243 {
244   GtkWidget *toplevel = gtk_widget_get_toplevel (buttonbox);
245
246   if ( PSPPIRE_IS_DIALOG (toplevel))
247     {
248       g_signal_connect (toplevel, "validity-changed",
249                         G_CALLBACK (on_validity_change), buttonbox);
250     }
251 }
252
253 static void
254 psppire_button_box_init (PsppireButtonBox *bb)
255 {
256
257   bb->button[PSPPIRE_BUTTON_OK] = gtk_button_new_from_stock (GTK_STOCK_OK);
258   gtk_box_pack_start_defaults (GTK_BOX (bb), bb->button[PSPPIRE_BUTTON_OK]);
259   g_signal_connect (bb->button[PSPPIRE_BUTTON_OK], "clicked",
260                     G_CALLBACK (ok_button_clicked), NULL);
261   g_object_set (bb->button[PSPPIRE_BUTTON_OK], "no-show-all", TRUE, NULL);
262
263
264   bb->button[PSPPIRE_BUTTON_GOTO] =
265     gtk_button_new_from_stock (GTK_STOCK_JUMP_TO);
266   gtk_box_pack_start_defaults (GTK_BOX (bb), bb->button[PSPPIRE_BUTTON_GOTO]);
267   g_signal_connect (bb->button[PSPPIRE_BUTTON_GOTO], "clicked",
268                     G_CALLBACK (goto_button_clicked), NULL);
269   g_object_set (bb->button[PSPPIRE_BUTTON_GOTO], "no-show-all", TRUE, NULL);
270
271
272   bb->button[PSPPIRE_BUTTON_CONTINUE] =
273     gtk_button_new_with_mnemonic (_("Continue"));
274
275   gtk_box_pack_start_defaults (GTK_BOX (bb),
276                                bb->button[PSPPIRE_BUTTON_CONTINUE]);
277   g_signal_connect (bb->button[PSPPIRE_BUTTON_CONTINUE], "clicked",
278                     G_CALLBACK (continue_button_clicked), NULL);
279
280   g_object_set (bb->button[PSPPIRE_BUTTON_CONTINUE],
281                 "no-show-all", TRUE, NULL);
282
283
284
285   bb->button[PSPPIRE_BUTTON_PASTE] = gtk_button_new_from_stock (GTK_STOCK_PASTE);
286   g_signal_connect (bb->button[PSPPIRE_BUTTON_PASTE], "clicked",
287                     G_CALLBACK (paste_button_clicked), NULL);
288   gtk_box_pack_start_defaults (GTK_BOX (bb), bb->button[PSPPIRE_BUTTON_PASTE]);
289   g_object_set (bb->button[PSPPIRE_BUTTON_PASTE], "no-show-all", TRUE, NULL);
290
291   bb->button[PSPPIRE_BUTTON_CANCEL] = gtk_button_new_from_stock (GTK_STOCK_CANCEL);
292   g_signal_connect (bb->button[PSPPIRE_BUTTON_CANCEL], "clicked",
293                     G_CALLBACK (close_dialog), NULL);
294   gtk_box_pack_start_defaults (GTK_BOX (bb), bb->button[PSPPIRE_BUTTON_CANCEL]);
295   g_object_set (bb->button[PSPPIRE_BUTTON_CANCEL], "no-show-all", TRUE, NULL);
296
297
298   bb->button[PSPPIRE_BUTTON_RESET] = gtk_button_new_from_stock ("pspp-stock-reset");
299   g_signal_connect (bb->button[PSPPIRE_BUTTON_RESET], "clicked",
300                     G_CALLBACK (refresh_clicked), NULL);
301   gtk_box_pack_start_defaults (GTK_BOX (bb), bb->button[PSPPIRE_BUTTON_RESET]);
302   g_object_set (bb->button[PSPPIRE_BUTTON_RESET], "no-show-all", TRUE, NULL);
303
304
305   bb->button[PSPPIRE_BUTTON_HELP] = gtk_button_new_from_stock (GTK_STOCK_HELP);
306   gtk_box_pack_start_defaults (GTK_BOX (bb), bb->button[PSPPIRE_BUTTON_HELP]);
307   g_object_set (bb->button[PSPPIRE_BUTTON_HELP], "no-show-all", TRUE, NULL);
308
309
310   /* Set the default visibilities */
311   {
312     GValue value = { 0 };
313     guint flags;
314     gint i;
315     g_value_init (&value, button_flags->value_type);
316     g_param_value_set_default(button_flags, &value);
317
318
319     flags = g_value_get_flags (&value);
320
321     for (i = 0 ; i < n_PsppireButtonBoxButtons ; ++i )
322       g_object_set (bb->button[i], "visible", 0x01 & (flags >> i)  , NULL);
323
324     g_value_unset (&value);
325   }
326
327
328   g_signal_connect (bb, "realize", G_CALLBACK (on_realize), NULL);
329 }
330
331
332 /* This function is lifted verbatim from the Gtk2.10.6 library */
333
334 void
335 _psppire_button_box_child_requisition (GtkWidget *widget,
336                                        int       *nvis_children,
337                                        int       *nvis_secondaries,
338                                        int       *width,
339                                        int       *height)
340 {
341   GtkButtonBox *bbox;
342   GtkBoxChild *child;
343   GList *children;
344   gint nchildren;
345   gint nsecondaries;
346   gint needed_width;
347   gint needed_height;
348   GtkRequisition child_requisition;
349   gint ipad_w;
350   gint ipad_h;
351   gint width_default;
352   gint height_default;
353   gint ipad_x_default;
354   gint ipad_y_default;
355
356   gint child_min_width;
357   gint child_min_height;
358   gint ipad_x;
359   gint ipad_y;
360
361   g_return_if_fail (GTK_IS_BUTTON_BOX (widget));
362
363   bbox = GTK_BUTTON_BOX (widget);
364
365   gtk_widget_style_get (widget,
366                         "child-min-width", &width_default,
367                         "child-min-height", &height_default,
368                         "child-internal-pad-x", &ipad_x_default,
369                         "child-internal-pad-y", &ipad_y_default,
370                         NULL);
371
372   child_min_width = bbox->child_min_width   != GTK_BUTTONBOX_DEFAULT
373     ? bbox->child_min_width : width_default;
374   child_min_height = bbox->child_min_height !=GTK_BUTTONBOX_DEFAULT
375     ? bbox->child_min_height : height_default;
376   ipad_x = bbox->child_ipad_x != GTK_BUTTONBOX_DEFAULT
377     ? bbox->child_ipad_x : ipad_x_default;
378   ipad_y = bbox->child_ipad_y != GTK_BUTTONBOX_DEFAULT
379     ? bbox->child_ipad_y : ipad_y_default;
380
381   nchildren = 0;
382   nsecondaries = 0;
383   children = GTK_BOX(bbox)->children;
384   needed_width = child_min_width;
385   needed_height = child_min_height;
386   ipad_w = ipad_x * 2;
387   ipad_h = ipad_y * 2;
388
389   while (children)
390     {
391       child = children->data;
392       children = children->next;
393
394       if (GTK_WIDGET_VISIBLE (child->widget))
395         {
396           nchildren += 1;
397           gtk_widget_size_request (child->widget, &child_requisition);
398
399           if (child_requisition.width + ipad_w > needed_width)
400             needed_width = child_requisition.width + ipad_w;
401           if (child_requisition.height + ipad_h > needed_height)
402             needed_height = child_requisition.height + ipad_h;
403           if (child->is_secondary)
404             nsecondaries++;
405         }
406     }
407
408   if (nvis_children)
409     *nvis_children = nchildren;
410   if (nvis_secondaries)
411     *nvis_secondaries = nsecondaries;
412   if (width)
413     *width = needed_width;
414   if (height)
415     *height = needed_height;
416 }
417
418
419 GType
420 psppire_button_flags_get_type (void)
421 {
422   static GType ftype = 0;
423   if (ftype == 0)
424     {
425       static const GFlagsValue values[] =
426         {
427           { PSPPIRE_BUTTON_OK_MASK,     "PSPPIRE_BUTTON_OK_MASK",     N_("OK") },
428           { PSPPIRE_BUTTON_GOTO_MASK,   "PSPPIRE_BUTTON_GOTO_MASK", N_("Go To") },
429           { PSPPIRE_BUTTON_CONTINUE_MASK,"PSPPIRE_BUTTON_CONTINUE_MASK", N_("Continue") },
430           { PSPPIRE_BUTTON_CANCEL_MASK, "PSPPIRE_BUTTON_CANCEL_MASK", N_("Cancel") },
431           { PSPPIRE_BUTTON_HELP_MASK,   "PSPPIRE_BUTTON_HELP_MASK",   N_("Help") },
432           { PSPPIRE_BUTTON_RESET_MASK,  "PSPPIRE_BUTTON_RESET_MASK",  N_("Reset") },
433           { PSPPIRE_BUTTON_PASTE_MASK,  "PSPPIRE_BUTTON_PASTE_MASK",  N_("Paste") },
434           { 0, NULL, NULL }
435         };
436
437       ftype = g_flags_register_static
438         (g_intern_static_string ("PsppireButtonFlags"), values);
439
440     }
441   return ftype;
442 }
443