#include <stdlib.h>

#include <gtk/gtk.h>
#include "vars.h"
#include "externs.h"

#define VAR_CIRCLE_DIAM 40

static GtkWidget * varcircle_create (gint, datad *, ggobid *gg);
static void varcircle_attach (GtkWidget *, gint, gint, datad *);
static void varcircle_draw (gint, datad *, ggobid *gg); 

static gboolean da_expose_cb (GtkWidget *, GdkEventExpose *, gpointer cbd);


/*-------------------------------------------------------------------------*/
/*                         utilities                                       */
/*-------------------------------------------------------------------------*/

#define VB  0
#define LBL 1
#define DA  2

void
varcircles_delete_nth (gint jvar, datad *d)
{
  GtkWidget *w;
  w = (GtkWidget *) g_slist_nth_data (d->vcirc_ui.vb, jvar);
  if (w != NULL) {
    d->vcirc_ui.vb = g_slist_remove (d->vcirc_ui.vb, (gpointer) w);
    gtk_container_remove (GTK_CONTAINER (d->vcirc_ui.table), w);
  }
}

GtkWidget *
varcircles_get_nth (gint which, gint jvar, datad *d) {
  GtkWidget *w;

  switch (which) {
    case VB:
      w = (GtkWidget *) g_slist_nth_data (d->vcirc_ui.vb, jvar);
    break;
    case LBL:
      w = (GtkWidget *) g_slist_nth_data (d->vcirc_ui.label, jvar);
    break;
    case DA:
      w = (GtkWidget *) g_slist_nth_data (d->vcirc_ui.da, jvar);
    break;
  }

  return w;
}

/*
 * This is unfortunately needed for now because no widgets have
 * been realized yet when this is first called.
 *
 * I'm not sure which layout should be first; this does it row-wise.
*/
void
varcircles_layout_init (datad *d, ggobid *gg) {
  gint tncols, tnrows;
  gint NCOLS = 5;

  tncols = MIN (NCOLS, d->ncols);
  tnrows = d->ncols / tncols;
  if (tnrows * tncols < d->ncols) tnrows++;

  d->vcirc_ui.tncols = tncols;
  d->vcirc_ui.tnrows = tnrows;
}

