gimp/app/paths_dialog.c

/* The GIMP -- an image manipulation program
 * Copyright (C) 1999 Andy Thomas alt@picnic.demon.co.uk
 *
 * 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 PURPOSE.  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.
 * Some of this code is based on the layers_dialog box code.
 */
#include "config.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>

#include "gdk/gdkkeysyms.h"

#include "appenv.h"
#include "draw_core.h"
#include "actionarea.h"
#include "colormaps.h"
#include "drawable.h"
#include "errors.h"
#include "floating_sel.h"
#include "gimage.h"
#include "gimpimage.h"
#include "gimpdrawable.h"
#include "gimage_mask.h"
#include "gdisplay.h"
#include "gimprc.h"
#include "gimpset.h"
#include "general.h"
#include "image_render.h"
#include "interface.h"
#include "lc_dialogP.h"
#include "menus.h"
#include "ops_buttons.h"
#include "bezier_select.h"
#include "bezier_selectP.h"
#include "pathsP.h"
#include "paths_dialog.h"
#include "paths_dialogP.h"
#include "resize.h"
#include "session.h"
#include "undo.h"

#include "drawable_pvt.h"

#include "libgimp/gimpintl.h"
#include "libgimp/gimpmath.h"

#include "pixmaps/new.xpm"
#include "pixmaps/duplicate.xpm"
#include "pixmaps/delete.xpm"
#include "pixmaps/pennorm.xpm"
#include "pixmaps/penadd.xpm"
#include "pixmaps/pendel.xpm"
#include "pixmaps/penedit.xpm"
#include "pixmaps/penstroke.xpm"
#include "pixmaps/toselection.xpm"
#include "pixmaps/topath.xpm"
#include "pixmaps/path.xbm"
#include "pixmaps/locked.xbm"

#define PREVIEW_EVENT_MASK GDK_EXPOSURE_MASK | GDK_BUTTON_PRESS_MASK | \
                           GDK_ENTER_NOTIFY_MASK

#define PATHS_LIST_WIDTH  200
#define PATHS_LIST_HEIGHT 150

typedef struct {
  GtkWidget *paths_list;
  GtkWidget *vbox;
  GtkWidget *ops_menu;
  GtkAccelGroup *accel_group;

  double ratio;
  int image_width, image_height;
  int gimage_width, gimage_height;

  /* pixmaps for the no preview bitmap */
  GdkPixmap * pixmap_normal;
  GdkPixmap * pixmap_selected;
  GdkPixmap * pixmap_locked_normal;
  GdkPixmap * pixmap_locked_selected;

  /*  state information  */
  gint        selsigid;
  GimpImage * gimage;
  GdkGC     * gc;   
  GdkColor    black;
  GdkColor    white;
  gint        selected_row_num;
  gboolean    been_selected;
  PATHIMAGELISTP current_path_list;
} PATHSLIST, *PATHSLISTP;

static PATHSLISTP paths_dialog = NULL;
static PATHP copy_pp = NULL;

typedef struct {
  GdkPixmap   *paths_pixmap;
  GString     *text;
  PATHP        bzp;
} PATHWIDGET, *PATHWIDGETP;

typedef struct {
  Tattoo tattoo;
  PATHP  copy_path;
} PATHUNDO;

typedef struct {
  CountCurves  c_count;             /* Must be the first element */
  gint         total_count;         /* Total number of curves    */
} PATHCOUNTS, *PATHCOUNTSP;

static gchar * unique_name(GimpImage *,gchar *);

/*  static gint path_widget_preview_events   (GtkWidget *, GdkEvent *);  */
static void paths_dialog_realized        (GtkWidget *widget);
static void paths_select_row             (GtkWidget *widget, gint row, gint column, 
					  GdkEventButton *event, gpointer data);
static void paths_unselect_row           (GtkWidget *widget, gint row, gint column,
					  GdkEventButton *event, gpointer data);
static gint paths_list_events            (GtkWidget *widget,GdkEvent  *event);
static void paths_dialog_map_callback    (GtkWidget *w,gpointer client_data);
static void paths_dialog_unmap_callback  (GtkWidget *w,gpointer client_data);
static void paths_dialog_destroy_cb      (GimpImage *image);
static void paths_update_paths           (gpointer data,gint row);
static GSList *  pathpoints_copy         (GSList *list);
static void      pathpoints_free         (GSList *list);
static void paths_update_preview         (BezierSelect *bezier_sel);
static void paths_dialog_preview_extents (void);
static void paths_dialog_new_point_callback    (GtkWidget *, gpointer);
static void paths_dialog_add_point_callback    (GtkWidget *, gpointer);
static void paths_dialog_delete_point_callback (GtkWidget *, gpointer);
static void paths_dialog_edit_point_callback   (GtkWidget *, gpointer);
static void paths_dialog_sel_to_path_callback  (GtkWidget *, gpointer);
static void paths_dialog_advanced_to_path_callback (GtkWidget *, gpointer);
static void paths_dialog_null_callback        (GtkWidget *, gpointer);

static void path_close(PATHP);

#define NEW_PATH_BUTTON    1
#define DUP_PATH_BUTTON    2
#define DEL_PATH_BUTTON    3
#define PATH_TO_SEL_BUTTON 4
#define STROKE_PATH_BUTTON 5
#define COPY_PATH_BUTTON   8
#define PASTE_PATH_BUTTON  9

/*  the ops buttons  */
static OpsButtonCallback to_path_ext_callbacks[] = 
{ 
  paths_dialog_advanced_to_path_callback,          /* SHIFT */
  paths_dialog_null_callback,                      /* CTRL  */
  paths_dialog_null_callback,                      /* MOD1  */
  paths_dialog_null_callback,                      /* SHIFT + CTRL */
};

static OpsButton paths_ops_buttons[] =
{
  { new_xpm, paths_dialog_new_path_callback, NULL, N_("New Path"), NULL, 0 },
  { duplicate_xpm, paths_dialog_dup_path_callback, NULL, N_("Duplicate Path"), NULL, 0 },
  { toselection_xpm, paths_dialog_path_to_sel_callback, NULL, N_("Path to Selection"), NULL, 0 },
  { topath_xpm, paths_dialog_sel_to_path_callback, to_path_ext_callbacks, N_("Selection to Path"), NULL, 0 },
  { penstroke_xpm, paths_dialog_stroke_path_callback, NULL, N_("Stroke Path"), NULL, 0 },
  { delete_xpm, paths_dialog_delete_path_callback, NULL, N_("Delete Path"), NULL, 0 },
  { NULL, NULL, NULL, NULL, NULL, 0 }
};

#define POINT_NEW_BUTTON  1
#define POINT_ADD_BUTTON  2
#define POINT_DEL_BUTTON  3
#define POINT_EDIT_BUTTON 4

static OpsButton point_ops_buttons[] =
{
  { pennorm_xpm, paths_dialog_new_point_callback, NULL, N_("New Point"), NULL, 0 },
  { penadd_xpm, paths_dialog_add_point_callback, NULL, N_("Add Point"), NULL, 0 },
  { pendel_xpm, paths_dialog_delete_point_callback, NULL, N_("Delete Point"), NULL, 0 },
  { penedit_xpm, paths_dialog_edit_point_callback, NULL, N_("Edit Point"), NULL, 0 },
  { NULL, NULL, NULL, NULL, NULL, 0 }
};

static void
paths_ops_button_set_sensitive (gint     but,
				gboolean sensitive)
{
  switch(but)
    {
    case NEW_PATH_BUTTON:
      menus_set_sensitive_glue ("<Paths>", N_("/New Path"), sensitive);
      gtk_widget_set_sensitive(paths_ops_buttons[0].widget,sensitive);
      break;
    case DUP_PATH_BUTTON:
      menus_set_sensitive_glue ("<Paths>", N_("/Duplicate Path"), sensitive);
      gtk_widget_set_sensitive(paths_ops_buttons[1].widget,sensitive);
      break;
    case PATH_TO_SEL_BUTTON:
      menus_set_sensitive_glue ("<Paths>", N_("/Path to Selection"), sensitive);
      gtk_widget_set_sensitive(paths_ops_buttons[2].widget,sensitive);
      break;
    case STROKE_PATH_BUTTON:
      menus_set_sensitive_glue ("<Paths>", N_("/Stroke Path"), sensitive);
      gtk_widget_set_sensitive(paths_ops_buttons[4].widget,sensitive);
      break;
    case DEL_PATH_BUTTON:
      menus_set_sensitive_glue ("<Paths>", N_("/Delete Path"), sensitive);
      gtk_widget_set_sensitive(paths_ops_buttons[5].widget,sensitive);
      break;
    case COPY_PATH_BUTTON:
      menus_set_sensitive_glue ("<Paths>", N_("/Copy Path"), sensitive);
      break;
    case PASTE_PATH_BUTTON:
      menus_set_sensitive_glue ("<Paths>", N_("/Paste Path"), sensitive);
      break;
    default:
      g_warning("paths_ops_button_set_sensitive:: invalid button specified");
      break;
    }
}

static void
point_ops_button_set_sensitive(gint but,gboolean sensitive)
{
  switch(but)
    {
    case POINT_NEW_BUTTON:
      gtk_widget_set_sensitive(point_ops_buttons[0].widget,sensitive);
      break;
    case POINT_ADD_BUTTON:
      gtk_widget_set_sensitive(point_ops_buttons[1].widget,sensitive);
      break;
    case POINT_DEL_BUTTON:
      gtk_widget_set_sensitive(point_ops_buttons[2].widget,sensitive);
      break;
    case POINT_EDIT_BUTTON:
      gtk_widget_set_sensitive(point_ops_buttons[3].widget,sensitive);
      break;
    default:
      g_warning("point_ops_button_set_sensitive:: invalid button specified");
      break;
    }
}

static void
paths_list_destroy (GtkWidget *w)
{
  paths_dialog = NULL;
}

GtkWidget * paths_dialog_create()
{
  GtkWidget *vbox;
  GtkWidget *paths_list;
  GtkWidget *scrolled_win;  
  GtkWidget *button_box;  

  if(!paths_dialog)
    {
      paths_dialog = g_new0(PATHSLIST,1);

      /*  The paths box  */
      paths_dialog->vbox = vbox = gtk_vbox_new (FALSE, 1);

      /* The point operations */
      button_box = ops_button_box_new (lc_dialog->shell, tool_tips, 
				       point_ops_buttons, OPS_BUTTON_RADIO);

      gtk_container_set_border_width(GTK_CONTAINER(button_box),7);

      gtk_box_pack_start (GTK_BOX (vbox), button_box, FALSE, TRUE, 2);
      gtk_widget_show (button_box);

      gtk_container_set_border_width (GTK_CONTAINER (vbox), 2);
      
      scrolled_win = gtk_scrolled_window_new (NULL, NULL);
      gtk_box_pack_start(GTK_BOX(vbox), scrolled_win, TRUE, TRUE, 0); 

      gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_win),
				      GTK_POLICY_AUTOMATIC,
				      GTK_POLICY_ALWAYS);

      paths_dialog->paths_list = paths_list = gtk_clist_new (2);

      gtk_signal_connect (GTK_OBJECT (vbox), "destroy",
			  (GtkSignalFunc) paths_list_destroy, NULL);

