/* Vis5D+ -- 
 * Copyright (C) 2001 James P Edwards.
 */

/* The GIMP -- an image manipulation program
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 * Copyright (C) 1998 Andy Thomas.
 *
 * Gradient editor module copyight (C) 1996-1997 Federico Mena Quintero
 * federico@nuclecu.unam.mx
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program 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 PURIGHTE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/* This is the popup for the gradient selection stuff..
 * idea is a cut down version of the gradient selection widget 
 * just a clist on which each gradient can be selected. 
 * Of course all the support functions for getting the selected gradient and
 * setting the selection all need to be done as well.
 */

/* Main structure for the dialog. There can be multiple of these 
 * so every thing has to go into the strcuture and we have to have a list 
 * the structures so we can find which one we are taking about.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <gtk/gtk.h>
#include <gdk/gdkx.h>
#include <gtkgl/gdkgl.h>
#include <gtkgl/gtkglarea.h>

#include "support.h"

#include "gradient.h"
#include "gradient_select.h"

static void gradient_change_callbacks            (GradientSelect *gsp,
						  gboolean        closing);
static gradient_t* gradient_select_drag_gradient (GtkWidget      *widget,
					          gpointer        data);
static void gradient_select_drop_gradient        (GtkWidget      *widget,
						  gradient_t     *gradient,
						  gpointer        data);
static void gradient_select_gradient_changed     (GimpContext    *context,
						  gradient_t     *gradient,
						  GradientSelect *gsp);
static void gradient_select_select               (GradientSelect *gsp,
						  gradient_t     *gradient);

static gint gradient_select_button_press         (GtkWidget      *widget,
						  GdkEventButton *bevent,
						  gpointer        data);
static void gradient_select_list_item_update     (GtkWidget      *widget, 
						  gint            row,
						  gint            column,
						  GdkEventButton *event,
						  gpointer        data);

static void gradient_select_close_callback       (GtkWidget      *widget,
						  gpointer        data);
static void gradient_select_edit_callback        (GtkWidget      *widget,
						  gpointer        data);

static GtkTargetEntry clist_target_table[] = {NULL};
/*  dnd stuff  
static GtkTargetEntry clist_target_table[] =
{
  GIMP_TARGET_GRADIENT
};
*/

static guint clist_n_targets = (sizeof (clist_target_table) /
				sizeof (clist_target_table[0]));



/*  list of active dialogs   */
GSList         *gradient_active_dialogs = NULL;

/*  the main gradient selection dialog  */
GradientSelect *gradient_select_dialog  = NULL;


void
gradient_dialog_create (void)
{
  if (! gradient_select_dialog)
    {
      gradient_select_dialog = gradient_select_new (NULL, NULL);
    }
  else
    {
      if (!GTK_WIDGET_VISIBLE (gradient_select_dialog->shell))
	gtk_widget_show (gradient_select_dialog->shell);
      else
	gdk_window_raise (gradient_select_dialog->shell->window);
    }
}

void
gradient_dialog_free (void)
{
  if (gradient_select_dialog)
    {
		/*
      session_get_window_info (gradient_select_dialog->shell,
			       &gradient_select_session_info);
		*/
      gradient_select_free (gradient_select_dialog);
      gradient_select_dialog = NULL;

    }
  printf("Need to call gradient_editor_free here\n");
  /*
  gradient_editor_free ();
  */
}