void
varcircles_layout_reset (gint ncols, datad *d, ggobid *gg) {
  gint j;
  GtkWidget *vb;
  gint tnrows, tncols;
  gint left_attach, top_attach;
  GtkAdjustment *adj;

  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (d->vcirc_ui.swin),
    (gg->varpanel_ui.layoutByRow) ? GTK_POLICY_NEVER : GTK_POLICY_ALWAYS,
    (gg->varpanel_ui.layoutByRow) ? GTK_POLICY_ALWAYS : GTK_POLICY_NEVER
    );
  gdk_flush();

  /*-- we need any old vb; loop in case the first vars were deleted --*/
  vb = NULL;
  j = 0;
  while (vb == NULL && j < ncols)
    vb = varcircles_get_nth (VB, j++, d);

  if (gg->varpanel_ui.layoutByRow) {
    gint vport_width, vb_width;

    adj = gtk_scrolled_window_get_hadjustment (
      GTK_SCROLLED_WINDOW (d->vcirc_ui.swin));
    vport_width = adj->page_size;

    /*
     * if the varcircles have never been exposed, can't use page_size,
     * so just keep adding rows
    */
    if (vport_width == 0) {
      while (ncols > d->vcirc_ui.tncols * d->vcirc_ui.tnrows)
        d->vcirc_ui.tnrows++;
    } else {  /*-- fill the available space as best we can --*/
      vb_width = vb->allocation.width;
      if (vb_width < 5) vb_width = VAR_CIRCLE_DIAM;
      tncols = MIN (vport_width / vb_width, ncols);
      tnrows = ncols / tncols;
      if (tnrows * tncols < ncols) tnrows++;
      d->vcirc_ui.tncols = tncols;
      d->vcirc_ui.tnrows = tnrows;
    }

  } else {
    gint vport_height, vb_height;

    adj = gtk_scrolled_window_get_vadjustment (
      GTK_SCROLLED_WINDOW (d->vcirc_ui.swin));
    vport_height = adj->page_size;

    if (vport_height == 0) {
      while (ncols > d->vcirc_ui.tncols * d->vcirc_ui.tnrows)
        d->vcirc_ui.tncols++;
    } else {
      vb_height = vb->allocation.height;
      if (vb_height < 5) vb_height = VAR_CIRCLE_DIAM;  /*-- a bit low ... --*/

      tnrows = MIN (vport_height / vb_height, ncols);
      tncols = ncols / tnrows;
      if (tnrows * tnrows < ncols) tncols++;
      d->vcirc_ui.tncols = tncols;
      d->vcirc_ui.tnrows = tnrows;
    }
  }

  for (j=0; j<ncols; j++) {
    /*-- if they're in the container, ref and remove them --*/
    vb = varcircles_get_nth (VB, j, d);
    if (vb != NULL && vb->parent != NULL && vb->parent == d->vcirc_ui.table)
    {
      gtk_widget_ref (vb);
      gtk_container_remove (GTK_CONTAINER (d->vcirc_ui.table), vb);
    }
  }

  gtk_table_resize (GTK_TABLE (d->vcirc_ui.table),
                    d->vcirc_ui.tnrows, d->vcirc_ui.tncols);

  left_attach = top_attach = 0;
  for (j=0; j<ncols; j++) {
    vb = varcircles_get_nth (VB, j, d);

    /*-- attach the first one at 0,0 --*/
    gtk_table_attach (GTK_TABLE (d->vcirc_ui.table),
      vb,
      left_attach, left_attach+1, top_attach, top_attach+1,
      GTK_FILL, GTK_FILL, 0, 0);
    if (GTK_OBJECT (vb)->ref_count > 1)
      gtk_widget_unref (vb);

    if (gg->varpanel_ui.layoutByRow) {
      left_attach++; 
      if (left_attach == d->vcirc_ui.tncols) {
        left_attach = 0;
        top_attach++;
      }
    } else {
      top_attach++; 
      if (top_attach == d->vcirc_ui.tnrows) {
        top_attach = 0;
        left_attach++;
      }
    }
  }
}

void
varcircle_label_set (gint j, datad *d)
{
  GtkWidget *w = (GtkWidget *) g_slist_nth_data (d->vcirc_ui.label, j);

  g_assert (w != NULL);

  gtk_label_set_text (GTK_LABEL (GTK_BIN(w)->child), d->vartable[j].collab);
}

/*
 * Return to the default cursor
*/
void
varcircles_cursor_set_default (datad *d)
{
  GdkWindow *window = GTK_WIDGET (d->varpanel_ui.ebox)->window;
  gdk_cursor_destroy (d->vcirc_ui.cursor);
  d->vcirc_ui.jcursor = (gint) NULL;
  gdk_window_set_cursor (window, NULL);
}

static gint
manip_select_cb (GtkWidget *w, GdkEvent *event, datad *d)
{
  GdkWindow *window = GTK_WIDGET (d->varpanel_ui.ebox)->window;

  d->vcirc_ui.cursor = gdk_cursor_new (GDK_HAND2);
  gdk_window_set_cursor (window, d->vcirc_ui.cursor);
  d->vcirc_ui.jcursor = (gint )GDK_HAND2;
  
  return true;
}

static gint
freeze_select_cb (GtkWidget *w, GdkEvent *event, datad *d)
{
g_printerr ("not yet implemented\n");
  
  return true;
}

static gint
da_manip_expose_cb (GtkWidget *w, GdkEvent *event, datad *d)
{
  ggobid *gg = GGobiFromWidget (w, true);
  GdkGC *gc = gdk_gc_new (w->window);

  gdk_gc_set_foreground (gc, &gg->vcirc_manip_color);
  gdk_draw_rectangle (w->window, gc,
                      true,
                      0, 0,
                      w->allocation.width, w->allocation.height);

  gdk_gc_destroy (gc);

  return true;
}

