/* LIBPIKA - The PIKA Library
 * Copyright (C) 1995-1997 Peter Mattis and Spencer Kimball
 *
 * pikalabelentry.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
 * Library 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 <gegl.h>
#include <gtk/gtk.h>

#include "libpikacolor/pikacolor.h"
#include "libpikamath/pikamath.h"
#include "libpikabase/pikabase.h"

#include "pikawidgets.h"


/**
 * SECTION: pikalabelentry
 * @title: PikaLabelEntry
 * @short_description: Widget containing an entry and a label.
 *
 * This widget is a subclass of #PikaLabeled with a #GtkEntry.
 **/

enum
{
  VALUE_CHANGED,
  LAST_SIGNAL
};

enum
{
  PROP_0,
  PROP_VALUE,
};

typedef struct _PikaLabelEntryPrivate
{
  GtkWidget *entry;
} PikaLabelEntryPrivate;

static void        pika_label_entry_constructed       (GObject       *object);
static void        pika_label_entry_set_property      (GObject       *object,
                                                       guint          property_id,
                                                       const GValue  *value,
                                                       GParamSpec    *pspec);
static void        pika_label_entry_get_property      (GObject       *object,
                                                       guint          property_id,
                                                       GValue        *value,
                                                       GParamSpec    *pspec);

static GtkWidget * pika_label_entry_populate          (PikaLabeled   *entry,
                                                       gint          *x,
                                                       gint          *y,
                                                       gint          *width,
                                                       gint          *height);

G_DEFINE_TYPE_WITH_PRIVATE (PikaLabelEntry, pika_label_entry, PIKA_TYPE_LABELED)

#define parent_class pika_label_entry_parent_class

static guint pika_label_entry_signals[LAST_SIGNAL] = { 0 };

static void
pika_label_entry_class_init (PikaLabelEntryClass *klass)
{
  GObjectClass     *object_class  = G_OBJECT_CLASS (klass);
  PikaLabeledClass *labeled_class = PIKA_LABELED_CLASS (klass);

  pika_label_entry_signals[VALUE_CHANGED] =
    g_signal_new ("value-changed",
                  G_TYPE_FROM_CLASS (klass),
                  G_SIGNAL_RUN_FIRST,
                  G_STRUCT_OFFSET (PikaLabelEntryClass, value_changed),
                  NULL, NULL, NULL,
                  G_TYPE_NONE, 0);

  object_class->constructed  = pika_label_entry_constructed;
  object_class->set_property = pika_label_entry_set_property;
  object_class->get_property = pika_label_entry_get_property;

  labeled_class->populate    = pika_label_entry_populate;

  /**
   * PikaLabelEntry:value:
   *
   * The currently set value.
   *
   * Since: 3.0
   **/
  g_object_class_install_property (object_class, PROP_VALUE,
                                   g_param_spec_string ("value",
                                                        "Entry text",
                                                        "The text in the entry",
                                                        NULL,
                                                        PIKA_PARAM_READWRITE));
}

static void
pika_label_entry_init (PikaLabelEntry *entry)
{
  PikaLabelEntryPrivate *priv = pika_label_entry_get_instance_private (entry);

  priv->entry = gtk_entry_new ();
}

static void
pika_label_entry_constructed (GObject *object)
{
  PikaLabelEntry        *entry  = PIKA_LABEL_ENTRY (object);
  PikaLabelEntryPrivate *priv   = pika_label_entry_get_instance_private (entry);
  GtkEntryBuffer        *buffer = gtk_entry_get_buffer (GTK_ENTRY (priv->entry));

  G_OBJECT_CLASS (parent_class)->constructed (object);

  /* This is important to make this object into a property widget. It
   * will allow config object to bind the "value" property of this
   * widget, and therefore be updated automatically.
   */
  g_object_bind_property (G_OBJECT (buffer), "text",
                          G_OBJECT (entry),  "value",
                          G_BINDING_BIDIRECTIONAL | G_BINDING_SYNC_CREATE);
}

