Mercurial > hg > xemacs-beta

view lisp/gtk-widgets.el @ 4885:6772ce4d982b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums lisp/ChangeLog addition: 2010-01-24 Aidan Kehoe <kehoea@parhasard.net> Correct the semantics of #'member*, #'eql, #'assoc* in the presence of bignums; change the integerp byte code to fixnump semantics. * bytecomp.el (fixnump, integerp, byte-compile-integerp): Change the integerp byte code to fixnump; add a byte-compile method to integerp using fixnump and numberp and avoiding a funcall most of the time, since in the non-core contexts where integerp is used, it's mostly distinguishing between fixnums and things that are not numbers at all. * byte-optimize.el (side-effect-free-fns, byte-after-unbind-ops) (byte-compile-side-effect-and-error-free-ops): Replace the integerp bytecode with fixnump; add fixnump to the side-effect-free-fns. Add the other extended number type predicates to the list in passing. * obsolete.el (floatp-safe): Mark this as obsolete. * cl.el (eql): Go into more detail in the docstring here. Don't bother checking whether both arguments are numbers; one is enough, #'equal will fail correctly if they have distinct types. (subst): Replace a call to #'integerp (deciding whether to use #'memq or not) with one to #'fixnump. Delete most-positive-fixnum, most-negative-fixnum from this file; they're now always in C, so they can't be modified from Lisp. * cl-seq.el (member*, assoc*, rassoc*): Correct these functions in the presence of bignums. * cl-macs.el (cl-make-type-test): The type test for a fixnum is now fixnump. Ditch floatp-safe, use floatp instead. (eql): Correct this compiler macro in the presence of bignums. (assoc*): Correct this compiler macro in the presence of bignums. * simple.el (undo): Change #'integerp to #'fixnump here, since we use #'delq with the same value as ELT a few lines down. src/ChangeLog addition: 2010-01-24 Aidan Kehoe <kehoea@parhasard.net> Fix problems with #'eql, extended number types, and the hash table implementation; change the Bintegerp bytecode to fixnump semantics even on bignum builds, since #'integerp can have a fast implementation in terms of #'fixnump for most of its extant uses, but not vice-versa. * lisp.h: Always #include number.h; we want the macros provided in it, even if the various number types are not available. * number.h (NON_FIXNUM_NUMBER_P): New macro, giving 1 when its argument is of non-immediate number type. Equivalent to FLOATP if WITH_NUMBER_TYPES is not defined. * elhash.c (lisp_object_eql_equal, lisp_object_eql_hash): Use NON_FIXNUM_NUMBER_P in these functions, instead of FLOATP, giving more correct behaviour in the presence of the extended number types. * bytecode.c (Bfixnump, execute_optimized_program): Rename Bintegerp to Bfixnump; change its semantics to reflect the new name on builds with bignum support. * data.c (Ffixnump, Fintegerp, syms_of_data, vars_of_data): Always make #'fixnump available, even on non-BIGNUM builds; always implement #'integerp in this file, even on BIGNUM builds. Move most-positive-fixnum, most-negative-fixnum here from number.c, so they are Lisp constants even on builds without number types, and attempts to change or bind them error. Use the NUMBERP and INTEGERP macros even on builds without extended number types. * data.c (fixnum_char_or_marker_to_int): Rename this function from integer_char_or_marker_to_int, to better reflect the arguments it accepts. * number.c (Fevenp, Foddp, syms_of_number): Never provide #'integerp in this file. Remove #'oddp, #'evenp; their implementations are overridden by those in cl.el. * number.c (vars_of_number): most-positive-fixnum, most-negative-fixnum are no longer here. man/ChangeLog addition: 2010-01-23 Aidan Kehoe <kehoea@parhasard.net> Generally: be careful to say fixnum, not integer, when talking about fixed-precision integral types. I'm sure I've missed instances, both here and in the docstrings, but this is a decent start. * lispref/text.texi (Columns): Document where only fixnums, not integers generally, are accepted. (Registers): Remove some ancient char-int confoundance here. * lispref/strings.texi (Creating Strings, Creating Strings): Be more exact in describing where fixnums but not integers in general are accepted. (Creating Strings): Use a more contemporary example to illustrate how concat deals with lists including integers about #xFF. Delete some obsolete documentation on same. (Char Table Types): Document that only fixnums are accepted as values in syntax tables. * lispref/searching.texi (String Search, Search and Replace): Be exact in describing where fixnums but not integers in general are accepted. * lispref/range-tables.texi (Range Tables): Be exact in describing them; only fixnums are accepted to describe ranges. * lispref/os.texi (Killing XEmacs, User Identification) (Time of Day, Time Conversion): Be more exact about using fixnum where only fixed-precision integers are accepted. * lispref/objects.texi (Integer Type): Be more exact (and up-to-date) about the possible values for integers. Cross-reference to documentation of the bignum extension. (Equality Predicates): (Range Table Type): (Array Type): Use fixnum, not integer, to describe a fixed-precision integer. (Syntax Table Type): Correct some English syntax here. * lispref/numbers.texi (Numbers): Change the phrasing here to use fixnum to mean the fixed-precision integers normal in emacs. Document that our terminology deviates from that of Common Lisp, and that we're working on it. (Compatibility Issues): Reiterate the Common Lisp versus Emacs Lisp compatibility issues. (Comparison of Numbers, Arithmetic Operations): * lispref/commands.texi (Command Loop Info, Working With Events): * lispref/buffers.texi (Modification Time): Be more exact in describing where fixnums but not integers in general are accepted.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 24 Jan 2010 15:21:27 +0000
parents e8db6a10ad42
children 3889ef128488 308d34e9f07d
line wrap: on
line source

;;; gtk-widgets.el --- Import GTK functions into XEmacs

;; Copyright (C) 2000 Free Software Foundation

;; Maintainer: William Perry <wmperry@gnu.org>
;; Keywords: extensions, dumped

;; This file is part of XEmacs.

;; XEmacs 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, or (at your option)
;; any later version.

;; XEmacs 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 XEmacs; see the file COPYING.  If not, write to the Free
;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.

;;; Synched up with: Not in FSF

;;; Commentary:

;; This file is dumped with XEmacs.