static gint
da_freeze_expose_cb (GtkWidget *w, GdkEvent *event, datad *d)
{
  ggobid *gg = GGobiFromWidget (w, true);
  GdkGC *gc = gdk_gc_new (w->window);

  gdk_gc_set_foreground (gc, &gg->vcirc_freeze_color);
  gdk_draw_rectangle (w->window, gc,
                      true,
                      0, 0,
                      w->allocation.width, w->allocation.height);

  gdk_gc_destroy (gc);

  return true;
}


/*-- create the variable circles interface --*/
void
varcircles_populate (datad *d, ggobid *gg)
{
  gint i, j, k;
  GtkWidget *vb;
  GtkWidget *da;

  varcircles_layout_init (d, gg);
  d->vcirc_ui.jcursor = (gint) NULL;  /*-- start with the default cursor --*/
  d->vcirc_ui.cursor = (gint) NULL;

  d->vcirc_ui.vbox = gtk_vbox_new (false, 0);

  /*-- the first child of the vbox: the scrolled window, with table --*/
  d->vcirc_ui.swin = gtk_scrolled_window_new (NULL, NULL);
  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (d->vcirc_ui.swin),
    GTK_POLICY_NEVER, GTK_POLICY_ALWAYS);
  gtk_box_pack_start (GTK_BOX (d->vcirc_ui.vbox), d->vcirc_ui.swin,
    true, true, 2);

  d->vcirc_ui.table = gtk_table_new (d->vcirc_ui.tnrows,
                                     d->vcirc_ui.tncols, true);
  gtk_scrolled_window_add_with_viewport (GTK_SCROLLED_WINDOW (d->vcirc_ui.swin),
    d->vcirc_ui.table);

  /*-- da and label are freed in varcircle_clear --*/
  d->vcirc_ui.vb = NULL;
  d->vcirc_ui.da = NULL;
  d->vcirc_ui.label = NULL;
  d->vcirc_ui.da_pix = NULL;


  k = 0;
  for (i=0; i<d->vcirc_ui.tnrows; i++) {
    for (j=0; j<d->vcirc_ui.tncols; j++) {
      vb = varcircle_create (k, d, gg);
      varcircle_attach (vb, i, j, d);
      k++;
      if (k == d->ncols) break;
    }
  }

  /*-- the second child of the vbox: an hbox with buttons --*/
  d->vcirc_ui.hbox = gtk_hbox_new (false, 0);
  gtk_box_pack_start (GTK_BOX (d->vcirc_ui.vbox), d->vcirc_ui.hbox,
    false, false, 2);

  /* -- a drawing area to place next to the manip button as a color key --*/
  da = gtk_drawing_area_new ();
  gtk_drawing_area_size (GTK_DRAWING_AREA (da), 8, 8);
  gtk_widget_set_events (da, GDK_EXPOSURE_MASK);
  gtk_box_pack_start (GTK_BOX (d->vcirc_ui.hbox), da,
    false, false, 2);
  GGobi_widget_set (da, gg, true);
  gtk_signal_connect (GTK_OBJECT (da), "expose_event",
    GTK_SIGNAL_FUNC (da_manip_expose_cb), d);

  d->vcirc_ui.manip_btn = gtk_button_new_with_label ("Manip");
  gtk_tooltips_set_tip (GTK_TOOLTIPS (gg->tips), d->vcirc_ui.manip_btn,
    "Click here, then click on the variable you wish to manipulate",
    NULL);
  gtk_box_pack_start (GTK_BOX (d->vcirc_ui.hbox), d->vcirc_ui.manip_btn,
    true, true, 2);
  gtk_signal_connect (GTK_OBJECT (d->vcirc_ui.manip_btn),
    "button_press_event", GTK_SIGNAL_FUNC (manip_select_cb), d);

  /* -- a drawing area to place next to the manip button as a color key --*/
  da = gtk_drawing_area_new ();
  gtk_drawing_area_size (GTK_DRAWING_AREA (da), 8, 8);
  gtk_widget_set_events (da, GDK_EXPOSURE_MASK);
  gtk_box_pack_start (GTK_BOX (d->vcirc_ui.hbox), da,
    false, false, 2);
  GGobi_widget_set (da, gg, true);
  gtk_signal_connect (GTK_OBJECT (da), "expose_event",
    GTK_SIGNAL_FUNC (da_freeze_expose_cb), d);

  d->vcirc_ui.freeze_btn = gtk_button_new_with_label ("Freeze");
  gtk_tooltips_set_tip (GTK_TOOLTIPS (gg->tips), d->vcirc_ui.freeze_btn,
    "Click here, then click on the variable you wish to freeze",
    NULL);
  gtk_box_pack_start (GTK_BOX (d->vcirc_ui.hbox), d->vcirc_ui.freeze_btn,
    true, true, 2);
  gtk_signal_connect (GTK_OBJECT (d->vcirc_ui.freeze_btn),
    "button_press_event", GTK_SIGNAL_FUNC (freeze_select_cb), d);

  gtk_widget_show_all (d->vcirc_ui.vbox);
}