/*       gtk_clist_set_column_title(GTK_CLIST(paths_list), 0, _("Locked"));    */
/*       gtk_clist_set_column_title(GTK_CLIST(paths_list), 1, _("Path"));    */
/*       gtk_clist_column_titles_show(GTK_CLIST(paths_list));   */
      /*      gtk_clist_columns_autosize(GTK_CLIST(paths_list));  */
      gtk_clist_set_column_width (GTK_CLIST(paths_list),0,locked_width);

      gtk_container_add (GTK_CONTAINER (scrolled_win), paths_list);
      gtk_clist_set_selection_mode (GTK_CLIST (paths_list), GTK_SELECTION_BROWSE);
      gtk_signal_connect (GTK_OBJECT (paths_list), "event",
			  (GtkSignalFunc) paths_list_events,
			  paths_dialog);
      gtk_container_set_focus_vadjustment (GTK_CONTAINER (paths_list), 
					   gtk_scrolled_window_get_vadjustment (GTK_SCROLLED_WINDOW (scrolled_win))); 
      GTK_WIDGET_UNSET_FLAGS (GTK_SCROLLED_WINDOW (scrolled_win)->vscrollbar, GTK_CAN_FOCUS); 

      paths_dialog->selsigid = gtk_signal_connect(GTK_OBJECT(paths_list), "select_row",
				 GTK_SIGNAL_FUNC(paths_select_row),
				 (gpointer) NULL);

      gtk_signal_connect(GTK_OBJECT(paths_list), "unselect_row",
			 GTK_SIGNAL_FUNC(paths_unselect_row),
			 (gpointer) NULL);
      
      gtk_widget_show(scrolled_win);
      gtk_widget_show(paths_list);

      gtk_signal_connect(GTK_OBJECT(vbox),"realize",
			 (GtkSignalFunc)paths_dialog_realized,
			 (gpointer)NULL);

      gtk_widget_show (vbox);

      /*  The ops buttons  */
      button_box = ops_button_box_new (lc_dialog->shell, tool_tips, 
				       paths_ops_buttons, OPS_BUTTON_NORMAL);
      gtk_box_pack_start (GTK_BOX (vbox), button_box, FALSE, FALSE, 2);
      gtk_widget_show (button_box);

      menus_get_paths_menu (&paths_dialog->ops_menu,
			    &paths_dialog->accel_group);

      /*  Set up signals for map/unmap for the accelerators  */
      gtk_signal_connect (GTK_OBJECT (vbox), "map",
			  (GtkSignalFunc) paths_dialog_map_callback,
			  NULL);
      gtk_signal_connect (GTK_OBJECT (vbox), "unmap",
			  (GtkSignalFunc) paths_dialog_unmap_callback,
			  NULL);

      paths_ops_button_set_sensitive(DUP_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(DEL_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,FALSE);
      paths_ops_button_set_sensitive(COPY_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_ADD_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_DEL_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_NEW_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_EDIT_BUTTON,FALSE);
    }
  
  return paths_dialog->vbox;
}

static void paths_dialog_realized(GtkWidget *widget)
{
  GdkColormap *colormap;
  gchar dash_list[2]= {3,3};

  /* Help out small displays */
  if(preview_size < 64)
    dash_list[1] = 1;

  paths_dialog->gc = gdk_gc_new(widget->window);
  gdk_gc_set_dashes(paths_dialog->gc,2,dash_list,2);
  colormap = gtk_widget_get_colormap(paths_dialog->paths_list);
  gdk_color_parse("black", &paths_dialog->black);
  gdk_color_alloc(colormap, &paths_dialog->black);
  gdk_color_parse("white", &paths_dialog->white);
  gdk_color_alloc(colormap, &paths_dialog->white);
}

/* Clears out row when list element is deleted/destroyed */
static void
clear_pathwidget(gpointer   data)
{
  PATHWIDGETP pwidget = data;
  
  if(pwidget)
    {
      g_free(pwidget);
    }
}

static void
pathpoint_free(gpointer data,gpointer user_data)
{
  PATHPOINTP pathpoint = data;
  g_free(pathpoint);
}

static void 
path_free(gpointer data,gpointer user_data)
{
  PATHP bzp = data;
  g_return_if_fail(bzp != NULL);
  g_string_free(bzp->name,TRUE);
  pathpoints_free(bzp->path_details);
  g_free(bzp);
}

static PATHP
path_dialog_new(GimpImage *gimage,gint name_seed, gpointer udata)
{
  PATHP    bzp;
  GString *s = g_string_new (NULL);
  gchar   *suniq;

  g_string_sprintf (s, _("Path %d"), name_seed);
  suniq = unique_name(gimage,s->str);
  if(suniq)
    {
      g_string_free(s,TRUE);
      s = g_string_new(suniq);
      g_free(suniq);
    }
  bzp = path_new(gimage,BEZIER,(GSList *)udata,0,0,0,0,s->str);
  g_string_free(s,TRUE);
  return bzp;
}

/* Always return a copy that must be freed later */

static gchar *
strip_off_cnumber(gchar *str)
{
  gchar * hashptr;
  gint    num;
  gchar * copy;

  if(!str)
    return str;

  copy = g_strdup(str);

  if((hashptr = strrchr(copy,'#')) && /* have a hash */
     strlen(hashptr) > 0 &&          /* followed by something */
     (num = atoi(hashptr+1)) > 0 &&   /* which is a number */
     ((int)log10(num) + 1) == strlen(hashptr+1)) /* which is at the end */
    {
      gchar * tstr;
      /* Has a #<number> */
      *hashptr = '\0';
      tstr = g_strdup(copy);
      g_free(copy);
      copy = tstr;
    }

  return copy;
}

/* Return NULL if already unique else a unique string */

static gchar *
unique_name(GimpImage *gimage,gchar *cstr)
{
  GSList *tlist;
  PATHIMAGELISTP plp;
  gboolean unique = TRUE;
  gchar *copy_cstr;
  gchar *copy_test;
  gchar *stripped_copy;
  gint counter = 1;

  /* Get bzpath structure  */
  if(!gimage || !(plp = (PATHIMAGELISTP)gimp_image_get_paths(gimage)))
    return NULL;

  tlist = plp->bz_paths;

  while(tlist)
    {
      gchar *test_str = ((PATHP)(tlist->data))->name->str;
      if(strcmp(cstr,test_str) == 0)
	{
	    unique = FALSE;
	    break;
	}
      tlist = g_slist_next(tlist);
    }

  if(unique)
    {
      return NULL;
    }

  /* OK Clashes with something */
  /* restart scan to find unique name */

  stripped_copy = strip_off_cnumber(cstr);
  copy_cstr = g_strdup_printf("%s#%d",stripped_copy,counter++);

  tlist = plp->bz_paths;

  while(tlist)
    {
	copy_test = ((PATHP)(tlist->data))->name->str;
	if(strcmp(copy_cstr,copy_test) == 0)
	    {
		g_free(copy_cstr);
		copy_cstr = g_strdup_printf("%s#%d",stripped_copy,counter++);
		tlist = plp->bz_paths;
		continue;
	    }
	tlist = g_slist_next(tlist);
    }

  g_free(stripped_copy);
  return copy_cstr;
}

static PATHP
path_copy(GimpImage *gimage,PATHP p)
{
  PATHP p_copy = g_new0(PATH,1);
  gchar *ext;

  ext = unique_name(gimage,p->name->str);
  p_copy->name = g_string_new(ext);
  g_free(ext);
  p_copy->closed = p->closed;
  p_copy->state = p->state;
  p_copy->pathtype = p->pathtype;
  p_copy->path_details = pathpoints_copy(p->path_details);
  if(gimage)
    p_copy->tattoo = gimp_image_get_new_tattoo(gimage);
  else
    p_copy->tattoo = p->tattoo;
  return p_copy;
}

static PATHPOINTP
path_start_last_seg(GSList *plist)
{
  PATHPOINTP retp = plist->data;
  while(plist)
    {
      if(((PATHPOINTP)(plist->data))->type == BEZIER_MOVE &&
	 g_slist_next(plist))
	{
	  plist = g_slist_next(plist);
	  retp = plist->data;
	}
      plist = g_slist_next(plist);
    }  
  return retp;
}

static void
path_close(PATHP bzp)
{
  PATHPOINTP pdata;
  PATHPOINTP pathpoint;

  /* bzpaths are only really closed when converted to the BezierSelect ones */
  bzp->closed = 1;
  /* first point */
  pdata = (PATHPOINTP)bzp->path_details->data;
	  
  if(g_slist_length(bzp->path_details) < 5)
    {
      int i;
      for (i = 0 ; i < 2 ; i++)
	{
	  pathpoint = g_new0(PATHPOINT,1);
	  pathpoint->type = (i & 1)?BEZIER_ANCHOR:BEZIER_CONTROL;
	  pathpoint->x = pdata->x+i;
	  pathpoint->y = pdata->y+i;
	  bzp->path_details = g_slist_append(bzp->path_details,pathpoint);
	}
    }
  pathpoint = g_new0(PATHPOINT,1);
  pdata = path_start_last_seg(bzp->path_details);
  pathpoint->type = BEZIER_CONTROL;
  pathpoint->x = pdata->x;
  pathpoint->y = pdata->y;
/*   printf("Closing to x,y %d,%d\n",(gint)pdata->x,(gint)pdata->y); */
  bzp->path_details = g_slist_append(bzp->path_details,pathpoint);
  bzp->state = BEZIER_EDIT;
}

static void
beziersel_free(BezierSelect *bezier_sel)
{
  bezier_select_reset (bezier_sel);
  g_free(bezier_sel);
}

static BezierSelect *
path_to_beziersel(PATHP bzp)
{
  BezierSelect *bezier_sel;
  BezierPoint  *bpnt = NULL;
  GSList       *list;

  if(!bzp)
    {
      g_warning("path_to_beziersel:: NULL bzp");
    }

  list = bzp->path_details;
  bezier_sel = g_new0 (BezierSelect,1);

  bezier_sel->num_points = 0;
  bezier_sel->mask = NULL;
  bezier_sel->core = NULL; /* not required will be reset in bezier code */
  bezier_select_reset (bezier_sel);
  bezier_sel->closed = bzp->closed;
/*   bezier_sel->state = BEZIER_ADD; */
  bezier_sel->state = bzp->state;

  while(list)
    {
      PATHPOINTP pdata;
      pdata = (PATHPOINTP)list->data;
      if(pdata->type == BEZIER_MOVE)
	{
/* 	  printf("Close last curve off\n"); */
	  bezier_sel->last_point->next = bpnt;
	  bpnt->prev = bezier_sel->last_point;
	  bezier_sel->cur_anchor = NULL;
	  bezier_sel->cur_control = NULL;
	  bpnt = NULL;
	}
      bezier_add_point(bezier_sel,
		       (gint)pdata->type,
		       RINT(pdata->x), /* ALT add rint() */
		       RINT(pdata->y));
      if(bpnt == NULL)
	bpnt = bezier_sel->last_point;
      list = g_slist_next(list);
    }
  
  if ( bezier_sel->closed )
    {
      bezier_sel->last_point->next = bpnt;
      bpnt->prev = bezier_sel->last_point;
      bezier_sel->cur_anchor = bezier_sel->points;
      bezier_sel->cur_control = bezier_sel-> points->next;
    }

  return bezier_sel;
}

static void
pathimagelist_free(PATHIMAGELISTP iml)
{
  g_return_if_fail(iml != NULL);
  if(iml->bz_paths)
    {
      g_slist_foreach(iml->bz_paths,path_free,NULL);
      g_slist_free(iml->bz_paths);
    }
  g_free(iml);
}

