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