store intercept in proper place when using QR method
[pspp-builds.git] / src / ui / gui / psppire-acr.c
1 /* PSPPIRE - a graphical user interface for PSPP.
2    Copyright (C) 2007 Free Software Foundation, Inc.
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 /*
19   This widget is a GtkBox which looks roughly like:
20
21   +-----------------------------+
22   |+------------+  +----------+ |
23   ||   Add      |  |          | |
24   |+------------+  |          | |
25   |                |          | |
26   |+------------+  |          | |
27   ||   Edit     |  |          | |
28   |+------------+  |          | |
29   |                |          | |
30   |+------------+  |          | |
31   ||  Remove    |  |          | |
32   |+------------+  +----------+ |
33   +-----------------------------+
34
35 */
36
37 #include <gtk/gtk.h>
38
39 #include "psppire-acr.h"
40
41 static void psppire_acr_init (PsppireAcr *);
42
43 GType
44 psppire_acr_get_type (void)
45 {
46   static GType acr_type = 0;
47
48   if (!acr_type)
49     {
50       static const GTypeInfo acr_info =
51       {
52         sizeof (PsppireAcrClass),
53         NULL, /* base_init */
54         NULL, /* base_finalize */
55         NULL, /* class_init */
56         NULL, /* class_finalize */
57         NULL, /* class_data */
58         sizeof (PsppireAcr),
59         0,
60         (GInstanceInitFunc) psppire_acr_init,
61       };
62
63       acr_type = g_type_register_static (GTK_TYPE_HBOX, "PsppireAcr",
64                                         &acr_info, 0);
65     }
66
67   return acr_type;
68 }
69
70
71 static gboolean row_is_selected (const PsppireAcr *acr);
72
73
74 static gboolean
75 value_from_entry (gint col, GValue *val, gpointer data)
76 {
77   GtkEntry *entry = data;
78   const gchar *text = gtk_entry_get_text (entry);
79   gdouble x = g_strtod (text, 0);
80
81   g_value_init (val, G_TYPE_DOUBLE);
82   g_value_set_double (val, x);
83
84   return TRUE;
85 }
86
87
88 /* Returns true, if there's text in the entry */
89 static gboolean
90 entry_not_empty (gpointer data)
91 {
92   GtkEntry *entry = data;
93
94   const char *text = gtk_entry_get_text (entry);
95
96   return !g_str_equal (text, "");
97 }
98
99
100 static void
101 clear_entry (gpointer data)
102 {
103   GtkEntry *entry = data;
104   gtk_entry_set_text (entry, "");
105 }
106
107
108 static void
109 on_entry_change (GtkEntry *entry, PsppireAcr *acr)
110 {
111   gtk_widget_set_sensitive (acr->add_button, acr->enabled (entry));
112
113   gtk_widget_set_sensitive (acr->change_button, acr->enabled (entry)
114                             && row_is_selected (acr));
115 }
116
117 void
118 psppire_acr_set_entry  (PsppireAcr *acr, GtkEntry *entry)
119 {
120   acr->get_value = value_from_entry;
121   acr->get_value_data = entry;
122   acr->enabled = entry_not_empty;
123   acr->enabled_data = entry;
124   acr->update = clear_entry;
125   acr->update_data = entry;
126
127   g_signal_connect (entry, "changed", G_CALLBACK (on_entry_change), acr);
128 }
129
130
131 /* Callback for when the Add button is clicked.
132    It appends an item to the list. */
133 static void
134 on_add_button_clicked (PsppireAcr *acr)
135 {
136   gint i;
137   GtkTreeIter iter;
138   gtk_list_store_append (acr->list_store, &iter);
139
140   for (i = 0 ;
141        i < gtk_tree_model_get_n_columns (GTK_TREE_MODEL (acr->list_store));
142        ++i)
143     {
144       static GValue value;
145       if ( ! acr->get_value (i, &value, acr->get_value_data) )
146         continue;
147
148       gtk_list_store_set_value (acr->list_store, &iter,
149                                 i, &value);
150       g_value_unset (&value);
151     }
152
153   if (acr->update) acr->update (acr->update_data);
154 }
155
156
157 /* Callback for when the Changed button is clicked.
158    It replaces the currently selected entry. */
159 static void
160 on_change_button_clicked (PsppireAcr *acr)
161 {
162   gint i;
163   GtkTreeModel *model = GTK_TREE_MODEL (acr->list_store);
164
165   GList *l=
166     gtk_tree_selection_get_selected_rows (acr->selection,
167                                           &model);
168
169   GtkTreePath *path = l->data;
170
171   GtkTreeIter iter;
172
173   gtk_tree_model_get_iter (model, &iter, path);
174
175   for (i = 0 ;
176        i < gtk_tree_model_get_n_columns (GTK_TREE_MODEL (acr->list_store));
177        ++i)
178     {
179       static GValue value;
180       if ( ! acr->get_value (i, &value, acr->get_value_data) )
181         continue;
182
183       gtk_list_store_set_value (acr->list_store, &iter,
184                                 i, &value);
185       g_value_unset (&value);
186     }
187
188   g_list_foreach (l, (GFunc) gtk_tree_path_free, NULL);
189   g_list_free (l);
190
191   if ( acr->update) acr->update (acr->update_data);
192 }
193
194
195 /* Callback for when the remove button is clicked.
196    It deletes the currently selected entry. */
197 static void
198 on_remove_button_clicked (PsppireAcr *acr)
199 {
200   GtkTreeModel *model = GTK_TREE_MODEL (acr->list_store);
201
202   GList *l=
203     gtk_tree_selection_get_selected_rows (acr->selection,
204                                           &model);
205
206   GtkTreePath *path = l->data;
207
208   GtkTreeIter iter;
209
210   gtk_tree_model_get_iter (model, &iter, path);
211
212   gtk_list_store_remove (acr->list_store, &iter);
213
214   g_list_foreach (l, (GFunc) gtk_tree_path_free, NULL);
215   g_list_free (l);
216 }
217
218 /* Returns true if there is a row currently selected.
219    False otherwise. */
220 static gboolean
221 row_is_selected (const PsppireAcr *acr)
222 {
223   gboolean result;
224   GtkTreeModel *model = GTK_TREE_MODEL (acr->list_store);
225   GList *l = gtk_tree_selection_get_selected_rows (acr->selection,
226                                                    &model);
227
228   result = (l != NULL);
229
230   g_list_foreach (l, (GFunc) gtk_tree_path_free, NULL);
231   g_list_free (l);
232
233   return result;
234 }
235
236
237 /* Callback which occurs when an item in the treeview
238    is selected */
239 static void
240 on_select (GtkTreeSelection *selection, gpointer data)
241 {
242   PsppireAcr *acr = data;
243
244   gtk_widget_set_sensitive (acr->remove_button, row_is_selected (acr));
245
246   gtk_widget_set_sensitive (acr->change_button,
247                             row_is_selected (acr)
248                             );
249 }
250
251
252 void
253 psppire_acr_set_enabled (PsppireAcr *acr, gboolean status)
254 {
255
256   gtk_widget_set_sensitive (acr->add_button, status);
257
258   gtk_widget_set_sensitive (acr->change_button, status
259                             && row_is_selected (acr));
260 }
261
262
263 static void
264 psppire_acr_init (PsppireAcr *acr)
265 {
266   GtkWidget *bb  = gtk_vbutton_box_new ();
267
268   GtkWidget *sw = gtk_scrolled_window_new (NULL, NULL);
269
270   acr->tv = GTK_TREE_VIEW (gtk_tree_view_new ());
271
272   acr->add_button = gtk_button_new_from_stock (GTK_STOCK_ADD);
273   acr->change_button = gtk_button_new_from_stock (GTK_STOCK_EDIT);
274   acr->remove_button = gtk_button_new_from_stock (GTK_STOCK_REMOVE);
275
276   acr->get_value = NULL;
277   acr->get_value_data = NULL;
278   acr->enabled = NULL;
279   acr->update = NULL;
280
281   gtk_widget_set_sensitive (acr->change_button, FALSE);
282   gtk_widget_set_sensitive (acr->remove_button, FALSE);
283   gtk_widget_set_sensitive (acr->add_button, FALSE);
284
285   gtk_box_pack_start_defaults (GTK_BOX (bb), acr->add_button);
286   gtk_box_pack_start_defaults (GTK_BOX (bb), acr->change_button);
287   gtk_box_pack_start_defaults (GTK_BOX (bb), acr->remove_button);
288
289   gtk_box_pack_start (GTK_BOX (acr), bb, FALSE, TRUE, 5);
290
291   g_object_set (sw,
292                 "hscrollbar-policy", GTK_POLICY_NEVER,
293                 "vscrollbar-policy", GTK_POLICY_AUTOMATIC,
294                 "shadow-type", GTK_SHADOW_ETCHED_IN,
295                 NULL);
296
297   gtk_container_add (GTK_CONTAINER (sw), GTK_WIDGET (acr->tv));
298
299   gtk_box_pack_start (GTK_BOX (acr), sw, TRUE, TRUE, 5);
300
301
302   g_signal_connect_swapped (acr->add_button, "clicked",
303                             G_CALLBACK (on_add_button_clicked), acr);
304   g_signal_connect_swapped (acr->change_button, "clicked",
305                             G_CALLBACK (on_change_button_clicked), acr);
306   g_signal_connect_swapped (acr->remove_button, "clicked",
307                             G_CALLBACK (on_remove_button_clicked), acr);
308
309   gtk_widget_show_all (bb);
310
311
312   g_object_set (acr->tv, "headers-visible", FALSE, NULL);
313
314   acr->list_store = NULL;
315
316   psppire_acr_set_model (acr, acr->list_store);
317
318   acr->selection = gtk_tree_view_get_selection (acr->tv);
319
320   g_signal_connect (acr->selection, "changed", G_CALLBACK (on_select), acr);
321
322   gtk_widget_set_sensitive (GTK_WIDGET (acr), FALSE);
323
324   gtk_widget_show_all (sw);
325
326   {
327     GtkCellRenderer *renderer = gtk_cell_renderer_text_new ();
328     GtkTreeViewColumn *column =
329       gtk_tree_view_column_new_with_attributes ("value",
330                                                 renderer,
331                                                 "text", 0,
332                                                 NULL);
333
334     gtk_tree_view_append_column (acr->tv, column);
335   }
336
337 }
338
339
340 GtkWidget*
341 psppire_acr_new (void)
342 {
343   return GTK_WIDGET (g_object_new (psppire_acr_get_type (), NULL));
344 }
345
346
347
348 /* Set the widget's treemodel */
349 void
350 psppire_acr_set_model (PsppireAcr *acr, GtkListStore *liststore)
351 {
352   acr->list_store = liststore;
353
354   gtk_tree_view_set_model (GTK_TREE_VIEW (acr->tv),
355                            GTK_TREE_MODEL (liststore));
356
357   gtk_widget_set_sensitive (GTK_WIDGET (acr), liststore != NULL);
358 }
359
360
361 void
362 psppire_acr_set_enable_func (PsppireAcr *acr, EnabledFunc func, gpointer p)
363 {
364   acr->enabled = func;
365   acr->enabled_data = p;
366 }
367
368 void
369 psppire_acr_set_get_value_func (PsppireAcr *acr,
370                                 GetValueFunc getvalue, gpointer data)
371 {
372   acr->get_value_data = data;
373   acr->get_value = getvalue;
374 }