static void 
bz_change_name_row_to(gint row,gchar *text)
{
  PATHWIDGETP pwidget;

  pwidget = (PATHWIDGETP)gtk_clist_get_row_data(GTK_CLIST(paths_dialog->paths_list),row);

  if(!pwidget)
    return;

  g_string_free(pwidget->bzp->name,TRUE);

  pwidget->bzp->name = g_string_new(text);
}

static void 
paths_set_dash_line(GdkGC *gc,gboolean state)
{
  gdk_gc_set_foreground(paths_dialog->gc, &paths_dialog->black);

  if(state)
    {
      gdk_gc_set_line_attributes(gc,0,GDK_LINE_ON_OFF_DASH,GDK_CAP_BUTT,GDK_JOIN_ROUND);
    }
  else
    {
      gdk_gc_set_line_attributes(gc,0,GDK_LINE_SOLID,GDK_CAP_BUTT,GDK_JOIN_ROUND);
    }
}

static void 
clear_pixmap_preview(PATHWIDGETP pwidget)
{
  gchar *rgb_buf;

  rgb_buf = g_new0(gchar,
		   (paths_dialog->image_width + 4)
		   *(paths_dialog->image_height + 4)*3);

  memset(rgb_buf,0xFF,(paths_dialog->image_width + 4)
		   *(paths_dialog->image_height + 4)*3);

  gdk_draw_rgb_image (pwidget->paths_pixmap,
		      paths_dialog->gc,
		      0,
		      0,
		      paths_dialog->image_width + 4,
		      paths_dialog->image_height + 4,
		      GDK_RGB_DITHER_NORMAL,
		      rgb_buf,
		      (paths_dialog->image_width + 4)*3);

  paths_set_dash_line(paths_dialog->gc,FALSE);

  gdk_draw_rectangle(pwidget->paths_pixmap, 
		     paths_dialog->gc, FALSE, 0, 0, 
		     paths_dialog->image_width+3,
		     paths_dialog->image_height+3);

  gdk_draw_rectangle(pwidget->paths_pixmap, 
		     paths_dialog->gc, FALSE, 1, 1, 
		     paths_dialog->image_width+1,
		     paths_dialog->image_height+1);
}

/* insrow == -1 -> append else insert at insrow */
void paths_add_path(PATHP bzp,gint insrow)
{
  /* Create a new entry in the list */
  PATHWIDGETP pwidget;
  gint row;
  gchar *row_data[2];

  pwidget = g_new0(PATHWIDGET,1);

  if(!GTK_WIDGET_REALIZED(paths_dialog->vbox))
    gtk_widget_realize(paths_dialog->vbox);

  paths_dialog_preview_extents();

  if(preview_size)
    {
      /* Need to add this to the list */
      pwidget->paths_pixmap =  gdk_pixmap_new(paths_dialog->vbox->window,
					      paths_dialog->image_width + 4,  
					      paths_dialog->image_height + 4,
					      -1);
      clear_pixmap_preview(pwidget);
    }
  else
    {
      if(!paths_dialog->pixmap_normal)
	{
	  paths_dialog->pixmap_normal =
	    gdk_pixmap_create_from_data (paths_dialog->vbox->window,
					 path_bits, 
					 paths_dialog->image_width,
					 paths_dialog->image_height,
					 -1,
					 &paths_dialog->vbox->style->fg[GTK_STATE_SELECTED],
					 &paths_dialog->vbox->style->bg[GTK_STATE_SELECTED]);
	  paths_dialog->pixmap_selected =
	    gdk_pixmap_create_from_data (paths_dialog->vbox->window,
					 path_bits, 
					 paths_dialog->image_width,
					 paths_dialog->image_height,
					 -1,
					 &paths_dialog->vbox->style->fg[GTK_STATE_NORMAL],
					 &paths_dialog->vbox->style->bg[GTK_STATE_SELECTED]);
	}
       pwidget->paths_pixmap = paths_dialog->pixmap_normal;
    }

  if(!paths_dialog->pixmap_locked_normal)
    {
      paths_dialog->pixmap_locked_normal = 
	gdk_pixmap_create_from_data (paths_dialog->vbox->window,
				     locked_bits, locked_width, locked_height, -1,
				     &paths_dialog->vbox->style->fg[GTK_STATE_NORMAL],
				     &paths_dialog->vbox->style->white);
      paths_dialog->pixmap_locked_selected = 
	gdk_pixmap_create_from_data (paths_dialog->vbox->window,
				     locked_bits, locked_width, locked_height, -1,
				     &paths_dialog->vbox->style->fg[GTK_STATE_SELECTED],
				     &paths_dialog->vbox->style->bg[GTK_STATE_SELECTED]);
    }

  gtk_clist_set_row_height(GTK_CLIST(paths_dialog->paths_list),
			   paths_dialog->image_height + 6);

  row_data[0] = "";
  row_data[1] = "";

  if(insrow == -1)
    row = gtk_clist_append(GTK_CLIST(paths_dialog->paths_list),
			   row_data);
  else
    row = gtk_clist_insert(GTK_CLIST(paths_dialog->paths_list),
			   insrow,
			   row_data);

  gtk_clist_set_pixtext(GTK_CLIST(paths_dialog->paths_list),
			row,
			1,
			bzp->name->str,
			2,
			pwidget->paths_pixmap,
			NULL);

  gtk_clist_set_row_data_full(GTK_CLIST(paths_dialog->paths_list),
			      row,
			      (gpointer)pwidget,
			      clear_pathwidget);

  gtk_signal_handler_block(GTK_OBJECT(paths_dialog->paths_list),paths_dialog->selsigid);
  gtk_clist_select_row(GTK_CLIST(paths_dialog->paths_list),
		       paths_dialog->current_path_list->last_selected_row,
		       1);
  gtk_signal_handler_unblock(GTK_OBJECT(paths_dialog->paths_list),paths_dialog->selsigid);

  pwidget->bzp = bzp;
}

static void
paths_dialog_preview_extents ()
{
  GImage *gimage;

  if (!paths_dialog)
    return;

 if (!(gimage = paths_dialog->gimage))
    return;

  gimage = paths_dialog->gimage;

  paths_dialog->gimage_width = gimage->width;
  paths_dialog->gimage_height = gimage->height;

  /*  Get the image width and height variables, based on the gimage  */
  if (gimage->width > gimage->height)
    paths_dialog->ratio = (double) preview_size / (double) gimage->width;
  else
    paths_dialog->ratio = (double) preview_size / (double) gimage->height;

  if (preview_size)
    {
      paths_dialog->image_width = (int) (paths_dialog->ratio * gimage->width);
      paths_dialog->image_height = (int) (paths_dialog->ratio * gimage->height);
      if (paths_dialog->image_width < 1) paths_dialog->image_width = 1;
      if (paths_dialog->image_height < 1) paths_dialog->image_height = 1;
    }
  else
    {
      paths_dialog->image_width = path_width;
      paths_dialog->image_height = path_height;
    }
}

/*
static gint
path_widget_preview_events (GtkWidget *widget,
			     GdkEvent  *event)
{
  GdkEventButton *bevent;

  switch (event->type)
    {
    case GDK_BUTTON_PRESS:
      bevent = (GdkEventButton *) event;
      break;

    case GDK_EXPOSE:
      if (preview_size)
	{

	  layer_widget_preview_redraw (layer_widget, preview_type);
	  
	  gdk_draw_pixmap (widget->window,
			   widget->style->black_gc,
			   *pixmap,
			   0, 0, 2, 2,
			   layersD->image_width,
			   layersD->image_height);
	}

      break;

    default:
      break;
    }

  return FALSE;
}
*/

static void
paths_select_row(GtkWidget *widget, 
		 gint row,
		 gint column,
		 GdkEventButton *event,
		 gpointer data)
{
  PATHWIDGETP pwidget;
  PATHP bzp;
  BezierSelect * bsel;
  GDisplay *gdisp;
  gint last_row;

  pwidget = (PATHWIDGETP)gtk_clist_get_row_data(GTK_CLIST(widget),row);

  if(!pwidget ||
     (paths_dialog->current_path_list->last_selected_row == row &&
      paths_dialog->been_selected == TRUE))
    {
      if(column)
	return;
    }

  last_row = paths_dialog->current_path_list->last_selected_row;

  bzp = (PATHP)g_slist_nth_data(paths_dialog->current_path_list->bz_paths,row);

  g_return_if_fail(bzp != NULL);

  if(column == 0)
    {
      if(bzp->locked == 0)
	{
	  bzp->locked = 1;
	  if (paths_dialog->selected_row_num == row)
	    gtk_clist_set_pixmap(GTK_CLIST(paths_dialog->paths_list),
				 row,
				 0,
				 paths_dialog->pixmap_locked_selected,
				 NULL);
	  else
	    gtk_clist_set_pixmap(GTK_CLIST(paths_dialog->paths_list),
				 row,
				 0,
				 paths_dialog->pixmap_locked_normal,
				 NULL);
      	}
      else
	{
	  gint tmprow;

	  bzp->locked = 0;
	  gtk_clist_set_text(GTK_CLIST(paths_dialog->paths_list),
			     row,
			     0,
			     "");
	  /* There should be an easier way of updating the preview! */
	  bsel = path_to_beziersel(bzp);
	  tmprow = paths_dialog->current_path_list->last_selected_row;
	  paths_dialog->current_path_list->last_selected_row = row;
	  paths_update_preview(bsel);
	  beziersel_free(bsel);
	  paths_dialog->current_path_list->last_selected_row = tmprow;
	  paths_dialog->selected_row_num = tmprow;
	}

      /* Put hightlight back on the old original selection */
      gtk_signal_handler_block(GTK_OBJECT(paths_dialog->paths_list),paths_dialog->selsigid);

      gtk_clist_select_row(GTK_CLIST(paths_dialog->paths_list),
			   last_row,
			   1);

      gtk_signal_handler_unblock(GTK_OBJECT(paths_dialog->paths_list),paths_dialog->selsigid);

      return;
    }

  paths_dialog->selected_row_num = row;
  paths_dialog->current_path_list->last_selected_row = row;
  paths_dialog->been_selected = TRUE;

  if(bzp->locked)
    gtk_clist_set_pixmap(GTK_CLIST(paths_dialog->paths_list),
			 row,
			 0,
			 paths_dialog->pixmap_locked_selected,
			 NULL);

  bsel = path_to_beziersel(bzp);
  gdisp = gdisplays_check_valid(paths_dialog->current_path_list->gdisp,
				paths_dialog->gimage);
  if(!gdisp)
    {
      g_warning("Lost image which bezier curve belonged to");
      return;
    }
  bezier_paste_bezierselect_to_current(gdisp,bsel);
  paths_update_preview(bsel);
  beziersel_free(bsel);
}

static void
paths_unselect_row (GtkWidget      *widget, 
		    gint            row,
		    gint            column,
		    GdkEventButton *event,
		    gpointer        data)
{
  PATHWIDGETP pwidget;
  PATHP bzp;

  pwidget = (PATHWIDGETP)gtk_clist_get_row_data(GTK_CLIST(widget),row);

  if(!pwidget)
    return;

  bzp = pwidget->bzp;

  g_return_if_fail (bzp != NULL);

  if (column && bzp->locked)
    {
      gtk_clist_set_pixmap (GTK_CLIST(paths_dialog->paths_list),
			    row,
			    0,
			    paths_dialog->pixmap_locked_normal,
			    NULL);
    }
}

