1 /* PSPPIRE - a graphical user interface for PSPP.
2 Copyright (C) 2015 Free Software Foundation
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.
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.
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/>. */
20 #include "psppire-dialog-action-histogram.h"
21 #include "psppire-value-entry.h"
23 #include "dialog-common.h"
24 #include <ui/syntax-gen.h>
25 #include "psppire-var-view.h"
27 #include "psppire-dialog.h"
28 #include "builder-wrapper.h"
30 #include "psppire-dict.h"
31 #include "libpspp/str.h"
34 psppire_dialog_action_histogram_class_init (PsppireDialogActionHistogramClass *class);
36 G_DEFINE_TYPE (PsppireDialogActionHistogram, psppire_dialog_action_histogram, PSPPIRE_TYPE_DIALOG_ACTION);
39 dialog_state_valid (gpointer data)
41 PsppireDialogActionHistogram *rd = data;
43 const gchar *var_name = gtk_entry_get_text (GTK_ENTRY (rd->variable));
44 const struct variable *var = psppire_dict_lookup_var (PSPPIRE_DIALOG_ACTION (rd)->dict, var_name);
54 refresh (PsppireDialogAction *rd_)
56 PsppireDialogActionHistogram *rd = PSPPIRE_DIALOG_ACTION_HISTOGRAM (rd_);
58 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (rd->curve), FALSE);
59 gtk_entry_set_text (GTK_ENTRY (rd->variable), "");
63 psppire_dialog_action_histogram_activate (GtkAction *a)
65 PsppireDialogActionHistogram *act = PSPPIRE_DIALOG_ACTION_HISTOGRAM (a);
66 PsppireDialogAction *pda = PSPPIRE_DIALOG_ACTION (a);
68 GHashTable *thing = psppire_dialog_action_get_pointer (pda);
69 GtkBuilder *xml = g_hash_table_lookup (thing, a);
72 xml = builder_new ("histogram.ui");
73 g_hash_table_insert (thing, a, xml);
76 pda->dialog = get_widget_assert (xml, "histogram-dialog");
77 pda->source = get_widget_assert (xml, "dict-view");
79 act->variable = get_widget_assert (xml, "entry1");
80 act->curve = get_widget_assert (xml, "curve");
82 psppire_dialog_action_set_refresh (pda, refresh);
84 psppire_dialog_action_set_valid_predicate (pda,
87 if (PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_histogram_parent_class)->activate)
88 PSPPIRE_DIALOG_ACTION_CLASS (psppire_dialog_action_histogram_parent_class)->activate (pda);
94 generate_syntax (PsppireDialogAction *a)
96 PsppireDialogActionHistogram *rd = PSPPIRE_DIALOG_ACTION_HISTOGRAM (a);
98 const gchar *var_name = gtk_entry_get_text (GTK_ENTRY (rd->variable));
99 GString *string = g_string_new ("GRAPH /HISTOGRAM ");
101 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (rd->curve)))
103 g_string_append (string, "(NORMAL)");
106 g_string_append (string, " = ");
107 g_string_append (string, var_name);
109 g_string_append (string, ".\n");
113 g_string_free (string, FALSE);
119 psppire_dialog_action_histogram_class_init (PsppireDialogActionHistogramClass *class)
121 GtkActionClass *action_class = GTK_ACTION_CLASS (class);
123 action_class->activate = psppire_dialog_action_histogram_activate;
125 PSPPIRE_DIALOG_ACTION_CLASS (class)->generate_syntax = generate_syntax;
130 psppire_dialog_action_histogram_init (PsppireDialogActionHistogram *act)