/*  If title == NULL then it is the main gradient select dialog  */
GradientSelect *
gradient_select_new (gchar *title,
		     gchar *initial_gradient)
{
  GradientSelect  *gsp;
  GtkWidget       *vbox;
  GtkWidget       *scrolled_win;
  GdkColormap     *colormap;
  gchar           *titles[2];
  gint             column_width;
  gint             select_pos;

  gradient_t      *active = NULL;

  static gboolean  first_call = TRUE;

  gsp = g_new (GradientSelect, 1);
  gsp->callback_name = NULL;
  gsp->dnd_gradient = NULL;
  
  /*  The shell  */
  /*
  gsp->shell = gimp_dialog_new (title ? title : _("Gradient Selection"),
				"gradient_selection",
				gimp_standard_help_func,
				"dialogs/gradient_selection.html",
				title ? GTK_WIN_POS_MOUSE : GTK_WIN_POS_NONE,
				FALSE, TRUE, FALSE,

				_("Edit"), gradient_select_edit_callback,
				gsp, NULL, NULL, FALSE, FALSE,
				_("Close"), gradient_select_close_callback,
				gsp, NULL, NULL, TRUE, TRUE,

				NULL);
  
  if (title)
    {
      gsp->context = gimp_context_new (title, NULL);
    }
  else
    {
      gsp->context = gimp_context_get_user ();

      session_set_window_geometry (gsp->shell, &gradient_select_session_info,
				   TRUE);
      dialog_register (gsp->shell);
    }

  if (no_data && first_call)
    gradients_init (FALSE);
  */
  first_call = FALSE;

  if (title && initial_gradient && strlen (initial_gradient))
    {
      active = gradient_list_get_gradient (gradients_list, initial_gradient);
    }
  else
    {
		/*
      active = gimp_context_get_gradient (gimp_context_get_user ());
		*/
    }

  if (!active)
    {
		/*
      active = gimp_context_get_gradient (gimp_context_get_standard ());
		*/
    }

  if (title)
    {
		/*
      gimp_context_set_gradient (gsp->context, active);
		*/
    }

  vbox = gtk_vbox_new (FALSE, 0);
  gtk_container_set_border_width (GTK_CONTAINER (vbox), 2);
  gtk_container_add (GTK_CONTAINER (GTK_DIALOG (gsp->shell)->vbox), vbox);

  /*  clist preview of gradients  */
  scrolled_win = gtk_scrolled_window_new (NULL, NULL);
  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_win),
				  GTK_POLICY_AUTOMATIC,
				  GTK_POLICY_ALWAYS);
  gtk_container_add (GTK_CONTAINER (vbox), scrolled_win);
  gtk_widget_show (scrolled_win);

  titles[0] = _("Gradient");
  titles[1] = _("Name");
  gsp->clist = gtk_clist_new_with_titles (2, titles);
  gtk_clist_set_shadow_type (GTK_CLIST (gsp->clist), GTK_SHADOW_IN);
  gtk_clist_set_selection_mode (GTK_CLIST (gsp->clist), GTK_SELECTION_BROWSE);
  gtk_clist_set_row_height (GTK_CLIST (gsp->clist), 18);
  gtk_clist_set_use_drag_icons (GTK_CLIST (gsp->clist), FALSE);
  gtk_clist_column_titles_passive (GTK_CLIST (gsp->clist));
  gtk_widget_set_usize (gsp->clist, 200, 250);
  gtk_container_add (GTK_CONTAINER (scrolled_win), gsp->clist);

  column_width =
    MAX (50, gtk_clist_optimal_column_width (GTK_CLIST (gsp->clist), 0));
  gtk_clist_set_column_min_width (GTK_CLIST (gsp->clist), 0, 50);
  gtk_clist_set_column_width (GTK_CLIST (gsp->clist), 0, column_width);

  gtk_widget_show (gsp->clist);

  colormap = gtk_widget_get_colormap (gsp->clist);
  gdk_color_parse ("black", &gsp->black);
  gdk_color_alloc (colormap, &gsp->black);

  gtk_widget_realize (gsp->shell);
  gsp->gc = gdk_gc_new (gsp->shell->window);

  select_pos = gradient_clist_init (gsp->shell, gsp->gc, gsp->clist, active);

  /* Now show the dialog */
  gtk_widget_show (vbox);
  gtk_widget_show (gsp->shell);

  gtk_signal_connect (GTK_OBJECT (gsp->clist), "button_press_event",
		      GTK_SIGNAL_FUNC (gradient_select_button_press),
		      (gpointer) gsp);

  gtk_signal_connect (GTK_OBJECT (gsp->clist), "select_row",
		      GTK_SIGNAL_FUNC (gradient_select_list_item_update),
		      (gpointer) gsp);

  gtk_signal_connect (GTK_OBJECT (gsp->context), "gradient_changed",
                      GTK_SIGNAL_FUNC (gradient_select_gradient_changed),
                      (gpointer) gsp);

  /*  dnd stuff  */
  /*
  gtk_drag_source_set (gsp->clist,
		       GDK_BUTTON1_MASK | GDK_BUTTON2_MASK,
		       clist_target_table, clist_n_targets,
		       GDK_ACTION_COPY);
  
  gimp_dnd_gradient_source_set (gsp->clist, gradient_select_drag_gradient, gsp);

  gtk_drag_dest_set (gsp->clist,
                     GTK_DEST_DEFAULT_ALL,
                     clist_target_table, clist_n_targets,
                     GDK_ACTION_COPY);
  gimp_dnd_gradient_dest_set (gsp->clist, gradient_select_drop_gradient, gsp);
  */

  if (active)
    gradient_select_select (gsp, active);

  /*  Add to active gradient dialogs list  */
  gradient_active_dialogs = g_slist_append (gradient_active_dialogs, gsp);

  return gsp;
}