(eval-and-compile
  (require 'gtk-ffi))

(globally-declare-fboundp
 '(gtk-import-function-internal
   gtk-call-function gtk-import-variable-internal gtk-ctree-recurse))

(gtk-import-function GtkAccelGroup gtk_accel_group_new)


(gtk-import-function GtkType gtk_accel_label_get_type)
(gtk-import-function GtkWidget gtk_accel_label_new GtkString)
(gtk-import-function guint gtk_accel_label_get_accel_width GtkAccelLabel)
(gtk-import-function nil gtk_accel_label_set_accel_widget GtkAccelLabel GtkWidget)
(gtk-import-function gboolean gtk_accel_label_refetch GtkAccelLabel)


(gtk-import-function GtkType gtk_adjustment_get_type)
(gtk-import-function GtkObject gtk_adjustment_new gfloat gfloat gfloat gfloat gfloat gfloat)
(gtk-import-function nil gtk_adjustment_changed GtkAdjustment)
(gtk-import-function nil gtk_adjustment_value_changed GtkAdjustment)
(gtk-import-function nil gtk_adjustment_clamp_page GtkAdjustment gfloat gfloat)
(gtk-import-function nil gtk_adjustment_set_value GtkAdjustment gfloat)


(gtk-import-function GtkType gtk_alignment_get_type)
(gtk-import-function GtkWidget gtk_alignment_new gfloat gfloat gfloat gfloat)
(gtk-import-function nil gtk_alignment_set GtkAlignment gfloat gfloat gfloat gfloat)


(gtk-import-function GtkType gtk_arrow_get_type)
(gtk-import-function GtkWidget gtk_arrow_new GtkArrowType GtkShadowType)
(gtk-import-function nil gtk_arrow_set GtkArrow GtkArrowType GtkShadowType)


(gtk-import-function GtkType gtk_aspect_frame_get_type)
(gtk-import-function GtkWidget gtk_aspect_frame_new GtkString gfloat gfloat gfloat gboolean)
(gtk-import-function nil gtk_aspect_frame_set GtkAspectFrame gfloat gfloat gfloat gboolean)


(gtk-import-function GtkType gtk_bin_get_type)


(gtk-import-function GtkType gtk_box_get_type)
(gtk-import-function nil gtk_box_pack_start
		     (GtkBox     . box)
		     (GtkWidget  . child)
		     (gboolean   . expand)
		     (gboolean   . fill)
		     (guint      . padding))

(gtk-import-function nil gtk_box_pack_end
		     (GtkBox     . box)
		     (GtkWidget  . child)
		     (gboolean   . expand)
		     (gboolean   . fill)
		     (guint      . padding))

(gtk-import-function nil gtk_box_pack_start_defaults
		     (GtkBox     . box)
		     (GtkWidget  . child))

(gtk-import-function nil gtk_box_pack_end_defaults
		     (GtkBox     . box)
		     (GtkWidget  . child))

(gtk-import-function nil gtk_box_set_homogeneous
		     (GtkBox     . box)
		     (gboolean   . homogeneous))

(gtk-import-function nil gtk_box_set_spacing
		     (GtkBox     . box)
		     (gint       . spacing))

(gtk-import-function nil gtk_box_reorder_child
		     (GtkBox	  . box)
		     (GtkWidget  . child)
		     (gint       . position))

;;;Handcoded in ui-byhand.c... #### FIXME
;;;void	   gtk_box_query_child_packing (GtkBox	     *box,
;;;					GtkWidget    *child,
;;;					gboolean     *expand,
;;;					gboolean     *fill,
;;;					guint	     *padding,
;;;					GtkPackType  *pack_type);

(gtk-import-function nil gtk_box_set_child_packing
		     (GtkBox      . box)
		     (GtkWidget   . child)
		     (gboolean    . expand)
		     (gboolean    . fill)
		     (guint       . padding)
		     (GtkPackType . pack_type))


(gtk-import-function GtkType gtk_button_get_type)
(gtk-import-function GtkWidget gtk_button_new)
(gtk-import-function GtkWidget gtk_button_new_with_label GtkString)
(gtk-import-function nil gtk_button_pressed GtkButton)
(gtk-import-function nil gtk_button_released GtkButton)
(gtk-import-function nil gtk_button_clicked GtkButton)
(gtk-import-function nil gtk_button_enter GtkButton)
(gtk-import-function nil gtk_button_leave GtkButton)
(gtk-import-function nil gtk_button_set_relief GtkButton GtkReliefStyle)
(gtk-import-function GtkReliefStyle gtk_button_get_relief GtkButton)

(defun gtk-button-new-with-pixmap (glyph)
  "Construct a new GtkButton object with a pixmap."
  (let ((button (gtk-button-new))
	(pixmap nil))
    (if (glyphp glyph)
	(setq pixmap (gtk-pixmap-new glyph nil))
      (setq pixmap glyph))
    (gtk-widget-show pixmap)
    (gtk-container-add button pixmap)
    button))


(gtk-import-function GtkType gtk_button_box_get_type)

;Handcoded in ui-byhand.c... #### FIXME
;;;void gtk_button_box_get_child_size_default (gint *min_width, gint *min_height);
;;;void gtk_button_box_get_child_ipadding_default (gint *ipad_x, gint *ipad_y);

(gtk-import-function nil gtk_button_box_set_child_size_default gint gint)
(gtk-import-function nil gtk_button_box_set_child_ipadding_default gint gint)
(gtk-import-function gint gtk_button_box_get_spacing GtkButtonBox)
(gtk-import-function GtkButtonBoxStyle gtk_button_box_get_layout GtkButtonBox)

;Handcoded in ui-byhand.c... #### FIXME
;;;void gtk_button_box_get_child_size (GtkButtonBox *widget,
;;;				    gint *min_width, gint *min_height);
;;;void gtk_button_box_get_child_ipadding (GtkButtonBox *widget, gint *ipad_x, gint *ipad_y);

(gtk-import-function nil gtk_button_box_set_spacing GtkButtonBox gint)
(gtk-import-function nil gtk_button_box_set_layout GtkButtonBox GtkButtonBoxStyle)
(gtk-import-function nil gtk_button_box_set_child_size GtkButtonBox gint gint)
(gtk-import-function nil gtk_button_box_set_child_ipadding GtkButtonBox gint gint)


(gtk-import-function GtkType gtk_calendar_get_type)
(gtk-import-function GtkWidget gtk_calendar_new)
(gtk-import-function gint gtk_calendar_select_month GtkCalendar guint guint)
(gtk-import-function nil gtk_calendar_select_day GtkCalendar guint)
(gtk-import-function gint gtk_calendar_mark_day GtkCalendar guint)
(gtk-import-function gint gtk_calendar_unmark_day GtkCalendar guint)
(gtk-import-function nil gtk_calendar_clear_marks GtkCalendar)
(gtk-import-function nil gtk_calendar_display_options GtkCalendar GtkCalendarDisplayOptions)

;Handcoded in ui-byhand.c... #### FIXME
;void	   gtk_calendar_get_date	(GtkCalendar *calendar, 
;					 guint	     *year,
;					 guint	     *month,
;					 guint	     *day);

(gtk-import-function nil gtk_calendar_freeze GtkCalendar)
(gtk-import-function nil gtk_calendar_thaw GtkCalendar)


(gtk-import-function GtkType gtk_check_button_get_type)
(gtk-import-function GtkWidget gtk_check_button_new)
(gtk-import-function GtkWidget gtk_check_button_new_with_label GtkString)


(gtk-import-function GtkType gtk_check_menu_item_get_type)
(gtk-import-function GtkWidget gtk_check_menu_item_new)
(gtk-import-function GtkWidget gtk_check_menu_item_new_with_label GtkString)
(gtk-import-function nil gtk_check_menu_item_set_active GtkCheckMenuItem gboolean)
(gtk-import-function nil gtk_check_menu_item_set_show_toggle GtkCheckMenuItem gboolean)
(gtk-import-function nil gtk_check_menu_item_toggled GtkCheckMenuItem)


(gtk-import-function GtkType gtk_clist_get_type)
(gtk-import-function GtkWidget gtk_clist_new gint)

(gtk-import-function GtkWidget gtk_clist_new_with_titles
		     (gint           . columns)
		     (GtkArrayOfString . titles))

;; set adjustments of clist
(gtk-import-function nil gtk_clist_set_hadjustment GtkCList GtkAdjustment)
(gtk-import-function nil gtk_clist_set_vadjustment GtkCList GtkAdjustment)

;; get adjustments of clist
(gtk-import-function GtkAdjustment gtk_clist_get_hadjustment GtkCList)
(gtk-import-function GtkAdjustment gtk_clist_get_vadjustment GtkCList)

;; set the border style of the clist
(gtk-import-function nil gtk_clist_set_shadow_type GtkCList GtkShadowType)

;; set the clist's selection mode
(gtk-import-function nil gtk_clist_set_selection_mode GtkCList GtkSelectionMode)

;; enable clists reorder ability
(gtk-import-function nil gtk_clist_set_reorderable GtkCList gboolean)
(gtk-import-function nil gtk_clist_set_use_drag_icons GtkCList gboolean)
(gtk-import-function nil gtk_clist_set_button_actions GtkCList guint guint)

;; freeze all visual updates of the list, and then thaw the list after
;; you have made a number of changes and the updates wil occure in a
;; more efficent mannor than if you made them on a unfrozen list
(gtk-import-function nil gtk_clist_freeze GtkCList)
(gtk-import-function nil gtk_clist_thaw GtkCList)

;; show and hide the column title buttons
(gtk-import-function nil gtk_clist_column_titles_show GtkCList)
(gtk-import-function nil gtk_clist_column_titles_hide GtkCList)

;; set the column title to be a active title (responds to button presses, 
;; prelights, and grabs keyboard focus), or passive where it acts as just
;; a title
(gtk-import-function nil gtk_clist_column_title_active GtkCList gint)
(gtk-import-function nil gtk_clist_column_title_passive GtkCList gint)
(gtk-import-function nil gtk_clist_column_titles_active GtkCList)
(gtk-import-function nil gtk_clist_column_titles_passive GtkCList)

;; set the title in the column title button
(gtk-import-function nil gtk_clist_set_column_title GtkCList gint GtkString)

;; returns the title of column. Returns NULL if title is not set */
(gtk-import-function GtkString gtk_clist_get_column_title GtkCList gint)

;; set a widget instead of a title for the column title button
(gtk-import-function nil gtk_clist_set_column_widget GtkCList gint GtkWidget)

;; returns the column widget
(gtk-import-function GtkWidget gtk_clist_get_column_widget GtkCList gint)

;; set the justification on a column
(gtk-import-function nil gtk_clist_set_column_justification GtkCList gint GtkJustification)

;; set visibility of a column
(gtk-import-function nil gtk_clist_set_column_visibility GtkCList gint gboolean)

;; enable/disable column resize operations by mouse
(gtk-import-function nil gtk_clist_set_column_resizeable GtkCList gint gboolean)

;; resize column automatically to its optimal width
(gtk-import-function nil gtk_clist_set_column_auto_resize GtkCList gint gboolean)
(gtk-import-function gint gtk_clist_columns_autosize GtkCList)

;; return the optimal column width, i.e. maximum of all cell widths
(gtk-import-function gint gtk_clist_optimal_column_width GtkCList gint)

;; set the pixel width of a column; this is a necessary step in
;; creating a CList because otherwise the column width is chozen from
;; the width of the column title, which will never be right

(gtk-import-function nil gtk_clist_set_column_width GtkCList gint gint)

;; set column minimum/maximum width. min/max_width < 0 => no restriction
(gtk-import-function nil gtk_clist_set_column_min_width GtkCList gint gint)
(gtk-import-function nil gtk_clist_set_column_max_width GtkCList gint gint)

;; change the height of the rows, the default (height=0) is
;; the hight of the current font.
(gtk-import-function nil gtk_clist_set_row_height GtkCList guint)

;; scroll the viewing area of the list to the given column and row;
;; row_align and col_align are between 0-1 representing the location the
;; row should appear on the screnn, 0.0 being top or left, 1.0 being
;; bottom or right; if row or column is -1 then then there is no change
(gtk-import-function nil gtk_clist_moveto GtkCList gint gint gfloat gfloat)

;; returns whether the row is visible
(gtk-import-function GtkVisibility gtk_clist_row_is_visible GtkCList gint)

;; returns the cell type
(gtk-import-function GtkCellType gtk_clist_get_cell_type GtkCList gint gint)

;; sets a given cell's text, replacing it's current contents
(gtk-import-function nil gtk_clist_set_text GtkCList gint gint GtkString)

;; for the "get" functions, any of the return pointer can be
;; NULL if you are not interested
;;
;;;Handcoded in ui-byhand.c... #### FIXME
;;;gint gtk_clist_get_text (GtkCList  *clist,
;;;			 gint       row,
;;;			 gint       column,
;;;			 gchar    **text);

;; #### BILL!!! Implement these!
;; (gtk-import-function nil gtk_clist_get_pixmap)
;; (gtk-import-function nil gtk_clist_get_pixtext)

(gtk-import-function nil gtk_clist_set_pixmap
		     (GtkCList . clist)
		     (gint     . row)
		     (gint     . column)
		     (GdkPixmap . pixmap)
		     (GdkBitmap . mask))
(gtk-import-function nil gtk_clist_set_pixtext
		     (GtkCList . clist)
		     (gint     . row)
		     (gint     . column)
		     (GtkString . text)
		     (gint      . spacing)
		     (GdkPixmap . pixmap)
		     (GdkBitmap . mask))

;; sets the foreground color of a row, the color must already
;; be allocated
(gtk-import-function nil gtk_clist_set_foreground GtkCList gint GdkColor)

;; sets the background color of a row, the color must already
;; be allocated
(gtk-import-function nil gtk_clist_set_background GtkCList gint GdkColor)

;; set / get cell styles
(gtk-import-function nil gtk_clist_set_cell_style GtkCList gint gint GtkStyle)
(gtk-import-function GtkStyle gtk_clist_get_cell_style GtkCList gint gint)
(gtk-import-function nil gtk_clist_set_row_style GtkCList gint GtkStyle)
(gtk-import-function GtkStyle gtk_clist_get_row_style GtkCList gint)

;; this sets a horizontal and vertical shift for drawing
;; the contents of a cell; it can be positive or negitive;
;; this is particulary useful for indenting items in a column
(gtk-import-function nil gtk_clist_set_shift GtkCList gint gint gint gint)

;; set/get selectable flag of a single row
(gtk-import-function nil gtk_clist_set_selectable GtkCList gint gboolean)
(gtk-import-function gboolean gtk_clist_get_selectable GtkCList gint)

;; prepend/append returns the index of the row you just added,
;; making it easier to append and modify a row

(gtk-import-function gint gtk_clist_prepend
		     (GtkCList         . clist)
		     (GtkArrayOfString . text))

(gtk-import-function gint gtk_clist_append
		     (GtkCList         . clist)
		     (GtkArrayOfString . text))

;; inserts a row at index row and returns the row where it was
;; actually inserted (may be different from "row" in auto_sort mode)
(gtk-import-function gint gtk_clist_insert
		     (GtkCList . clist)
		     (gint     . row)
		     (GtkArrayOfString . text))

;; removes row at index row
(gtk-import-function nil gtk_clist_remove GtkCList gint)

;; sets a arbitrary data pointer for a given row
(gtk-import-function nil gtk_clist_set_row_data GtkCList gint gpointer)

;; sets a data pointer for a given row with destroy notification
;; #### Need to handle callbacks.
;;;void gtk_clist_set_row_data_full (GtkCList         *clist,
;;;			          gint              row,
;;;			          gpointer          data,
;;;				  GtkDestroyNotify  destroy);

;; returns the data set for a row
(gtk-import-function gpointer gtk_clist_get_row_data GtkCList gint)

;; givin a data pointer, find the first (and hopefully only!)
;; row that points to that data, or -1 if none do
(gtk-import-function gint gtk_clist_find_row_from_data GtkCList gpointer)

;; force selection of a row
(gtk-import-function nil gtk_clist_select_row GtkCList gint gint)

;; force unselection of a row
(gtk-import-function nil gtk_clist_unselect_row GtkCList gint gint)

;; undo the last select/unselect operation
(gtk-import-function nil gtk_clist_undo_selection GtkCList)

;; clear the entire list -- this is much faster than removing
;; each item with gtk_clist_remove
(gtk-import-function nil gtk_clist_clear GtkCList)

;; return the row column corresponding to the x and y coordinates,
;; the returned values are only valid if the x and y coordinates
;; are respectively to a window == clist->clist_window
;;
;;;Handcoded in ui-byhand.c... #### FIXME
;;;gint gtk_clist_get_selection_info (GtkCList *clist,
;;;			     	   gint      x,
;;;			     	   gint      y,
;;;			     	   gint     *row,
;;;			     	   gint     *column);

;; in multiple or extended mode, select all rows
(gtk-import-function nil gtk_clist_select_all GtkCList)

;; in all modes except browse mode, deselect all rows
(gtk-import-function nil gtk_clist_unselect_all GtkCList)

;; swap the position of two rows
(gtk-import-function nil gtk_clist_swap_rows GtkCList gint gint)

;; move row from source_row position to dest_row position
(gtk-import-function nil gtk_clist_row_move GtkCList gint gint)

;; sets a compare function different to the default
;;;void gtk_clist_set_compare_func (GtkCList            *clist,
;;;				 GtkCListCompareFunc  cmp_func);

;; the column to sort by
(gtk-import-function nil gtk_clist_set_sort_column GtkCList gint)

;; how to sort : ascending or descending
(gtk-import-function nil gtk_clist_set_sort_type GtkCList GtkSortType)

;; sort the list with the current compare function
(gtk-import-function nil gtk_clist_sort GtkCList)

;; Automatically sort upon insertion
(gtk-import-function nil gtk_clist_set_auto_sort GtkCList gboolean)
		     

;; ColorSelection

(gtk-import-function GtkType gtk_color_selection_get_type)
(gtk-import-function GtkWidget gtk_color_selection_new)
(gtk-import-function nil gtk_color_selection_set_update_policy GtkColorSelection GtkUpdateType)
(gtk-import-function nil gtk_color_selection_set_opacity GtkColorSelection gint)
(gtk-import-function nil gtk_color_selection_set_color GtkColorSelection gdouble)

;;;Handcoded in ui-byhand.c... #### FIXME
;void       gtk_color_selection_get_color         (GtkColorSelection     *colorsel,
;                                                  gdouble               *color);

;; ColorSelectionDialog
(gtk-import-function GtkType gtk_color_selection_dialog_get_type)
(gtk-import-function GtkWidget gtk_color_selection_dialog_new GtkString)


(gtk-import-function GtkType gtk_combo_get_type)
(gtk-import-function GtkWidget gtk_combo_new)

;; the text in the entry must be or not be in the list
(gtk-import-function nil gtk_combo_set_value_in_list GtkCombo gint gint)

;; set/unset arrows working for changing the value (can be annoying)
(gtk-import-function nil gtk_combo_set_use_arrows GtkCombo gint)

;; up/down arrows change value if current value not in list
(gtk-import-function nil gtk_combo_set_use_arrows_always GtkCombo gint)

;; perform case-sensitive compares
(gtk-import-function nil gtk_combo_set_case_sensitive GtkCombo gint)

;; call this function on an item if it isn't a label or you
;; want it to have a different value to be displayed in the entry
(gtk-import-function nil gtk_combo_set_item_string GtkCombo GtkItem GtkString)

(gtk-import-function nil gtk_combo_set_popdown_strings
		     (GtkCombo . combo)
		     (GtkListOfString . strings))

(gtk-import-function nil gtk_combo_disable_activate GtkCombo)


(gtk-import-function GtkType gtk_container_get_type)
(gtk-import-function nil gtk_container_set_border_width GtkContainer guint)
(gtk-import-function nil gtk_container_add GtkContainer GtkWidget)
(gtk-import-function nil gtk_container_remove GtkContainer GtkWidget)
(gtk-import-function nil gtk_container_set_resize_mode GtkContainer GtkResizeMode)
(gtk-import-function nil gtk_container_check_resize GtkContainer)

;; You can emulate this with (mapcar (lambda (x) ..) (gtk-container-children))

;;(gtk-import-function nil gtk_container_foreach GtkContainer GtkCallback)

; I don't think we really want to deal with this... ever.  #### FIXME?
;void    gtk_container_foreach_full	 (GtkContainer	   *container,
;					  GtkCallback	    callback,
;					  GtkCallbackMarshal marshal,
;					  gpointer	    callback_data,
;					  GtkDestroyNotify  notify);

(gtk-import-function GtkListOfObject gtk_container_children
		     (GtkContainer . container))

(gtk-import-function gint gtk_container_focus GtkContainer GtkDirectionType)

;;; Widget-level methods
(gtk-import-function nil gtk_container_set_reallocate_redraws GtkContainer gboolean)
(gtk-import-function nil gtk_container_set_focus_child GtkContainer GtkWidget)
(gtk-import-function nil gtk_container_set_focus_vadjustment GtkContainer GtkAdjustment)
(gtk-import-function nil gtk_container_set_focus_hadjustment GtkContainer GtkAdjustment)
(gtk-import-function nil gtk_container_register_toplevel GtkContainer)
(gtk-import-function nil gtk_container_unregister_toplevel GtkContainer)

(gtk-import-function GtkListOfObject gtk_container_get_toplevels)

(gtk-import-function nil gtk_container_resize_children GtkContainer)
(gtk-import-function guint gtk_container_child_type GtkContainer)

; the `arg_name' argument needs to be a const static string */
;void    gtk_container_add_child_arg_type   (const gchar      *arg_name,
;					    GtkType           arg_type,
;					    guint             arg_flags,
;					    guint             arg_id);
     
;/* Allocate a GtkArg array of size nargs that hold the
; * names and types of the args that can be used with
; * gtk_container_child_getv/gtk_container_child_setv.
; * if (arg_flags!=NULL),
; * (*arg_flags) will be set to point to a newly allocated
; * guint array that holds the flags of the args.
; * It is the callers response to do a
; * g_free (returned_args); g_free (*arg_flags).
; */
;GtkArg* gtk_container_query_child_args	   (GtkType	       class_type,
;					    guint32          **arg_flags,
;					    guint             *nargs);

;/* gtk_container_child_getv() sets an arguments type and value, or just
; * its type to GTK_TYPE_INVALID.
; * if GTK_FUNDAMENTAL_TYPE (arg->type) == GTK_TYPE_STRING, it's the callers
; * response to do a g_free (GTK_VALUE_STRING (arg));
; */
;void    gtk_container_child_getv	   (GtkContainer      *container,
;					    GtkWidget	      *child,
;					    guint	       n_args,
;					    GtkArg	      *args);
;void    gtk_container_child_setv   	   (GtkContainer      *container,
;					    GtkWidget	      *child,
;					    guint	       n_args,
;					    GtkArg	      *args);

;/* gtk_container_add_with_args() takes a variable argument list of the form:
; * (..., gchar *arg_name, ARG_VALUES, [repeatedly name/value pairs,] NULL)
; * where ARG_VALUES type depend on the argument and can consist of
; * more than one c-function argument.
; */
;void    gtk_container_add_with_args	   (GtkContainer      *container,
;					    GtkWidget	      *widget,
;					    const gchar	      *first_arg_name,
;					    ...);
;void    gtk_container_addv		   (GtkContainer      *container,
;					    GtkWidget	      *widget,
;					    guint	       n_args,
;					    GtkArg	      *args);
;void	gtk_container_child_set		   (GtkContainer      *container,
;					    GtkWidget         *child,
;					    const gchar	      *first_arg_name,
;					    ...);


(gtk-import-function GtkType gtk_curve_get_type)
(gtk-import-function GtkWidget gtk_curve_new)
(gtk-import-function nil gtk_curve_reset GtkCurve)
(gtk-import-function nil gtk_curve_set_gamma GtkCurve gfloat)
(gtk-import-function nil gtk_curve_set_range GtkCurve gfloat gfloat gfloat gfloat)

;Handcoded in ui-byhand.c... #### FIXME
;;void		gtk_curve_get_vector	(GtkCurve *curve,
;;					 int veclen, gfloat vector[]);
;;
;;void		gtk_curve_set_vector	(GtkCurve *curve,
;;					 int veclen, gfloat vector[]);

(gtk-import-function nil gtk_curve_set_curve_type GtkCurve GtkCurveType)


(gtk-import-function GtkType gtk_data_get_type)


(gtk-import-function GtkType gtk_dialog_get_type)
(gtk-import-function GtkWidget gtk_dialog_new)


(gtk-import-function GtkType gtk_drawing_area_get_type)
(gtk-import-function GtkWidget gtk_drawing_area_new)
(gtk-import-function nil gtk_drawing_area_size GtkDrawingArea gint gint)


(gtk-import-function GtkType gtk_editable_get_type)
(gtk-import-function nil gtk_editable_select_region GtkEditable gint gint)

;;;Handcoded in ui-byhand.c... #### FIXME
;;;(gtk-import-function nil gtk_editable_insert_text GtkEditable GtkString gint pointer-to-gint)

(gtk-import-function nil gtk_editable_delete_text GtkEditable gint gint)
(gtk-import-function GtkString gtk_editable_get_chars GtkEditable gint gint)
(gtk-import-function nil gtk_editable_cut_clipboard GtkEditable)
(gtk-import-function nil gtk_editable_copy_clipboard GtkEditable)
(gtk-import-function nil gtk_editable_paste_clipboard GtkEditable)
(gtk-import-function nil gtk_editable_claim_selection GtkEditable gboolean guint)
(gtk-import-function nil gtk_editable_delete_selection GtkEditable)
(gtk-import-function nil gtk_editable_changed GtkEditable)
(gtk-import-function nil gtk_editable_set_position GtkEditable gint)
(gtk-import-function gint gtk_editable_get_position GtkEditable)
(gtk-import-function nil gtk_editable_set_editable GtkEditable gboolean)


(gtk-import-function GtkType gtk_entry_get_type)
(gtk-import-function GtkWidget gtk_entry_new)
(gtk-import-function GtkWidget gtk_entry_new_with_max_length guint)
(gtk-import-function nil gtk_entry_set_text GtkEntry GtkString)
(gtk-import-function nil gtk_entry_append_text GtkEntry GtkString)
(gtk-import-function nil gtk_entry_prepend_text GtkEntry GtkString)
(gtk-import-function nil gtk_entry_set_position GtkEntry gint)

;; returns a reference to the text
(gtk-import-function GtkString gtk_entry_get_text GtkEntry)
(gtk-import-function nil gtk_entry_select_region GtkEntry gint gint)
(gtk-import-function nil gtk_entry_set_visibility GtkEntry gboolean)
(gtk-import-function nil gtk_entry_set_editable GtkEntry gboolean)

;; text is truncated if needed
(gtk-import-function nil gtk_entry_set_max_length GtkEntry guint)


(gtk-import-function GtkType gtk_event_box_get_type)
(gtk-import-function GtkWidget gtk_event_box_new)


(gtk-import-function GtkType gtk_file_selection_get_type)
(gtk-import-function GtkWidget gtk_file_selection_new GtkString)
(gtk-import-function nil gtk_file_selection_set_filename GtkFileSelection GtkString)
(gtk-import-function GtkString gtk_file_selection_get_filename GtkFileSelection)
(gtk-import-function nil gtk_file_selection_complete GtkFileSelection GtkString)
(gtk-import-function nil gtk_file_selection_show_fileop_buttons GtkFileSelection)
(gtk-import-function nil gtk_file_selection_hide_fileop_buttons GtkFileSelection)


(gtk-import-function GtkType gtk_fixed_get_type)
(gtk-import-function GtkWidget gtk_fixed_new)
(gtk-import-function nil gtk_fixed_put GtkFixed GtkWidget gint gint)
(gtk-import-function nil gtk_fixed_move  GtkFixed GtkWidget gint gint)


(gtk-import-function GtkType gtk_font_selection_get_type)
(gtk-import-function GtkWidget gtk_font_selection_new)
(gtk-import-function GtkString gtk_font_selection_get_font_name GtkFontSelection)
;(gtk-import-function GdkFont gtk_font_selection_get_font GtkFontSelection)
(gtk-import-function gboolean gtk_font_selection_set_font_name GtkFontSelection GtkString)


(gtk-import-function nil gtk_font_selection_set_filter
		     (GtkFontSelection  . fontsel)
		     (GtkFontFilterType . filter_type)
		     (GtkFontType       . font_type)
		     (GtkArrayOfString  . foundries)
		     (GtkArrayOfString  . weights)
		     (GtkArrayOfString  . slants)
		     (GtkArrayOfString  . setwidths)
		     (GtkArrayOfString  . spacings)
		     (GtkArrayOfString  . charsets))

(gtk-import-function GtkString gtk_font_selection_get_preview_text GtkFontSelection)
(gtk-import-function nil gtk_font_selection_set_preview_text GtkFontSelection GtkString)

;; GtkFontSelectionDialog functions.
;;   most of these functions simply call the corresponding function in the
;;   GtkFontSelection.

(gtk-import-function GtkType gtk_font_selection_dialog_get_type)
(gtk-import-function GtkWidget gtk_font_selection_dialog_new GtkString)

;; This returns the X Logical Font Description fontname, or NULL if no font
;; is selected. Note that there is a slight possibility that the font might not
;; have been loaded OK. You should call gtk_font_selection_dialog_get_font()
;; to see if it has been loaded OK.
(gtk-import-function GtkString gtk_font_selection_dialog_get_font_name GtkFontSelectionDialog)

;; This will return the current GdkFont, or NULL if none is selected or there
;; was a problem loading it. Remember to use gdk_font_ref/unref() if you want
;; to use the font (in a style, for example)
;; GdkFont* gtk_font_selection_dialog_get_font	    (GtkFontSelectionDialog *fsd);

;; This sets the currently displayed font. It should be a valid X Logical
;; Font Description font name (anything else will be ignored), e.g.
;; "-adobe-courier-bold-o-normal--25-*-*-*-*-*-*-*" 
;; It returns TRUE on success.
(gtk-import-function gboolean gtk_font_selection_dialog_set_font_name GtkFontSelectionDialog GtkString)

;; This sets one of the font filters, to limit the fonts shown. The filter_type
;; is GTK_FONT_FILTER_BASE or GTK_FONT_FILTER_USER. The font type is a
;; combination of the bit flags GTK_FONT_BITMAP, GTK_FONT_SCALABLE and
;; GTK_FONT_SCALABLE_BITMAP (or GTK_FONT_ALL for all font types).
;; The foundries, weights etc. are arrays of strings containing property
;; values, e.g. 'bold', 'demibold', and *MUST* finish with a NULL.
;; Standard long names are also accepted, e.g. 'italic' instead of 'i'.
;;
;; e.g. to allow only fixed-width fonts ('char cell' or 'monospaced') to be
;; selected use:
;;
;;gchar *spacings[] = { "c", "m", NULL };
;;gtk_font_selection_dialog_set_filter (GTK_FONT_SELECTION_DIALOG (fontsel),
;;				       GTK_FONT_FILTER_BASE, GTK_FONT_ALL,
;;				       NULL, NULL, NULL, NULL, spacings, NULL);
;;
;;  to allow only true scalable fonts to be selected use:
;;
;;  gtk_font_selection_dialog_set_filter (GTK_FONT_SELECTION_DIALOG (fontsel),
;;				       GTK_FONT_FILTER_BASE, GTK_FONT_SCALABLE,
;;				       NULL, NULL, NULL, NULL, NULL, NULL);

;;; #### BILL!!! You can do this by just call
;;; gtk_font_selection_set_filter on the appropriate slot of the
;;; dialog.  Why bother with another function?
;;;void	   gtk_font_selection_dialog_set_filter	(GtkFontSelectionDialog *fsd,
;;;						 GtkFontFilterType filter_type,
;;;						 GtkFontType	   font_type,
;;;						 gchar		 **foundries,
;;;						 gchar		 **weights,
;;;						 gchar		 **slants,
;;;						 gchar		 **setwidths,
;;;						 gchar		 **spacings,
;;;						 gchar		 **charsets);

;; This returns the text in the preview entry.
(gtk-import-function GtkString gtk_font_selection_dialog_get_preview_text GtkFontSelectionDialog)

;; This sets the text in the preview entry. It will be copied by the entry,
;; so there's no need to g_strdup() it first.
(gtk-import-function nil gtk_font_selection_dialog_set_preview_text GtkFontSelectionDialog GtkString)


(gtk-import-function GtkType gtk_frame_get_type)
(gtk-import-function GtkWidget gtk_frame_new GtkString)
(gtk-import-function nil gtk_frame_set_label GtkFrame GtkString)
(gtk-import-function nil gtk_frame_set_label_align GtkFrame gfloat gfloat)
(gtk-import-function nil gtk_frame_set_shadow_type GtkFrame GtkShadowType)


(gtk-import-function GtkType gtk_gamma_curve_get_type)
(gtk-import-function GtkWidget gtk_gamma_curve_new)


(gtk-import-function GtkType gtk_handle_box_get_type)
(gtk-import-function GtkWidget gtk_handle_box_new)
(gtk-import-function nil gtk_handle_box_set_shadow_type GtkHandleBox GtkShadowType)
(gtk-import-function nil gtk_handle_box_set_handle_position GtkHandleBox GtkPositionType)
(gtk-import-function nil gtk_handle_box_set_snap_edge GtkHandleBox GtkPositionType)


(gtk-import-function GtkType gtk_hbox_get_type)
(gtk-import-function GtkWidget gtk_hbox_new gboolean gint)


(gtk-import-function GtkType gtk_hbutton_box_get_type)
(gtk-import-function GtkWidget gtk_hbutton_box_new)

;; buttons can be added by gtk_container_add()
(gtk-import-function gint gtk_hbutton_box_get_spacing_default)
(gtk-import-function nil gtk_hbutton_box_set_spacing_default gint)

(gtk-import-function GtkButtonBoxStyle gtk_hbutton_box_get_layout_default)
(gtk-import-function nil gtk_hbutton_box_set_layout_default GtkButtonBoxStyle)


(gtk-import-function GtkType gtk_hpaned_get_type)
(gtk-import-function GtkWidget gtk_hpaned_new)


(gtk-import-function GtkType gtk_hruler_get_type)
(gtk-import-function GtkWidget gtk_hruler_new)


(gtk-import-function GtkType gtk_hscale_get_type)
(gtk-import-function GtkWidget gtk_hscale_new GtkAdjustment)


(gtk-import-function GtkType gtk_hscrollbar_get_type)
(gtk-import-function GtkWidget gtk_hscrollbar_new GtkAdjustment)


(gtk-import-function GtkType gtk_hseparator_get_type)
(gtk-import-function GtkWidget gtk_hseparator_new)


(gtk-import-function GtkType gtk_input_dialog_get_type)
(gtk-import-function GtkWidget gtk_input_dialog_new)


(gtk-import-function GtkType gtk_invisible_get_type)
(gtk-import-function GtkWidget gtk_invisible_new)


(gtk-import-function GtkType gtk_item_get_type)
(gtk-import-function nil gtk_item_select GtkItem)
(gtk-import-function nil gtk_item_deselect GtkItem)
(gtk-import-function nil gtk_item_toggle GtkItem)


(gtk-import-function GtkType gtk_label_get_type)
(gtk-import-function GtkWidget gtk_label_new GtkString)
(gtk-import-function nil gtk_label_set_text GtkLabel GtkString)
(gtk-import-function nil gtk_label_set_justify GtkLabel GtkJustification)
(gtk-import-function nil gtk_label_set_pattern GtkLabel GtkString)
(gtk-import-function nil gtk_label_set_line_wrap GtkLabel gboolean)

;;;Handcoded in ui-byhand.c... #### FIXME
;void       gtk_label_get           (GtkLabel          *label,
;                                    gchar            **str);

;; Convenience function to set the name and pattern by parsing
;; a string with embedded underscores, and return the appropriate
;; key symbol for the accelerator.
(gtk-import-function guint gtk_label_parse_uline GtkLabel GtkString)


(gtk-import-function GtkType gtk_layout_get_type)
(gtk-import-function GtkWidget gtk_layout_new GtkAdjustment GtkAdjustment)
(gtk-import-function nil gtk_layout_put GtkLayout GtkWidget gint gint)
(gtk-import-function nil gtk_layout_move GtkLayout GtkWidget gint gint)
(gtk-import-function nil gtk_layout_set_size GtkLayout guint guint)

(gtk-import-function GtkAdjustment gtk_layout_get_hadjustment GtkLayout)
(gtk-import-function GtkAdjustment gtk_layout_get_vadjustment GtkLayout)
(gtk-import-function nil gtk_layout_set_hadjustment GtkLayout GtkAdjustment)
(gtk-import-function nil gtk_layout_set_vadjustment GtkLayout GtkAdjustment)

;; These disable and enable moving and repainting the scrolling window
;; of the GtkLayout, respectively.  If you want to update the layout's
;; offsets but do not want it to repaint itself, you should use these
;; functions.

;; - I don't understand these are supposed to work, so I suspect
;; - they don't now.                    OWT 1/20/98

(gtk-import-function nil gtk_layout_freeze GtkLayout)
(gtk-import-function nil gtk_layout_thaw GtkLayout)


(gtk-import-function GtkType gtk_list_get_type)
(gtk-import-function GtkWidget gtk_list_new)

(gtk-import-function nil gtk_list_insert_items
		     (GtkList         . list)
		     (GtkListOfObject . items)
		     (gint            . position))

(gtk-import-function nil gtk_list_append_items
		     (GtkList         . list)
		     (GtkListOfObject . items))
(gtk-import-function nil gtk_list_prepend_items
		     (GtkList         . list)
		     (GtkListOfObject . items))
(gtk-import-function nil gtk_list_remove_items
		     (GtkList         . list)
		     (GtkListOfObject . items))
(gtk-import-function nil gtk_list_remove_items_no_unref
		     (GtkList         . list)
		     (GtkListOfObject . items))

(gtk-import-function nil gtk_list_clear_items GtkList gint gint)
(gtk-import-function nil gtk_list_select_item GtkList gint)
(gtk-import-function nil gtk_list_unselect_item GtkList gint)
(gtk-import-function nil gtk_list_select_child GtkList GtkWidget)
(gtk-import-function nil gtk_list_unselect_child GtkList GtkWidget)
(gtk-import-function gint gtk_list_child_position GtkList GtkWidget)
(gtk-import-function nil gtk_list_set_selection_mode GtkList GtkSelectionMode)
(gtk-import-function nil gtk_list_extend_selection GtkList GtkScrollType gfloat gboolean)
(gtk-import-function nil gtk_list_start_selection GtkList)
(gtk-import-function nil gtk_list_end_selection GtkList)
(gtk-import-function nil gtk_list_select_all GtkList)
(gtk-import-function nil gtk_list_unselect_all GtkList)
(gtk-import-function nil gtk_list_scroll_horizontal GtkList GtkScrollType gfloat)
(gtk-import-function nil gtk_list_scroll_vertical GtkList  GtkScrollType gfloat)
(gtk-import-function nil gtk_list_toggle_add_mode GtkList)
(gtk-import-function nil gtk_list_toggle_focus_row GtkList)
(gtk-import-function nil gtk_list_toggle_row GtkList GtkWidget)
(gtk-import-function nil gtk_list_undo_selection GtkList)
(gtk-import-function nil gtk_list_end_drag_selection GtkList)


(gtk-import-function GtkType gtk_list_item_get_type)
(gtk-import-function GtkWidget gtk_list_item_new)
(gtk-import-function GtkWidget gtk_list_item_new_with_label GtkString)
(gtk-import-function nil gtk_list_item_select GtkListItem)
(gtk-import-function nil gtk_list_item_deselect GtkListItem)


(gtk-import-variable guint gtk_major_version)
(gtk-import-variable guint gtk_minor_version)
(gtk-import-variable guint gtk_micro_version)
(gtk-import-variable guint gtk_interface_age)
(gtk-import-variable guint gtk_binary_age)

(gtk-import-function GtkString gtk_check_version
		     (guint . required_major)
		     (guint . required_minor)
		     (guint . required_micro))

(gtk-import-function gboolean gtk_events_pending)
(gtk-import-function guint gtk_main_level)
(gtk-import-function nil gtk_main)
(gtk-import-function nil gtk_main_quit)
(gtk-import-function gint gtk_main_iteration)
(gtk-import-function gint gtk_main_iteration_do (gboolean . blocking))
(gtk-import-function gint gtk_true)
(gtk-import-function gint gtk_false)


(gtk-import-function GtkType gtk_menu_get_type)
(gtk-import-function GtkWidget gtk_menu_new)

;; Wrappers for the Menu Shell operations
(gtk-import-function nil gtk_menu_append GtkMenu GtkWidget)
(gtk-import-function nil gtk_menu_prepend GtkMenu GtkWidget)
(gtk-import-function nil gtk_menu_insert GtkMenu GtkWidget gint)

;; Display the menu onscreen
(gtk-import-function nil gtk_menu_popup GtkMenu GtkWidget GtkWidget
		     gpointer   ;; GtkMenuPositionFunc	func
		     gpointer
		     guint
		     guint)

;; Position the menu according to it's position function. Called
;; from gtkmenuitem.c when a menu-item changes its allocation
(gtk-import-function nil gtk_menu_reposition GtkMenu)
(gtk-import-function nil gtk_menu_popdown GtkMenu)

;; Keep track of the last menu item selected. (For the purposes
;; of the option menu
(gtk-import-function GtkWidget gtk_menu_get_active GtkMenu)
(gtk-import-function nil gtk_menu_set_active GtkMenu guint)

;; set/get the acclerator group that holds global accelerators (should
;; be added to the corresponding toplevel with gtk_window_add_accel_group().
(gtk-import-function nil gtk_menu_set_accel_group GtkMenu GtkAccelGroup)
(gtk-import-function GtkAccelGroup gtk_menu_get_accel_group GtkMenu)

;; get the accelerator group that is used internally by the menu for
;; underline accelerators while the menu is popped up.
(gtk-import-function GtkAccelGroup gtk_menu_get_uline_accel_group GtkMenu)
(gtk-import-function GtkAccelGroup gtk_menu_ensure_uline_accel_group GtkMenu)

;; A reference count is kept for a widget when it is attached to
;; a particular widget. This is typically a menu item; it may also
;; be a widget with a popup menu - for instance, the Notebook widget.
(gtk-import-function nil gtk_menu_attach_to_widget GtkMenu GtkWidget gpointer)
(gtk-import-function nil gtk_menu_detach GtkMenu)

;; This should be dumped in favor of data set when the menu is popped
;; up - that is currently in the ItemFactory code, but should be
;; in the Menu code.
(gtk-import-function GtkWidget gtk_menu_get_attach_widget GtkMenu)
(gtk-import-function nil gtk_menu_set_tearoff_state GtkMenu gboolean)

;; This sets the window manager title for the window that
;; appears when a menu is torn off
(gtk-import-function nil gtk_menu_set_title GtkMenu GtkString)

(gtk-import-function nil gtk_menu_reorder_child GtkMenu GtkWidget gint)


(gtk-import-function GtkType gtk_menu_bar_get_type)
(gtk-import-function GtkWidget gtk_menu_bar_new)
(gtk-import-function nil gtk_menu_bar_append GtkMenuBar GtkWidget)
(gtk-import-function nil gtk_menu_bar_prepend GtkMenuBar GtkWidget)
(gtk-import-function nil gtk_menu_bar_insert GtkMenuBar GtkWidget gint)
(gtk-import-function nil gtk_menu_bar_set_shadow_type GtkMenuBar GtkShadowType)


(gtk-import-function GtkType gtk_menu_item_get_type)
(gtk-import-function GtkWidget gtk_menu_item_new)
(gtk-import-function GtkWidget gtk_menu_item_new_with_label GtkString)
(gtk-import-function nil gtk_menu_item_set_submenu GtkMenuItem GtkWidget)
(gtk-import-function nil gtk_menu_item_remove_submenu GtkMenuItem)
(gtk-import-function nil gtk_menu_item_set_placement GtkMenuItem GtkSubmenuPlacement)
(gtk-import-function nil gtk_menu_item_configure GtkMenuItem gint gint)
(gtk-import-function nil gtk_menu_item_select GtkMenuItem)
(gtk-import-function nil gtk_menu_item_deselect GtkMenuItem)
(gtk-import-function nil gtk_menu_item_activate GtkMenuItem)
(gtk-import-function nil gtk_menu_item_right_justify GtkMenuItem)


(gtk-import-function GtkType gtk_misc_get_type)
(gtk-import-function nil gtk_misc_set_alignment
		     (GtkMisc . misc)
		     (gfloat  . xalign)
		     (gfloat  . yalign))

(gtk-import-function nil gtk_misc_set_padding
		     (GtkMisc . misc)
		     (gint    . xpad)
		     (gint    . ypad))


(gtk-import-function GtkType gtk_notebook_get_type)
(gtk-import-function GtkWidget gtk_notebook_new)
(gtk-import-function nil gtk_notebook_append_page GtkNotebook GtkWidget GtkWidget)
(gtk-import-function nil gtk_notebook_append_page_menu GtkNotebook GtkWidget GtkWidget GtkWidget)
(gtk-import-function nil gtk_notebook_prepend_page GtkNotebook GtkWidget GtkWidget)
(gtk-import-function nil gtk_notebook_prepend_page_menu GtkNotebook GtkWidget GtkWidget GtkWidget)
(gtk-import-function nil gtk_notebook_insert_page GtkNotebook GtkWidget GtkWidget gint)
(gtk-import-function nil gtk_notebook_insert_page_menu GtkNotebook GtkWidget GtkWidget GtkWidget gint)
(gtk-import-function nil gtk_notebook_remove_page GtkNotebook gint)

;;query, set current NoteebookPage
(gtk-import-function gint gtk_notebook_get_current_page GtkNotebook)
(gtk-import-function GtkWidget gtk_notebook_get_nth_page GtkNotebook gint)
(gtk-import-function gint gtk_notebook_page_num GtkNotebook GtkWidget)
(gtk-import-function nil gtk_notebook_set_page GtkNotebook gint)
(gtk-import-function nil gtk_notebook_next_page GtkNotebook)
(gtk-import-function nil gtk_notebook_prev_page GtkNotebook)

;; set Notebook, NotebookTab style
(gtk-import-function nil gtk_notebook_set_show_border GtkNotebook gboolean)
(gtk-import-function nil gtk_notebook_set_show_tabs GtkNotebook gboolean)
(gtk-import-function nil gtk_notebook_set_tab_pos GtkNotebook GtkPositionType)
(gtk-import-function nil gtk_notebook_set_homogeneous_tabs GtkNotebook gboolean)
(gtk-import-function nil gtk_notebook_set_tab_border GtkNotebook guint)
(gtk-import-function nil gtk_notebook_set_tab_hborder GtkNotebook guint)
(gtk-import-function nil gtk_notebook_set_tab_vborder GtkNotebook guint)
(gtk-import-function nil gtk_notebook_set_scrollable GtkNotebook gboolean)

;; enable/disable PopupMenu
(gtk-import-function nil gtk_notebook_popup_enable GtkNotebook)
(gtk-import-function nil gtk_notebook_popup_disable GtkNotebook)

;; query/set NotebookPage Properties
(gtk-import-function GtkWidget gtk_notebook_get_tab_label GtkNotebook GtkWidget)
(gtk-import-function nil gtk_notebook_set_tab_label GtkNotebook GtkWidget GtkWidget)
(gtk-import-function nil gtk_notebook_set_tab_label_text GtkNotebook GtkWidget GtkString)
(gtk-import-function GtkWidget gtk_notebook_get_menu_label GtkNotebook GtkWidget)
(gtk-import-function nil gtk_notebook_set_menu_label GtkNotebook GtkWidget GtkWidget)
(gtk-import-function nil gtk_notebook_set_menu_label_text GtkNotebook GtkWidget GtkString)

;;;Handcoded in ui-byhand.c... #### FIXME
;;;void gtk_notebook_query_tab_label_packing (GtkNotebook *notebook,
;;;					   GtkWidget   *child,
;;;					   gboolean    *expand,
;;;					   gboolean    *fill,
;;;					   GtkPackType *pack_type);
(gtk-import-function nil gtk_notebook_set_tab_label_packing GtkNotebook GtkWidget gboolean gboolean GtkPackType)

(gtk-import-function nil gtk_notebook_reorder_child GtkNotebook GtkWidget gint)


(gtk-import-function GtkType gtk_object_get_type)
;(gtk-import-function 'GtkObject gtk_object_newv 'guint 'guint 'GtkArg)
(gtk-import-function nil gtk_object_sink GtkObject)
(gtk-import-function nil gtk_object_ref GtkObject)
(gtk-import-function nil gtk_object_unref GtkObject)

;; Need to implement callbacks better before I can do this.
;;void gtk_object_weakref	  (GtkObject	    *object,
;;			   GtkDestroyNotify  notify,
;;			   gpointer	     data);
;;void gtk_object_weakunref (GtkObject	    *object,
;;			   GtkDestroyNotify  notify,
;;			   gpointer	     data);

(gtk-import-function nil gtk_object_destroy GtkObject)

;; gtk_object_[gs]etv* () are handled by our generic 'get' and 'put'
;; handlers for types of GtkObject


(gtk-import-function GtkType gtk_option_menu_get_type)
(gtk-import-function GtkWidget gtk_option_menu_new)
(gtk-import-function GtkWidget gtk_option_menu_get_menu GtkOptionMenu)
(gtk-import-function nil gtk_option_menu_set_menu GtkOptionMenu GtkWidget)
(gtk-import-function nil gtk_option_menu_remove_menu GtkOptionMenu)
(gtk-import-function nil gtk_option_menu_set_history GtkOptionMenu guint)


(gtk-import-function GtkType gtk_packer_get_type)
(gtk-import-function GtkWidget gtk_packer_new)
(gtk-import-function nil gtk_packer_add_defaults GtkPacker GtkWidget
		     GtkSideType GtkAnchorType GtkPackerOptions)
(gtk-import-function nil gtk_packer_add GtkPacker
		     GtkWidget
		     GtkSideType
		     GtkAnchorType
		     GtkPackerOptions
		     guint
		     guint
		     guint
		     guint
		     guint)

(gtk-import-function nil gtk_packer_set_child_packing GtkPacker
		     GtkWidget
		     GtkSideType
		     GtkAnchorType
		     GtkPackerOptions
		     guint
		     guint
		     guint
		     guint
		     guint)

(gtk-import-function nil gtk_packer_reorder_child GtkPacker GtkWidget gint)
(gtk-import-function nil gtk_packer_set_spacing GtkPacker guint)
(gtk-import-function nil gtk_packer_set_default_border_width GtkPacker guint)
(gtk-import-function nil gtk_packer_set_default_pad GtkPacker guint guint)
(gtk-import-function nil gtk_packer_set_default_ipad GtkPacker guint guint)


(gtk-import-function GtkType gtk_paned_get_type)
(gtk-import-function nil gtk_paned_add1 GtkPaned GtkWidget)
(gtk-import-function nil gtk_paned_add2 GtkPaned GtkWidget)
(gtk-import-function nil gtk_paned_pack1 GtkPaned GtkWidget gboolean gboolean)
(gtk-import-function nil gtk_paned_pack2 GtkPaned GtkWidget gboolean gboolean)
(gtk-import-function nil gtk_paned_set_position GtkPaned gint)
(gtk-import-function nil gtk_paned_set_handle_size GtkPaned guint)
(gtk-import-function nil gtk_paned_set_gutter_size GtkPaned guint)

;; Internal function... do we need to expose this?
(gtk-import-function nil gtk_paned_compute_position GtkPaned gint gint gint)


(gtk-import-function GtkType gtk_pixmap_get_type)
(gtk-import-function GtkWidget gtk_pixmap_new
		     (GdkPixmap . pixmap)
		     (GdkPixmap . mask))
(gtk-import-function nil gtk_pixmap_set
		     (GtkPixmap . object)
		     (GdkPixmap . pixmap)
		     (GdkPixmap . mask))

;Handcoded in ui-byhand.c... #### FIXME
;;;void	   gtk_pixmap_get	 (GtkPixmap  *pixmap,
;;;				  GdkPixmap **val,
;;;				  GdkBitmap **mask);

(gtk-import-function nil gtk_pixmap_set_build_insensitive
		     (GtkPixmap . pixmap)
		     (guint     . build))


(gtk-import-function GtkType gtk_plug_get_type)
(gtk-import-function GtkWidget gtk_plug_new guint)
(gtk-import-function nil gtk_plug_construct GtkPlug guint)


(gtk-import-function GtkType gtk_progress_get_type)
(gtk-import-function nil gtk_progress_set_show_text GtkProgress gint)
(gtk-import-function nil gtk_progress_set_text_alignment GtkProgress gfloat gfloat)
(gtk-import-function nil gtk_progress_set_format_string GtkProgress GtkString)
(gtk-import-function nil gtk_progress_set_adjustment GtkProgress GtkAdjustment)
(gtk-import-function nil gtk_progress_configure GtkProgress gfloat gfloat gfloat)
(gtk-import-function nil gtk_progress_set_percentage GtkProgress gfloat)
(gtk-import-function nil gtk_progress_set_value GtkProgress gfloat)
(gtk-import-function gfloat gtk_progress_get_value GtkProgress)
(gtk-import-function nil gtk_progress_set_activity_mode GtkProgress guint)
(gtk-import-function GtkString gtk_progress_get_current_text GtkProgress)
(gtk-import-function GtkString gtk_progress_get_text_from_value GtkProgress gfloat)
(gtk-import-function gfloat gtk_progress_get_current_percentage GtkProgress)
(gtk-import-function gfloat gtk_progress_get_percentage_from_value GtkProgress gfloat)


(gtk-import-function GtkType gtk_progress_bar_get_type)
(gtk-import-function GtkWidget gtk_progress_bar_new)
(gtk-import-function GtkWidget gtk_progress_bar_new_with_adjustment GtkAdjustment)
(gtk-import-function nil gtk_progress_bar_set_bar_style GtkProgressBar GtkProgressBarStyle)
(gtk-import-function nil gtk_progress_bar_set_discrete_blocks GtkProgressBar guint)
(gtk-import-function nil gtk_progress_bar_set_activity_step GtkProgressBar guint)
(gtk-import-function nil gtk_progress_bar_set_activity_blocks GtkProgressBar guint)
(gtk-import-function nil gtk_progress_bar_set_orientation GtkProgressBar GtkProgressBarOrientation)
(gtk-import-function nil gtk_progress_bar_update GtkProgressBar gfloat)


;; All of the gpointers below really need to be `GSList *'
;; For now, need to create the first radio button with 'nil' and then use
;; (gtk-radio-button-group first-radio) for the rest.
(gtk-import-function GtkType gtk_radio_button_get_type)
(gtk-import-function GtkWidget gtk_radio_button_new gpointer)
(gtk-import-function GtkWidget gtk_radio_button_new_from_widget GtkRadioButton)
(gtk-import-function GtkWidget gtk_radio_button_new_with_label gpointer GtkString)
(gtk-import-function GtkWidget gtk_radio_button_new_with_label_from_widget GtkRadioButton GtkString)
(gtk-import-function gpointer gtk_radio_button_group GtkRadioButton)
(gtk-import-function nil gtk_radio_button_set_group GtkRadioButton gpointer)


(gtk-import-function GtkType gtk_radio_menu_item_get_type)

;; #### BILLL!!
;; All of these gpointer args should be GList *
(gtk-import-function GtkWidget gtk_radio_menu_item_new gpointer)
(gtk-import-function GtkWidget gtk_radio_menu_item_new_with_label gpointer GtkString)
(gtk-import-function gpointer gtk_radio_menu_item_group GtkRadioMenuItem)
(gtk-import-function nil gtk_radio_menu_item_set_group GtkRadioMenuItem gpointer)


(gtk-import-function GtkType gtk_range_get_type)
(gtk-import-function GtkAdjustment gtk_range_get_adjustment GtkRange)
(gtk-import-function nil gtk_range_set_update_policy GtkRange GtkUpdateType)
(gtk-import-function nil gtk_range_set_adjustment GtkRange GtkAdjustment)

(gtk-import-function nil gtk_range_draw_background GtkRange)
(gtk-import-function nil gtk_range_clear_background GtkRange)
(gtk-import-function nil gtk_range_draw_trough GtkRange)
(gtk-import-function nil gtk_range_draw_slider GtkRange)
(gtk-import-function nil gtk_range_draw_step_forw GtkRange)
(gtk-import-function nil gtk_range_draw_step_back GtkRange)
(gtk-import-function nil gtk_range_slider_update GtkRange)

;;; #### BILL!!! I think all of these are just for subclassing
;;; widgets, which we will not be able to do.  Maybe much later.
;;;gint           gtk_range_trough_click           (GtkRange      *range,
;;;						 gint           x,
;;;						 gint           y,
;;;						 gfloat	       *jump_perc);

(gtk-import-function nil gtk_range_default_hslider_update GtkRange)
(gtk-import-function nil gtk_range_default_vslider_update GtkRange)

;;;gint           gtk_range_default_htrough_click  (GtkRange      *range,
;;;						 gint           x,
;;;						 gint           y,
;;;						 gfloat	       *jump_perc);
;;;gint           gtk_range_default_vtrough_click  (GtkRange      *range,
;;;						 gint           x,
;;;						 gint           y,
;;;						 gfloat	       *jump_perc);

(gtk-import-function nil gtk_range_default_hmotion GtkRange gint gint)
(gtk-import-function nil gtk_range_default_vmotion GtkRange gint gint)


(gtk-import-function GtkType gtk_ruler_get_type)
(gtk-import-function nil gtk_ruler_set_metric GtkRuler GtkMetricType)
(gtk-import-function nil gtk_ruler_set_range GtkRuler gfloat gfloat gfloat gfloat)
(gtk-import-function nil gtk_ruler_draw_ticks GtkRuler)
(gtk-import-function nil gtk_ruler_draw_pos GtkRuler)


(gtk-import-function GtkType gtk_scale_get_type)
(gtk-import-function nil gtk_scale_set_digits GtkScale gint)
(gtk-import-function nil gtk_scale_set_draw_value GtkScale gboolean)
(gtk-import-function nil gtk_scale_set_value_pos GtkScale GtkPositionType)
(gtk-import-function gint gtk_scale_get_value_width GtkScale)
(gtk-import-function nil gtk_scale_draw_value GtkScale)


(gtk-import-function GtkType gtk_scrollbar_get_type)


(gtk-import-function GtkType gtk_scrolled_window_get_type)
(gtk-import-function GtkWidget gtk_scrolled_window_new GtkAdjustment GtkAdjustment)
(gtk-import-function nil gtk_scrolled_window_set_hadjustment GtkScrolledWindow GtkAdjustment)
(gtk-import-function nil gtk_scrolled_window_set_vadjustment GtkScrolledWindow GtkAdjustment)
(gtk-import-function GtkAdjustment gtk_scrolled_window_get_hadjustment GtkScrolledWindow)
(gtk-import-function GtkAdjustment gtk_scrolled_window_get_vadjustment GtkScrolledWindow)
(gtk-import-function nil gtk_scrolled_window_set_policy GtkScrolledWindow GtkPolicyType GtkPolicyType)
(gtk-import-function nil gtk_scrolled_window_set_placement GtkScrolledWindow GtkCornerType)
(gtk-import-function nil gtk_scrolled_window_add_with_viewport GtkScrolledWindow GtkWidget)


(gtk-import-function GtkType gtk_separator_get_type)


(gtk-import-function GtkType gtk_socket_get_type)
(gtk-import-function GtkWidget gtk_socket_new)
(gtk-import-function nil gtk_socket_steal GtkSocket guint)


(gtk-import-function GtkType gtk_table_get_type)
(gtk-import-function GtkWidget gtk_table_new guint guint gboolean)
(gtk-import-function nil gtk_table_resize GtkTable guint guint)

(gtk-import-function nil gtk_table_attach GtkTable GtkWidget
		     guint guint guint guint GtkAttachOptions GtkAttachOptions guint
		     guint)

(gtk-import-function nil gtk_table_attach_defaults GtkTable GtkWidget guint guint guint guint)
(gtk-import-function nil gtk_table_set_row_spacing GtkTable guint guint)
(gtk-import-function nil gtk_table_set_col_spacing GtkTable guint guint)
(gtk-import-function nil gtk_table_set_row_spacings GtkTable guint)
(gtk-import-function nil gtk_table_set_col_spacings GtkTable guint)
(gtk-import-function nil gtk_table_set_homogeneous GtkTable gboolean)


(gtk-import-function GtkType gtk_tearoff_menu_item_get_type)
(gtk-import-function GtkWidget gtk_tearoff_menu_item_new)


(gtk-import-function GtkType gtk_text_get_type)
(gtk-import-function GtkWidget gtk_text_new GtkAdjustment GtkAdjustment)
(gtk-import-function nil gtk_text_set_editable GtkText gboolean)
(gtk-import-function nil gtk_text_set_word_wrap GtkText gint)
(gtk-import-function nil gtk_text_set_line_wrap GtkText gint)
(gtk-import-function nil gtk_text_set_adjustments GtkText GtkAdjustment GtkAdjustment)
(gtk-import-function nil gtk_text_set_point GtkText guint)
(gtk-import-function guint gtk_text_get_point GtkText)
(gtk-import-function guint gtk_text_get_length GtkText)
(gtk-import-function nil gtk_text_freeze GtkText)
(gtk-import-function nil gtk_text_thaw GtkText)
(gtk-import-function nil gtk_text_insert GtkText GdkFont GdkColor GdkColor GtkString gint)
(gtk-import-function nil gtk_text_backward_delete GtkText guint)
(gtk-import-function nil gtk_text_forward_delete GtkText guint)


(gtk-import-function GtkType gtk_tips_query_get_type)
(gtk-import-function GtkWidget gtk_tips_query_new)
(gtk-import-function nil gtk_tips_query_start_query GtkTipsQuery)
(gtk-import-function nil gtk_tips_query_stop_query GtkTipsQuery)
(gtk-import-function nil gtk_tips_query_set_caller GtkTipsQuery GtkWidget)
(gtk-import-function nil gtk_tips_query_set_labels GtkTipsQuery GtkString GtkString)


(gtk-import-function GtkType gtk_toggle_button_get_type)
(gtk-import-function GtkWidget gtk_toggle_button_new)
(gtk-import-function GtkWidget gtk_toggle_button_new_with_label GtkString)
(gtk-import-function nil gtk_toggle_button_set_mode GtkToggleButton gboolean)
(gtk-import-function nil gtk_toggle_button_set_active GtkToggleButton gboolean)
(gtk-import-function gboolean gtk_toggle_button_get_active GtkToggleButton)
(gtk-import-function nil gtk_toggle_button_toggled GtkToggleButton)


(gtk-import-function GtkType gtk_toolbar_get_type)
(gtk-import-function GtkWidget gtk_toolbar_new GtkOrientation GtkToolbarStyle)

;; Simple button items
;;; Handcoded in ui-byhand.c... #### FIXME
;;;GtkWidget* gtk_toolbar_append_item     (GtkToolbar      *toolbar,
;;;					const char      *text,
;;;					const char      *tooltip_text,
;;;					const char      *tooltip_private_text,
;;;					GtkWidget       *icon,
;;;					GtkSignalFunc    callback,
;;;					gpointer         user_data);
;;;GtkWidget* gtk_toolbar_prepend_item    (GtkToolbar      *toolbar,
;;;					const char      *text,
;;;					const char      *tooltip_text,
;;;					const char      *tooltip_private_text,
;;;					GtkWidget       *icon,
;;;					GtkSignalFunc    callback,
;;;					gpointer         user_data);
;;;GtkWidget* gtk_toolbar_insert_item     (GtkToolbar      *toolbar,
;;;					const char      *text,
;;;					const char      *tooltip_text,
;;;					const char      *tooltip_private_text,
;;;					GtkWidget       *icon,
;;;					GtkSignalFunc    callback,
;;;					gpointer         user_data,
;;;					gint             position);

;; Space Items
(gtk-import-function nil gtk_toolbar_append_space GtkToolbar)
(gtk-import-function nil gtk_toolbar_prepend_space GtkToolbar)
(gtk-import-function nil gtk_toolbar_insert_space GtkToolbar gint)

;; Any element type
;; Cannot currently do this!  Need to have something similar to
;; GtkCallback in order to deal with this.
;; Of what possible use are these functions?  I don't see the
;; difference between them and the _item functions.
;;
;; From looking at the code in gtktoolbar.c, the GtkWidget argument
;; here is ignored!!!
'(gtk-import-function GtkWidget gtk_toolbar_append_element GtkToolbar
		      GtkToolbarChildType
		      GtkWidget
		      GtkString
		      GtkString
		      GtkString
		      GtkWidget
		      GtkSignal
		      gpointer)