static void
pika_label_entry_set_property (GObject      *object,
                              guint         property_id,
                              const GValue *value,
                              GParamSpec   *pspec)
{
  PikaLabelEntry        *entry = PIKA_LABEL_ENTRY (object);
  PikaLabelEntryPrivate *priv  = pika_label_entry_get_instance_private (entry);

  switch (property_id)
    {
    case PROP_VALUE:
        {
          GtkEntryBuffer *buffer = gtk_entry_get_buffer (GTK_ENTRY (priv->entry));

          /* Avoid looping forever since we have bound this widget's
           * "value" property with the entry button "value" property.
           */
          if (g_strcmp0 (gtk_entry_buffer_get_text (buffer),
                         g_value_get_string (value)) != 0)
            gtk_entry_buffer_set_text (buffer, g_value_get_string (value), -1);

          g_signal_emit (object, pika_label_entry_signals[VALUE_CHANGED], 0);
        }
      break;

    default:
      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
      break;
    }
}

static void
pika_label_entry_get_property (GObject    *object,
                               guint       property_id,
                               GValue     *value,
                               GParamSpec *pspec)
{
  PikaLabelEntry        *entry = PIKA_LABEL_ENTRY (object);
  PikaLabelEntryPrivate *priv  = pika_label_entry_get_instance_private (entry);

  switch (property_id)
    {
    case PROP_VALUE:
        {
          GtkEntryBuffer *buffer = gtk_entry_get_buffer (GTK_ENTRY (priv->entry));

          g_value_set_string (value, gtk_entry_buffer_get_text (buffer));
        }
      break;

    default:
      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
      break;
    }
}

static GtkWidget *
pika_label_entry_populate (PikaLabeled *labeled,
                           gint        *x,
                           gint        *y,
                           gint        *width,
                           gint        *height)
{
  PikaLabelEntry        *entry = PIKA_LABEL_ENTRY (labeled);
  PikaLabelEntryPrivate *priv = pika_label_entry_get_instance_private (entry);

  gtk_grid_attach (GTK_GRID (entry), priv->entry, 1, 0, 1, 1);
  /* Make sure the label and entry won't be glued next to each other's. */
  gtk_grid_set_column_spacing (GTK_GRID (entry),
                               4 * gtk_widget_get_scale_factor (GTK_WIDGET (entry)));
  gtk_widget_show (priv->entry);

  return priv->entry;
}


/* Public Functions */


/**
 * pika_label_entry_new:
 * @label:  The text for the #GtkLabel.
 *
 *
 * Returns: (transfer full): The new #PikaLabelEntry widget.
 **/
GtkWidget *
pika_label_entry_new (const gchar *label)
{
  GtkWidget *labeled;

  labeled = g_object_new (PIKA_TYPE_LABEL_ENTRY,
                          "label",  label,
                          NULL);

  return labeled;
}

/**
 * pika_label_entry_set_value:
 * @entry: The #GtkLabelEntry.
 * @value: A new value.
 *
 * This function sets the value in the #GtkEntry inside @entry.
 **/
void
pika_label_entry_set_value (PikaLabelEntry *entry,
                            const gchar    *value)
{
  g_return_if_fail (PIKA_IS_LABEL_ENTRY (entry));

  g_object_set (entry,
                "value", value,
                NULL);
}

/**
 * pika_label_entry_get_value:
 * @entry: The #GtkLabelEntry.
 *
 * This function returns the value shown by @entry.
 *
 * Returns: (transfer none): The value currently set.
 **/
const gchar *
pika_label_entry_get_value (PikaLabelEntry *entry)
{
  PikaLabelEntryPrivate *priv = pika_label_entry_get_instance_private (entry);
  GtkEntryBuffer        *buffer;

  g_return_val_if_fail (PIKA_IS_LABEL_ENTRY (entry), NULL);

  buffer = gtk_entry_get_buffer (GTK_ENTRY (priv->entry));

  return gtk_entry_buffer_get_text (buffer);
}

/**
 * pika_label_entry_get_entry:
 * @entry: The #PikaLabelEntry
 *
 * This function returns the #GtkEntry packed in @entry.
 *
 * Returns: (transfer none): The #GtkEntry contained in @entry.
 **/
GtkWidget *
pika_label_entry_get_entry (PikaLabelEntry *entry)
{
  PikaLabelEntryPrivate *priv = pika_label_entry_get_instance_private (entry);

  g_return_val_if_fail (PIKA_IS_LABEL_ENTRY (entry), NULL);

  return priv->entry;
}