/* I really wish this entire file could go away, but there is
   currently no way to do the following in the Foreign Function
   Interface:

   1) Deal with return values in the parameter list (ie: int *foo)

   So we have to code a few functions by hand.  Ick.

   William M. Perry 5/8/00
*/

#include "gui.h"

DEFUN ("gtk-box-query-child-packing", Fgtk_box_query_child_packing, 2, 2,0, /*
Returns information about how CHILD is packed into BOX.
Return value is a list of (EXPAND FILL PADDING PACK_TYPE).
*/
       (box, child))
{
  gboolean expand, fill;
  guint padding;
  GtkPackType pack_type;
  Lisp_Object result = Qnil;
  
  CHECK_GTK_OBJECT (box);
  CHECK_GTK_OBJECT (child);

  if (!GTK_IS_BOX (XGTK_OBJECT (box)->object))
    {
      wtaerror ("Object is not a GtkBox", box);
    }

  if (!GTK_IS_WIDGET (XGTK_OBJECT (child)->object))
    {
      wtaerror ("Child is not a GtkWidget", child);
    }

  gtk_box_query_child_packing (GTK_BOX (XGTK_OBJECT (box)->object),
			       GTK_WIDGET (XGTK_OBJECT (child)->object),
			       &expand, &fill, &padding, &pack_type);

  result = Fcons (make_int (pack_type), result);
  result = Fcons (make_int (padding), result);
  result = Fcons (fill ? Qt : Qnil, result);
  result = Fcons (expand ? Qt : Qnil, result);

  return (result);
}

/* void gtk_button_box_get_child_size_default (gint *min_width, gint *min_height); */
DEFUN ("gtk-button-box-get-child-size-default",
       Fgtk_button_box_get_child_size_default, 0, 0, 0, /*
Return a cons cell (WIDTH . HEIGHT) of the default button box child size.
*/
       ())
{
  gint width, height;

  gtk_button_box_get_child_size_default (&width, &height);

  return (Fcons (make_int (width), make_int (height)));
}

/* void gtk_button_box_get_child_ipadding_default (gint *ipad_x, gint *ipad_y);  */
DEFUN ("gtk-button-box-get-child-ipadding-default",
       Fgtk_button_box_get_child_ipadding_default, 0, 0, 0, /*
Return a cons cell (X . Y) of the default button box ipadding.
*/
       ())
{
  gint x, y;

  gtk_button_box_get_child_ipadding_default (&x, &y);

  return (Fcons (make_int (x), make_int (y)));
}

/* void gtk_button_box_get_child_size (GtkButtonBox *widget,
   gint *min_width, gint *min_height); */
DEFUN ("gtk-button-box-get-child-size", Fgtk_button_box_get_child_size, 1, 1, 0, /*
Get the current size of a child in the buttonbox BOX.
*/
       (box))
{
  gint width, height;

  CHECK_GTK_OBJECT (box);

  if (!GTK_IS_BUTTON_BOX (XGTK_OBJECT (box)->object))
    {
      wtaerror ("Not a GtkBox object", box);
    }

  gtk_button_box_get_child_size (GTK_BUTTON_BOX (XGTK_OBJECT (box)->object),
				 &width, &height);

  return (Fcons (make_int (width), make_int (height)));
}

/* void gtk_button_box_get_child_ipadding (GtkButtonBox *widget, gint *ipad_x, gint *ipad_y); */
DEFUN ("gtk-button-box-get-child-ipadding",
       Fgtk_button_box_get_child_ipadding, 1, 1, 0, /*
Return a cons cell (X . Y) of the current buttonbox BOX ipadding.
*/
       (box))
{
  gint x, y;

  CHECK_GTK_OBJECT (box);

  if (!GTK_IS_BUTTON_BOX (XGTK_OBJECT (box)->object))
    {
      wtaerror ("Not a GtkBox object", box);
    }

  gtk_button_box_get_child_ipadding (GTK_BUTTON_BOX (XGTK_OBJECT (box)->object),
				     &x, &y);

  return (Fcons (make_int (x), make_int (y)));
}