'(gtk-import-function GtkWidget gtk_toolbar_prepend_element GtkToolbar
		      GtkToolbarChildType
		      GtkWidget
		      GtkString
		      GtkString
		      GtkString
		      GtkWidget
		      GtkSignal
		      gpointer)

'(gtk-import-function GtkWidget gtk_toolbar_insert_element GtkToolbar
		      GtkToolbarChildType
		      GtkWidget
		      GtkString
		      GtkString
		      GtkString
		      GtkWidget
		      GtkSignal
		      gpointer
		      gint)

;; Generic Widgets
(gtk-import-function nil gtk_toolbar_append_widget GtkToolbar GtkWidget GtkString GtkString)
(gtk-import-function nil gtk_toolbar_prepend_widget GtkToolbar GtkWidget GtkString GtkString)
(gtk-import-function nil gtk_toolbar_insert_widget GtkToolbar GtkWidget GtkString GtkString gint)

;; Style functions
(gtk-import-function nil gtk_toolbar_set_orientation GtkToolbar GtkOrientation)
(gtk-import-function nil gtk_toolbar_set_style GtkToolbar GtkToolbarStyle)
(gtk-import-function nil gtk_toolbar_set_space_size GtkToolbar gint)
(gtk-import-function nil gtk_toolbar_set_space_style GtkToolbar GtkToolbarSpaceStyle)
(gtk-import-function nil gtk_toolbar_set_tooltips GtkToolbar gint)
(gtk-import-function nil gtk_toolbar_set_button_relief GtkToolbar GtkReliefStyle)
(gtk-import-function GtkReliefStyle gtk_toolbar_get_button_relief GtkToolbar)