void
gradient_select_free (GradientSelect *gsp)
{
  if (!gsp)
    return;

  /* remove from active list */
  gradient_active_dialogs = g_slist_remove (gradient_active_dialogs, gsp);

  gtk_signal_disconnect_by_data (GTK_OBJECT (gsp->context), gsp);

  if (gsp->callback_name)
    { 
      g_free (gsp->callback_name);
      gtk_object_unref (GTK_OBJECT (gsp->context));
    }
 
   g_free (gsp);
}

void
gradient_select_rename_all (gradient_t *gradient)
{
  GradientSelect *gsp; 
  GSList         *list;
  gint            row;

  for (list = gradient_active_dialogs; list; list = g_slist_next (list))
    {
      gsp = (GradientSelect *) list->data;

      row = gtk_clist_find_row_from_data (GTK_CLIST (gsp->clist), gradient);
		/*
      if (row > -1)
		  gtk_clist_set_text (GTK_CLIST (gsp->clist), row, 1, gradient->name);  
		*/
    }
}

void
gradient_select_insert_all (gint        pos,
			    gradient_t *gradient)
{
  GradientSelect *gsp; 
  GSList         *list;

  for (list = gradient_active_dialogs; list; list = g_slist_next (list))
    {
      gsp = (GradientSelect *) list->data;

      gtk_clist_freeze (GTK_CLIST (gsp->clist));
      gradient_clist_insert (gsp->shell, gsp->gc, gsp->clist,
			     gradient, pos, FALSE);
      gtk_clist_thaw (GTK_CLIST (gsp->clist));
    }
}

void
gradient_select_delete_all (gradient_t *gradient)
{
  GradientSelect *gsp; 
  GSList         *list;
  gint            row;

  for (list = gradient_active_dialogs; list; list = g_slist_next (list))
    {
      gsp = (GradientSelect *) list->data;
      
      row = gtk_clist_find_row_from_data (GTK_CLIST (gsp->clist), gradient);
      if (row > -1)
	gtk_clist_remove (GTK_CLIST (gsp->clist), row);
    }
}

void
gradient_select_free_all (void)
{
  GradientSelect *gsp; 
  GSList *list;

  for (list = gradient_active_dialogs; list; list = g_slist_next (list))
    {
      gsp = (GradientSelect *) list->data;

      gtk_clist_clear (GTK_CLIST (gsp->clist));
    }
}

void
gradient_select_refill_all (void)
{
  GradientSelect *gsp;
  GSList         *list;
  gint            index = -1;

  for (list = gradient_active_dialogs; list; list = g_slist_next (list))
    {
      gsp = (GradientSelect *) list->data;
		/*
      index = gradient_clist_init (gsp->shell, gsp->gc, gsp->clist, 
				   gimp_context_get_gradient (gsp->context));

      if (index != -1)
		gradient_select_select (gsp, gimp_context_get_gradient (gsp->context));
		*/
    }
}

void
gradient_select_update_all (gradient_t *gradient)
{
  GSList         *list;
  GradientSelect *gsp; 
  gint            row;
  
  for (list = gradient_active_dialogs; list; list = g_slist_next (list))
    {
      gsp = (GradientSelect *) list->data;

      row = gtk_clist_find_row_from_data (GTK_CLIST (gsp->clist), gradient);
		/*
      if (row > -1)
		  gtk_clist_set_text (GTK_CLIST (gsp->clist), row, 1, gradient->name);  
		*/

    }
}