/*void	   gtk_calendar_get_date	(GtkCalendar *calendar, 
					 guint	     *year,
					 guint	     *month,
					 guint	     *day);
*/
DEFUN ("gtk-calendar-get-date", Fgtk_calendar_get_date, 1, 1, 0, /*
Return a list of (YEAR MONTH DAY) from the CALENDAR object.
*/
       (calendar))
{
  guint year, month, day;

  CHECK_GTK_OBJECT (calendar);

  if (!GTK_IS_CALENDAR (XGTK_OBJECT (calendar)->object))
    {
      wtaerror ("Not a GtkCalendar object", calendar);
    }

  gtk_calendar_get_date (GTK_CALENDAR (XGTK_OBJECT (calendar)->object),
			 &year, &month, &day);

  return (list3 (make_int (year), make_int (month), make_int (day)));
}

/* gint gtk_clist_get_text (GtkCList  *clist,
			 gint       row,
			 gint       column,
			 gchar    **text);
*/
DEFUN ("gtk-clist-get-text", Fgtk_clist_get_text, 3, 3, 0, /*
Returns the text from GtkCList OBJ cell at coordinates ROW, COLUMN.
*/
       (obj, row, column))
{
  gchar *text = NULL;
  Lisp_Object rval = Qnil;

  CHECK_GTK_OBJECT (obj);
  CHECK_INT (row);
  CHECK_INT (column);

  if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
    {
      wtaerror ("Object is not a GtkCList", obj);
    }

  gtk_clist_get_text (GTK_CLIST (XGTK_OBJECT (obj)->object), XINT (row), XINT (column), &text);

  if (text)
    {
      rval = build_string (text);
      /* NOTE: This is NOT a memory leak.  GtkCList returns a pointer
	 to internally used memory, not a copy of it.
	 g_free (text);
      */
    }

  return (rval);
}

/* gint gtk_clist_get_selection_info (GtkCList *clist,
			     	   gint      x,
			     	   gint      y,
			     	   gint     *row,
			     	   gint *column); */
DEFUN ("gtk-clist-get-selection-info", Fgtk_clist_get_selection, 3, 3, 0, /*
Returns a cons cell of (ROW . COLUMN) of the GtkCList OBJ at coordinates X, Y.
*/
       (obj, x, y))
{
  gint row, column;

  CHECK_GTK_OBJECT (obj);
  CHECK_INT (x);
  CHECK_INT (y);

  if (!GTK_IS_CLIST (XGTK_OBJECT (obj)->object))
    {
      wtaerror ("Object is not a GtkCList", obj);
    }

  gtk_clist_get_selection_info (GTK_CLIST (XGTK_OBJECT (obj)->object),
				XINT (x), XINT (y), &row, &column);

  return (Fcons (make_int (row), make_int (column)));
}

DEFUN ("gtk-clist-get-pixmap", Fgtk_clist_get_pixmap, 3, 3, 0, /*
Return a cons of (pixmap . mask) at ROW,COLUMN in CLIST.
*/
       (clist, row, column))
{
  GdkPixmap *pixmap = NULL;
  GdkBitmap *mask = NULL;

  CHECK_GTK_OBJECT (clist);
  CHECK_INT (row);
  CHECK_INT (column);

  if (!GTK_IS_CLIST (XGTK_OBJECT (clist)->object))
    {
      wtaerror ("Object is not a GtkCList", clist);
    }

  gtk_clist_get_pixmap (GTK_CLIST (XGTK_OBJECT (clist)->object),
			XINT (row), XINT (column),
			&pixmap, &mask);

  return (Fcons (pixmap ? build_gtk_boxed (pixmap, GTK_TYPE_GDK_WINDOW) : Qnil,
		 mask ? build_gtk_boxed (mask, GTK_TYPE_GDK_WINDOW) : Qnil));
}

DEFUN ("gtk-clist-get-pixtext", Fgtk_clist_get_pixtext, 3, 3, 0, /*
Return a list of (pixmap mask text) at ROW,COLUMN in CLIST.
*/
       (clist, row, column))
{
  GdkPixmap *pixmap = NULL;
  GdkBitmap *mask = NULL;
  char *text = NULL;
  guint8 spacing;

  CHECK_GTK_OBJECT (clist);
  CHECK_INT (row);
  CHECK_INT (column);

  if (!GTK_IS_CLIST (XGTK_OBJECT (clist)->object))
    {
      wtaerror ("Object is not a GtkCList", clist);
    }

  gtk_clist_get_pixtext (GTK_CLIST (XGTK_OBJECT (clist)->object),
			 XINT (row), XINT (column), &text, &spacing,
			 &pixmap, &mask);

  return (list3 (pixmap ? build_gtk_boxed (pixmap, GTK_TYPE_GDK_WINDOW) : Qnil,
		 mask ? build_gtk_boxed (mask, GTK_TYPE_GDK_WINDOW) : Qnil,
		 (text && text[0]) ? build_string (text) : Qnil));
}