(gtk-import-function GtkType gtk_tooltips_get_type)
(gtk-import-function GtkObject gtk_tooltips_new)
(gtk-import-function nil gtk_tooltips_enable GtkTooltips)
(gtk-import-function nil gtk_tooltips_disable GtkTooltips)
(gtk-import-function nil gtk_tooltips_set_delay GtkTooltips guint)
(gtk-import-function nil gtk_tooltips_set_tip GtkTooltips GtkWidget GtkString GtkString)
(gtk-import-function nil gtk_tooltips_set_colors GtkTooltips GdkColor GdkColor)

;;;GtkTooltipsData* gtk_tooltips_data_get	   (GtkWidget	  *widget);

(gtk-import-function nil gtk_tooltips_force_window GtkTooltips)


(gtk-import-function GtkType gtk_tree_get_type)
(gtk-import-function GtkWidget gtk_tree_new)

(gtk-import-function nil gtk_tree_append
		     (GtkTree    . tree)
		     (GtkWidget  . tree_item))
(gtk-import-function nil gtk_tree_prepend
		     (GtkTree    . tree)
		     (GtkWidget  . tree_item))

(gtk-import-function nil gtk_tree_insert
		     (GtkTree    . tree)
		     (GtkWidget  . tree_item)
		     (gint       . position))