void
paths_dialog_update (GimpImage* gimage)
{
  PATHIMAGELISTP new_path_list;
  GSList *plist;
  gint loop;
  gint tmprow;

  if (!paths_dialog || !gimage)
    return;

  /* The last pointer comparison forces update if something has changed
   * under our feet.
   */

  if(!gimp_image_get_paths(gimage))
    {
      /* No paths is this layer */
      paths_ops_button_set_sensitive(DUP_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(DEL_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,FALSE);
      paths_ops_button_set_sensitive(COPY_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_ADD_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_DEL_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_NEW_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_EDIT_BUTTON,FALSE);
    }

  if (paths_dialog->gimage == gimage &&
      paths_dialog->current_path_list == (PATHIMAGELISTP)gimp_image_get_paths(gimage))
    return;

  paths_dialog->gimage=gimage;

  paths_dialog_preview_extents ();

  if(!GTK_WIDGET_REALIZED(paths_dialog->vbox))
    gtk_widget_realize(paths_dialog->vbox);
  /* ALT removed & replaced return;*/

  /* clear clist out */

  gtk_clist_freeze(GTK_CLIST(paths_dialog->paths_list));
  gtk_clist_clear(GTK_CLIST(paths_dialog->paths_list));
  gtk_clist_thaw(GTK_CLIST(paths_dialog->paths_list));

  /* Find bz list */

  new_path_list = (PATHIMAGELISTP)gimp_image_get_paths(gimage);

  paths_dialog->current_path_list = new_path_list;
  paths_dialog->been_selected = FALSE;

  if(!new_path_list)
    {
      /* No list assoc with this image */
      paths_ops_button_set_sensitive(DUP_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(DEL_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,FALSE);
      paths_ops_button_set_sensitive(COPY_PATH_BUTTON,FALSE);
      paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_ADD_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_DEL_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_NEW_BUTTON,FALSE);
      point_ops_button_set_sensitive(POINT_EDIT_BUTTON,FALSE);
      return;
    }
  else
    {
      paths_ops_button_set_sensitive(DUP_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(DEL_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,TRUE);
      paths_ops_button_set_sensitive(COPY_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,(copy_pp)?TRUE:FALSE); 
      point_ops_button_set_sensitive(POINT_ADD_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_DEL_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_NEW_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_EDIT_BUTTON,TRUE);
    }

  /* update the clist to reflect this images bz list */
  /* go around the image list populating the clist */

  if(gimage != new_path_list->gimage)
    {
      g_warning("paths list: internal list error");
    }

  plist = new_path_list->bz_paths;
  loop = 0;

  tmprow = paths_dialog->current_path_list->last_selected_row;
  while(plist)
    {
      paths_update_paths(plist->data,loop);
      loop++;
      plist = g_slist_next(plist);
    }
  paths_dialog->current_path_list->last_selected_row = tmprow;
  paths_dialog->selected_row_num = tmprow;

  /* select last one */

  gtk_signal_handler_block(GTK_OBJECT(paths_dialog->paths_list),paths_dialog->selsigid);
  gtk_clist_select_row(GTK_CLIST(paths_dialog->paths_list),
		       paths_dialog->current_path_list->last_selected_row,
		       1);
  gtk_signal_handler_unblock(GTK_OBJECT(paths_dialog->paths_list),paths_dialog->selsigid);

  gtk_clist_moveto(GTK_CLIST(paths_dialog->paths_list),
		   paths_dialog->current_path_list->last_selected_row,
		   0,
		   0.5,
		   0.0);
}

static void
paths_update_paths(gpointer data,gint row)
{
  PATHP bzp;
  BezierSelect * bezier_sel;

  paths_add_path((bzp = (PATHP)data),-1);
  /* Now fudge the drawing....*/
  bezier_sel = path_to_beziersel(bzp);
  paths_dialog->current_path_list->last_selected_row = row;
  paths_update_preview(bezier_sel);
  beziersel_free(bezier_sel);
 
  if (bzp->locked)
    {
      if (paths_dialog->selected_row_num == row)
	gtk_clist_set_pixmap(GTK_CLIST(paths_dialog->paths_list),
			     row,
			     0,
			     paths_dialog->pixmap_locked_selected,
			     NULL);
      else
	gtk_clist_set_pixmap(GTK_CLIST(paths_dialog->paths_list),
			     row,
			     0,
			     paths_dialog->pixmap_locked_normal,
			     NULL);
    }
}

static void
do_rename_paths_callback(GtkWidget *widget, gpointer call_data, gpointer client_data)
{
  gchar     *text;
  GdkBitmap *mask;
  guint8     spacing;
  GdkPixmap *pixmap;

  if(!(GTK_CLIST(call_data)->selection))
    return;

  text = g_strdup(client_data);

  gtk_clist_get_pixtext(GTK_CLIST(paths_dialog->paths_list),
			paths_dialog->selected_row_num,
			1,
			NULL,
			&spacing,
			&pixmap,
			&mask);


  gtk_clist_set_pixtext(GTK_CLIST(call_data),
			paths_dialog->selected_row_num,
			1,
			text,
			spacing,
			pixmap,
			mask);

  bz_change_name_row_to(paths_dialog->selected_row_num,text);
}

static void
paths_dialog_edit_path_query (GtkWidget *widget)
{
  GdkBitmap *mask;
  gchar *text;
  gint   ret;

  /* Get the current name */
  ret = gtk_clist_get_pixtext (GTK_CLIST (paths_dialog->paths_list),
			       paths_dialog->selected_row_num,
			       1,
			       &text,
			       NULL,
			       NULL,
			       &mask);

  gtk_widget_show (query_string_box (_("Rename path"),
				     _("Enter a new name for the path"),
				     text,
				     NULL, NULL,
				     do_rename_paths_callback, widget));
}

static gint
paths_list_events (GtkWidget *widget,
		   GdkEvent  *event)
{
  GdkEventKey    *kevent;
  GdkEventButton *bevent;
  static gint     last_row = -1;
  gint            this_colunm;

  switch (event->type)
    {
    case GDK_BUTTON_PRESS:
      bevent = (GdkEventButton *) event;
      if(!gtk_clist_get_selection_info (GTK_CLIST(paths_dialog->paths_list),
				       bevent->x,
				       bevent->y,
				       &last_row,&this_colunm))
	last_row = -1;
      else
	{
	  if(paths_dialog->selected_row_num != last_row)
	    last_row = -1;
	}

      if (bevent->button == 3 || bevent->button == 2)
	gtk_menu_popup (GTK_MENU (paths_dialog->ops_menu), NULL, NULL, NULL, NULL, bevent->button, bevent->time);
      break;
      
    case GDK_2BUTTON_PRESS:
      bevent = (GdkEventButton *) event;

      if(last_row != -1 && 
	 gtk_clist_get_selection_info (GTK_CLIST(paths_dialog->paths_list),
				       bevent->x,
				       bevent->y,
				       NULL,&this_colunm))
	{
	  if(this_colunm == 1)
	    {
	      paths_dialog_edit_path_query(widget);
	      return TRUE;
	    }
	  else
	    return FALSE;
	}
      else
	return FALSE;
      
    case GDK_KEY_PRESS:
      kevent = (GdkEventKey *) event;
      switch (kevent->keyval)
	{
	case GDK_Up:
	  printf ("up arrow\n"); 
	  break;
	case GDK_Down:
	  printf ("down arrow\n");
	  break;
	default:
	  return FALSE;
	}
      return TRUE;
      
    default:
      break;
    }
  return FALSE;
}

static PATHIMAGELISTP
path_add_to_current(PATHIMAGELISTP pip,PATHP bzp,GimpImage *gimage,gint pos)
{
  /* add bzp to current list */
  if(!pip)
    {
      /* This image does not have a list */
      pip = pathsList_new(gimage,0,NULL);

      /* add to gimage */
      gimp_image_set_paths(gimage,pip);
    }

  if(pos < 0)
    pip->bz_paths = g_slist_append(pip->bz_paths,bzp);
  else
    pip->bz_paths = g_slist_insert(pip->bz_paths,bzp,pos);

  return pip;
}

static PATHP
paths_dialog_new_path(PATHIMAGELISTP *plp,gpointer points,GimpImage *gimage,gint pos)
{
  static gint nseed = 0;
  PATHP bzp = path_dialog_new(gimage,nseed++,points);
  *plp = path_add_to_current(*plp,bzp,gimage,pos);
  return(bzp);
}

void 
paths_dialog_new_path_callback (GtkWidget * widget, gpointer udata)
{
  PATHP bzp = paths_dialog_new_path(&paths_dialog->current_path_list,
				      NULL,
				      paths_dialog->gimage,
				      paths_dialog->selected_row_num);
  paths_add_path(bzp,paths_dialog->selected_row_num);
  /* Enable the buttons!*/
  paths_ops_button_set_sensitive(DUP_PATH_BUTTON,TRUE);
  paths_ops_button_set_sensitive(DEL_PATH_BUTTON,TRUE);
  paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,TRUE);
  paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,TRUE);
  paths_ops_button_set_sensitive(COPY_PATH_BUTTON,TRUE);
  paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,(copy_pp)?TRUE:FALSE); 
  point_ops_button_set_sensitive(POINT_NEW_BUTTON,TRUE);
  point_ops_button_set_sensitive(POINT_DEL_BUTTON,TRUE);
  point_ops_button_set_sensitive(POINT_ADD_BUTTON,TRUE);
  point_ops_button_set_sensitive(POINT_EDIT_BUTTON,TRUE);
}

void 
paths_dialog_delete_path_callback (GtkWidget * widget, gpointer udata)
{
  PATHP bzp;
  PATHIMAGELISTP plp;
  gboolean new_sz;
  gint row = paths_dialog->selected_row_num;
  BezierSelect *bsel  = NULL;
  GDisplay     *gdisp = NULL;

  g_return_if_fail(paths_dialog->current_path_list != NULL);

  /* Get current selection... ignore if none */
  if(paths_dialog->selected_row_num < 0)
    return;
  
  /* Get bzpath structure & delete its content */
  plp = paths_dialog->current_path_list;
  bzp = (PATHP)g_slist_nth_data(plp->bz_paths,row); 

  /* Remove from list */
  plp->bz_paths = g_slist_remove(plp->bz_paths,bzp);
  new_sz = (g_slist_length(plp->bz_paths) > 0);
  path_free(bzp,NULL);

  /* Remove from the clist ... */ 
  gtk_signal_handler_block_by_data (GTK_OBJECT (paths_dialog->paths_list), 
				    paths_dialog);
  gtk_clist_remove (GTK_CLIST (paths_dialog->paths_list), row);
  gtk_signal_handler_unblock_by_data (GTK_OBJECT (paths_dialog->paths_list), 
				      paths_dialog);

  /* If now empty free everything up */
  if(!plp->bz_paths || g_slist_length(plp->bz_paths) == 0)
    {
      gtk_signal_disconnect(GTK_OBJECT (plp->gimage),
			    plp->sig_id);

      gimp_image_set_paths(plp->gimage,NULL);
      pathimagelist_free(plp);

      /* Paste an empty BezierSelect to the current display to emulate an empty path list */

      bsel  =   (g_new0 (BezierSelect,1));
      bezier_select_reset(bsel);
      gdisp = gdisplays_check_valid(paths_dialog->current_path_list->gdisp,
				paths_dialog->gimage);

      bezier_paste_bezierselect_to_current(gdisp,bsel);
      beziersel_free(bsel);

      paths_dialog->current_path_list = NULL;
    }

  paths_ops_button_set_sensitive(DUP_PATH_BUTTON,new_sz);
  paths_ops_button_set_sensitive(DEL_PATH_BUTTON,new_sz);
  paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,new_sz);
  paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,new_sz);
  paths_ops_button_set_sensitive(COPY_PATH_BUTTON,new_sz);
  paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,new_sz);
  point_ops_button_set_sensitive(POINT_ADD_BUTTON,new_sz);
  point_ops_button_set_sensitive(POINT_DEL_BUTTON,new_sz);
  point_ops_button_set_sensitive(POINT_NEW_BUTTON,new_sz);
  point_ops_button_set_sensitive(POINT_EDIT_BUTTON,new_sz);
}