void
varcircles_delete (gint nc, gint jvar, datad *d, ggobid *gg)
{
  gint j;
  GtkWidget *w;
  GdkPixmap *pix;

  if (nc > 0 && nc < d->ncols) {  /*-- forbid deleting every circle --*/
    for (j=jvar; j<jvar+nc; j++) {
      w = varcircles_get_nth (LBL, j, d);
      d->vcirc_ui.label = g_slist_remove (d->vcirc_ui.label, w);

      w = varcircles_get_nth (DA, j, d);
      d->vcirc_ui.da = g_slist_remove (d->vcirc_ui.da, w);

      w = varcircles_get_nth (VB, j, d);
      d->vcirc_ui.vb = g_slist_remove (d->vcirc_ui.vb, w);
      /*-- without a ref, this will be destroyed --*/
      gtk_container_remove (GTK_CONTAINER (d->vcirc_ui.table), w);

      pix = (GdkPixmap *) g_slist_nth_data (d->vcirc_ui.da, jvar);
      d->vcirc_ui.da_pix = g_slist_remove (d->vcirc_ui.da_pix, pix);
      gdk_pixmap_unref (pix);
    }
  }

  /*-- this may not be enough; time will tell --*/
  varcircles_layout_reset (d->ncols, d, gg);
}

/*-- this destroys them all -- it's not yet called anywhere --*/
void
varcircles_clear (ggobid *gg) {
  GtkWidget *w;
  gint j;
  GSList *l;
  datad *d;
  GdkPixmap *pix;

  for (l = gg->d; l; l = l->next) {
    d = (datad *) l->data;
    for (j=0; j<d->vcirc_ui.nvars; j++) {  /*-- variable not initialized --*/
      w = varcircles_get_nth (LBL, j, d);
      d->vcirc_ui.label = g_slist_remove (d->vcirc_ui.label, w);

      w = varcircles_get_nth (DA, j, d);
      d->vcirc_ui.da = g_slist_remove (d->vcirc_ui.da, w);

      w = varcircles_get_nth (VB, j, d);
      d->vcirc_ui.vb = g_slist_remove (d->vcirc_ui.vb, w);
      gtk_container_remove (GTK_CONTAINER (d->vcirc_ui.table), w);

      pix = (GdkPixmap *) g_slist_nth_data (d->vcirc_ui.da, j);
      d->vcirc_ui.da_pix = g_slist_remove (d->vcirc_ui.da_pix, pix);
      gdk_pixmap_unref (pix);
    }
  }
}