/* void gtk_color_selection_get_color(GtkColorSelection *colorsel, gdouble *color); */
DEFUN ("gtk-color-selection-get-color", Fgtk_color_selection_get_color, 1, 1, 0, /*
Return a list of (RED GREEN BLUE ALPHA) from the GtkColorSelection OBJECT.
*/
       (object))
{
  gdouble rgba[4];

  CHECK_GTK_OBJECT (object);

  if (!GTK_IS_COLOR_SELECTION (XGTK_OBJECT (object)->object))
    {
      wtaerror ("Object is not a GtkColorSelection", object);
    }

  gtk_color_selection_get_color (GTK_COLOR_SELECTION (XGTK_OBJECT (object)), rgba);

  return (list4 (make_float (rgba[0]),
		 make_float (rgba[1]),
		 make_float (rgba[2]),
		 make_float (rgba[3])));
}

/* (gtk-import-function nil "gtk_editable_insert_text" 'GtkEditable 'GtkString 'gint 'pointer-to-gint) */
DEFUN ("gtk-editable-insert-text", Fgtk_editable_insert_text, 3, 3, 0, /*
Insert text STRINT at POS in GtkEditable widget OBJ.
Returns the new position of the cursor in the widget.
*/
       (obj, string, pos))
{
  gint the_pos;

  CHECK_GTK_OBJECT (obj);
  CHECK_STRING (string);
  CHECK_INT (pos);

  the_pos = XINT (pos);

  if (!GTK_IS_EDITABLE (XGTK_OBJECT (obj)->object))
    {
      wtaerror ("Object is not a GtkEditable", obj);
    }

  gtk_editable_insert_text (GTK_EDITABLE (XGTK_OBJECT (obj)->object),
			    (char *) XSTRING_DATA (string),
			    XSTRING_LENGTH (string),
			    &the_pos);

  return (make_int (the_pos));
}

DEFUN ("gtk-pixmap-get", Fgtk_pixmap_get, 1, 1, 0, /*
Return a cons cell of (PIXMAP . MASK) from GtkPixmap OBJECT.
*/
	 (object))
{
  GdkPixmap *pixmap, *mask;

  CHECK_GTK_OBJECT (object);

  if (!GTK_IS_PIXMAP (XGTK_OBJECT (object)->object))
    {
      wtaerror ("Object is not a GtkPixmap", object);
    }

  gtk_pixmap_get (GTK_PIXMAP (XGTK_OBJECT (object)->object), &pixmap, &mask);

  return (Fcons (pixmap ? build_gtk_object (GTK_OBJECT (pixmap)) : Qnil,
		 mask ? build_gtk_object (GTK_OBJECT (mask)) : Qnil));
}

DEFUN ("gtk-curve-get-vector", Fgtk_curve_get_vector, 2, 2, 0, /*
Returns a vector of LENGTH points representing the curve of CURVE.
*/
       (curve, length))
{
  gfloat *vector = NULL;
  Lisp_Object lisp_vector = Qnil;
  int i;

  CHECK_GTK_OBJECT (curve);
  CHECK_INT (length);

  if (!GTK_IS_CURVE (XGTK_OBJECT (curve)->object))
    {
      wtaerror ("Object is not a GtkCurve", curve);
    }

  vector = alloca_array (gfloat, XINT (length));

  gtk_curve_get_vector (GTK_CURVE (XGTK_OBJECT (curve)->object), XINT (length), vector);
  lisp_vector = make_vector (XINT (length), Qnil);

  for (i = 0; i < XINT (length); i++)
    {
      XVECTOR_DATA (lisp_vector)[i] = make_float (vector[i]);
    }

  return (lisp_vector);
}