void 
paths_dialog_paste_path_callback (GtkWidget * widget, gpointer udata)
{
  PATHP bzp;
  PATHIMAGELISTP plp;
  PATHPOINTP pp;
  BezierSelect * bezier_sel;
  gint tmprow;
  GDisplay *gdisp;

  gint row = paths_dialog->selected_row_num;

  g_return_if_fail(paths_dialog->current_path_list != NULL);

  if(!copy_pp)
    return;

  /* Get current selection... ignore if none */
  if(paths_dialog->selected_row_num < 0)
    return;
  
  /* Get bzpath structure  */
  plp = paths_dialog->current_path_list;
  if(!plp)
    return;
  bzp = (PATHP)g_slist_nth_data(plp->bz_paths,row); 

  if(bzp->path_details)
    {
      pp = bzp->path_details->data;
      pp->type = BEZIER_MOVE;
      bzp->path_details = g_slist_concat(copy_pp->path_details,bzp->path_details);
    }
  else
    {
      bzp->closed = TRUE;
      bzp->path_details = copy_pp->path_details;
      bzp->state = copy_pp->state;
    }

  /* First point on new curve is a moveto */
  copy_pp->path_details = NULL;
  path_free(copy_pp,NULL);
  copy_pp = NULL;

  paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,FALSE);

  /* Now fudge the drawing....*/
  bezier_sel = path_to_beziersel(bzp);
  tmprow = paths_dialog->current_path_list->last_selected_row;
  paths_dialog->current_path_list->last_selected_row = row;
  gdisp = gdisplays_check_valid(paths_dialog->current_path_list->gdisp,
				paths_dialog->gimage);
  bezier_paste_bezierselect_to_current(gdisp,bezier_sel);
  paths_update_preview(bezier_sel);
  beziersel_free(bezier_sel);
  paths_dialog->current_path_list->last_selected_row = tmprow;
}

void 
paths_dialog_copy_path_callback (GtkWidget * widget, gpointer udata)
{
  PATHP bzp;
  PATHIMAGELISTP plp;
  gint row = paths_dialog->selected_row_num;

  g_return_if_fail(paths_dialog->current_path_list != NULL);

  /* Get current selection... ignore if none */
  if(paths_dialog->selected_row_num < 0)
    return;
  
  /* Get bzpath structure  */
  plp = paths_dialog->current_path_list;
  bzp = (PATHP)g_slist_nth_data(plp->bz_paths,row);

  if(!bzp->path_details || g_slist_length(bzp->path_details) <= 5)
    return;

  /* And store in static array */
  copy_pp = path_copy(paths_dialog->gimage,bzp);

  /* All paths that are in the cut buffer must be closed */
  if(!copy_pp->closed)
    path_close(copy_pp);
  
  paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,TRUE);
}

void 
paths_dialog_dup_path_callback (GtkWidget * widget, gpointer udata)
{
  PATHP bzp;
  PATHIMAGELISTP plp;
  BezierSelect * bezier_sel;
  gint row = paths_dialog->selected_row_num;
  gint tmprow;

  g_return_if_fail(paths_dialog->current_path_list != NULL);

  /* Get current selection... ignore if none */
  if(paths_dialog->selected_row_num < 0)
    return;
  
  /* Get bzpath structure  */
  plp = paths_dialog->current_path_list;
  bzp = (PATHP)g_slist_nth_data(plp->bz_paths,row); 

  /* Insert at the current position */
  bzp = path_copy(paths_dialog->gimage,bzp);
  plp->bz_paths = g_slist_insert(plp->bz_paths,bzp,row);
  paths_add_path(bzp,row);

  /* Now fudge the drawing....*/
  bezier_sel = path_to_beziersel(bzp);
  tmprow = paths_dialog->current_path_list->last_selected_row;
  paths_dialog->current_path_list->last_selected_row = row;
  paths_update_preview(bezier_sel);
  beziersel_free(bezier_sel);
  paths_dialog->current_path_list->last_selected_row = tmprow;
}

static void paths_dialog_advanced_to_path_callback (GtkWidget *widget, 
						    gpointer udata)
{
  ProcRecord *proc_rec;
  Argument   *args;
  GimpImage *gimage;

  /*  find the sel2path PDB record  */
  if ((proc_rec = procedural_db_lookup ("plug_in_sel2path_advanced")) == NULL)
    {
      g_message ("paths_dialog_adavanced_to_path_callback(): selection to path (advanced) procedure lookup failed");
      return;
    }

  gimage = paths_dialog->gimage;

  /*  plug-in arguments as if called by <Image>/Filters/...  */
  args = g_new (Argument, 3);
  args[0].arg_type = PDB_INT32;
  args[0].value.pdb_int = RUN_INTERACTIVE;
  args[1].arg_type = PDB_IMAGE;
  args[1].value.pdb_int = (gint32) pdb_image_to_id (gimage);
  args[2].arg_type = PDB_DRAWABLE;
  args[2].value.pdb_int = (gint32) (gimage_active_drawable (gimage))->ID;

  plug_in_run (proc_rec, args, 3, FALSE, TRUE, (gimage_active_drawable (gimage))->ID);

  g_free (args);

}

static void paths_dialog_null_callback (GtkWidget *widget, 
					gpointer udata)
{
  /* Maybe some more here later? */
}


void 
paths_dialog_sel_to_path_callback (GtkWidget * widget, gpointer udata)
{
  ProcRecord *proc_rec;
  Argument   *args;
  GimpImage *gimage;

  /*  find the sel2path PDB record  */
  if ((proc_rec = procedural_db_lookup ("plug_in_sel2path")) == NULL)
    {
      g_message ("paths_dialog_sel_to_path_callback(): selection to path procedure lookup failed");
      return;
    }

  gimage = paths_dialog->gimage;

  /*  plug-in arguments as if called by <Image>/Filters/...  */
  args = g_new (Argument, 3);
  args[0].arg_type = PDB_INT32;
  args[0].value.pdb_int = RUN_INTERACTIVE;
  args[1].arg_type = PDB_IMAGE;
  args[1].value.pdb_int = (gint32) pdb_image_to_id (gimage);
  args[2].arg_type = PDB_DRAWABLE;
  args[2].value.pdb_int = (gint32) (gimage_active_drawable (gimage))->ID;

  plug_in_run (proc_rec, args, 3, FALSE, TRUE, (gimage_active_drawable (gimage))->ID);

  g_free (args);
}


void 
paths_dialog_path_to_sel_callback (GtkWidget * widget, gpointer udata)
{
  PATHP bzp;
  PATHIMAGELISTP plp;
  BezierSelect * bezier_sel;
  GDisplay  * gdisp;
  gint row = paths_dialog->selected_row_num;

  g_return_if_fail(paths_dialog->current_path_list != NULL);

  /* Get current selection... ignore if none */
  if(paths_dialog->selected_row_num < 0)
    return;
  
  /* Get bzpath structure  */
  plp = paths_dialog->current_path_list;
  bzp = (PATHP)g_slist_nth_data(plp->bz_paths,row); 

  /* Return if no point list */
  if (!bzp->path_details)
    return;

  /* Now do the selection....*/
  gdisp = gdisplays_check_valid(paths_dialog->current_path_list->gdisp,
				paths_dialog->gimage);

  if(!bzp->closed)
    {
      PATHP bzpcopy = path_copy(paths_dialog->gimage,bzp);
      /* Close it */
      path_close(bzpcopy);
      bezier_sel = path_to_beziersel(bzpcopy);
      path_free(bzpcopy,NULL);
      bezier_to_selection (bezier_sel, gdisp);
      beziersel_free(bezier_sel);

      /* Force display to show no closed curve */
      bezier_sel = path_to_beziersel(bzp);
      bezier_paste_bezierselect_to_current(gdisp,bezier_sel);
      beziersel_free(bezier_sel);
    }
  else
    {
      bezier_sel = path_to_beziersel(bzp);
      bezier_to_selection (bezier_sel, gdisp);
      beziersel_free(bezier_sel);      
    }
}

void 
paths_dialog_stroke_path_callback (GtkWidget * widget, gpointer udata)
{
  PATHP bzp;
  PATHIMAGELISTP plp;
  gint row = paths_dialog->selected_row_num;

  g_return_if_fail(paths_dialog->current_path_list != NULL);

  /* Get current selection... ignore if none */
  if(paths_dialog->selected_row_num < 0)
    return;
  
  /* Get bzpath structure  */
  plp = paths_dialog->current_path_list;
  bzp = (PATHP)g_slist_nth_data(plp->bz_paths,row); 

  /* Now do the stroke....*/
  paths_stroke(paths_dialog->gimage,paths_dialog->current_path_list,bzp);
}

static void
paths_dialog_map_callback (GtkWidget *w,
			    gpointer   client_data)
{
  if (!paths_dialog)
    return;

  gtk_window_add_accel_group (GTK_WINDOW (lc_dialog->shell),
			      paths_dialog->accel_group);

  paths_dialog_preview_extents ();
}

static void
paths_dialog_unmap_callback (GtkWidget *w,
			     gpointer   client_data)
{
  if (!paths_dialog)
    return;
  
  gtk_window_remove_accel_group (GTK_WINDOW (lc_dialog->shell),
				 paths_dialog->accel_group);
}

static void
paths_dialog_destroy_cb (GimpImage *gimage)
{
  PATHIMAGELISTP new_path_list;

  if(!paths_dialog)
    return;

  if(paths_dialog->current_path_list && 
     gimage == paths_dialog->current_path_list->gimage)
    {
      /* showing could be last so remove here.. might get 
	 done again if not the last one
      */
      paths_dialog->current_path_list = NULL;
      paths_dialog->been_selected = FALSE;
      gtk_clist_freeze(GTK_CLIST(paths_dialog->paths_list));
      gtk_clist_clear(GTK_CLIST(paths_dialog->paths_list));
      gtk_clist_thaw(GTK_CLIST(paths_dialog->paths_list));
    }

  /* Find bz list */  
  new_path_list = (PATHIMAGELISTP)gimp_image_get_paths(gimage);

  if(!new_path_list)
    return; /* Already removed - signal handler jsut left in the air */

  pathimagelist_free(new_path_list);

  gimp_image_set_paths(gimage,NULL);
}


/* Functions used from the bezier code .. tie in with this code */

static void
pathpoints_free(GSList *list)
{
  if(!list)
    return;
  g_slist_foreach(list,pathpoint_free,NULL);
  g_slist_free(list);
}

static GSList *
pathpoints_create(BezierSelect *sel)
{
  gint i;
  GSList *list = NULL;
  PATHPOINTP pathpoint;
  BezierPoint *pts = (BezierPoint *) sel->points;
  BezierPoint *start_pnt = pts;
  gint need_move = 0;

  for (i=0; i< sel->num_points; i++)
    {
      pathpoint = pathpoint_new((need_move)?BEZIER_MOVE:pts->type,
                                (gdouble)pts->x,(gdouble)pts->y);
      need_move = 0;
      list = g_slist_append(list,pathpoint);
      if(pts->next_curve)
      {
	/* The curve must loop back on itself */
  	if(start_pnt != pts->next)
	  g_warning("Curve of of sync");
	
	need_move = 1;
	pts = pts->next_curve;
	start_pnt = pts;
      }
      else
      {
      	pts = pts->next;
      }
    }
  return(list);
}