(gtk-import-function nil gtk_tree_remove_items
		     (GtkTree         . tree)
		     (GtkListOfObject . items))

(gtk-import-function nil gtk_tree_clear_items
		     (GtkTree . tree)
		     (gint    . start)
		     (gint    . end))

(gtk-import-function nil gtk_tree_select_item
		     (GtkTree . tree)
		     (gint    . item))

(gtk-import-function nil gtk_tree_unselect_item
		     (GtkTree . tree)
		     (gint    . item))

(gtk-import-function nil gtk_tree_select_child
		     (GtkTree    . tree)
		     (GtkWidget  . tree_item))

(gtk-import-function nil gtk_tree_unselect_child
		     (GtkTree    . tree)
		     (GtkWidget  . tree_item))

(gtk-import-function gint gtk_tree_child_position
		     (GtkTree    . tree)
		     (GtkWidget  . child))

(gtk-import-function nil gtk_tree_set_selection_mode
		     (GtkTree          . tree)
		     (GtkSelectionMode . mode))

(gtk-import-function nil gtk_tree_set_view_mode
		     (GtkTree         . tree)
		     (GtkTreeViewMode . mode))

(gtk-import-function nil gtk_tree_set_view_lines
		     (GtkTree  . tree)
		     (gboolean . flag))

