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