DEFUN ("gtk-curve-set-vector", Fgtk_curve_set_vector, 2, 2, 0, /*
Set the vector of points on CURVE to VECTOR.
*/
       (curve, vector))
{
  gfloat *c_vector = NULL;
  int vec_length = 0;
  int i;

  CHECK_GTK_OBJECT (curve);
  CHECK_VECTOR (vector);

  vec_length = XVECTOR_LENGTH (vector);

  if (!GTK_IS_CURVE (XGTK_OBJECT (curve)->object))
    {
      wtaerror ("Object is not a GtkCurve", curve);
    }

  c_vector = alloca_array (gfloat, vec_length);

  for (i = 0; i < vec_length; i++)
    {
      CHECK_FLOAT (XVECTOR_DATA (vector)[i]);
      c_vector[i] = extract_float (XVECTOR_DATA (vector)[i]);
    }

  gtk_curve_set_vector (GTK_CURVE (XGTK_OBJECT (curve)->object), vec_length, c_vector);
  return (Qt);
}

DEFUN ("gtk-label-get", Fgtk_label_get, 1, 1, 0, /*
Return the text of LABEL.
*/
       (label))
{
  gchar *string;

  CHECK_GTK_OBJECT (label);

  if (!GTK_IS_LABEL (XGTK_OBJECT (label)->object))
    {
      wtaerror ("Object is not a GtkLabel", label);
    }

  gtk_label_get (GTK_LABEL (XGTK_OBJECT (label)->object), &string);

  return (build_string (string));
}

DEFUN ("gtk-notebook-query-tab-label-packing", Fgtk_notebook_query_tab_label_packing, 2, 2, 0, /*
Return a list of packing information (EXPAND FILL PACK_TYPE) for CHILD in NOTEBOOK.
*/
       (notebook, child))
{
  gboolean expand, fill;
  GtkPackType pack_type;

  CHECK_GTK_OBJECT (notebook);
  CHECK_GTK_OBJECT (child);

  if (!GTK_IS_NOTEBOOK (XGTK_OBJECT (notebook)->object))
    {
      wtaerror ("Object is not a GtkLabel", notebook);
    }

  if (!GTK_IS_WIDGET (XGTK_OBJECT (child)->object))
    {
      wtaerror ("Object is not a GtkWidget", child);
    }

  gtk_notebook_query_tab_label_packing (GTK_NOTEBOOK (XGTK_OBJECT (notebook)->object),
					GTK_WIDGET (XGTK_OBJECT (child)->object),
					&expand, &fill, &pack_type);

  return (list3 (expand ? Qt : Qnil, fill ? Qt : Qnil, make_int (pack_type)));
}

DEFUN ("gtk-widget-get-pointer", Fgtk_widget_get_pointer, 1, 1, 0, /*
Return the pointer position relative to WIDGET as a cons of (X . Y).
*/
       (widget))
{
  gint x,y;
  CHECK_GTK_OBJECT (widget);

  if (!GTK_IS_WIDGET (XGTK_OBJECT (widget)->object))
    {
      wtaerror ("Object is not a GtkWidget", widget);
    }

  gtk_widget_get_pointer (GTK_WIDGET (XGTK_OBJECT (widget)->object), &x, &y);

  return (Fcons (make_int (x), make_int (y)));
}

/* This is called whenever an item with a GUI_ID associated with it is
   destroyed.  This allows us to remove the references in gui-gtk.c
   that made sure callbacks and such were GCPRO-ed
*/
static void
__remove_gcpro_by_id (gpointer user_data)
{
  ungcpro_popup_callbacks ((GUI_ID) user_data);
}

static void
__generic_toolbar_callback (GtkWidget *UNUSED (item), gpointer user_data)
{
  Lisp_Object callback;
  Lisp_Object lisp_user_data;

  callback = VOID_TO_LISP (user_data);

  lisp_user_data = XCAR (callback);
  callback = XCDR (callback);

  signal_special_gtk_user_event (Qnil, callback, lisp_user_data);
}