static GSList *
pathpoints_copy(GSList *list)
{
  GSList *slcopy = NULL;
  PATHPOINTP pdata;
  PATHPOINTP pathpoint;
  while(list)
    {
      pathpoint = g_new0(PATHPOINT,1);
      pdata = (PATHPOINTP)list->data;
      pathpoint->type = pdata->type;
      pathpoint->x = pdata->x;
      pathpoint->y = pdata->y;
      slcopy = g_slist_append(slcopy,pathpoint);
      list = g_slist_next(list);
    }
  return slcopy;
}

static void
paths_update_bzpath(PATHIMAGELISTP plp,BezierSelect *bezier_sel)
{
  PATHP p;

  p = (PATHP)g_slist_nth_data(plp->bz_paths,plp->last_selected_row);
  
  if(p->path_details) 
    pathpoints_free(p->path_details); 
  
  p->path_details = pathpoints_create(bezier_sel);
  p->closed = bezier_sel->closed;
  p->state  = bezier_sel->state;
}

static gboolean
paths_replaced_current(PATHIMAGELISTP plp,BezierSelect *bezier_sel)
{
  /* Is there a currently selected path in this image? */
  /* ALT if(paths_dialog && plp &&  */
  if(plp && 
     plp->last_selected_row >= 0)
    {  
      paths_update_bzpath(plp,bezier_sel);
      return TRUE;
    }
  return FALSE;
}

static gint 
number_curves_in_path(GSList *plist)
{
  gint count = 0;
  while(plist)
    {
      if(((PATHPOINTP)(plist->data))->type == BEZIER_MOVE &&
	 g_slist_next(plist))
	{
	  count++;
	}
      plist = g_slist_next(plist);
    }  
  return count;
}

static void 
paths_draw_segment_points(BezierSelect *bezier_sel, 
			  GdkPoint     *pnt, 
			  int           npoints,
			  gpointer      udata)
{
  /* 
   * hopefully the image points are already in image space co-ords.
   * so just scale by ratio factor and draw 'em
   */
  gint loop;
  gint pcount = 0;
  GdkPoint * copy_pnt = g_new(GdkPoint,npoints);
  GdkPoint * cur_pnt  = copy_pnt;
  GdkPoint * last_pnt  = NULL;
  PATHWIDGETP pwidget;
  gint row;
  PATHCOUNTSP curve_count = (PATHCOUNTSP)udata;

  /* we could remove duplicate points here */

  for(loop = 0; loop < npoints; loop++)
    {
      /* The "2" is because we have a boarder */
      cur_pnt->x = 2+(int) (paths_dialog->ratio * pnt->x);
      cur_pnt->y = 2+(int) (paths_dialog->ratio * pnt->y);
      pnt++;
      if(last_pnt &&
	 last_pnt->x == cur_pnt->x &&
	 last_pnt->y == cur_pnt->y)
	{
	  /* same as last ... don't need this one */
	  continue;
	}

/*       printf("converting %d [%d,%d] => [%d,%d]\n", */
/* 	     pcount,(int)pnt->x,(int)pnt->y,(int)cur_pnt->x,(int)cur_pnt->y); */
      last_pnt = cur_pnt;
      pcount++;
      cur_pnt++;
    }

  row = paths_dialog->current_path_list->last_selected_row;

  pwidget = (PATHWIDGETP)gtk_clist_get_row_data(GTK_CLIST(paths_dialog->paths_list),row);
  
  if(pcount < 2)
    return;

  g_return_if_fail(pwidget != NULL);

  if(curve_count->c_count.count < curve_count->total_count || 
     bezier_sel->closed)
    paths_set_dash_line(paths_dialog->gc,FALSE);
  else
    paths_set_dash_line(paths_dialog->gc,TRUE);
  
  gdk_draw_lines (pwidget->paths_pixmap,
		   paths_dialog->gc, copy_pnt, pcount);

  g_free(copy_pnt);
}

static void
paths_update_preview(BezierSelect *bezier_sel)
{
  gint row;
  PATHCOUNTS curve_count;

  if(paths_dialog &&
     paths_dialog->current_path_list &&
     (row = paths_dialog->current_path_list->last_selected_row) >= 0 &&
     preview_size)
    {
      PATHWIDGETP pwidget;
      pwidget = (PATHWIDGETP)gtk_clist_get_row_data(GTK_CLIST(paths_dialog->paths_list),row);

      /* Clear pixmap */
      clear_pixmap_preview(pwidget);

      curve_count.total_count = number_curves_in_path(pwidget->bzp->path_details);
      /* update .. */
      bezier_draw_curve (bezier_sel,paths_draw_segment_points,IMAGE_COORDS,&curve_count);

      /* update the pixmap */

      gtk_clist_set_pixtext(GTK_CLIST(paths_dialog->paths_list),
			    row,
			    1,
			    pwidget->bzp->name->str,
			    2,
			    pwidget->paths_pixmap,
			    NULL);
    }
}

static void 
paths_dialog_new_point_callback (GtkWidget * widget, gpointer udata)
{
  bezier_select_mode(EXTEND_NEW);
}

static void 
paths_dialog_add_point_callback (GtkWidget * widget, gpointer udata)
{
  bezier_select_mode(EXTEND_ADD);
}

static void 
paths_dialog_delete_point_callback (GtkWidget * widget, gpointer udata)
{
  bezier_select_mode(EXTEND_REMOVE);
}

static void 
paths_dialog_edit_point_callback (GtkWidget * widget, gpointer udata)
{
  bezier_select_mode(EXTEND_EDIT);
}

void
paths_dialog_flush()
{
  GImage *gimage;

  if (!paths_dialog)
    return;

 if (!(gimage = paths_dialog->gimage))
    return;

  gimage = paths_dialog->gimage;

  /* Check current_path_list since we might not have a valid preview.
   * which means it should be removed.. Or if we have one
   * created it!
   */
  if ((paths_dialog->current_path_list == NULL) ||
      (gimage->width != paths_dialog->gimage_width) ||
      (gimage->height != paths_dialog->gimage_height))
    {
      paths_dialog->gimage = NULL;
      paths_dialog_update(gimage);
    }
}

void 
paths_first_button_press(BezierSelect *bezier_sel,GDisplay * gdisp)
{
  /* First time a button is pressed in this display */
  /* We have two choices here 
     Either:-
     1) We already have a paths item in the list. 
        => In this case the new one replaces the current entry. We
	need a callback into the bezier code to free things up.
     2) We don't have an entry. 
        => Create a new one and add this curve.

     In either case we need to update the preview widget..

     All this of course depends on the fact that gdisp is the same
     as before. 
  */
  PATHP bzp; 
  PATHIMAGELISTP plp;

  if(paths_dialog)
    {
      paths_dialog->been_selected = FALSE;
      /*ALT return;*/
    }

  /* Button not pressed in this image...
   * find which one it was pressed in if any.
   */
  plp = (PATHIMAGELISTP)gimp_image_get_paths(gdisp->gimage);      

  /* Since beziers are part of the save format.. make the image dirty */
/*   undo_push_cantundo(gdisp->gimage, _("path modification")); */
  
  if(!paths_replaced_current(plp,bezier_sel))
    {
      bzp = paths_dialog_new_path(&plp,pathpoints_create(bezier_sel),gdisp->gimage,-1);
      bzp->closed = bezier_sel->closed;
      bzp->state  = bezier_sel->state;
      if(paths_dialog && paths_dialog->gimage == gdisp->gimage)
	{
	  paths_dialog->current_path_list = plp;
	  paths_add_path(bzp,-1);
	}
    }
}