;; deprecated function, use gtk_container_remove instead.
(gtk-import-function nil gtk_tree_remove_item
		     (GtkTree   . tree)
		     (GtkWidget . child))


(gtk-import-function GtkType gtk_tree_item_get_type)
(gtk-import-function GtkWidget gtk_tree_item_new)
(gtk-import-function GtkWidget gtk_tree_item_new_with_label GtkString)
(gtk-import-function nil gtk_tree_item_set_subtree GtkTreeItem GtkWidget)
(gtk-import-function nil gtk_tree_item_remove_subtree GtkTreeItem)
(gtk-import-function nil gtk_tree_item_select GtkTreeItem)
(gtk-import-function nil gtk_tree_item_deselect GtkTreeItem)
(gtk-import-function nil gtk_tree_item_expand GtkTreeItem)
(gtk-import-function nil gtk_tree_item_collapse GtkTreeItem)


(gtk-import-function GtkString gtk_type_name GtkType)
(gtk-import-function guint gtk_type_from_name GtkString)


(gtk-import-function GtkType gtk_vbox_get_type)
(gtk-import-function GtkWidget gtk_vbox_new gboolean gint)


(gtk-import-function GtkType gtk_vbutton_box_get_type)
(gtk-import-function GtkWidget gtk_vbutton_box_new)

