PIKApp/libpikawidgets/pikaintradioframe.c

790 lines
23 KiB
C

/* LIBPIKA - The PIKA Library
* Copyright (C) 1995-1997 Peter Mattis and Spencer Kimball
*
* pikaintradioframe.c
* Copyright (C) 2022 Jehan
*
* This library is free software: you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 3 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library. If not, see
* <https://www.gnu.org/licenses/>.
*/
#include "config.h"
#include <libintl.h>
#include <gtk/gtk.h>
#include "libpikabase/pikabase.h"
#include "pikawidgetstypes.h"
#include "pikaintradioframe.h"
#include "pikaintstore.h"
/**
* SECTION: pikaintradioframe
* @title: PikaIntRadioFrame
* @short_description: A widget providing radio buttons for integer
* values (e.g. enums).
*
* A widget providing a frame with title, containing grouped radio
* buttons, each associated with an integer value and random user data.
**/
enum
{
PROP_0,
PROP_VALUE,
PROP_STORE,
};
typedef struct _PikaIntRadioFramePrivate PikaIntRadioFramePrivate;
struct _PikaIntRadioFramePrivate
{
gchar *label;
PikaIntStore *store;
GSList *group;
gint value;
GtkWidget *box;
PikaIntRadioFrameSensitivityFunc sensitivity_func;
gpointer sensitivity_data;
GDestroyNotify sensitivity_destroy;
};
#define GET_PRIVATE(obj) ((PikaIntRadioFramePrivate *) pika_int_radio_frame_get_instance_private ((PikaIntRadioFrame *) obj))
static void pika_int_radio_frame_constructed (GObject *object);
static void pika_int_radio_frame_finalize (GObject *object);
static void pika_int_radio_frame_set_property (GObject *object,
guint property_id,
const GValue *value,
GParamSpec *pspec);
static void pika_int_radio_frame_get_property (GObject *object,
guint property_id,
GValue *value,
GParamSpec *pspec);
static gboolean pika_int_radio_frame_draw (GtkWidget *widget,
cairo_t *cr,
gpointer user_data);
static void pika_int_radio_frame_fill (PikaIntRadioFrame *frame);
static void pika_int_radio_frame_set_store (PikaIntRadioFrame *frame,
PikaIntStore *store);
static void pika_int_radio_frame_update_sensitivity (PikaIntRadioFrame *frame);
static void pika_int_radio_frame_button_toggled (GtkToggleButton *button,
PikaIntRadioFrame *frame);
G_DEFINE_TYPE_WITH_PRIVATE (PikaIntRadioFrame, pika_int_radio_frame,
PIKA_TYPE_FRAME)
#define parent_class pika_int_radio_frame_parent_class
static void
pika_int_radio_frame_class_init (PikaIntRadioFrameClass *klass)
{
GObjectClass *object_class = G_OBJECT_CLASS (klass);
object_class->constructed = pika_int_radio_frame_constructed;
object_class->finalize = pika_int_radio_frame_finalize;
object_class->set_property = pika_int_radio_frame_set_property;
object_class->get_property = pika_int_radio_frame_get_property;
/**
* PikaIntRadioFrame:value:
*
* The active value
*
* Since: 3.0
*/
g_object_class_install_property (object_class, PROP_VALUE,
g_param_spec_int ("value",
"Value",
"Value of active item",
G_MININT, G_MAXINT, 0,
PIKA_PARAM_READWRITE |
G_PARAM_EXPLICIT_NOTIFY));
/**
* PikaIntRadioFrame:store:
*
* The %PikaIntStore from which the radio frame takes the values shown
* in the list.
*
* Since: 3.0
*/
g_object_class_install_property (object_class,
PROP_STORE,
g_param_spec_object ("store",
"PikaRadioFrame int store",
"The int store for the radio frame",
PIKA_TYPE_INT_STORE,
PIKA_PARAM_READWRITE |
G_PARAM_EXPLICIT_NOTIFY));
}
static void
pika_int_radio_frame_init (PikaIntRadioFrame *radio_frame)
{
PikaIntRadioFramePrivate *priv = GET_PRIVATE (radio_frame);
priv->box = gtk_box_new (GTK_ORIENTATION_VERTICAL, 2);
gtk_container_add (GTK_CONTAINER (radio_frame), priv->box);
gtk_widget_show (GTK_WIDGET (priv->box));
}
static void
pika_int_radio_frame_constructed (GObject *object)
{
G_OBJECT_CLASS (parent_class)->constructed (object);
g_signal_connect (object, "draw",
G_CALLBACK (pika_int_radio_frame_draw),
NULL);
}
static void
pika_int_radio_frame_finalize (GObject *object)
{
PikaIntRadioFramePrivate *priv = GET_PRIVATE (object);
g_clear_pointer (&priv->label, g_free);
g_clear_object (&priv->store);
g_clear_pointer (&priv->group, g_slist_free);
if (priv->sensitivity_destroy)
{
GDestroyNotify d = priv->sensitivity_destroy;
priv->sensitivity_destroy = NULL;
d (priv->sensitivity_data);
}
G_OBJECT_CLASS (parent_class)->finalize (object);
}
static void
pika_int_radio_frame_set_property (GObject *object,
guint property_id,
const GValue *value,
GParamSpec *pspec)
{
switch (property_id)
{
case PROP_VALUE:
pika_int_radio_frame_set_active (PIKA_INT_RADIO_FRAME (object),
g_value_get_int (value));
break;
case PROP_STORE:
pika_int_radio_frame_set_store (PIKA_INT_RADIO_FRAME (object),
g_value_get_object (value));
break;
default:
G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
break;
}
}
static void
pika_int_radio_frame_get_property (GObject *object,
guint property_id,
GValue *value,
GParamSpec *pspec)
{
PikaIntRadioFramePrivate *priv = GET_PRIVATE (object);
switch (property_id)
{
case PROP_VALUE:
g_value_set_int (value, priv->value);
break;
case PROP_STORE:
g_value_set_object (value, priv->store);
break;
default:
G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
break;
}
}
/* Public functions */
/**
* pika_int_radio_frame_new_from_store:
* @title: the frame label.
* @store: the %PikaIntStore to generate radio buttons from.
*
* Creates a %PikaIntRadioFrame containing radio buttons for each item
* in the @store. The created widget takes ownership of @store.
*
* If you need to construct an empty #PikaIntRadioFrame, it's best to use
* g_object_new (PIKA_TYPE_INT_RADIO_FRAME, NULL).
*
* Returns: a new #PikaIntRadioFrame.
*
* Since: 3.0
**/
GtkWidget *
pika_int_radio_frame_new_from_store (const gchar *title,
PikaIntStore *store)
{
GtkWidget *radio_frame;
radio_frame = g_object_new (PIKA_TYPE_INT_RADIO_FRAME,
"label", title,
"store", store,
NULL);
return radio_frame;
}
/**
* pika_int_radio_frame_new: (skip)
* @first_label: the label of the first item
* @first_value: the value of the first item
* @...: a %NULL terminated list of more label, value pairs
*
* Creates a GtkComboBox that has integer values associated with each
* item. The items to fill the combo box with are specified as a %NULL
* terminated list of label/value pairs.
*
* If you need to construct an empty #PikaIntRadioFrame, it's best to use
* g_object_new (PIKA_TYPE_INT_RADIO_FRAME, NULL).
*
* Returns: a new #PikaIntRadioFrame.
*
* Since: 3.0
**/
GtkWidget *
pika_int_radio_frame_new (const gchar *first_label,
gint first_value,
...)
{
GtkWidget *radio_frame;
va_list args;
va_start (args, first_value);
radio_frame = pika_int_radio_frame_new_valist (first_label, first_value, args);
va_end (args);
return radio_frame;
}
/**
* pika_int_radio_frame_new_valist: (skip)
* @first_label: the label of the first item
* @first_value: the value of the first item
* @values: a va_list with more values
*
* A variant of pika_int_radio_frame_new() that takes a va_list of
* label/value pairs.
*
* Returns: a new #PikaIntRadioFrame.
*
* Since: 3.0
**/
GtkWidget *
pika_int_radio_frame_new_valist (const gchar *first_label,
gint first_value,
va_list values)
{
GtkWidget *radio_frame;
GtkListStore *store;
store = pika_int_store_new_valist (first_label, first_value, values);
radio_frame = g_object_new (PIKA_TYPE_INT_RADIO_FRAME,
"store", store,
NULL);
return radio_frame;
}
/**
* pika_int_radio_frame_new_array: (rename-to pika_int_radio_frame_new)
* @labels: (array zero-terminated=1): a %NULL-terminated array of labels.
*
* A variant of pika_int_radio_frame_new() that takes an array of labels.
* The array indices are used as values.
*
* Returns: a new #PikaIntRadioFrame.
*
* Since: 3.0
**/
GtkWidget *
pika_int_radio_frame_new_array (const gchar *labels[])
{
GtkWidget *frame;
PikaIntRadioFramePrivate *priv;
GtkListStore *store;
gint i;
g_return_val_if_fail (labels != NULL, NULL);
frame = g_object_new (PIKA_TYPE_INT_RADIO_FRAME, NULL);
priv = GET_PRIVATE (frame);
store = GTK_LIST_STORE (priv->store);
for (i = 0; labels[i] != NULL; i++)
{
GtkTreeIter iter;
if (labels[i])
{
gtk_list_store_append (store, &iter);
gtk_list_store_set (store, &iter,
PIKA_INT_STORE_VALUE, i,
PIKA_INT_STORE_LABEL, labels[i],
-1);
}
}
return frame;
}
/**
* pika_int_radio_frame_prepend: (skip)
* @radio_frame: a #PikaIntRadioFrame
* @...: pairs of column number and value, terminated with -1
*
* This function provides a convenient way to prepend items to a
* #PikaIntRadioFrame. It prepends a row to the @radio_frame's list store
* and calls gtk_list_store_set() for you.
*
* The column number must be taken from the enum #PikaIntStoreColumns.
*
* Since: 3.0
**/
void
pika_int_radio_frame_prepend (PikaIntRadioFrame *radio_frame,
...)
{
GtkListStore *store;
PikaIntRadioFramePrivate *priv;
GtkTreeIter iter;
va_list args;
g_return_if_fail (PIKA_IS_INT_RADIO_FRAME (radio_frame));
priv = GET_PRIVATE (radio_frame);
store = GTK_LIST_STORE (priv->store);
va_start (args, radio_frame);
gtk_list_store_prepend (store, &iter);
gtk_list_store_set_valist (store, &iter, args);
va_end (args);
}
/**
* pika_int_radio_frame_append: (skip)
* @radio_frame: a #PikaIntRadioFrame
* @...: pairs of column number and value, terminated with -1
*
* This function provides a convenient way to append items to a
* #PikaIntRadioFrame. It appends a row to the @radio_frame's list store
* and calls gtk_list_store_set() for you.
*
* The column number must be taken from the enum #PikaIntStoreColumns.
*
* Since: 3.0
**/
void
pika_int_radio_frame_append (PikaIntRadioFrame *radio_frame,
...)
{
GtkListStore *store;
PikaIntRadioFramePrivate *priv;
GtkTreeIter iter;
va_list args;
g_return_if_fail (PIKA_IS_INT_RADIO_FRAME (radio_frame));
priv = GET_PRIVATE (radio_frame);
store = GTK_LIST_STORE (priv->store);
va_start (args, radio_frame);
gtk_list_store_append (store, &iter);
gtk_list_store_set_valist (store, &iter, args);
va_end (args);
}
/**
* pika_int_radio_frame_set_active:
* @radio_frame: a #PikaIntRadioFrame
* @value: an integer value
*
* Looks up the item that belongs to the given @value and makes it the
* selected item in the @radio_frame.
*
* Returns: %TRUE on success (value changed or not) or %FALSE if there
* was no item for this value.
*
* Since: 3.0
**/
gboolean
pika_int_radio_frame_set_active (PikaIntRadioFrame *frame,
gint value)
{
PikaIntRadioFramePrivate *priv = GET_PRIVATE (frame);
GtkWidget *button;
GSList *iter = priv->group;
g_return_val_if_fail (PIKA_IS_INT_RADIO_FRAME (frame), FALSE);
for (; iter; iter = g_slist_next (iter))
{
button = GTK_WIDGET (iter->data);
if (g_object_get_data (G_OBJECT (button), "pika-radio-frame-value") ==
GINT_TO_POINTER (value))
{
if (! gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (button)))
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (button), TRUE);
return TRUE;
}
}
return FALSE;
}
/**
* pika_int_radio_frame_get_active:
* @radio_frame: a #PikaIntRadioFrame
*
* Returns: the value of the active item.
*
* Since:3.0
**/
gint
pika_int_radio_frame_get_active (PikaIntRadioFrame *frame)
{
PikaIntRadioFramePrivate *priv = GET_PRIVATE (frame);
g_return_val_if_fail (PIKA_IS_INT_RADIO_FRAME (frame), FALSE);
return priv->value;
}
/**
* pika_int_radio_frame_set_active_by_user_data:
* @radio_frame: a #PikaIntRadioFrame
* @user_data: an integer value
*
* Looks up the item that has the given @user_data and makes it the
* selected item in the @radio_frame.
*
* Returns: %TRUE on success or %FALSE if there was no item for
* this user-data.
*
* Since: 3.0
**/
gboolean
pika_int_radio_frame_set_active_by_user_data (PikaIntRadioFrame *radio_frame,
gpointer user_data)
{
PikaIntRadioFramePrivate *priv;
GtkTreeIter iter;
g_return_val_if_fail (PIKA_IS_INT_RADIO_FRAME (radio_frame), FALSE);
priv = GET_PRIVATE (radio_frame);
if (pika_int_store_lookup_by_user_data (GTK_TREE_MODEL (priv->store), user_data, &iter))
{
gint value;
gtk_tree_model_get (GTK_TREE_MODEL (priv->store), &iter,
PIKA_INT_STORE_VALUE, &value,
-1);
pika_int_radio_frame_set_active (radio_frame, value);
return TRUE;
}
return FALSE;
}
/**
* pika_int_radio_frame_get_active_user_data:
* @radio_frame: a #PikaIntRadioFrame
* @user_data: (out) (transfer none): return location for the gpointer value
*
* Retrieves the user-data of the selected (active) item in the @radio_frame.
*
* Returns: %TRUE if @user_data has been set or %FALSE if no item was
* active.
*
* Since: 3.0
**/
gboolean
pika_int_radio_frame_get_active_user_data (PikaIntRadioFrame *radio_frame,
gpointer *user_data)
{
PikaIntRadioFramePrivate *priv;
GtkTreeIter iter;
g_return_val_if_fail (PIKA_IS_INT_RADIO_FRAME (radio_frame), FALSE);
g_return_val_if_fail (user_data != NULL, FALSE);
priv = GET_PRIVATE (radio_frame);
if (pika_int_store_lookup_by_value (GTK_TREE_MODEL (priv->store), priv->value, &iter))
{
gtk_tree_model_get (GTK_TREE_MODEL (priv->store), &iter,
PIKA_INT_STORE_USER_DATA, user_data,
-1);
return TRUE;
}
return FALSE;
}
/**
* pika_int_radio_frame_set_sensitivity:
* @radio_frame: a #PikaIntRadioFrame
* @func: a function that returns a boolean value, or %NULL to unset
* @data: data to pass to @func
* @destroy: destroy notification for @data
*
* Sets a function that is used to decide about the sensitivity of radio
* buttons in the @radio_frame. Use this if you want to set certain
* radio buttons insensitive.
*
* Calling gtk_widget_queue_draw() on the @radio_frame will cause the
* sensitivity to be updated.
*
* Since: 3.0
**/
void
pika_int_radio_frame_set_sensitivity (PikaIntRadioFrame *radio_frame,
PikaIntRadioFrameSensitivityFunc func,
gpointer data,
GDestroyNotify destroy)
{
PikaIntRadioFramePrivate *priv;
g_return_if_fail (PIKA_IS_INT_RADIO_FRAME (radio_frame));
priv = GET_PRIVATE (radio_frame);
if (priv->sensitivity_destroy)
{
GDestroyNotify destroy = priv->sensitivity_destroy;
priv->sensitivity_destroy = NULL;
destroy (priv->sensitivity_data);
}
priv->sensitivity_func = func;
priv->sensitivity_data = data;
priv->sensitivity_destroy = destroy;
}
/* Private functions */
static gboolean
pika_int_radio_frame_draw (GtkWidget *widget,
cairo_t *cr,
gpointer user_data)
{
pika_int_radio_frame_update_sensitivity (PIKA_INT_RADIO_FRAME (widget));
return FALSE;
}
static void
pika_int_radio_frame_fill (PikaIntRadioFrame *frame)
{
PikaIntRadioFramePrivate *priv;
g_return_if_fail (PIKA_IS_INT_RADIO_FRAME (frame));
priv = GET_PRIVATE (frame);
g_clear_pointer (&priv->group, g_slist_free);
gtk_container_foreach (GTK_CONTAINER (priv->box),
(GtkCallback) gtk_widget_destroy, NULL);
if (priv->store)
{
GtkTreeModel *model;
GSList *group = NULL;
GtkTreeIter iter;
gboolean iter_valid;
model = GTK_TREE_MODEL (priv->store);
for (iter_valid = gtk_tree_model_get_iter_first (model, &iter);
iter_valid;
iter_valid = gtk_tree_model_iter_next (model, &iter))
{
GtkWidget *button;
gchar *label;
gint value;
gtk_tree_model_get (model, &iter,
PIKA_INT_STORE_LABEL, &label,
PIKA_INT_STORE_VALUE, &value,
-1);
button = gtk_radio_button_new_with_mnemonic (group, label);
gtk_box_pack_start (GTK_BOX (priv->box), button, FALSE, FALSE, 0);
gtk_widget_show (button);
g_free (label);
group = gtk_radio_button_get_group (GTK_RADIO_BUTTON (button));
g_object_set_data (G_OBJECT (button), "pika-radio-frame-value",
GINT_TO_POINTER (value));
g_signal_connect (button, "toggled",
G_CALLBACK (pika_int_radio_frame_button_toggled),
frame);
}
priv->group = g_slist_copy (group);
pika_int_radio_frame_set_active (frame, priv->value);
}
}
static void
pika_int_radio_frame_set_store (PikaIntRadioFrame *frame,
PikaIntStore *store)
{
PikaIntRadioFramePrivate *priv;
g_return_if_fail (PIKA_IS_INT_RADIO_FRAME (frame));
g_return_if_fail (PIKA_IS_INT_STORE (store));
priv = GET_PRIVATE (frame);
if (priv->store == store)
return;
if (priv->store)
{
g_signal_handlers_disconnect_by_func (priv->store,
(GCallback) pika_int_radio_frame_fill,
NULL);
g_object_unref (priv->store);
}
priv->store = g_object_ref (store);
if (priv->store)
{
g_signal_connect_object (priv->store, "row-changed",
(GCallback) pika_int_radio_frame_fill,
frame, G_CONNECT_SWAPPED);
g_signal_connect_object (priv->store, "row-deleted",
(GCallback) pika_int_radio_frame_fill,
frame, G_CONNECT_SWAPPED);
g_signal_connect_object (priv->store, "row-inserted",
(GCallback) pika_int_radio_frame_fill,
frame, G_CONNECT_SWAPPED);
g_signal_connect_object (priv->store, "rows-reordered",
(GCallback) pika_int_radio_frame_fill,
frame, G_CONNECT_SWAPPED);
}
pika_int_radio_frame_fill (frame);
g_object_notify (G_OBJECT (frame), "store");
}
static void
pika_int_radio_frame_update_sensitivity (PikaIntRadioFrame *frame)
{
PikaIntRadioFramePrivate *priv = GET_PRIVATE (frame);
GSList *iter = priv->group;
g_return_if_fail (PIKA_IS_INT_RADIO_FRAME (frame));
if (! priv->sensitivity_func)
return;
for (; iter; iter = g_slist_next (iter))
{
GtkWidget *button = GTK_WIDGET (iter->data);
GtkTreeIter tree_iter;
gint value;
value = GPOINTER_TO_INT (g_object_get_data (G_OBJECT (button), "pika-radio-frame-value"));
gtk_widget_set_sensitive (button, TRUE);
if (pika_int_store_lookup_by_value (GTK_TREE_MODEL (priv->store), value, &tree_iter))
{
gpointer user_data;
gint new_value = value;
gtk_tree_model_get (GTK_TREE_MODEL (priv->store), &tree_iter,
PIKA_INT_STORE_USER_DATA, &user_data,
-1);
if (! priv->sensitivity_func (value, user_data, &new_value,
priv->sensitivity_data))
{
if (new_value != value)
pika_int_radio_frame_set_active (frame, new_value);
gtk_widget_set_sensitive (button, FALSE);
}
}
}
}
static void
pika_int_radio_frame_button_toggled (GtkToggleButton *button,
PikaIntRadioFrame *frame)
{
g_return_if_fail (PIKA_IS_INT_RADIO_FRAME (frame));
g_return_if_fail (GTK_IS_RADIO_BUTTON (button));
if (gtk_toggle_button_get_active (button))
{
PikaIntRadioFramePrivate *priv = GET_PRIVATE (frame);
gint value;
value = GPOINTER_TO_INT (g_object_get_data (G_OBJECT (button), "pika-radio-frame-value"));
if (priv->value != value)
{
priv->value = value;
g_object_notify (G_OBJECT (frame), "value");
}
}
}