void
paths_newpoint_current(BezierSelect *bezier_sel,GDisplay * gdisp)
{
  /* Check if currently showing the paths we are updating */
  if(paths_dialog &&
     gdisp->gimage == paths_dialog->gimage)
    {
      /* Enable the buttons!*/
      paths_ops_button_set_sensitive(DUP_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(DEL_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,TRUE);
      paths_ops_button_set_sensitive(COPY_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,(copy_pp)?TRUE:FALSE); 
      point_ops_button_set_sensitive(POINT_NEW_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_DEL_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_ADD_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_EDIT_BUTTON,TRUE);
      paths_update_preview(bezier_sel);
    }

  paths_first_button_press(bezier_sel,gdisp);
}

void 
paths_new_bezier_select_tool()
{
  if(paths_dialog)
    paths_dialog->been_selected = FALSE;
}


/**************************************************************/
/* Code to serialise the bezier curves.
 * The curves will be saved out in XCF property format.
 * The "save as XCF format" will prompt to save the curves away.
 *
 * Note the save should really used PDB function to get the
 * curves etc. But I have yet to do those 8-)
 */
/**************************************************************/


PATHPOINTP 
pathpoint_new(gint type,
	    gdouble x, 
	    gdouble y)
{
  PATHPOINTP pathpoint = g_new0(PATHPOINT,1);

  pathpoint->type = type;
  pathpoint->x = x;
  pathpoint->y = y;
  return(pathpoint);
}

PATHP
path_new(GimpImage *gimage,
	 PathType   ptype,
	 GSList    *path_details,
	 gint       closed,
	 gint       state,
	 gint       locked,
	 gint       tattoo,  
	 gchar     *name)
{
  PATHP path = g_new0(PATH,1);

  path->path_details = path_details;
  path->closed = closed;
  path->state = state;
  path->locked = locked;
  path->name = g_string_new(name);
  path->pathtype = ptype;
  if(tattoo)
    path->tattoo = tattoo;
  else
    path->tattoo = gimp_image_get_new_tattoo(gimage);

  return path;
}

PathsList *
pathsList_new(GimpImage * gimage,
	      gint        last_selected_row,
	      GSList    * bz_paths)
{
  PATHIMAGELISTP pip = g_new0(PATHIMAGELIST,1);
  pip->gimage = gimage;
  pip->last_selected_row = last_selected_row;
  
  /* add connector to image delete/destroy */
  pip->sig_id = gtk_signal_connect(GTK_OBJECT (gimage),
				   "destroy",
				   GTK_SIGNAL_FUNC (paths_dialog_destroy_cb),
				   pip);

  pip->bz_paths = bz_paths;

  return (PathsList *)pip;
}


/**************************************************************/
/* Code to save/load from filesystem                          */
/**************************************************************/

static GtkWidget *file_dlg = 0;
static int load_store;

static void path_write_current_to_file(FILE *f,PATHP bzp)
		
{
  GSList *list = bzp->path_details;
  PATHPOINTP pdata;

  fprintf(f, "Name: %s\n", bzp->name->str);
  fprintf(f, "#POINTS: %d\n", g_slist_length(bzp->path_details));
  fprintf(f, "CLOSED: %d\n", bzp->closed==1?1:0);
  fprintf(f, "DRAW: %d\n", 0);
  fprintf(f, "STATE: %d\n", bzp->state);

  while(list)
    {
      pdata = (PATHPOINTP)list->data;
      fprintf(f,"TYPE: %d X: %d Y: %d\n", pdata->type, (gint)pdata->x, (gint)pdata->y);
      list = g_slist_next(list);
    }
}


static void file_ok_callback(GtkWidget * widget, gpointer client_data) 
{
  GtkFileSelection *fs;
  FILE *f; 
  char* filename;
  PATHP bzpath;
  GSList * pts_list = NULL;
  PATHIMAGELISTP plp;
  gint row = paths_dialog->selected_row_num;
  gint this_path_count = 0;

  fs = GTK_FILE_SELECTION (file_dlg);
  filename = gtk_file_selection_get_filename (fs);

  if (load_store) 
    {
      f = fopen(filename, "rb");

      if(!f)
	{
	  g_message(_("Unable to open file %s"),filename);
	  return;
	}
      
      while(!feof(f))
	{
	  gchar *txt = g_new(gchar,512);
	  gchar *txtstart = txt;
	  gint readfields = 0;
	  int val, type, closed, i, draw, state;
	  double x,y;

	  if(!fgets(txt,512,f) || strlen(txt) < 7)
	    {
	      g_message(_("Failed to read from %s"),filename);
	      gtk_widget_hide (file_dlg);  
	      return;
	    }

	  txt += 6; /* Miss out 'Name: ' bit */
	  txt[strlen(txt)-1] = '\0';

	  readfields += fscanf(f, "#POINTS: %d\n", &val);
 	  readfields += fscanf(f, "CLOSED: %d\n", &closed);
	  readfields += fscanf(f, "DRAW: %d\n", &draw);
	  readfields += fscanf(f, "STATE: %d\n", &state);

	  if(readfields != 4)
	    {
	      g_message(_("Failed to read path from %s"),filename);
	      gtk_widget_hide (file_dlg);  
	      return;
	    }

	  if(val <= 0)
	    {
	      g_message(_("No points specified in path file %s"),filename);
	      gtk_widget_hide (file_dlg);  
	      return;
	    }

	  for(i=0; i< val; i++)
	    {
	      PATHPOINTP bpt;
	      readfields = fscanf(f,"TYPE: %d X: %lg Y: %lg\n", &type, &x, &y);
	      if(readfields != 3)
		{
		  g_message(_("Failed to read path points from %s"),filename);
		  gtk_widget_hide (file_dlg);  
		  return;
		}
	      this_path_count++;
	      switch(type)
		{
		case BEZIER_ANCHOR:
		case BEZIER_CONTROL:
		  break;
		case BEZIER_MOVE:
		  if(this_path_count < 6)
		    {
		      g_warning("Invalid single point in path\n");
		      gtk_widget_hide (file_dlg);  
		      return;
		    }
		  this_path_count = 0;
		  break;
		default:
		  g_warning("Invalid point type passed\n");
		  gtk_widget_hide (file_dlg);  
		  return;
		}

	      bpt = pathpoint_new(type, (gdouble)x, (gdouble)y);
	      pts_list = g_slist_append(pts_list,bpt);
	    }

	  bzpath = path_new(paths_dialog->gimage,
			    BEZIER,
			    pts_list,
			    closed,
			    state,
			    0, /* Can't be locked */
			    0, /* No tattoo assigned */
			    txt);
	  
	  g_free(txtstart);

	  paths_dialog->current_path_list = 
	    path_add_to_current(paths_dialog->current_path_list,
				  bzpath,
				  paths_dialog->gimage,
				  row);
	  paths_add_path(bzpath,row);

	  gtk_clist_select_row(GTK_CLIST(paths_dialog->paths_list),
			       paths_dialog->current_path_list->last_selected_row,
			       1);

	  paths_ops_button_set_sensitive(DUP_PATH_BUTTON,val);
	  paths_ops_button_set_sensitive(DEL_PATH_BUTTON,val);
	  paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,val);
	  paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,val);
	  paths_ops_button_set_sensitive(COPY_PATH_BUTTON,val);
	  paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,(copy_pp)?TRUE:FALSE); 
	  point_ops_button_set_sensitive(POINT_ADD_BUTTON,val);
	  point_ops_button_set_sensitive(POINT_DEL_BUTTON,val);
	  point_ops_button_set_sensitive(POINT_NEW_BUTTON,val);
	  point_ops_button_set_sensitive(POINT_EDIT_BUTTON,val);
	}
      fclose(f);      
    } 
  else 
    {
      PATHP bzp;

      /* Get current selection... ignore if none */
      if(paths_dialog->selected_row_num < 0)
	return;
      
      /* Get bzpath structure  */
      plp = paths_dialog->current_path_list;
      bzp = (PATHP)g_slist_nth_data(plp->bz_paths,row); 

      f = fopen(filename, "wb");
      if (NULL == f) 
	{
	  g_message (_("open failed on %s: %s\n"), filename, g_strerror(errno));
	  return;
	}

      /* Write the current selection out. */
      
      path_write_current_to_file(f,bzp);
      
      fclose(f);
    }
  gtk_widget_hide (file_dlg);  
}


static void file_cancel_callback(GtkWidget * widget, gpointer data) 
{
  gtk_widget_hide (file_dlg);
}

static void make_file_dlg(gpointer data) 
{
  file_dlg = gtk_file_selection_new (_("Load/Store Bezier Curves"));
  gtk_window_position (GTK_WINDOW (file_dlg), GTK_WIN_POS_MOUSE);
  gtk_signal_connect(GTK_OBJECT (GTK_FILE_SELECTION (file_dlg)->cancel_button),
		     "clicked", (GtkSignalFunc) file_cancel_callback, data);
  gtk_signal_connect(GTK_OBJECT (GTK_FILE_SELECTION (file_dlg)->ok_button),
		     "clicked", (GtkSignalFunc) file_ok_callback, data);
}


static void 
path_load_callback()
{
  if (!file_dlg) 
    {
      make_file_dlg(NULL);
    } 
  else 
    {
      if (GTK_WIDGET_VISIBLE(file_dlg))
	return;
    }
  gtk_window_set_title(GTK_WINDOW (file_dlg), _("Load Path"));
  load_store = 1;
  gtk_widget_show (file_dlg);
}

static void 
path_store_callback()
{
  if (!file_dlg) 
    {
      make_file_dlg(NULL);
    } 
  else 
    {
      if (GTK_WIDGET_VISIBLE(file_dlg))
	return;
    }

  gtk_window_set_title(GTK_WINDOW (file_dlg), _("Store Path"));
  load_store = 0;
  gtk_widget_show (file_dlg);
}

void 
paths_dialog_import_path_callback (GtkWidget * widget, gpointer udata)
{
  /* Read and add at current position */
  path_load_callback();

}

void 
paths_dialog_export_path_callback (GtkWidget * widget, gpointer udata)
{
  /* Export the path to a file */
  path_store_callback();
}

/*************************************/
/* Function for transforming paths   */
/*************************************/

/* These functions are the undo functions for the paths
 * that have undergone transformations. 
 *
 * Generally speaking paths do not belong with the undo 
 * structures. However when a path undergoes a transformation 
 * then THIS path transformation should be part of the undo.
 * We do have a problem here since a point could have been
 * added to the path after the transformation. This 
 * point will be lost if the undo stuff is performed. It would 
 * then appear that this point is part of the undo structure.
 * I think it is fair that this happens since the user is telling
 * us to restore the state before the transformation took place.
 * Note tattoos are used to find which paths have been stored in the
 * undo buffer. So deleted paths will not suddenly reappear. (I did say
 * generally paths are not part of the undo structures).
 */

void *
paths_transform_start_undo(GimpImage  *gimage)
{
  /* Save only the locked paths away */
  PATHIMAGELISTP plp;
  GSList        *plist;
  PATHP          p;
  PATHP          p_copy;
  GSList        *undo_list = NULL;

  /* Get bzpath structure  */
  plp = (PATHIMAGELISTP)gimp_image_get_paths(gimage);
  
  if(!plp)
    return NULL;
  
  plist = plp->bz_paths;

  while(plist)
    {
      p = (PATHP)plist->data;
      if(p->locked)
	{
	  /* save away for a rainly day */
	  p_copy = path_copy(NULL,p); /* NULL means dont want new tattoo */
	  undo_list = g_slist_append(undo_list,p_copy);
	}
      plist = g_slist_next(plist);
    }
  return undo_list;
}

void
paths_transform_free_undo(void *data)
{
  GSList *pundolist = data;
  PATHP   p;
  /* free data associated with the transform path undo */

  while(pundolist)
    {
      p = (PATHP)pundolist->data;
      path_free(p,NULL);
      pundolist = g_slist_next(pundolist);
    }

  g_slist_free((GSList *)data);
}

void
paths_transform_do_undo(GimpImage *gimage,void *data)
{
  GSList *pundolist = data;
  /* Restore the paths as they were before this transform took place. */
  PATHP   p_undo;
  PATHP   p;
  BezierSelect  *bezier_sel;
  gint           tmprow;
  gint           loop;
  gboolean       preview_update = FALSE;
  PATHIMAGELISTP plp;
  GSList        *plist;

  /* free data associated with the transform path undo */

  while(pundolist)
    {
      p_undo = (PATHP)pundolist->data;
      /* Find the old path and replace it */
      p = paths_get_path_by_tattoo(gimage,p_undo->tattoo);
      if(p)
	{
	  /* Path is still around... undo the transform stuff */
	  pathpoints_free(p->path_details);
	  p->closed = p_undo->closed;
	  p->state = p_undo->state;
	  p->pathtype = p_undo->pathtype;
	  p->path_details = pathpoints_copy(p_undo->path_details);
	  preview_update = TRUE;
	}
      pundolist = g_slist_next(pundolist);
    }
  
  if(preview_update && paths_dialog)
    {
      /* Heck the previews need updating...*/
      plp = (PATHIMAGELISTP)gimp_image_get_paths(gimage);
      plist = plp->bz_paths;
      loop = 0;
      
      while(plist && 
	    g_slist_length(plist) &&
	    paths_dialog->current_path_list)
	{
	  bezier_sel = path_to_beziersel(plist->data);
	  tmprow = paths_dialog->current_path_list->last_selected_row;
	  paths_dialog->current_path_list->last_selected_row = loop;
	  paths_update_preview(bezier_sel);
	  beziersel_free(bezier_sel);
	  paths_dialog->current_path_list->last_selected_row = tmprow;
	  paths_dialog->selected_row_num = tmprow;
	  loop++;
	  plist = g_slist_next(plist);
	}

      /* Force selection .. it may have changed */
      if(bezier_tool_selected() && paths_dialog->current_path_list)
	{
	  gtk_clist_select_row(GTK_CLIST(paths_dialog->paths_list),
			       paths_dialog->current_path_list->last_selected_row,
			       1);
	}
    }
}