/*-- responds to a button_press_event --*/
static gint
varcircle_sel_cb (GtkWidget *w, GdkEvent *event, gint jvar)
{
  ggobid *gg = GGobiFromWidget (w, true);
  displayd *display = gg->current_display;
  cpaneld *cpanel = &display->cpanel;
  splotd *sp = gg->current_splot;
  datad *d = datad_get_from_notebook (gg->varpanel_ui.notebook, gg);

  if (d != display->d)
    return true;

  if (event->type == GDK_BUTTON_PRESS) {
    GdkEventButton *bevent = (GdkEventButton *) event;
    gint button = bevent->button;
    gboolean alt_mod, shift_mod, ctrl_mod;

    /*-- respond only to button 1 and button 2 --*/
    if (button != 1 && button != 2)
      return false;

/* looking for modifiers; don't know which ones we'll want */
    alt_mod = ((bevent->state & GDK_MOD1_MASK) == GDK_MOD1_MASK);
    shift_mod = ((bevent->state & GDK_SHIFT_MASK) == GDK_SHIFT_MASK);
    ctrl_mod = ((bevent->state & GDK_CONTROL_MASK) == GDK_CONTROL_MASK);
/* */

    /*-- general variable selection --*/
    varsel (cpanel, sp, jvar, button, alt_mod, ctrl_mod, shift_mod, d, gg);
    varcircles_refresh (d, gg);
    return true;
  }

  return false;
}

static GtkWidget *
varcircle_create (gint k, datad *d, ggobid *gg)
{
  GtkWidget *vb, *lbl, *da;

  vb = gtk_vbox_new (false, 0);
  d->vcirc_ui.vb = g_slist_append (d->vcirc_ui.vb, vb);
  gtk_container_border_width (GTK_CONTAINER (vb), 1);

  lbl = gtk_button_new_with_label (d->vartable[k].collab);
  d->vcirc_ui.label = g_slist_append (d->vcirc_ui.label, lbl);
  gtk_tooltips_set_tip (GTK_TOOLTIPS (gg->tips),
    lbl, "Click left on the circle to select or deselect", NULL);
  gtk_object_set_data (GTK_OBJECT (lbl), "datad", d);
  GGobi_widget_set (GTK_WIDGET (lbl), gg, true);
  gtk_container_add (GTK_CONTAINER (vb), lbl);

/*
  gtk_signal_connect (GTK_OBJECT (lbl), "button_press_event",
    GTK_SIGNAL_FUNC (popup_varmenu), GINT_TO_POINTER (k));
*/


  /*
   * a drawing area to contain the variable circle
  */
  da = gtk_drawing_area_new ();
  d->vcirc_ui.da = g_slist_append (d->vcirc_ui.da, da);
  gtk_drawing_area_size (GTK_DRAWING_AREA (da),
                         VAR_CIRCLE_DIAM+2, VAR_CIRCLE_DIAM+2);
  gtk_widget_set_events (da, GDK_EXPOSURE_MASK
             | GDK_ENTER_NOTIFY_MASK
             | GDK_LEAVE_NOTIFY_MASK
             | GDK_BUTTON_PRESS_MASK
             | GDK_BUTTON_RELEASE_MASK);

  gtk_tooltips_set_tip (GTK_TOOLTIPS (gg->tips), da,
    "Click left to select or deselect", NULL);
    /*"Click to select; see menu", NULL);*/
  gtk_signal_connect (GTK_OBJECT (da), "expose_event",
    GTK_SIGNAL_FUNC (da_expose_cb), GINT_TO_POINTER (k));
  gtk_signal_connect (GTK_OBJECT (da), "button_press_event",
    GTK_SIGNAL_FUNC (varcircle_sel_cb), GINT_TO_POINTER (k));
  gtk_object_set_data (GTK_OBJECT (da), "datad", d);
  GGobi_widget_set (GTK_WIDGET (da), gg, true);
  gtk_container_add (GTK_CONTAINER (vb), da);

  gtk_widget_show_all (vb);
  return (vb);
}

void
varcircle_attach (GtkWidget *vb, gint i, gint j, datad *d)
{
  gtk_table_attach (GTK_TABLE (d->vcirc_ui.table),
    vb, j, j+1, i, i+1,
    GTK_FILL, GTK_FILL, 0, 0);
}

void
varcircles_refresh (datad *d, ggobid *gg) {
  gint j;
  GtkWidget *da;

  for (j=0; j<d->ncols; j++) {
    da = varcircles_get_nth (DA, j, d);
    if (GTK_WIDGET_REALIZED (da))
      varcircle_draw (j, d, gg);
  }
}