;; buttons can be added by gtk_container_add()
(gtk-import-function gint gtk_vbutton_box_get_spacing_default)
(gtk-import-function nil gtk_vbutton_box_set_spacing_default gint)

(gtk-import-function GtkButtonBoxStyle gtk_vbutton_box_get_layout_default)
(gtk-import-function nil gtk_vbutton_box_set_layout_default GtkButtonBoxStyle)


(gtk-import-function GtkType gtk_viewport_get_type)
(gtk-import-function GtkWidget gtk_viewport_new GtkAdjustment GtkAdjustment)
(gtk-import-function GtkAdjustment gtk_viewport_get_hadjustment GtkViewport)
(gtk-import-function GtkAdjustment gtk_viewport_get_vadjustment GtkViewport)
(gtk-import-function nil gtk_viewport_set_hadjustment GtkViewport GtkAdjustment)
(gtk-import-function nil gtk_viewport_set_vadjustment GtkViewport GtkAdjustment)
(gtk-import-function nil gtk_viewport_set_shadow_type GtkViewport GtkShadowType)


(gtk-import-function GtkType gtk_vpaned_get_type)
(gtk-import-function GtkWidget gtk_vpaned_new)


(gtk-import-function GtkType gtk_vruler_get_type)
(gtk-import-function GtkWidget gtk_vruler_new)


(gtk-import-function GtkType gtk_vscale_get_type)
(gtk-import-function GtkWidget gtk_vscale_new GtkAdjustment)


(gtk-import-function GtkType gtk_vscrollbar_get_type)
(gtk-import-function GtkWidget gtk_vscrollbar_new GtkAdjustment)


(gtk-import-function GtkType gtk_vseparator_get_type)
(gtk-import-function GtkWidget gtk_vseparator_new)


(gtk-import-function GtkType gtk_widget_get_type)
(gtk-import-function nil gtk_widget_ref GtkWidget)
(gtk-import-function nil gtk_widget_unref GtkWidget)
(gtk-import-function nil gtk_widget_destroy GtkWidget)
(gtk-import-function nil gtk_widget_unparent GtkWidget)
(gtk-import-function nil gtk_widget_show GtkWidget)
(gtk-import-function nil gtk_widget_show_now GtkWidget)
(gtk-import-function nil gtk_widget_hide GtkWidget)
(gtk-import-function nil gtk_widget_show_all GtkWidget)
(gtk-import-function nil gtk_widget_hide_all GtkWidget)
(gtk-import-function nil gtk_widget_map GtkWidget)
(gtk-import-function nil gtk_widget_unmap GtkWidget)
(gtk-import-function nil gtk_widget_realize GtkWidget)
(gtk-import-function nil gtk_widget_unrealize GtkWidget)

(gtk-import-function nil gtk_widget_queue_draw GtkWidget)
(gtk-import-function nil gtk_widget_queue_draw_area GtkWidget gint gint gint gint)
(gtk-import-function nil gtk_widget_queue_clear GtkWidget)
(gtk-import-function nil gtk_widget_queue_clear_area GtkWidget gint gint gint gint)
(gtk-import-function nil gtk_widget_queue_resize GtkWidget)

;;; #### BILL!!!
;(gtk-import-function nil gtk_widget_draw 'GtkWidget 'GdkRectangle)
;(gtk-import-function nil gtk_widget_size_request 'GtkWidget 'GtkRequisition)
;(gtk-import-function nil gtk_widget_size_allocate 'GtkWidget 'GtkAllocation)
;(gtk-import-function nil gtk_widget_get_child_requisition 'GtkWidget 'GtkRequisition)
;(gtk-import-function 'gint gtk_widget_intersect 'GtkWidget 'GdkRectangle 'GdkRectangle)

(gtk-import-function nil gtk_widget_draw_focus GtkWidget)
(gtk-import-function nil gtk_widget_draw_default GtkWidget)
(gtk-import-function nil gtk_widget_add_accelerator GtkWidget GtkString GtkAccelGroup
		     guint guint GtkAccelFlags)
(gtk-import-function nil gtk_widget_remove_accelerator GtkWidget GtkAccelGroup guint guint)
(gtk-import-function nil gtk_widget_remove_accelerators GtkWidget GtkString gboolean)
(gtk-import-function guint gtk_widget_accelerator_signal GtkWidget GtkAccelGroup guint guint)
(gtk-import-function nil gtk_widget_lock_accelerators GtkWidget)
(gtk-import-function nil gtk_widget_unlock_accelerators GtkWidget)
(gtk-import-function gboolean gtk_widget_accelerators_locked GtkWidget)
(gtk-import-function gint gtk_widget_event GtkWidget GdkEvent)
(gtk-import-function gboolean gtk_widget_activate GtkWidget)
(gtk-import-function gboolean gtk_widget_set_scroll_adjustments GtkWidget GtkAdjustment GtkAdjustment)
(gtk-import-function nil gtk_widget_reparent GtkWidget GtkWidget)
(gtk-import-function nil gtk_widget_popup GtkWidget gint gint)
(gtk-import-function nil gtk_widget_grab_focus GtkWidget)
(gtk-import-function nil gtk_widget_grab_default GtkWidget)
(gtk-import-function nil gtk_widget_set_name GtkWidget GtkString)
(gtk-import-function GtkString gtk_widget_get_name GtkWidget)
(gtk-import-function nil gtk_widget_set_state GtkWidget GtkStateType)
(gtk-import-function nil gtk_widget_set_sensitive GtkWidget gboolean)
(gtk-import-function nil gtk_widget_set_app_paintable GtkWidget gboolean)
(gtk-import-function nil gtk_widget_set_parent GtkWidget GtkWidget)
(gtk-import-function nil gtk_widget_set_parent_window GtkWindow GdkWindow)
(gtk-import-function GdkWindow gtk_widget_get_parent_window GtkWidget)
(gtk-import-function nil gtk_widget_set_uposition GtkWidget gint gint)
(gtk-import-function nil gtk_widget_set_usize GtkWidget gint gint)
(gtk-import-function nil gtk_widget_set_events GtkWidget GdkEventMask)
(gtk-import-function nil gtk_widget_add_events GtkWidget GdkEventMask)
(gtk-import-function nil gtk_widget_set_extension_events GtkWidget GdkExtensionMode)
(gtk-import-function GdkExtensionMode gtk_widget_get_extension_events GtkWidget)
(gtk-import-function GtkWidget gtk_widget_get_toplevel GtkWidget)
(gtk-import-function GtkWidget gtk_widget_get_ancestor GtkWidget guint)
(gtk-import-function GdkColormap gtk_widget_get_colormap GtkWidget)
(gtk-import-function GdkVisual gtk_widget_get_visual GtkWidget)

(gtk-import-function nil gtk_widget_set_colormap GtkWidget GdkColormap)
(gtk-import-function nil gtk_widget_set_visual GtkWidget GdkVisual)
(gtk-import-function GdkEventMask gtk_widget_get_events GtkWidget)

;;; Hrm - this should return a cons cell.
;;; Handcoded in ui-byhand.c... #### FIXME
;;void	     gtk_widget_get_pointer	(GtkWidget	*widget,
;;					 gint		*x,
;;					 gint		*y);

(gtk-import-function gboolean gtk_widget_is_ancestor GtkWidget GtkWidget)
(gtk-import-function gboolean gtk_widget_hide_on_delete GtkWidget)

;;; Widget styles
(gtk-import-function nil gtk_widget_set_style GtkWidget GtkStyle)
(gtk-import-function nil gtk_widget_set_rc_style GtkWidget)
(gtk-import-function nil gtk_widget_ensure_style GtkWidget)
(gtk-import-function GtkStyle gtk_widget_get_style GtkWidget)
(gtk-import-function nil gtk_widget_restore_default_style GtkWidget)
(gtk-import-function nil gtk_widget_modify_style GtkWidget GtkStyle)

(gtk-import-function nil gtk_widget_set_composite_name GtkWidget GtkString)
(gtk-import-function GtkString gtk_widget_get_composite_name GtkWidget)
(gtk-import-function nil gtk_widget_reset_rc_styles GtkWidget)

;; Push/pop pairs, to change default values upon a widget's creation.
;; This will override the values that got set by the
;; gtk_widget_set_default_* () functions.
(gtk-import-function nil gtk_widget_push_style GtkStyle)
(gtk-import-function nil gtk_widget_push_colormap GdkColormap)
(gtk-import-function nil gtk_widget_push_visual GdkVisual)
(gtk-import-function nil gtk_widget_push_composite_child)
(gtk-import-function nil gtk_widget_pop_composite_child)
(gtk-import-function nil gtk_widget_pop_style)
(gtk-import-function nil gtk_widget_pop_colormap)
(gtk-import-function nil gtk_widget_pop_visual)

;; Set certain default values to be used at widget creation time.
(gtk-import-function nil gtk_widget_set_default_style GtkStyle)
(gtk-import-function nil gtk_widget_set_default_colormap GdkColormap)
(gtk-import-function nil gtk_widget_set_default_visual GdkVisual)
(gtk-import-function GtkStyle gtk_widget_get_default_style)
(gtk-import-function GdkColormap gtk_widget_get_default_colormap)
(gtk-import-function GdkVisual gtk_widget_get_default_visual)

;; Counterpart to gdk_window_shape_combine_mask.
(gtk-import-function nil gtk_widget_shape_combine_mask GtkWidget GdkBitmap gint gint)

;; internal function
(gtk-import-function nil gtk_widget_reset_shapes GtkWidget)

;; Compute a widget's path in the form "GtkWindow.MyLabel", and
;; return newly alocated strings.
;; Ignored for now #### BILL!!!
;void	     gtk_widget_path		   (GtkWidget *widget,
;					    guint     *path_length,
;					    gchar    **path,
;					    gchar    **path_reversed);
;void	     gtk_widget_class_path	   (GtkWidget *widget,
;					    guint     *path_length,
;					    gchar    **path,
;					    gchar    **path_reversed);


(gtk-import-function GtkType gtk_window_get_type)
(gtk-import-function GtkWidget gtk_window_new GtkWindowType)
(gtk-import-function nil gtk_window_set_title GtkWindow GtkString)
(gtk-import-function nil gtk_window_set_wmclass GtkWindow GtkString GtkString)
(gtk-import-function nil gtk_window_set_policy GtkWindow gint gint gint)
(gtk-import-function nil gtk_window_add_accel_group GtkWindow GtkAccelGroup)
(gtk-import-function nil gtk_window_remove_accel_group GtkWindow GtkAccelGroup)
(gtk-import-function nil gtk_window_set_position GtkWindow GtkWindowPosition)
(gtk-import-function gint gtk_window_activate_focus GtkWindow)
(gtk-import-function gint gtk_window_activate_default GtkWindow)
(gtk-import-function nil gtk_window_set_transient_for GtkWindow GtkWindow)
;(gtk-import-function nil gtk_window_set_geometry_hints GtkWindow GtkWidget GdkGeometry GdkWindowHints)
(gtk-import-function nil gtk_window_set_default_size GtkWindow gint gint)
(gtk-import-function nil gtk_window_set_modal GtkWindow gboolean)