void
paths_transform_current_path(GimpImage  *gimage,
			     GimpMatrix  transform,
			     gboolean    forpreview)
{
  PATHIMAGELISTP plp;
  PATHP          p;
  PATHP          p_copy;
  GSList        *points_list;
  BezierSelect  *bezier_sel;
  GSList        *plist;
  gint           loop;
  gint           tmprow;

  /* As a first off lets just translate the current path */

  /* Get bzpath structure  */
  plp = (PATHIMAGELISTP)gimp_image_get_paths(gimage);

  if(!plp)
    return;

  plist = plp->bz_paths;
  loop = 0;

  while(plist)
    {
      p = (PATHP)plist->data;
      if(p->locked)
	{
	  if(forpreview)
	    p_copy = path_copy(NULL,p); /* NULL means dont want new tattoo */
	  else
	    p_copy = p;
	  
	  points_list = p_copy->path_details;
	  
	  while (points_list)
	    {
	      gdouble newx,newy;
	      PATHPOINTP ppoint = points_list->data;
	      
	      /*       printf("[x,y] = [%g,%g]\n",ppoint->x, ppoint->y); */
	      
	      gimp_matrix_transform_point (transform,
					   ppoint->x,
					   ppoint->y,
					   &newx,&newy);
	      
	      /*       printf("->[x,y] = [%g,%g]\n", newx, newy); */
	      
	      ppoint->x = newx;
	      ppoint->y = newy;
	      points_list = points_list->next;
	    }
	  
	  /* Only update if we have a dialog, we have a currently 
	   * selected path and its the showing the same image.
	   */

	  if(paths_dialog && 
	     paths_dialog->current_path_list &&
	     paths_dialog->gimage == gimage)
	    {
	      /* Now fudge the drawing....*/
	      bezier_sel = path_to_beziersel(p_copy);
	      tmprow = paths_dialog->current_path_list->last_selected_row;
	      paths_dialog->current_path_list->last_selected_row = loop;
	      paths_update_preview(bezier_sel);
	      beziersel_free(bezier_sel);
	      paths_dialog->current_path_list->last_selected_row = tmprow;
	      paths_dialog->selected_row_num = tmprow;
	    }

	  if(forpreview)
	    path_free(p_copy,NULL);
	}
      plist = g_slist_next(plist);
      loop++;
    }
}

void
paths_draw_current(GDisplay * gdisp, 
		   DrawCore *core,
		   GimpMatrix  transform)
{
  PATHIMAGELISTP plp;
  PATHP          bzp;
  BezierSelect * bezier_sel;
  PATHP          p_copy;
  GSList       * points_list;

  /* Get bzpath structure  */
  plp = (PATHIMAGELISTP)gimp_image_get_paths(gdisp->gimage);

  if(!plp)
    return;

  bzp = (PATHP)g_slist_nth_data(plp->bz_paths,plp->last_selected_row); 

  /* This image path is locked */
  if(bzp->locked)
    {
      p_copy = path_copy(NULL,bzp); /* NULL means dont want new tattoo */
      
      points_list = p_copy->path_details;
      
      while (points_list)
	{
	  gdouble newx,newy;
	  PATHPOINTP ppoint = points_list->data;
	  
	  /*       printf("[x,y] = [%g,%g]\n",ppoint->x, ppoint->y); */
	  
	  gimp_matrix_transform_point (transform,
				       ppoint->x,
				       ppoint->y,
				       &newx,&newy);
	  
	  /*       printf("->[x,y] = [%g,%g]\n", newx, newy); */
	  
	  ppoint->x = newx;
	  ppoint->y = newy;
	  points_list = points_list->next;
	}
      
      bezier_sel = path_to_beziersel(p_copy);
      bezier_sel->core = core; /* A bit hacky */
      bezier_draw(gdisp,bezier_sel);
      beziersel_free(bezier_sel);
      path_free(p_copy,NULL);
    }
}

/*************************************/
/* PDB function aids                 */
/*************************************/

/* Return TRUE if setting the path worked, else false */

gboolean
paths_set_path(GimpImage * gimage,
	       gchar     * pname)
{
  gint           row = 0;
  gboolean       found = FALSE;
  GSList        *tlist;
  PATHIMAGELISTP plp;

  /* Get bzpath structure  */
  plp = (PATHIMAGELISTP)gimp_image_get_paths(gimage);

  if(!plp)
    return FALSE;

  tlist = plp->bz_paths;
  
  while(tlist)
    {
      gchar *test_str = ((PATHP)(tlist->data))->name->str;
      if(strcmp(pname,test_str) == 0)
	{
	  found = TRUE;
	  break;
	}
      row++;
      tlist = g_slist_next(tlist);
    }

  if(!found)
    return FALSE;

  if(paths_dialog)
    {
      gtk_clist_select_row(GTK_CLIST(paths_dialog->paths_list),
			   row,
			   1);
    }
  else
    {
      plp->last_selected_row = row;
    }

  return TRUE;
}

/* Set a path with the given set of points. */
/* We assume that there are enough points */
/* Return TRUE if path created OK. */

gboolean
paths_set_path_points(GimpImage * gimage,
		      gchar     * pname,
		      gint        ptype,
		      gint        pclosed,
		      gint        num_pnts,
		      gdouble   * pnts)
{
  PathsList *plist    = gimp_image_get_paths(gimage);
  GSList    *pts_list = NULL;
  PATHP      bzpath;
  BezierSelect  *bezier_sel;
  gint       pcount   = 0;
  gint       this_path_count = 0;
  gchar     *suniq;

  if(num_pnts < 6 ||
     (pclosed && ((num_pnts/3) % 3)) ||
     (!pclosed && ((num_pnts/3) % 3) != 2))
    {
      g_warning("wrong number of points\n");
      return FALSE;
    }

  if(ptype != BEZIER)
    ptype = BEZIER;

  suniq = unique_name(gimage,pname);

  if(suniq)
    pname = suniq;

  while(num_pnts)
    {
      PATHPOINTP bpt;
      gint type;
      gdouble x; 
      gdouble y;
      
/*       if((pcount/2)%3) */
/* 	type = BEZIER_CONTROL; */
/*       else */
/* 	type = BEZIER_ANCHOR; */

      x = pnts[pcount++];
      y = pnts[pcount++];
      type = (gint)pnts[pcount++];
      this_path_count++;

      switch(type)
	{
	case BEZIER_ANCHOR:
	case BEZIER_CONTROL:
	  break;
	case BEZIER_MOVE:
	  if(this_path_count < 6)
	    {
	      g_warning("Invalid single point in path\n");
	      return FALSE;
	    }
	  this_path_count = 0;
	  break;
	default:
	  g_warning("Invalid point type passed\n");
	  return FALSE;
	}

      
/*       printf("New point type = %s, x = %d y= %d\n", */
/* 	     (type==BEZIER_CONTROL)?"CNTL":"ANCH", */
/* 	     (int)x, */
/* 	     (int)y); */
      
      bpt = pathpoint_new(type, (gdouble)x, (gdouble)y);
      pts_list = g_slist_append(pts_list,bpt);

      num_pnts -= 3;
    }
  
  bzpath = path_new(gimage,
		    ptype,
		    pts_list,
		    pclosed,
		    (pclosed)?BEZIER_EDIT:BEZIER_ADD,/*state,*/
		    0, /* Can't be locked */
		    0, /* No tattoo assigned */
		    pname);

  bezier_sel = path_to_beziersel(bzpath);

  /* Only add if paths dialog showing this window */
  if(paths_dialog && paths_dialog->gimage == gimage)
    { 

      paths_dialog->current_path_list =  
	path_add_to_current(paths_dialog->current_path_list, 
			    bzpath, 
			    paths_dialog->gimage, 
			    0); 
      
      paths_add_path(bzpath,0); 

      /* Update the preview */
      paths_dialog->current_path_list->last_selected_row = 0;
      paths_update_preview(bezier_sel);

      gtk_clist_select_row(GTK_CLIST(paths_dialog->paths_list),
			   paths_dialog->current_path_list->last_selected_row,
			   1);
      
      paths_ops_button_set_sensitive(DUP_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(DEL_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(STROKE_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(PATH_TO_SEL_BUTTON,TRUE);
      paths_ops_button_set_sensitive(COPY_PATH_BUTTON,TRUE);
      paths_ops_button_set_sensitive(PASTE_PATH_BUTTON,(copy_pp)?TRUE:FALSE); 
      point_ops_button_set_sensitive(POINT_ADD_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_DEL_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_NEW_BUTTON,TRUE);
      point_ops_button_set_sensitive(POINT_EDIT_BUTTON,TRUE);
    }
  else
    {
      GDisplay *gdisp;

      if(!plist)
	{
	  /* If we haven't got a paths dialog */
	  GSList *bzp_list = NULL;
	  
	  bzp_list = g_slist_append(bzp_list,bzpath);
	  plist = pathsList_new(gimage,0,bzp_list);
	  gimp_image_set_paths(gimage,plist);
	}
      else
	{
	  path_add_to_current(plist,bzpath,gimage,0);
	}

      /* This is a little HACK.. we need to find a display
       * to put the path image on.
       */

      gdisp = gdisplays_check_valid(NULL,gimage);

      /* Mark this path as selected */
      plist->last_selected_row = 0;
      bezier_paste_bezierselect_to_current(gdisp,bezier_sel);
    }

  beziersel_free(bezier_sel);
  return TRUE;
}

void 
paths_stroke(GimpImage *gimage,PathsList *pl,PATHP bzp)
{
  BezierSelect * bezier_sel;
  GDisplay  * gdisp;

  gdisp = gdisplays_check_valid(pl->gdisp,gimage);
  bezier_sel = path_to_beziersel(bzp);
  bezier_stroke (bezier_sel, gdisp, SUBDIVIDE, !bzp->closed);
  beziersel_free(bezier_sel);
}

gint 
paths_distance(PATHP bzp,gdouble dist,gint *x,gint *y, gdouble *grad)
{
  gint ret;
  BezierSelect * bezier_sel;
  bezier_sel = path_to_beziersel(bzp);
  ret = bezier_distance_along(bezier_sel,!bzp->closed,dist,x,y,grad);
  beziersel_free(bezier_sel);
  return(ret);
}

Tattoo
paths_get_tattoo(PATHP p)
{
  if(!p)
    {
      g_warning("paths_get_tattoo: invalid path");
      return 0;
    }

  return (p->tattoo);
}

PATHP
paths_get_path_by_tattoo(GimpImage *gimage,Tattoo tattoo)
{
  GSList        *tlist;
  PATHIMAGELISTP plp;

  if(!gimage || !tattoo)
    return NULL;

  /* Go around the list and check all tattoos. */

  /* Get path structure  */
  plp = (PATHIMAGELISTP)gimp_image_get_paths(gimage);

  if(!plp)
    return (NULL);

  tlist = plp->bz_paths;
  
  while(tlist)
    {
      PATHP p = (PATHP)(tlist->data);
      if(p->tattoo == tattoo)
	return (p);
      tlist = g_slist_next(tlist);
    }
  return (NULL);
}


gboolean
paths_delete_path(GimpImage *gimage,
		  gchar     *pname)
{
  gint           row = 0;
  gboolean       found = FALSE;
  GSList        *tlist;
  PATHIMAGELISTP plp;

  if(!pname || !gimage)
    {
      g_warning("paths_delete_path: invalid path");
      return 0;
    }

  /* Removed the named path ... */
  /* Get bzpath structure  */
  plp = (PATHIMAGELISTP)gimp_image_get_paths(gimage);

  if(!plp)
    return FALSE;

  tlist = plp->bz_paths;
  
  while(tlist)
    {
      gchar *test_str = ((PATHP)(tlist->data))->name->str;
      if(strcmp(pname,test_str) == 0)
	{
	  found = TRUE;
	  break;
	}
      row++;
      tlist = g_slist_next(tlist);
    }

  if(!found)
    return FALSE;

  plp->bz_paths = g_slist_remove(plp->bz_paths,tlist->data);
  /* If now empty free everything up */
  if(!plp->bz_paths || g_slist_length(plp->bz_paths) == 0)
    {
      gtk_signal_disconnect(GTK_OBJECT (plp->gimage),
			    plp->sig_id);
      gimp_image_set_paths(plp->gimage,NULL);
      pathimagelist_free(plp);
    }

  /* Redisplay if required */
  if(paths_dialog && paths_dialog->gimage == gimage)
    {
      paths_dialog->current_path_list = NULL;
      paths_dialog_flush();
    }

  return TRUE;
}