void
varcircle_draw (gint jvar, datad *d, ggobid *gg)
{
  gint r = VAR_CIRCLE_DIAM/2;
  gint x,y;
  gboolean chosen = false;
  splotd *sp = gg->current_splot;
  displayd *display;
  cpaneld *cpanel;
  gint k, len;
  GtkWidget *da = varcircles_get_nth (DA, jvar, d);
  GdkPixmap *da_pix;

  if (sp == NULL || jvar < 0 || jvar >= d->ncols)
    return;  /*-- return --*/

  display = (displayd *) sp->displayptr;

  if (display == NULL || display->d != d)
    return;  /*-- return --*/

  cpanel = &display->cpanel;

  if (gg->selvarfg_GC == NULL) 
    init_var_GCs (da, gg);

  if ((len=g_slist_length (d->vcirc_ui.da_pix)) < d->ncols) {
    for (k=len; k<d->ncols; k++) {
      d->vcirc_ui.da_pix = g_slist_append (d->vcirc_ui.da_pix,
        gdk_pixmap_new (da->window, VAR_CIRCLE_DIAM+1, VAR_CIRCLE_DIAM+1, -1));
    }
  }
  da_pix = g_slist_nth_data (d->vcirc_ui.da_pix, jvar);

  /*-- clear the pixmap --*/
  gdk_draw_rectangle (da_pix, gg->unselvarbg_GC, true,
                      0, 0, VAR_CIRCLE_DIAM+1, VAR_CIRCLE_DIAM+1);

  /*-- add a filled circle for the background --*/
  gdk_draw_arc (da_pix, gg->selvarbg_GC, true,
                0, 0, VAR_CIRCLE_DIAM, VAR_CIRCLE_DIAM,
                0, 64 * 360);

  /*-- add the appropriate line --*/
  switch (display->displaytype) {

    case  scatterplot:
      switch (cpanel->projection) {
        case TOUR1D:
          x = (gint) (display->t1d.u.vals[0][jvar]*(gfloat)r);
          y = 0;
          gdk_draw_line (da_pix,
            gg->selvarfg_GC, r, r, r+x, r-y);

          for (k=0; k<display->t1d.nvars; k++) {
            if (display->t1d.vars.els[k] == jvar) {
              chosen = true;
              break;
            }
          }
          break;
        case TOUR2D:
          x = (gint) (display->t2d.u.vals[0][jvar]*(gfloat)r);
          y = (gint) (display->t2d.u.vals[1][jvar]*(gfloat)r);
          gdk_draw_line (da_pix,
            gg->selvarfg_GC, r, r, r+x, r-y);

          for (k=0; k<display->t2d.nvars; k++) {
            if (display->t2d.vars.els[k] == jvar) {
              chosen = true;
              break;
            }
          }
          break;
        case COTOUR:
	  /*          for (i=0; i<display->tcorr1.nvars; i++)
            if (jvar == display->tcorr1.vars.els[i]) {

              xvar = true;
              break;
	      }*/

	  /*          if (xvar) {*/
            x = (gint) (display->tcorr1.u.vals[0][jvar]*(gfloat)r);
            y = (gint) (display->tcorr2.u.vals[0][jvar]*(gfloat)r);
            gdk_draw_line (da_pix,
              gg->selvarfg_GC, r, r, r+x, r-y);

            for (k=0; k<display->tcorr1.nvars; k++) {
              if (display->tcorr1.vars.els[k] == jvar) {
                chosen = true;
                break;
              }
	    }
            for (k=0; k<display->tcorr2.nvars; k++) {
              if (display->tcorr2.vars.els[k] == jvar) {
                chosen = true;
              break;
	      }
	    }
            break;

	    /*	  } 
          else {

            x = 0;
            y = (gint) (display->tcorr2.u.vals[0][jvar]*(gfloat)r);
            gdk_draw_line (da_pix,
              gg->selvarfg_GC, r, r, r+x, r-y);

	      }*/
      }
      break;

    default:
      ;
  }

  /*
   * add an open circle for the outline
  */
  if (chosen) {
    gdk_draw_arc (da_pix, gg->selvarfg_GC, false,
      0, 0, VAR_CIRCLE_DIAM, VAR_CIRCLE_DIAM, 0, 64 * 360);
  } else {
    gdk_draw_arc (da_pix, gg->unselvarfg_GC, false,
      0, 0, VAR_CIRCLE_DIAM, VAR_CIRCLE_DIAM, 0, 64 * 360);
  }


  /*
   * copy the pixmap to the window
  */
  gdk_draw_pixmap (da->window, gg->unselvarfg_GC,
    da_pix, 0, 0, 0, 0,
    VAR_CIRCLE_DIAM+1, VAR_CIRCLE_DIAM+1);
}