;; Internal functions - do we really want to expose these?
;; NO
'(gtk-import-function nil gtk_window_set_focus GtkWindow GtkWidget)
'(gtk-import-function nil gtk_window_set_default GtkWindow GtkWidget)
'(gtk-import-function nil gtk_window_remove_embedded_xid GtkWindow guint)
'(gtk-import-function nil gtk_window_add_embedded_xid GtkWindow guint)
'(gtk-import-function nil gtk_window_reposition GtkWindow gint gint)


(gtk-import-function GtkType gtk_spin_button_get_type)
(gtk-import-function nil gtk_spin_button_configure
		     (GtkSpinButton . spin_button)
		     (GtkAdjustment . adjustment)
		     (gfloat        . climb_rate)
		     (guint         . digits))
(gtk-import-function GtkWidget gtk_spin_button_new
		     (GtkAdjustment . adjustment)
		     (gfloat        . climb_rate)
		     (guint         . digits))
(gtk-import-function nil gtk_spin_button_set_adjustment
		     (GtkSpinButton . spin_button)
		     (GtkAdjustment . adjustment))
(gtk-import-function GtkAdjustment gtk_spin_button_get_adjustment
		     (GtkSpinButton . spin_button))
(gtk-import-function nil gtk_spin_button_set_digits
		     (GtkSpinButton . spin_button)
		     (guint         . digits))
(gtk-import-function gfloat gtk_spin_button_get_value_as_float
		     (GtkSpinButton . spin_button))
(gtk-import-function gint gtk_spin_button_get_value_as_int
		     (GtkSpinButton . spin_button))
(gtk-import-function nil gtk_spin_button_set_value
		     (GtkSpinButton . spin_button)
		     (gfloat        . value))
(gtk-import-function nil gtk_spin_button_set_update_policy
		     (GtkSpinButton . spin_button)
		     (GtkSpinButtonUpdatePolicy . policy))
(gtk-import-function nil gtk_spin_button_set_numeric
		     (GtkSpinButton . spin_button)
		     (gboolean      . numeric))
(gtk-import-function nil gtk_spin_button_spin
		     (GtkSpinButton . spin_button)
		     (GtkSpinType   . direction)
		     (gfloat        . increment))
(gtk-import-function nil gtk_spin_button_set_wrap
		     (GtkSpinButton . spin_button)
		     (gboolean      . wrap))
(gtk-import-function nil gtk_spin_button_set_shadow_type
		     (GtkSpinButton . spin_button)
		     (GtkShadowType . shadow_type))
(gtk-import-function nil gtk_spin_button_set_snap_to_ticks
		     (GtkSpinButton . spin_button)
		     (gboolean      . snap_to_ticks))
(gtk-import-function  nil gtk_spin_button_update
		      (GtkSpinButton . spin_button))


(gtk-import-function GtkType gtk_statusbar_get_type)
(gtk-import-function GtkWidget gtk_statusbar_new)
(gtk-import-function guint gtk_statusbar_get_context_id
		     (GtkStatusbar . statusbar)
		     (GtkString    . context_description))

;; Returns message_id used for gtk_statusbar_remove
(gtk-import-function guint gtk_statusbar_push
		     (GtkStatusbar . statusbar)
		     (guint        . context_id)
		     (GtkString    . text))
(gtk-import-function nil gtk_statusbar_pop
		     (GtkStatusbar . statusbar)
		     (guint        . context_id))
(gtk-import-function nil gtk_statusbar_remove
		     (GtkStatusbar . statusbar)
		     (guint        . context_id)
		     (guint        . message_id))


(gtk-import-function GtkType gtk_ctree_get_type)
(gtk-import-function none gtk_ctree_construct
		     (GtkCTree . ctree)
		     (gint     . columns)
		     (gint     . tree_column)
		     (GtkArrayOfString . titles))
(gtk-import-function GtkWidget gtk_ctree_new_with_titles
		     (gint . columns)
		     (gint . tree_column)
		     (GtkArrayOfString . titles))
(gtk-import-function GtkWidget gtk_ctree_new
		     (gint . columns)
		     (gint . tree_column))

(gtk-import-function GtkCTreeNode gtk_ctree_insert_node
		     (GtkCTree . ctree)
		     (GtkCTreeNode . parent)
		     (GtkCTreeNode . sibling)
		     (GtkArrayOfString . text)
		     (guint . spacing)
		     (GdkPixmap . pixmap_closed)
		     (GdkBitmap . mask_closed)
		     (GdkPixmap . pixmap_opened)
		     (GdkBitmap . mask_opened)
		     (gboolean . is_leaf)
		     (gboolean . expanded))

(gtk-import-function none gtk_ctree_remove_node
		     (GtkCTree . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function none gtk_ctree_expand
		     (GtkCTree . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function none gtk_ctree_move
		     (GtkCTree  . ctree)
		     (GtkCTreeNode . node)
		     (GtkCTreeNode . new_parent)
		     (GtkCTreeNode . new_sibling))

(gtk-import-function void gtk_ctree_expand_recursive
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_expand_to_depth
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gint         . depth))

(gtk-import-function void gtk_ctree_collapse
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_collapse_recursive
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_collapse_to_depth
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gint         . depth))

(gtk-import-function void gtk_ctree_toggle_expansion
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_toggle_expansion_recursive
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_select
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_select_recursive
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_unselect
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_unselect_recursive
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

;; NOTE!!! The header file here was WRONG!  It had a third arg 'gint state'
(gtk-import-function void gtk_ctree_real_select_recursive
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

;; Analogs of GtkCList functions
(gtk-import-function void gtk_ctree_node_set_text
                     (GtkCTree . ctree)
		     (GtkCTreeNode . node)
		     (gint . column)
		     (GtkString . text))

(gtk-import-function void gtk_ctree_node_set_pixmap
		     (GtkCTree . ctree)
		     (GtkCTreeNode . node)
		     (gint . column)
		     (GdkPixmap . pixmap)
		     (GdkBitmap . mask))

(gtk-import-function void gtk_ctree_node_set_pixtext
		     (GtkCTree . ctree)
		     (GtkCTreeNode . node)
		     (gint . column)
		     (GtkString . text)
		     (guint . spacing)
		     (GdkPixmap . pixmap)
		     (GdkBitmap . mask))

(gtk-import-function void gtk_ctree_set_node_info
                     (GtkCTree . ctree)
		     (GtkCTreeNode . node)
		     (GtkString . text)
		     (guint . spacing)
		     (GdkPixmap . pixmap_closed)
		     (GdkBitmap . mask_closed)
		     (GdkPixmap . pixmap_opened)
		     (GdkBitmap . mask_opened)
		     (gboolean  . is_leaf)
		     (gboolean  . expanded))

(gtk-import-function void gtk_ctree_node_set_shift
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gint         . column)
		     (gint         . vertical)
		     (gint         . horizontal))

(gtk-import-function void gtk_ctree_node_set_selectable
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gboolean     . selectable))

(gtk-import-function gboolean gtk_ctree_node_get_selectable
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function GtkCellType gtk_ctree_node_get_cell_type
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gint         . column))

(gtk-import-function void gtk_ctree_node_set_row_style
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (GtkStyle     . style))

(gtk-import-function GtkStyle gtk_ctree_node_get_row_style
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_node_set_cell_style
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gint         . column)
		     (GtkStyle     . style))

(gtk-import-function GtkStyle gtk_ctree_node_get_cell_style
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gint         . column))

(gtk-import-function void gtk_ctree_node_set_foreground
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (GdkColor     . color))

(gtk-import-function void gtk_ctree_node_set_background
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (GdkColor     . color))

(gtk-import-function void gtk_ctree_node_moveto
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (gint         . column)
		     (gfloat       . row_align)
		     (gfloat       . col_align))

(gtk-import-function GtkVisibility gtk_ctree_node_is_visible
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

;; GtkCTree specific functions
(gtk-import-function void gtk_ctree_set_indent
		     (GtkCTree                . ctree)
		     (gint                    . indent))

(gtk-import-function void gtk_ctree_set_spacing
		     (GtkCTree                . ctree)
		     (gint                    . spacing))

(gtk-import-function void gtk_ctree_set_show_stub
		     (GtkCTree                . ctree)
		     (gboolean                . show_stub))

(gtk-import-function void gtk_ctree_set_line_style
		     (GtkCTree                . ctree)
		     (GtkCTreeLineStyle       . line_style))

(gtk-import-function void gtk_ctree_set_expander_style
		     (GtkCTree                . ctree)
		     (GtkCTreeExpanderStyle   . expander_style))

;; Tree sorting functions
(gtk-import-function void gtk_ctree_sort_node
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

(gtk-import-function void gtk_ctree_sort_recursive
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))

;; Finding tree information
(gtk-import-function gboolean gtk_ctree_is_viewable
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))
(gtk-import-function GtkCTreeNode gtk_ctree_last
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node))
(gtk-import-function GtkCTreeNode gtk_ctree_find_node_ptr
		     (GtkCTree     . ctree)
		     (GtkCTreeRow  . ctree_row))
(gtk-import-function GtkCTreeNode gtk_ctree_node_nth
		     (GtkCTree     . ctree)
		     (guint        . row))
(gtk-import-function gboolean gtk_ctree_find
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (GtkCTreeNode . child))
(gtk-import-function gboolean gtk_ctree_is_ancestor
		     (GtkCTree     . ctree)
		     (GtkCTreeNode . node)
		     (GtkCTreeNode . child))
(gtk-import-function gboolean gtk_ctree_is_hot_spot
		     (GtkCTree     . ctree)
		     (gint         . x)
		     (gint         . y))

(defun gtk-ctree-post-recursive (ctree node func data)
  (gtk-ctree-recurse ctree node func data t nil))

(defun gtk-ctree-post-recursive-to-depth (ctree node depth func data)
  (gtk-ctree-recurse ctree node func data t depth))

(defun gtk-ctree-pre-recursive (ctree node func data)
  (gtk-ctree-recurse ctree node func data nil nil))

(defun gtk-ctree-pre-recursive-to-depth (ctree node depth func data)
  (gtk-ctree-recurse ctree node func data nil depth))


(gtk-import-function GtkType gtk_preview_get_type)
(gtk-import-function void gtk_preview_uninit)
(gtk-import-function GtkWidget gtk_preview_new
		     (GtkPreviewType . type))
(gtk-import-function void gtk_preview_size
		     (GtkPreview      . preview)
		     (gint            . width)
		     (gint            . height))
(gtk-import-function void gtk_preview_put
		     (GtkPreview      . preview)
		     (GdkWindow       . window)
		     (GdkGC           . gc)
		     (gint            . srcx)
		     (gint            . srcy)
		     (gint            . destx)
		     (gint            . desty)
		     (gint            . width)
		     (gint            . height))
(gtk-import-function void gtk_preview_draw_row
		     (GtkPreview      . preview)
		     (GtkString       . data)
		     (gint            . x)
		     (gint            . y)
		     (gint            . w))
(gtk-import-function void gtk_preview_set_expand
		     (GtkPreview      . preview)
		     (gboolean        . expand))
(gtk-import-function void gtk_preview_set_gamma
		     (double          . gamma))
(gtk-import-function void gtk_preview_set_color_cube
		     (guint           . nred_shades)
		     (guint           . ngreen_shades)
		     (guint           . nblue_shades)
		     (guint           . ngray_shades))
(gtk-import-function void gtk_preview_set_install_cmap
		     (gboolean        . install_cmap))
(gtk-import-function void gtk_preview_set_reserved
		     (gint            . nreserved))
;;;(gtk-import-function void gtk_preview_set_dither
;;;		     (GtkPreview      . preview)
;;;		     (GdkRgbDither    . dither))

(gtk-import-function GdkVisual gtk_preview_get_visual)
(gtk-import-function GdkColormap gtk_preview_get_cmap)
(gtk-import-function GtkPreviewInfo gtk_preview_get_info)

;; This function reinitializes the preview colormap and visual from
;; the current gamma/color_cube/install_cmap settings. It must only
;; be called if there are no previews or users's of the preview
;; colormap in existence.
(gtk-import-function void gtk_preview_reset)