/*
 *  Local functions
 */

static gradient_t *
gradient_select_drag_gradient (GtkWidget  *widget,
			       gpointer    data)
{
  GradientSelect *gsp;

  gsp = (GradientSelect *) data;

  return gsp->dnd_gradient;
}

static void
gradient_select_drop_gradient (GtkWidget  *widget,
			       gradient_t *gradient,
			       gpointer    data)
{
  GradientSelect *gsp;

  gsp = (GradientSelect *) data;
  /*
  gimp_context_set_gradient (gsp->context, gradient);
  */
}

static void
gradient_select_gradient_changed (GimpContext    *context,
				  gradient_t     *gradient,
				  GradientSelect *gsp)
{
  if (gradient)
    {
      gradient_select_select (gsp, gradient);
		/*
      if (gsp->callback_name)
	gradient_change_callbacks (gsp, FALSE);
		*/
      gsp->dnd_gradient = gradient;
    }
}

static void
gradient_select_select (GradientSelect *gsp,
			gradient_t     *gradient)
{
  gint index;

  index = gradient_list_get_gradient_index (gradients_list, gradient);

  if (index != -1)
    {
      gtk_signal_handler_block_by_data (GTK_OBJECT (gsp->clist), gsp);

      gtk_clist_select_row (GTK_CLIST (gsp->clist), index, -1);
      gtk_clist_moveto (GTK_CLIST (gsp->clist), index, 0, 0.5, 0.0);

      gtk_signal_handler_unblock_by_data (GTK_OBJECT (gsp->clist), gsp);
    }
}

static gint
gradient_select_button_press (GtkWidget      *widget,
			      GdkEventButton *bevent,
			      gpointer        data)
{
  GradientSelect *gsp;

  gsp = (GradientSelect *) data;

  if (bevent->button == 1 && bevent->type == GDK_2BUTTON_PRESS)
    {
      gradient_select_edit_callback (widget, data);

      return TRUE;
    }

  if (bevent->button == 2)
    {
      GSList *list = NULL;
      gint row;
      gint column;

      gtk_clist_get_selection_info (GTK_CLIST (gsp->clist),
				    bevent->x, bevent->y,
				    &row, &column);

      if (gradients_list)
	list = g_slist_nth (gradients_list, row);

      if (list)
	gsp->dnd_gradient = (gradient_t *) list->data;
      else
	gsp->dnd_gradient = NULL;

      return TRUE;
    }

  return FALSE;
}

static void
gradient_select_list_item_update (GtkWidget      *widget, 
				  gint            row,
				  gint            column,
				  GdkEventButton *event,
				  gpointer        data)
{
  GradientSelect *gsp;
  GSList *list;

  gsp  = (GradientSelect *) data;
  list = g_slist_nth (gradients_list, row);

  gtk_signal_handler_block_by_data (GTK_OBJECT (gsp->context), gsp);
  /*
  gimp_context_set_gradient (gsp->context, (gradient_t *) list->data);
  */
  gtk_signal_handler_unblock_by_data (GTK_OBJECT (gsp->context), gsp);

  gsp->dnd_gradient = (gradient_t *) list->data;
  /*
  if (gsp->callback_name)
    gradient_change_callbacks (gsp, FALSE);
  */
}

static void
gradient_select_edit_callback (GtkWidget *widget,
			       gpointer   data)
{
  GradientSelect *gsp;

  gsp = (GradientSelect *) data;

  gradient_editor_create ();
  /*
  if (gsp)
    gradient_editor_set_gradient (gimp_context_get_gradient (gsp->context));
  */
}

static void
gradient_select_close_callback (GtkWidget *widget,
				gpointer   data)
{
  GradientSelect *gsp;

  gsp = (GradientSelect *) data;

  if (GTK_WIDGET_VISIBLE (gsp->shell))
    gtk_widget_hide (gsp->shell);

  /* Free memory if poping down dialog which is not the main one */
  if (gsp != gradient_select_dialog)
    {
		/*
      gradient_change_callbacks (gsp, TRUE);
		*/
      gtk_widget_destroy (gsp->shell);
      gradient_select_free (gsp);
    }
}


syntax highlighted by Code2HTML, v. 0.9.1