void tour_draw_circles (datad *d, ggobid *gg)
{
  gint j;

  for (j=0; j<d->ncols; j++) {
    varcircle_draw (j, d, gg);
  }
}

gboolean
da_expose_cb (GtkWidget *w, GdkEventExpose *event, gpointer cbd)
{
  ggobid *gg = GGobiFromWidget (w, true);
  gint j = GPOINTER_TO_INT (cbd);
  datad *d = (datad *) gtk_object_get_data (GTK_OBJECT (w), "datad");
  GtkWidget *da = varcircles_get_nth (DA, j, d);
  GdkPixmap *da_pix = g_slist_nth_data (d->vcirc_ui.da_pix, j);

  if (da_pix == NULL)
    varcircle_draw (j, d, gg); 
  else
    gdk_draw_pixmap (da->window, gg->unselvarfg_GC,
      da_pix, 0, 0, 0, 0,
      VAR_CIRCLE_DIAM+1, VAR_CIRCLE_DIAM+1);

  return true;
}

/*-- used in cloning and appending variables; see vartable.c --*/
void
varcircles_add (gint nc, datad *d, ggobid *gg) 
{
  gint j;
  GtkWidget *vb;
  gint n = g_slist_length (d->vcirc_ui.vb);
  
  /*-- create the variable circles --*/
  for (j=n; j<nc; j++)
    vb = varcircle_create (j, d, gg);
  varcircles_layout_reset (nc, d, gg);

  gtk_widget_show_all (gg->varpanel_ui.notebook);
}

/*-------------------------------------------------------------------------*/
/*                     Variable menus                                      */
/*-------------------------------------------------------------------------*/

/*
static void
varsel_from_menu (GtkWidget *w, gpointer data)
{
  varseldatad *vdata = (varseldatad *) data;
  ggobid *gg = vdata->gg;
  displayd *display = gg->current_display;
  datad *d = display->d;
  cpaneld *cpanel = &display->cpanel;

  *-- I think the menu should be destroyed here. --*
  gtk_widget_destroy (w->parent);

  varsel (cpanel, gg->current_splot, vdata->jvar, vdata->btn,
    vdata->alt_mod, vdata->ctrl_mod, vdata->shift_mod, d, gg);
}
*/

