Revert "Fixed a use after free error when manipulating datasets."
[pspp] / src / ui / gui / psppire-means-layer.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2012, 2014  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 "psppire-means-layer.h"
20 #include "psppire-var-view.h"
21
22 #include <gtk/gtk.h>
23
24 #include "gettext.h"
25 #define _(msgid) gettext (msgid)
26 #define N_(msgid) msgid
27
28
29 static void psppire_means_layer_class_init    (PsppireMeansLayerClass *class);
30 static void psppire_means_layer_init          (PsppireMeansLayer      *window);
31
32 G_DEFINE_TYPE (PsppireMeansLayer, psppire_means_layer, GTK_TYPE_BOX);
33
34 static GObjectClass *parent_class = NULL;
35
36 static void
37 psppire_means_layer_dispose (GObject *obj)
38 {
39   PsppireMeansLayer *w = (PsppireMeansLayer *)obj;
40
41   if (w->dispose_has_run)
42     return;
43
44   /* Make sure dispose does not run twice. */
45   w->dispose_has_run = TRUE;
46
47   g_ptr_array_unref (w->layer);
48
49   /* Chain up to the parent class */
50   G_OBJECT_CLASS (parent_class)->dispose (obj);
51 }
52
53
54 static void
55 psppire_means_layer_class_init    (PsppireMeansLayerClass *class)
56 {
57   GObjectClass *object_class = G_OBJECT_CLASS (class);
58   parent_class = g_type_class_peek_parent (class);
59
60
61   object_class->dispose = psppire_means_layer_dispose;
62 }
63
64
65 static void
66 refresh_view (PsppireMeansLayer *ml)
67 {
68   GtkTreeModel *tm;
69   g_return_if_fail (ml->current_layer >= 0);
70   tm = g_ptr_array_index (ml->layer, ml->current_layer);
71   gtk_tree_view_set_model (GTK_TREE_VIEW (ml->var_view), tm);
72 }
73
74
75 static void
76 add_new_layer (PsppireMeansLayer *ml)
77 {
78   /* Add a model and take a reference to it */
79   GtkTreeModel *tm = gtk_tree_view_get_model (GTK_TREE_VIEW (ml->var_view));
80   g_ptr_array_add (ml->layer, tm);
81   g_signal_connect_swapped (tm, "row-inserted", G_CALLBACK (refresh_view), ml);
82
83   g_object_ref (tm);
84 }
85
86
87 void
88 psppire_means_layer_update (PsppireMeansLayer *ml)
89 {
90   gchar *l;
91
92   if (!gtk_widget_get_realized (GTK_WIDGET (ml)))
93     return;
94
95   l = g_strdup_printf (_("Layer %d of %d"),
96                               ml->current_layer + 1, ml->n_layers);
97
98   gtk_label_set_text (GTK_LABEL (ml->label), l);
99   g_free (l);
100
101   gtk_widget_set_sensitive (ml->back, ml->current_layer > 0);
102
103   {
104     GtkTreeIter dummy;
105     GtkTreeModel *tm = g_ptr_array_index (ml->layer, ml->current_layer);
106
107     g_return_if_fail (GTK_IS_TREE_MODEL (tm));
108
109     gtk_widget_set_sensitive (ml->forward,
110                               gtk_tree_model_get_iter_first (tm, &dummy));
111   }
112 }
113
114 static void
115 on_forward (PsppireMeansLayer *ml)
116 {
117   if (ml->current_layer + 1 >= ml->n_layers)
118     {
119       psppire_var_view_clear (PSPPIRE_VAR_VIEW (ml->var_view));
120       add_new_layer (ml);
121       ml->n_layers = ml->current_layer + 2;
122     }
123   else
124     {
125       GtkTreeModel *tm = g_ptr_array_index (ml->layer, ml->current_layer + 1);
126       gtk_tree_view_set_model (GTK_TREE_VIEW (ml->var_view), tm);
127     }
128   ml->current_layer++;
129   psppire_means_layer_update (ml);
130 }
131
132 static void
133 on_back (PsppireMeansLayer *ml)
134 {
135   GtkTreeModel *tm;
136   g_return_if_fail (ml->current_layer > 0);
137   ml->current_layer--;
138
139   tm = g_ptr_array_index (ml->layer, ml->current_layer);
140   gtk_tree_view_set_model (GTK_TREE_VIEW (ml->var_view), tm);
141
142   psppire_means_layer_update (ml);
143 }
144
145 void
146 psppire_means_layer_clear (PsppireMeansLayer *ml)
147 {
148   psppire_var_view_clear (PSPPIRE_VAR_VIEW (ml->var_view));
149
150   ml->n_layers = 1;
151   ml->current_layer = 0;
152   ml->layer = g_ptr_array_new_full (3, g_object_unref);
153
154   add_new_layer (ml);
155
156   psppire_means_layer_update (ml);
157 }
158
159 static void
160 psppire_means_layer_init  (PsppireMeansLayer      *ml)
161 {
162   GtkWidget *hbox_upper = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 5);
163   GtkWidget *hbox_lower = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 5);
164   GtkWidget *sw = gtk_scrolled_window_new (NULL, NULL);
165
166   gtk_orientable_set_orientation (GTK_ORIENTABLE (ml), GTK_ORIENTATION_VERTICAL);
167
168   ml->dispose_has_run = FALSE;
169   ml->forward = gtk_button_new_with_label (_("Forward"));
170   ml->back = gtk_button_new_with_label (_("Back"));
171   ml->var_view = psppire_var_view_new ();
172   ml->label = gtk_label_new ("");
173
174   g_signal_connect_swapped (ml->forward, "clicked", G_CALLBACK (on_forward),
175                             ml);
176
177   g_signal_connect_swapped (ml->back, "clicked", G_CALLBACK (on_back), ml);
178
179
180   g_object_set (ml->var_view, "headers-visible", FALSE, NULL);
181   g_object_set (sw,
182                 "shadow-type", GTK_SHADOW_ETCHED_IN,
183                 "hscrollbar-policy", GTK_POLICY_AUTOMATIC,
184                 NULL);
185
186   g_signal_connect_swapped (ml->var_view, "notify::model", G_CALLBACK (psppire_means_layer_update), ml);
187
188   gtk_box_pack_start (GTK_BOX (hbox_upper), ml->back, FALSE, FALSE, 5);
189   gtk_box_pack_start (GTK_BOX (hbox_upper), ml->label, TRUE, FALSE, 5);
190   gtk_box_pack_start (GTK_BOX (hbox_upper), ml->forward, FALSE, FALSE, 5);
191
192   gtk_box_pack_start (GTK_BOX (hbox_lower), sw, TRUE, TRUE, 5);
193   gtk_container_add (GTK_CONTAINER (sw), ml->var_view);
194
195   gtk_box_pack_start (GTK_BOX (ml), hbox_upper, FALSE, FALSE, 5);
196   gtk_box_pack_start (GTK_BOX (ml), hbox_lower, TRUE, TRUE, 5);
197
198   psppire_means_layer_clear (ml);
199
200   gtk_widget_show_all (hbox_upper);
201   gtk_widget_show_all (hbox_lower);
202 }
203
204 GtkWidget *
205 psppire_means_layer_new (void)
206 {
207   return GTK_WIDGET (g_object_new (psppire_means_layer_get_type (), NULL));
208 }
209
210
211
212
213 GtkTreeModel *
214 psppire_means_layer_get_model_n (PsppireMeansLayer *ml, gint n)
215 {
216   return g_ptr_array_index (ml->layer, n);
217 }
218
219
220 GtkTreeModel *
221 psppire_means_layer_get_model (PsppireMeansLayer *ml)
222 {
223   return g_ptr_array_index (ml->layer, ml->current_layer);
224 }
225