static Lisp_Object
generic_toolbar_insert_item (Lisp_Object toolbar,
			     Lisp_Object text,
			     Lisp_Object tooltip_text,
			     Lisp_Object tooltip_private_text,
			     Lisp_Object icon,
			     Lisp_Object callback,
			     Lisp_Object data,
			     Lisp_Object prepend_p,
			     Lisp_Object position)
{
  GUI_ID id;
  GtkWidget *w = NULL;

  CHECK_GTK_OBJECT (toolbar);
  CHECK_GTK_OBJECT (icon);
  CHECK_STRING (text);
  CHECK_STRING (tooltip_text);
  CHECK_STRING (tooltip_private_text);

  if (!SYMBOLP (callback) && !LISTP (callback))
    {
      wtaerror ("Callback must be symbol or eval-able form", callback);
    }

  if (!GTK_IS_TOOLBAR (XGTK_OBJECT (toolbar)->object))
    {
      wtaerror ("Object is not a GtkToolbar", toolbar);
    }

  if (!GTK_IS_WIDGET (XGTK_OBJECT (icon)->object))
    {
      wtaerror ("Object is not a GtkWidget", icon);
    }

  callback = Fcons (data, callback);

  id = new_gui_id ();
  gcpro_popup_callbacks (id, callback);
  gtk_object_weakref (XGTK_OBJECT (toolbar)->object, __remove_gcpro_by_id,
		      (gpointer) id);

  if (NILP (position))
    {
      w = (NILP (prepend_p) ? gtk_toolbar_append_item : gtk_toolbar_prepend_item)
	(GTK_TOOLBAR (XGTK_OBJECT (toolbar)->object),
	 (char*) XSTRING_DATA (text),
	 (char*) XSTRING_DATA (tooltip_text),
	 (char*) XSTRING_DATA (tooltip_private_text),
	 GTK_WIDGET (XGTK_OBJECT (icon)->object),
	 GTK_SIGNAL_FUNC (__generic_toolbar_callback),
	 LISP_TO_VOID (callback));
    }
  else
    {
      w = gtk_toolbar_insert_item (GTK_TOOLBAR (XGTK_OBJECT (toolbar)->object),
				   (char*) XSTRING_DATA (text),
				   (char*) XSTRING_DATA (tooltip_text),
				   (char*) XSTRING_DATA (tooltip_private_text),
				   GTK_WIDGET (XGTK_OBJECT (icon)->object),
				   GTK_SIGNAL_FUNC (__generic_toolbar_callback),
				   LISP_TO_VOID (callback),
				   XINT (position));
    }


  return (w ? build_gtk_object (GTK_OBJECT (w)) : Qnil);
}

DEFUN ("gtk-toolbar-append-item", Fgtk_toolbar_append_item, 6, 7, 0, /*
Appends a new button to the given toolbar.
*/
	   (toolbar, text, tooltip_text, tooltip_private_text, icon, callback, data))
{
  return (generic_toolbar_insert_item (toolbar,text,tooltip_text,tooltip_private_text,icon,callback,data,Qnil,Qnil));
}

DEFUN ("gtk-toolbar-prepend-item", Fgtk_toolbar_prepend_item, 6, 7, 0, /*
Adds a new button to the beginning (left or top edges) of the given toolbar.
*/
	   (toolbar, text, tooltip_text, tooltip_private_text, icon, callback, data))
{
  return (generic_toolbar_insert_item (toolbar,text,tooltip_text,tooltip_private_text,icon,callback,data,Qt,Qnil));
}

DEFUN ("gtk-toolbar-insert-item", Fgtk_toolbar_insert_item, 7, 8, 0, /*
Adds a new button to the beginning (left or top edges) of the given toolbar.
*/
	   (toolbar, text, tooltip_text, tooltip_private_text, icon, callback, position, data))
{
  CHECK_INT (position);

  return (generic_toolbar_insert_item (toolbar,text,tooltip_text,tooltip_private_text,icon,callback,data,Qnil,position));
}

/* GtkCTree is an abomination in the eyes of the object system. */
static void
__emacs_gtk_ctree_recurse_internal (GtkCTree *ctree, GtkCTreeNode *node, gpointer user_data)
{
  Lisp_Object closure;

  closure = VOID_TO_LISP (user_data);

  call3 (XCAR (closure),
	 build_gtk_object (GTK_OBJECT (ctree)),
	 build_gtk_boxed (node, GTK_TYPE_CTREE_NODE),
	 XCDR (closure));
}