/*
GtkWidget *
tour2d_menu_build (gint jvar, datad *d, ggobid *gg)
{
  GtkWidget *menu;

  gg->tour2d_menu.vdata0.sp = gg->tour2d_menu.vdata1.sp =
    gg->tour2d_menu.vdata2.sp = gg->current_splot;
  gg->tour2d_menu.vdata0.jvar = gg->tour2d_menu.vdata1.jvar =
    gg->tour2d_menu.vdata2.jvar = jvar;
  gg->tour2d_menu.vdata0.alt_mod = gg->tour2d_menu.vdata1.alt_mod =
    gg->tour2d_menu.vdata2.alt_mod = false;
  gg->tour2d_menu.vdata0.shift_mod = gg->tour2d_menu.vdata2.shift_mod = false;
  gg->tour2d_menu.vdata1.shift_mod = true;
  gg->tour2d_menu.vdata0.ctrl_mod = gg->tour2d_menu.vdata1.ctrl_mod = false;
  gg->tour2d_menu.vdata2.ctrl_mod = true;

  gg->tour2d_menu.vdata2.gg = gg->tour2d_menu.vdata1.gg =  
    gg->tour2d_menu.vdata0.gg = gg;

  menu = gtk_menu_new ();
  gtk_object_set_data (GTK_OBJECT (menu), "top", d->varpanel_ui.checkbox[jvar]);

  CreateMenuItem (menu, "Tour   L,M",
    NULL, NULL, gg->varpanel_ui.varpanel, gg->varpanel_ui.varpanel_accel_group,
    GTK_SIGNAL_FUNC (varsel_from_menu), (gpointer) &gg->tour2d_menu.vdata0, gg);
  CreateMenuItem (menu, "Manip  <Shift> L,M",
    NULL, NULL, gg->varpanel_ui.varpanel, gg->varpanel_ui.varpanel_accel_group,
    GTK_SIGNAL_FUNC (varsel_from_menu), (gpointer) &gg->tour2d_menu.vdata1, gg);
  CreateMenuItem (menu, "Freeze <Ctrl> L,M",
    NULL, NULL, gg->varpanel_ui.varpanel, gg->varpanel_ui.varpanel_accel_group,
    GTK_SIGNAL_FUNC (varsel_from_menu), (gpointer) &gg->tour2d_menu.vdata2, gg);

  return menu;
}
*/

/*
  corr_tour_menu = gtk_menu_new ();
  CreateMenuItem (corr_tour_menu, "Tour X    L",         NULL, NULL,
    varpanel, varpanel_accel_group, NULL, NULL);
  CreateMenuItem (corr_tour_menu, "Tour Y    M",         NULL, NULL,
    varpanel, varpanel_accel_group, NULL, NULL);
  CreateMenuItem (corr_tour_menu, "Manip X   <Shift> L", NULL, NULL,
    varpanel, varpanel_accel_group, NULL, NULL);
  CreateMenuItem (corr_tour_menu, "Manip Y   <Shift> M", NULL, NULL,
    varpanel, varpanel_accel_group, NULL, NULL);
  CreateMenuItem (corr_tour_menu, "Freeze X  <Ctrl> L",  NULL, NULL,
    varpanel, varpanel_accel_group, NULL, NULL);
  CreateMenuItem (corr_tour_menu, "Freeze Y  <Ctrl> M",  NULL, NULL,
    varpanel, varpanel_accel_group, NULL, NULL);
*/

/*
static gint
popup_varmenu (GtkWidget *w, GdkEvent *event, gpointer cbd) 
{
  ggobid *gg = GGobiFromWidget(w, true);
  displayd *display = gg->current_display;
  cpaneld *cpanel;
  gint jvar = GPOINTER_TO_INT (cbd);
  GtkWidget *tour_menu;
  *-- w  is the variable label --*
  datad *d = (datad *) gtk_object_get_data (GTK_OBJECT (w), "datad");

  if (display == NULL)
    return false;
  if (display->d != d)  *-- only select for the current plot --*
    return false;

  cpanel = &display->cpanel;

  if (event->type == GDK_BUTTON_PRESS) {
    GdkEventButton *bevent = (GdkEventButton *) event;
    if (bevent->button == 1) {
      gint projection = projection_get (gg);

      switch (display->displaytype) {

        case scatterplot:
          switch (projection) {
            case TOUR1D:
              tour_menu = tour1d_menu_build (jvar, d, gg);
              gtk_menu_popup (GTK_MENU (tour_menu), NULL, NULL,
                position_popup_menu, NULL,
                bevent->button, bevent->time);
              break;
            case TOUR2D:
            case COTOUR:
              tour_menu = tour2d_menu_build (jvar, d, gg);
              gtk_menu_popup (GTK_MENU (tour_menu), NULL, NULL,
                position_popup_menu, NULL,
                bevent->button, bevent->time);
              break;
          }
          break;

        case scatmat:
        case parcoords:
          break;

      }
      return true;
    }
  }
  return false;
}
*/

/*-- from ggobid --*/
/*----------------- variable selection menus -------------------------*/

 struct {
  varseldatad vdata0, vdata1, vdata2;
 } tour2d_menu;

/*--------------------------------------------------------------------*/