DEFUN ("gtk-ctree-recurse", Fgtk_ctree_recurse, 3, 6, 0, /*
Recursively apply FUNC to all nodes of CTREE at or below NODE.
FUNC is called with three arguments: CTREE, a GtkCTreeNode, and DATA.
The return value of FUNC is ignored.

If optional 5th argument CHILDFIRSTP is non-nil, then
the function is called for each node after it has been
called for that node's children.

Optional 6th argument DEPTH limits how deeply to recurse.

This function encompasses all the following Gtk functions:

void gtk_ctree_post_recursive                    (GtkCTree     *ctree, 
						  GtkCTreeNode *node,
						  GtkCTreeFunc  func,
						  gpointer      data);
void gtk_ctree_post_recursive_to_depth           (GtkCTree     *ctree, 
						  GtkCTreeNode *node,
						  gint          depth,
						  GtkCTreeFunc  func,
						  gpointer      data);
void gtk_ctree_pre_recursive                     (GtkCTree     *ctree, 
						  GtkCTreeNode *node,
						  GtkCTreeFunc  func,
						  gpointer      data);
void gtk_ctree_pre_recursive_to_depth            (GtkCTree     *ctree, 
						  GtkCTreeNode *node,
						  gint          depth,
						  GtkCTreeFunc  func,
						  gpointer      data);
*/
       (ctree, node, func, data, childfirstp, depth))
{
  struct gcpro gcpro1, gcpro2, gcpro3;
  Lisp_Object closure = Qnil;

  CHECK_GTK_OBJECT (ctree);

  if (!NILP (node))
    {
      CHECK_GTK_BOXED (node);
    }

  if (!NILP (depth))
    {
      CHECK_INT (depth);
    }

  closure = Fcons (func, data);

  GCPRO3 (ctree, node, closure);

  if (NILP (depth))
    {
      (NILP (childfirstp) ? gtk_ctree_post_recursive : gtk_ctree_pre_recursive)
	(GTK_CTREE (XGTK_OBJECT (ctree)->object),
	 NILP (node) ? NULL : (GtkCTreeNode *) XGTK_BOXED (node)->object,
	 __emacs_gtk_ctree_recurse_internal,
	 LISP_TO_VOID (closure));
    }
  else
    {
      (NILP (childfirstp) ? gtk_ctree_post_recursive_to_depth : gtk_ctree_pre_recursive_to_depth)
	(GTK_CTREE (XGTK_OBJECT (ctree)->object),
	 NILP (node) ? NULL : (GtkCTreeNode *) XGTK_BOXED (node)->object,
	 XINT (depth),
	 __emacs_gtk_ctree_recurse_internal,
	 LISP_TO_VOID (closure));
    }

  UNGCPRO;
  return (Qnil);
}

void syms_of_ui_byhand (void)
{
  DEFSUBR (Fgtk_toolbar_append_item);
  DEFSUBR (Fgtk_toolbar_insert_item);
  DEFSUBR (Fgtk_toolbar_prepend_item);
  DEFSUBR (Fgtk_box_query_child_packing);
  DEFSUBR (Fgtk_button_box_get_child_size_default);
  DEFSUBR (Fgtk_button_box_get_child_ipadding_default);
  DEFSUBR (Fgtk_button_box_get_child_size);
  DEFSUBR (Fgtk_button_box_get_child_ipadding);
  DEFSUBR (Fgtk_calendar_get_date);
  DEFSUBR (Fgtk_clist_get_text);
  DEFSUBR (Fgtk_clist_get_selection);
  DEFSUBR (Fgtk_clist_get_pixmap);
  DEFSUBR (Fgtk_clist_get_pixtext);
  DEFSUBR (Fgtk_color_selection_get_color);
  DEFSUBR (Fgtk_editable_insert_text);
  DEFSUBR (Fgtk_pixmap_get);
  DEFSUBR (Fgtk_curve_get_vector);
  DEFSUBR (Fgtk_curve_set_vector);
  DEFSUBR (Fgtk_label_get);
  DEFSUBR (Fgtk_notebook_query_tab_label_packing);
  DEFSUBR (Fgtk_widget_get_pointer);
  DEFSUBR (Fgtk_ctree_recurse);
}