source: trunk/third/rep-gtk/gtk.defs @ 18404

;; -*- lisp -*-

;; updated for gtk+ 1.3:

;; GtkButton, GtkWidget, GtkContainer, GtkFixed, GtkWindow, GtkHandleBox,
;; GtkBox, GtkButtonBox, Gtk[HV]ButtonBox, GtkToolbar, GtkTable,
;; GtkToggleButton, GtkCheckButton, GtkRadioButton, GtkMisc, GtkArrow,
;; GtkLabel, GtkLayout, GtkTipsQuery, GtkVBox, GtkHBox, GtkItem, GtkCombo,
;; GtkStatusBar, GtkGammaCurve, Gtk[HV]Separator, GtkFrame, GtkAspectFrame,
;; GtkProgress, GtkProgressBar, GtkTooltips, GtkMenuShell, GtkMenuBar,
;; GtkMenu, GtkMenuItem, GtkCheckMenuItem, GtkRadioMenuItem, GtkOptionMenu,
;; GtkPixmap, GtkViewport, GtkScrolledWindow, GtkListItem, GtkList,
;; GtkNotebook, GtkEditable, GtkEntry, GtkSpinButton, GtkDrawingArea,
;; GtkCurve, GtkPreview, GtkFileSelection, GtkFontSelectionDialog,
;; GtkColorSelectionDialog, GtkColorSelection, GtkRange, GtkScale,
;; Gtk[HV]Scale, GtkScrollbar, Gtk[HV]Scrollbar, GtkRuler, Gtk[HV]Ruler,
;; GtkDialog, GtkInputDialog, GtkPaned, Gtk[HV]Paned, GtkPlug, GtkSocket,
;; GtkTearOffMenuItem, GtkCalendar, GtkIconFactory, GtkImage,
;; GtkImageMenuItem, GtkInvisible, GtkSeparatorMenuItem

;; Todo: TreeView/TreeModel et al; delete Tree and CList

;;; Gtk enums

(import "glib.defs")
(import "gdk.defs")
(import "gdk-pixbuf.defs")

(define-enum GtkAnchorType
  (center GTK_ANCHOR_CENTER)
  (north GTK_ANCHOR_NORTH)
  (south GTK_ANCHOR_SOUTH)
  (east GTK_ANCHOR_EAST)
  (west GTK_ANCHOR_WEST)
  (north-west GTK_ANCHOR_NORTH_WEST)
  (north-east GTK_ANCHOR_NORTH_EAST)
  (south-west GTK_ANCHOR_SOUTH_WEST)
  (south-east GTK_ANCHOR_SOUTH_EAST))

(define-enum GtkArrowType
  (up GTK_ARROW_UP)
  (down GTK_ARROW_DOWN)
  (left GTK_ARROW_LEFT)
  (right GTK_ARROW_RIGHT))

(define-flags GtkAttachOptions
  (expand GTK_EXPAND)
  (shrink GTK_SHRINK)
  (fill GTK_FILL))

(define-enum GtkButtonBoxStyle
  (default-style GTK_BUTTONBOX_DEFAULT_STYLE)
  (spread GTK_BUTTONBOX_SPREAD)
  (edge GTK_BUTTONBOX_EDGE)
  (start GTK_BUTTONBOX_START)
  (end GTK_BUTTONBOX_END))

(define-enum GtkCurveType
  (linear GTK_CURVE_TYPE_LINEAR)
  (spline GTK_CURVE_TYPE_SPLINE)
  (free GTK_CURVE_TYPE_FREE))

(define-enum GtkDeleteType
  (chars GTK_DELETE_CHARS)
  (word-ends GTK_DELETE_WORD_ENDS)
  (words GTK_DELETE_WORDS)
  (display-lines GTK_DELETE_DISPLAY_LINES)
  (display-line-ends GTK_DELETE_DISPLAY_LINE_ENDS)
  (paragraph-ends GTK_DELETE_PARAGRAPH_ENDS)
  (paragraphs GTK_DELETE_PARAGRAPHS)
  (whitespace GTK_DELETE_WHITESPACE))

(define-enum GtkDirectionType
  (tab-forward GTK_DIR_TAB_FORWARD)
  (tab-backward GTK_DIR_TAB_BACKWARD)
  (up GTK_DIR_UP)
  (down GTK_DIR_DOWN)
  (left GTK_DIR_LEFT)
  (right GTK_DIR_RIGHT))

(define-enum GtkExpanderStyle
  (collapsed GTK_EXPANDER_COLLAPSED)
  (semi-collapsed GTK_EXPANDER_SEMI_COLLAPSED)
  (semi-expanded GTK_EXPANDER_SEMI_EXPANDED)
  (expanded GTK_EXPANDER_EXPANDED))

(define-enum GtkIconSize
  (invalid GTK_ICON_SIZE_INVALID)
  (menu GTK_ICON_SIZE_MENU)
  (small-toolbar GTK_ICON_SIZE_SMALL_TOOLBAR)
  (large-toolbar GTK_ICON_SIZE_LARGE_TOOLBAR)
  (button GTK_ICON_SIZE_BUTTON)
  (dnd GTK_ICON_SIZE_DND)
  (dialog GTK_ICON_SIZE_DIALOG))

(define-enum GtkTextDirection
  (none GTK_TEXT_DIR_NONE)
  (ltr GTK_TEXT_DIR_LTR)
  (rtl GTK_TEXT_DIR_RTL))

(define-enum GtkJustification
  (left GTK_JUSTIFY_LEFT)
  (right GTK_JUSTIFY_RIGHT)
  (center GTK_JUSTIFY_CENTER)
  (fill GTK_JUSTIFY_FILL))

(define-enum GtkMenuDirectionType
  (parent GTK_MENU_DIR_PARENT)
  (child GTK_MENU_DIR_CHILD)
  (next GTK_MENU_DIR_NEXT)
  (prev GTK_MENU_DIR_PREV))

(define-enum GtkMetricType
  (pixels GTK_PIXELS)
  (inches GTK_INCHES)
  (centimeters GTK_CENTIMETERS))

(define-enum GtkMovementStep
  (logical-positions GTK_MOVEMENT_LOGICAL_POSITIONS)
  (visual-positions GTK_MOVEMENT_VISUAL_POSITIONS)
  (words GTK_MOVEMENT_WORDS)
  (display-lines GTK_MOVEMENT_DISPLAY_LINES)
  (display-line-ends GTK_MOVEMENT_DISPLAY_LINE_ENDS)
  (paragraph-ends GTK_MOVEMENT_PARAGRAPH_ENDS)
  (paragraphs GTK_MOVEMENT_PARAGRAPHS)
  (pages GTK_MOVEMENT_PAGES)
  (buffer-ends GTK_MOVEMENT_BUFFER_ENDS))

(define-enum GtkOrientation
  (horizontal GTK_ORIENTATION_HORIZONTAL)
  (vertical GTK_ORIENTATION_VERTICAL))

(define-enum GtkCornerType
  (top-left GTK_CORNER_TOP_LEFT)
  (bottom-left GTK_CORNER_BOTTOM_LEFT)
  (top-right GTK_CORNER_TOP_RIGHT)
  (bottom-right GTK_CORNER_BOTTOM_RIGHT))

(define-enum GtkPackType
  (start GTK_PACK_START)
  (end GTK_PACK_END))

(define-enum GtkPathPriorityType
  (lowest GTK_PATH_PRIO_LOWEST)
  (gtk GTK_PATH_PRIO_GTK)
  (application GTK_PATH_PRIO_APPLICATION)
  (theme GTK_PATH_PRIO_THEME)
  (rc GTK_PATH_PRIO_RC)
  (highest GTK_PATH_PRIO_HIGHEST))

(define-enum GtkPathType
  (widget GTK_PATH_WIDGET)
  (widget-class GTK_PATH_WIDGET_CLASS)
  (class GTK_PATH_CLASS))

(define-enum GtkPolicyType
  (always GTK_POLICY_ALWAYS)
  (automatic GTK_POLICY_AUTOMATIC)
  (never GTK_POLICY_NEVER))

(define-enum GtkPositionType
  (left GTK_POS_LEFT)
  (right GTK_POS_RIGHT)
  (top GTK_POS_TOP)
  (bottom GTK_POS_BOTTOM))

;; XXX deprecated
(define-enum GtkPreviewType
  (color GTK_PREVIEW_COLOR)
  (grayscale GTK_PREVIEW_GRAYSCALE))

(define-enum GtkReliefStyle
  (normal GTK_RELIEF_NORMAL)
  (half GTK_RELIEF_HALF)
  (none GTK_RELIEF_NONE))

(define-enum GtkResizeMode
  (parent GTK_RESIZE_PARENT)
  (queue GTK_RESIZE_QUEUE)
  (immediate GTK_RESIZE_IMMEDIATE))

;; XXX deprecated
(define-flags GtkSignalRunType
  (first GTK_RUN_FIRST)
  (last GTK_RUN_LAST)
  (both GTK_RUN_BOTH)
  (no-recurse GTK_RUN_NO_RECURSE)
  (action GTK_RUN_ACTION)
  (no-hooks GTK_RUN_NO_HOOKS))

(define-enum GtkScrollType
  (none GTK_SCROLL_NONE)
  (jump GTK_SCROLL_JUMP)
  (step-backward GTK_SCROLL_STEP_BACKWARD)
  (step-forward GTK_SCROLL_STEP_FORWARD)
  (page-backward GTK_SCROLL_PAGE_BACKWARD)
  (page-forward GTK_SCROLL_PAGE_FORWARD)
  (step-up GTK_SCROLL_STEP_UP)
  (step-down GTK_SCROLL_STEP_DOWN)
  (page-up GTK_SCROLL_PAGE_UP)
  (page-down GTK_SCROLL_PAGE_DOWN)
  (step-left GTK_SCROLL_STEP_LEFT)
  (step-right GTK_SCROLL_STEP_RIGHT)
  (start GTK_SCROLL_START)
  (end GTK_SCROLL_END))

(define-enum GtkSelectionMode
  (none GTK_SELECTION_NONE)
  (single GTK_SELECTION_SINGLE)
  (browse GTK_SELECTION_BROWSE)
  (multiple GTK_SELECTION_MULTIPLE))

(define-enum GtkShadowType
  (none GTK_SHADOW_NONE)
  (in GTK_SHADOW_IN)
  (out GTK_SHADOW_OUT)
  (etched-in GTK_SHADOW_ETCHED_IN)
  (etched-out GTK_SHADOW_ETCHED_OUT))

(define-enum GtkStateType
  (normal GTK_STATE_NORMAL)
  (active GTK_STATE_ACTIVE)
  (prelight GTK_STATE_PRELIGHT)
  (selected GTK_STATE_SELECTED)
  (insensitive GTK_STATE_INSENSITIVE))

;; XXX deprecated
(define-enum GtkSubmenuDirection
  (left GTK_DIRECTION_LEFT)
  (right GTK_DIRECTION_RIGHT))
(define-enum GtkSubmenuPlacement
  (top-bottom GTK_TOP_BOTTOM)
  (left-right GTK_LEFT_RIGHT))

(define-enum GtkToolbarStyle
  (icons GTK_TOOLBAR_ICONS)
  (text GTK_TOOLBAR_TEXT)
  (both GTK_TOOLBAR_BOTH)
  (both-horiz GTK_TOOLBAR_BOTH_HORIZ))

(define-enum GtkUpdateType
  (continuous GTK_UPDATE_CONTINUOUS)
  (discontinuous GTK_UPDATE_DISCONTINUOUS)
  (delayed GTK_UPDATE_DELAYED))

(define-enum GtkVisibility
  (none GTK_VISIBILITY_NONE)
  (partial GTK_VISIBILITY_PARTIAL)
  (full GTK_VISIBILITY_FULL))

(define-enum GtkWindowPosition
  (none GTK_WIN_POS_NONE)
  (center GTK_WIN_POS_CENTER)
  (mouse GTK_WIN_POS_MOUSE)
  (center-always GTK_WIN_POS_CENTER_ALWAYS)
  (center-on-parent GTK_WIN_POS_CENTER_ON_PARENT))

(define-enum GtkWindowType
  (toplevel GTK_WINDOW_TOPLEVEL)
  (popup GTK_WINDOW_POPUP))

(define-enum GtkWrapMode
  (none GTK_WRAP_NONE)
  (char GTK_WRAP_CHAR)
  (word GTK_WRAP_WORD))

(define-enum GtkSortType
  (ascending GTK_SORT_ASCENDING)
  (descending GTK_SORT_DESCENDING))

;(define-enum GtkMenuFactoryType
;  (menu GTK_MENU_FACTORY_MENU)
;  (menu-bar GTK_MENU_FACTORY_MENU_BAR)
;  (option-menu GTK_MENU_FACTORY_OPTION_MENU))

;(define-enum GtkTroughType
;  (none GTK_TROUGH_NONE)
;  (start GTK_TROUGH_START)
;  (end GTK_TROUGH_END))

(define-flags GtkWidgetFlags
   (toplevel GTK_TOPLEVEL)
   (no-window GTK_NO_WINDOW)
   (realized GTK_REALIZED)
   (mapped GTK_MAPPED)
   (visible GTK_VISIBLE)
   (sensitive GTK_SENSITIVE)
   (parent-sensitive GTK_PARENT_SENSITIVE)
   (can-focus GTK_CAN_FOCUS)
   (has-focus GTK_HAS_FOCUS)
   (can-default GTK_CAN_DEFAULT)
   (has-default GTK_HAS_DEFAULT)
   (has-grab GTK_HAS_GRAB)
   (rc-style GTK_RC_STYLE)
   (composite-child GTK_COMPOSITE_CHILD)
   (no-reparent GTK_NO_REPARENT)
   (app-paintable GTK_APP_PAINTABLE)
   (receives-default GTK_RECEIVES_DEFAULT)
   (double-buffered GTK_DOUBLE_BUFFERED))

(define-enum GtkToolbarChildType
  (space GTK_TOOLBAR_CHILD_SPACE)
  (button GTK_TOOLBAR_CHILD_BUTTON)
  (toggle-button GTK_TOOLBAR_CHILD_TOGGLEBUTTON)
  (radio-button GTK_TOOLBAR_CHILD_RADIOBUTTON)
  (widget GTK_TOOLBAR_CHILD_WIDGET))

;(define-enum GtkTreeViewMode
;  (line GTK_TREE_VIEW_LINE)
;  (item GTK_TREE_VIEW_ITEM))

(define-enum GtkFundamentalType
  (invalid GTK_TYPE_INVALID)
  (none GTK_TYPE_NONE)
  (char GTK_TYPE_CHAR)
  (bool GTK_TYPE_BOOL)
  (int GTK_TYPE_INT)
  (uint GTK_TYPE_UINT)
  (long GTK_TYPE_LONG)
  (ulong GTK_TYPE_ULONG)
  (float GTK_TYPE_FLOAT)
  (string GTK_TYPE_STRING)
  (enum GTK_TYPE_ENUM)
  (flags GTK_TYPE_FLAGS)
  (boxed GTK_TYPE_BOXED)
;  (foreign GTK_TYPE_FOREIGN)
;  (callback GTK_TYPE_CALLBACK)
;  (args GTK_TYPE_ARGS)
  (pointer GTK_TYPE_POINTER)
;  (signal GTK_TYPE_SIGNAL)
;  (c-callback GTK_TYPE_C_CALLBACK)
;  (object GTK_TYPE_OBJECT)
)

(define-enum GtkSpinButtonUpdatePolicy
  (always GTK_UPDATE_ALWAYS)
  (if-valid GTK_UPDATE_IF_VALID))

(define-enum GtkSpinType
  (step-forward GTK_SPIN_STEP_FORWARD)
  (step-backward GTK_SPIN_STEP_BACKWARD)
  (page-forward GTK_SPIN_PAGE_FORWARD)
  (page-backward GTK_SPIN_PAGE_BACKWARD)
  (home GTK_SPIN_HOME)
  (end GTK_SPIN_END)
  (user-defined GTK_SPIN_USER_DEFINED))

(define-enum GtkCellType
  (empty GTK_CELL_EMPTY)
  (text GTK_CELL_TEXT)
  (pixmap GTK_CELL_PIXMAP)
  (pixtext GTK_CELL_PIXTEXT)
  (widget GTK_CELL_WIDGET))

(define-enum GtkProgressBarOrientation
  (left-to-right GTK_PROGRESS_LEFT_TO_RIGHT)
  (right-to-left GTK_PROGRESS_RIGHT_TO_LEFT)
  (bottom-to-top GTK_PROGRESS_BOTTOM_TO_TOP)
  (top-to-bottom GTK_PROGRESS_TOP_TO_BOTTOM))

(define-flags GtkArgFlags
  (readable GTK_ARG_READABLE)
  (writeable GTK_ARG_WRITABLE)
  (construct GTK_ARG_CONSTRUCT)
  (construct-only GTK_ARG_CONSTRUCT_ONLY)
  (child-arg GTK_ARG_CHILD_ARG)
  (readwrite GTK_ARG_READWRITE))

(define-flags GtkAccelFlags
  (visible GTK_ACCEL_VISIBLE)
;  (signal-visible GTK_ACCEL_SIGNAL_VISIBLE)
  (locked GTK_ACCEL_LOCKED))

(define-flags GtkCalendarDisplayOptions
  (show-heading GTK_CALENDAR_SHOW_HEADING)
  (show-day-names GTK_CALENDAR_SHOW_DAY_NAMES)
  (no-month-changed GTK_CALENDAR_NO_MONTH_CHANGE)
  (show-week-numbers GTK_CALENDAR_SHOW_WEEK_NUMBERS)
  (week-start-monday GTK_CALENDAR_WEEK_START_MONDAY))
 
;;; Gtk boxed types

(define-object GtkWidget (GtkObject)
  (fields
   (GtkStyle style)
   (GdkWindow window)
   (GtkWidget parent)
   (SCM allocation (getter sgtk_gtk_widget_get_allocation))))

(define-object GtkAccelGroup (GObject))

(define-object GtkStyle (GObject))

(define-func gtk_style_get_white_interp
  GdkColor
  ((GtkStyle style)))

(define-func gtk_style_fg_gc
  GdkGC
  ((GtkStyle style)
   (GtkStateType state)))

(define-func gtk_style_bg_gc
  GdkGC
  ((GtkStyle style)
   (GtkStateType state)))

;;; Functions

;; 

;; gtkmain.h

(define-func gtk_set_locale
  static_string
  ())

(define-func gtk_events_pending
  int
  ())

(define-func gtk_main
  none
  ()
  (undeferred t))

(define-func gtk_main_level
  uint
  ())

(define-func gtk_main_quit
  none
  ())

(define-func gtk_main_iteration
  bool
  ())

(define-func gtk_main_iteration_do
  bool
  ((bool blocking)))

(define-func gtk_true
  bool
  ())

(define-func gtk_false
  bool
  ())

(define-func gtk_grab_add
  none
  ((GtkWidget widget)))

(define-func gtk_grab_get_current
  GtkWidget
  ())

(define-func gtk_grab_remove
  none
  ((GtkWidget widget)))

(define-func gtk_quit_add_full
  uint
  ((uint main_level)
   (full-callback function))
  (scm-name "gtk-quit-add")
  (protection t))

(define-func gtk_quit_remove
  none
  ((uint handler_id)))

(define-func gtk_timeout_add_full
  int
  ((int interval)
   (full-callback function))
  (scm-name "gtk-timeout-add")
  (protection t))

(define-func gtk_timeout_remove
  none
  ((int tag)))

(define-func gtk_idle_add_full
  int
  ((int priority)
   (full-callback function))
  (protection t)
  (scm-name "gtk-idle-add"))

(define-func gtk_idle_remove
  none
  ((int tag)))

(define-func gtk_input_add_full
  int
  ((file-descriptor source)
   (GdkInputCondition condition)
   (full-callback callback))
  (protection t)
  (scm-name "gtk-input-add"))

(define-func gtk_input_remove
  none
  ((int tag)))

(define-func gtk_get_current_event
  GdkEvent
  ())

(define-func gtk_get_current_event_time
  ulong
  ())

;; gtkrc.h

(define-object GtkRcStyle (GObject))

(define-func gtk_rc_add_default_file
  none
  ((string filename)))

;; XXX
;(define-func gtk_rc_set_default_files
;  none
;  ((tvec string in) filenames))
;
;(define-func gtk_rc_get_default_files
;  (tvec string out)
;  ())

(define-func gtk_rc_get_style
  GtkStyle
  ((GtkWidget widget)))

(define-func gtk_rc_parse
  none
  ((string file)))

;; GtkObject

(define-object GtkObject (GObject))

(define-func gtk_object_destroy
  none
  ((GtkObject object)))

(define-func GTK_OBJECT_TYPE
  type
  ((GtkObject object)))

;(define-func sgtk_gtk_object_query_args
;  SCM
;  ((type type))
;  (scm-name "gtk-object-query-args"))

;; Signals

;; GtkWidget

(define-object GtkAdjustment (GtkWidget))

(define-func GTK_WIDGET_STATE
  GtkStateType
  ((GtkWidget widget)))

(define-func GTK_WIDGET_FLAGS
  GtkWidgetFlags
  ((GtkWidget widget)))

(define-func GTK_WIDGET_SET_FLAGS
  none
  ((GtkWidget widget)
   (GtkWidgetFlags flags)))

(define-func GTK_WIDGET_UNSET_FLAGS
  none
  ((GtkWidget widget)
   (GtkWidgetFlags flags)))

;; XXX - gtk_widget_new or gtk_widget_newv would be really useful
;; (maybe also gtk_widget_set(v), gtk_widget_get(v))

(define-func gtk_widget_destroy
  none
  ((GtkWidget widget)))

(define-func gtk_widget_unparent
  none
  ((GtkWidget widget)))

(define-func gtk_widget_show
  none
  ((GtkWidget widget)))

(define-func gtk_widget_show_now
  none
  ((GtkWidget widget)))

(define-func gtk_widget_hide
  none
  ((GtkWidget widget)))

(define-func gtk_widget_show_all
  none
  ((GtkWidget widget)))

(define-func gtk_widget_hide_all
  none
  ((GtkWidget widget)))

(define-func gtk_widget_map
  none
  ((GtkWidget widget)))

(define-func gtk_widget_unmap
  none
  ((GtkWidget widget)))

(define-func gtk_widget_realize
  none
  ((GtkWidget widget)))

(define-func gtk_widget_unrealize
  none
  ((GtkWidget widget)))

(define-func gtk_widget_draw_interp
  none
  ((GtkWidget widget)))

(define-func gtk_widget_queue_draw
  none
  ((GtkWidget widget)))

(define-func gtk_widget_queue_draw_area
  none
  ((GtkWidget widget)
   (int x)
   (int y)
   (int width)
   (int height)))

(define-func gtk_widget_queue_resize
  none
  ((GtkWidget widget)))

(define-func gtk_widget_add_accelerator
  none
  ((GtkWidget          widget)
   (string             accel_signal)
   (GtkAccelGroup      accel_group)
   (uint               accel_key)
   (GdkModifierType    accel_mods)
   (GtkAccelFlags      accel_flags)))

(define-func gtk_widget_remove_accelerator
  none
  ((GtkWidget widget)
   (GtkAccelGroup accel_group)
   (uint accel_key)
   (GdkModifierType accel_mods)))

(define-func gtk_widget_event
  bool
  ((GtkWidget widget)
   (GdkEvent event)))

(define-func gtk_widget_activate
  none
  ((GtkWidget widget)))

(define-func gtk_widget_set_scroll_adjustments
  bool
  ((GtkWidget widget)
   (GtkAdjustment hadj)
   (GtkAdjustment vadj)))

(define-func gtk_widget_reparent
  none
  ((GtkWidget widget)
   (GtkWidget new_parent)))

(define-func gtk_widget_is_focus
  bool
  ((GtkWidget widget)))

(define-func gtk_widget_grab_focus
  none
  ((GtkWidget widget)))

(define-func gtk_widget_grab_default
  none
  ((GtkWidget widget)))

(define-func gtk_widget_set_name
  none
  ((GtkWidget widget)
   (string name)))

(define-func gtk_widget_get_name
  static_string
  ((GtkWidget widget)))

(define-func gtk_widget_set_state
  none
  ((GtkWidget widget)
   (GtkStateType state)))

(define-func gtk_widget_set_sensitive
  none
  ((GtkWidget widget)
   (bool sensitive)))

(define-func gtk_widget_set_app_paintable
  none
  ((GtkWidget widget)
   (bool app_paintable)))

(define-func gtk_widget_set_double_buffered
  none
  ((GtkWidget widget)
   (bool double_buffered)))

(define-func gtk_widget_set_redraw_on_allocate
  none
  ((GtkWidget widget)
   (bool redraw_on_allocate)))

(define-func gtk_widget_set_parent
  none
  ((GtkWidget widget)
   (GtkWidget parent)))

(define-func gtk_widget_set_parent_window
  none
  ((GtkWidget widget)
   (GdkWindow parent_window)))

(define-func gtk_widget_set_child_visible
  none
  ((GtkWidget widget)
   (bool child_visible)))

(define-func gtk_widget_get_child_visible
  bool
  ((GtkWidget widget)))

(define-func gtk_widget_get_parent
  GtkWidget
  ((GtkWidget widget)))

(define-func gtk_widget_get_parent_window
  GdkWindow
  ((GtkWidget widget)))

(define-func gtk_widget_child_focus
  none
  ((GtkWidget widget)
   (GtkDirectionType direction)))

(define-func gtk_widget_set_size_request
  none
  ((GtkWidget widget)
   (int width)
   (int height)))

(define-func gtk_widget_get_size_request
  none
  ((GtkWidget widget)
   ((ret int) width)
   ((ret int) height)))

(define-func gtk_widget_set_events
  none
  ((GtkWidget widget)
   (GdkEventMask events)))

(define-func gtk_widget_add_events
  none
  ((GtkWidget widget)
   (GdkEventMask events)))

(define-func gtk_widget_set_extension_events
  none
  ((GtkWidget widget)
   (GdkEventMask events)))

;(define-func gtk_widget_get_ancestor
;  GtkWidget
;  ((GtkWidget widget)
;   (GtkType type)))

(define-func gtk_widget_get_toplevel
  GtkWidget
  ((GtkWidget widget)))

(define-func gtk_widget_get_colormap
  GdkColormap
  ((GtkWidget widget)))

(define-func gtk_widget_get_visual
  GdkVisual
  ((GtkWidget widget)))

;; XXX - need multiple return values
;; (define-func gtk_widget_get_pointer)

(define-func gtk_widget_is_ancestor
  bool
  ((GtkWidget widget)
   (GtkWidget ancestor)))

(define-func gtk_widget_hide_on_delete
  bool
  ((GtkWidget widget)))

(define-func gtk_widget_set_style
  none
  ((GtkWidget widget)
   (GtkStyle style)))

(define-func gtk_widget_ensure_style
  none
  ((GtkWidget widget)))

(define-func gtk_widget_get_style
  GtkStyle
  ((GtkWidget widget)))

(define-func gtk_widget_modify_style
  none
  ((GtkWidget widget)
   (GtkRcStyle style)))

(define-func gtk_widget_get_modifier_style
  GtkRcStyle
  ((GtkWidget widget)))

(define-func gtk_widget_modify_fg
  none
  ((GtkWidget widget)
   (GtkStateType state)
   (GdkColor color)))

(define-func gtk_widget_modify_bg
  none
  ((GtkWidget widget)
   (GtkStateType state)
   (GdkColor color)))

(define-func gtk_widget_modify_text
  none
  ((GtkWidget widget)
   (GtkStateType state)
   (GdkColor color)))

(define-func gtk_widget_modify_base
  none
  ((GtkWidget widget)
   (GtkStateType state)
   (GdkColor color)))

;; XXX gdk_widget_modify_font

(define-func gtk_widget_render_icon
  GdkPixbuf
  ((GtkWidget widget)
   (string stock_id)
   (GtkIconSize size)
   (string detail)))

(define-func gtk_widget_get_events
  GdkEventMask
  ((GtkWidget widget)))

(define-func gtk_widget_get_extension_events
  GdkEventMask
  ((GtkWidget widget)))

(define-func gtk_widget_push_colormap
  none
  ((GdkColormap cmap)))

(define-func gtk_widget_push_composite_child
  none
  ())

(define-func gtk_widget_pop_colormap
  none
  ())

(define-func gtk_widget_pop_composite_child
  none
  ())

(define-func gtk_widget_set_default_colormap
  none
  ((GdkColormap cmap)))

(define-func gtk_widget_get_default_colormap
  GdkColormap
  ())

(define-func gtk_widget_get_default_visual
  GdkVisual
  ())

(define-func gtk_widget_get_default_style
  GtkStyle
  ())

;; XXX - need GdkBitmap for the shape mask
;; (define-func gtk_widget_shape_combine_mask)

;; XXX - dnd stuff needs closer examination.

;;; Container

(define-object GtkContainer (GtkWidget))

(define-func gtk_container_set_border_width
  none
  ((GtkContainer container)
   (int border_width)))

(define-func gtk_container_get_border_width
  int
  ((GtkContainer container)))

(define-func gtk_container_add
  none
  ((GtkContainer container)
   (GtkWidget widget)))

(define-func gtk_container_remove
  none
  ((GtkContainer container)
   (GtkWidget widget)))

(define-func gtk_container_set_resize_mode
  none
  ((GtkContainer container)
   (GtkResizeMode resize_mode)))

(define-func gtk_container_get_resize_mode
  GtkResizeMode
  ((GtkContainer container)))

(define-func gtk_container_check_resize
  none
  ((GtkContainer container)))

;; XXX this is deprecated?
(define-func gtk_container_foreach_full 
  none
  ((GtkContainer container)
   (full-callback function (protect-during)))
  (scm-name "gtk-container-foreach"))

(define-func gtk_container_get_children
  ((list GtkWidget))
  ((GtkContainer container)))

(define-func gtk_container_set_focus_chain
  none
  ((GtkContainer container)
   ((list GtkWidget) focusable_widgets)))

(define-func gtk_container_unset_focus_chain
  none
  ((GtkContainer container)))

;;; Fixed

(define-object GtkFixed (GtkContainer))

(define-func gtk_fixed_new
  GtkWidget
  ())

(define-func gtk_fixed_put 
  none
  ((GtkFixed fixed)
   (GtkWidget widget)
   (int x)
   (int y)))

(define-func gtk_fixed_move
  none
  ((GtkFixed fixed)
   (GtkWidget widget)
   (int x)
   (int y)))

(define-func gtk_fixed_set_has_window
  none
  ((GtkFixed fixed)
   (bool has_window)))

(define-func gtk_fixed_get_has_window
  bool
  ((GtkFixed fixed)))

;; TreeItem

(define-object GtkTreeItem (GtkItem))

(define-func gtk_tree_item_new
  GtkWidget
  ())

(define-func gtk_tree_item_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_tree_item_set_subtree
  none
  ((GtkTreeItem tree_item)
   (GtkWidget subtree)))

(define-func gtk_tree_item_remove_subtree
  none
  ((GtkTreeItem tree_item)))

(define-func gtk_tree_item_select
  none
  ((GtkTreeItem tree_item)))

(define-func gtk_tree_item_deselect
  none
  ((GtkTreeItem tree_item)))

(define-func gtk_tree_item_expand
  none
  ((GtkTreeItem tree_item)))

(define-func gtk_tree_item_collapse
  none
  ((GtkTreeItem tree_item)))

;; Tree

(define-object GtkTree (GtkContainer))

(define-func gtk_tree_new 
  GtkWidget
  ())

(define-func gtk_tree_append
  none
  ((GtkTree tree)
   (GtkWidget child)))

(define-func gtk_tree_prepend
  none
  ((GtkTree tree)
   (GtkWidget child)))

(define-func gtk_tree_insert
  none
  ((GtkTree tree)
   (GtkWidget child)
   (int position)))

(define-func gtk_tree_remove_item
  none
  ((GtkTree tree)
   (GtkWidget child)))

;; XXX - need GList support
;; (define-func gtk_tree_remove_items)

(define-func gtk_tree_clear_items
  none
  ((GtkTree tree)
   (int start)
   (int end)))

(define-func gtk_tree_select_item
  none
  ((GtkTree tree)
   (int item)))

(define-func gtk_tree_unselect_item
  none
  ((GtkTree tree)
   (int item)))

(define-func gtk_tree_select_child
  none
  ((GtkTree tree)
   (GtkWidget child)))

(define-func gtk_tree_unselect_child
  none
  ((GtkTree tree)
   (GtkWidget child)))

(define-func gtk_tree_child_position
  int
  ((GtkTree tree)
   (GtkWidget child)))

(define-func gtk_tree_set_selection_mode
  none
  ((GtkTree tree)
   (GtkSelectionMode mode)))

;(define-func gtk_tree_set_view_mode
;  none
;  ((GtkTree tree)
;   (GtkTreeViewMode mode)))

(define-func gtk_tree_set_view_lines
  none
  ((GtkTree tree)
   (bool flag)))

;;; GtkCList

(define-object GtkCList (GtkContainer)
  (fields
   (int rows)
   (int columns)))

(define-func gtk_clist_new 
  GtkWidget
  ((int columns)))

(define-func gtk_clist_new_with_titles
  GtkWidget
  (((cvec string) titles)))

(define-func gtk_clist_set_hadjustment
  none
  ((GtkCList clist)
   (GtkAdjustment adjustment)))

(define-func gtk_clist_set_vadjustment
  none
  ((GtkCList clist)
   (GtkAdjustment adjustment)))

(define-func gtk_clist_get_hadjustment
  GtkAdjustment
  ((GtkCList clist)))

(define-func gtk_clist_get_vadjustment
  GtkAdjustment
  ((GtkCList clist)))

(define-func gtk_clist_set_shadow_type
  none
  ((GtkCList clist)
   (GtkShadowType type)))

(define-func gtk_clist_set_selection_mode
 none
 ((GtkCList clist)
  (GtkSelectionMode mode)))

(define-func gtk_clist_set_reorderable
 none
 ((GtkCList clist)
  (bool reorderable)))

(define-func gtk_clist_set_use_drag_icons 
 none
 ((GtkCList list)
  (bool use_icons)))

(define-func gtk_clist_set_button_actions
 none
 ((GtkCList list)
  (uint button)
  (uint button_actions)))

(define-func gtk_clist_freeze
 none
 ((GtkCList clist)))

(define-func gtk_clist_thaw
 none
 ((GtkCList clist)))

(define-func gtk_clist_column_titles_show
 none
 ((GtkCList clist)))

(define-func gtk_clist_column_titles_hide
 none
 ((GtkCList clist)))

(define-func gtk_clist_column_title_active
 none
 ((GtkCList clist)
  (int column)))

(define-func gtk_clist_column_title_passive
 none
 ((GtkCList clist)
  (int column)))

(define-func gtk_clist_column_titles_active
 none
 ((GtkCList clist)))

(define-func gtk_clist_column_titles_passive
 none
 ((GtkCList clist)))

(define-func gtk_clist_set_column_title
  none
  ((GtkCList clist)
   (int column)
   (string title)))

(define-func gtk_clist_set_column_widget
  none
  ((GtkCList clist)
   (int column)
   (GtkWidget widget)))

(define-func gtk_clist_get_column_widget
  GtkWidget
  ((GtkCList clist)
   (int column)))

(define-func gtk_clist_set_column_justification
  none
  ((GtkCList clist)
   (int column)
   (GtkJustification justification)))

(define-func gtk_clist_set_column_visibility
  none
  ((GtkCList clist)
   (int column)
   (bool visible)))

(define-func gtk_clist_set_column_resizeable
  none
  ((GtkCList clist)
   (int column)
   (bool resizeable)))

(define-func gtk_clist_set_column_auto_resize
  none
  ((GtkCList clist)
   (int column)
   (bool auto_resize)))

(define-func gtk_clist_columns_autosize
  int
  ((GtkCList clist)))

(define-func gtk_clist_optimal_column_width
  int
  ((GtkCList clist)
   (int column)))

(define-func gtk_clist_set_column_width
  none
  ((GtkCList clist)
   (int column)
   (int width)))

(define-func gtk_clist_set_column_min_width
  none
  ((GtkCList clist)
   (int column)
   (int min_width)))

(define-func gtk_clist_set_column_max_width
  none
  ((GtkCList clist)
   (int column)
   (int max_width)))

(define-func gtk_clist_set_row_height
  none
  ((GtkCList clist)
   (int height)))

(define-func gtk_clist_moveto
  none
  ((GtkCList clist)
   (int row)
   (int column)
   (float row_align (= "0.5"))
   (float column_align (= "0.5"))))


(define-func gtk_clist_row_is_visible
  GtkVisibility
  ((GtkCList clist)
   (int row)))

(define-func gtk_clist_get_cell_type
  GtkCellType
  ((GtkCList clist)
   (int row)
   (int column)))

(define-func gtk_clist_set_text
  none
  ((GtkCList clist)
   (int row)
   (int column)
   (string text)))

(define-func gtk_clist_get_text
  int
  ((GtkCList clist)
   (int row)
   (int column)
   ((ret string) text)))                ;; XXX should be static_string?

;; XXX - the following all use GdkPixmaps and GdkBitmaps rather than
;; a GtkPixmap, this sucks.
;; (define-func gtk_clist_set_pixmap)
;; (define-func gtk_clist_get_pixmap)
;; (define-func gtk_clist_set_pixtext)
;; (define-func gtk_clist_get_pixtext)

(define-func gtk_clist_set_foreground
  none
  ((GtkCList clist)
   (int row)
   (GdkColor color)))

(define-func gtk_clist_set_background
  none
  ((GtkCList clist)
   (int row)
   (GdkColor color)))

(define-func gtk_clist_set_cell_style
  none
  ((GtkCList clist)
   (int row)
   (int column)
   (GtkStyle style)))

(define-func gtk_clist_get_cell_style
  GtkStyle
  ((GtkCList clist)
   (int row)
   (int column)))

(define-func gtk_clist_set_row_style
  none
  ((GtkCList clist)
   (int row)
   (GtkStyle style)))

(define-func gtk_clist_get_row_style
  GtkStyle
  ((GtkCList clist)
   (int row)))

(define-func gtk_clist_set_shift 
  none
  ((GtkCList clist)
   (int row)
   (int column)
   (int vertical)
   (int horizontal)))

(define-func gtk_clist_set_selectable
  none
  ((GtkCList clist)
   (int row)
   (bool selectable)))

(define-func gtk_clist_get_selectable
  bool
  ((GtkCList clist)
   (int row)))

(define-func gtk_clist_prepend
  int
  ((GtkCList clist)
   ;; uhhh, this is hacky
   ((fvec string "((GtkCList*)sgtk_get_gtkobj (p_clist))->columns") text)))

(define-func gtk_clist_append
  int
  ((GtkCList clist)
   ;; uhhh, this is hacky
   ((fvec string "((GtkCList*)sgtk_get_gtkobj (p_clist))->columns") text)))
   
(define-func gtk_clist_insert
  int
  ((GtkCList clist)
   (int row)
   ;; uhhh, this is hacky
   ((fvec string "((GtkCList*)sgtk_get_gtkobj (p_clist))->columns") text)))
   
(define-func gtk_clist_remove 
  none
  ((GtkCList clist)
   (int row)))

(define-func gtk_clist_select_row
  none
  ((GtkCList clist)
   (int row)
   (int column (= "0"))))

(define-func gtk_clist_unselect_row
  none
  ((GtkCList clist)
   (int row)
   (int column (= "0"))))

(define-func gtk_clist_undo_selection
  none
  ((GtkCList clist)))

(define-func gtk_clist_clear
  none
  ((GtkCList clist)))

(define-func gtk_clist_get_selection_info
  int
  ((GtkCList clist)
   (int x)
   (int y)
   ((ret int) row)
   ((ret int) column)))

(define-func gtk_clist_unselect_all
  none
  ((GtkCList clist)))

(define-func gtk_clist_swap_rows
  none
  ((GtkCList clist)
   (int row1)
   (int row2)))

;; (define-func gtk_clist_set_compare_func_full
;;   none
;;   ((GtkCList clist)
;;    (full-callback cmp_func)))

(define-func gtk_clist_set_sort_column
  none
  ((GtkCList clist)
   (int column)))

(define-func gtk_clist_set_sort_type
  none
  ((GtkCList clist)
   (GtkSortType sort_type)))

(define-func gtk_clist_sort
  none
  ((GtkCList clist)))

(define-func gtk_clist_set_auto_sort
  none
  ((GtkCList clist)
   (bool auto_sort)))

;;; Bin

(define-object GtkBin (GtkContainer))

;;; Event Box

(define-object GtkEventBox (GtkBin))

(define-func gtk_event_box_new 
  GtkWidget
  ())

;;; Window

(define-object GtkWindow (GtkBin))

(define-func gtk_window_new
  GtkWidget
  ((GtkWindowType type)))

(define-func gtk_window_set_title
  none
  ((GtkWindow window)
   (string title)))

(define-func gtk_window_get_title
  static_string
  ((GtkWindow window)))

(define-func gtk_window_set_wmclass
  none
  ((GtkWindow window)
   (string wmclass_class)
   (string wmclass_name)))

(define-func gtk_window_set_role
  none
  ((GtkWindow window)
   (string role)))

(define-func gtk_window_get_role
  static_string
  ((GtkWindow window)))

(define-func gtk_window_add_accel_group
  none
  ((GtkWindow window)
   (GtkAccelGroup accel_gruop)))

(define-func gtk_window_remove_accel_group
  none
  ((GtkWindow window)
   (GtkAccelGroup accel_group)))

(define-func gtk_window_set_position
  none
  ((GtkWindow window)
   (GtkWindowPosition position)))

(define-func gtk_window_set_default
  none
  ((GtkWindow window)
   (GtkWidget default)))

(define-func gtk_window_activate_focus
  int
  ((GtkWindow window)))

(define-func gtk_window_activate_default
  int
  ((GtkWindow window)))

(define-func gtk_window_set_transient_for
  none
  ((GtkWindow window)
   (GtkWindow parent (null-ok))))

(define-func gtk_window_get_transient_for
  GtkWindow
  ((GtkWindow window)))

;; XXX GdkWindowTypeHint?
;(define-func gtk_window_set_type_hint
;  none
;  ((GtkWindow window)
;   (GdkWindowTypeHint hint)))
;
;(define-func gtk_window_get_type_hint
;  GdkWindowTypeHint
;  ((GtkWindow window)))

(define-func gtk_window_set_destroy_with_parent
  none
  ((GtkWindow window)
   (bool setting)))

(define-func gtk_window_get_destroy_with_parent
  bool
  ((GtkWindow window)))

(define-func gtk_window_set_resizable
  none
  ((GtkWindow window)
   (bool resizable)))

(define-func gtk_window_get_resizable
  bool
  ((GtkWindow window)))

;; XXX GdkGravity?
;(define-func gtk_window_set_gravity
;  none
;  ((GtkWindow window)
;   (GdkGravity gravity)))
;
;(define-func gtk_window_get_gravity
;  GdkGravity
;  ((GtkWindow window)))

;; XXX gtk_window_set_geometry_hints

(define-func gtk_window_set_has_frame
  none
  ((GtkWindow window)
   (bool has_frame)))

(define-func gtk_window_get_has_frame
  bool
  ((GtkWindow window)))

(define-func gtk_window_set_frame_dimensions
  none
  ((GtkWindow window)
   (int left)
   (int top)
   (int right)
   (int bottom)))

;; XXX gtk_window_get_frame_dimensions

(define-func gtk_window_set_decorated
  none
  ((GtkWindow window)
   (bool decorated)))

(define-func gtk_window_get_decorated
  bool
  ((GtkWindow window)))

;; XXX icon-list stuff

(define-func gtk_window_set_modal
  none
  ((GtkWindow window)
   (bool modal)))

(define-func gtk_window_get_modal
  bool
  ((GtkWindow window)))


(define-func gtk_window_list_toplevels
  ((list GtkWindow))
  ())

(define-func gtk_window_add_mnemonic
  none
  ((GtkWindow window)
   (uint keyval)
   (GtkWidget target)))

(define-func gtk_window_remove_mnemonic
  none
  ((GtkWindow window)
   (uint keyval)
   (GtkWidget target)))

(define-func gtk_window_mnemonic_activate
  bool
  ((GtkWindow window)
   (uint keyval)
   (GdkModifierType modifier)))

(define-func gtk_window_set_mnemonic_modifier
  none
  ((GtkWindow window)
   (GdkModifierType modifier)))

(define-func gtk_window_get_mnemonic_modifier
  GdkModifierType
  ((GtkWindow window)))

(define-func gtk_window_present
  none
  ((GtkWindow window)))

(define-func gtk_window_iconify
  none
  ((GtkWindow window)))

(define-func gtk_window_deiconify
  none
  ((GtkWindow window)))

(define-func gtk_window_stick
  none
  ((GtkWindow window)))

(define-func gtk_window_unstick
  none
  ((GtkWindow window)))

(define-func gtk_window_maximize
  none
  ((GtkWindow window)))

(define-func gtk_window_unmaximize
  none
  ((GtkWindow window)))

;; XXX begin_{move,resize}_drag

(define-func gtk_window_set_default_size
  none
  ((GtkWindow window)
   (int width)
   (int height)))

;; XXX get_default_size

(define-func gtk_window_resize
  none
  ((GtkWindow window)
   (int width)
   (int height)))

;; XXX get_size

(define-func gtk_window_move
  none
  ((GtkWindow window)
   (int x)
   (int y)))

;; XXX get_position

(define-func gtk_window_parse_geometry
  bool
  ((GtkWindow window)
   (string geometry)))

;; XXX GtkWindowGroup

;; XXX marked as internal
(define-func _gtk_window_internal_set_focus
  none
  ((GtkWindow window)
   (GtkWidget focus))
  (scm-name "gtk-window-set-focus"))

;;; HandleBox

(define-object GtkHandleBox (GtkBin))

(define-func gtk_handle_box_new
  GtkWidget
  ())

(define-func gtk_handle_box_set_shadow_type
  none
  ((GtkHandleBox handlebox)
   (GtkShadowType type)))

(define-func gtk_handle_box_get_shadow_type
  GtkShadowType
  ((GtkHandleBox handlebox)))

(define-func gtk_handle_box_set_handle_position
  none
  ((GtkHandleBox handlebox)
   (GtkPositionType position)))

(define-func gtk_handle_box_get_handle_position
  GtkPositionType
  ((GtkHandleBox handlebox)))

(define-func gtk_handle_box_set_snap_edge
  none
  ((GtkHandleBox handlebox)
   (GtkPositionType edge)))

(define-func gtk_handle_box_get_snap_edge
  GtkPositionType
  ((GtkHandleBox handlebox)))

;;; Box

(define-object GtkBox (GtkContainer))

(define-func gtk_box_pack_start
  none
  ((GtkBox box)
   (GtkWidget child)
   (bool expand)
   (bool fill)
   (int padding (= "0"))))

(define-func gtk_box_pack_end
  none
  ((GtkBox box)
   (GtkWidget child)
   (bool expand)
   (bool fill)
   (int padding (= "0"))))

(define-func gtk_box_pack_start_defaults
  none
  ((GtkBox box)
   (GtkWidget child)))

(define-func gtk_box_pack_end_defaults
  none
  ((GtkBox box)
   (GtkWidget child)))

(define-func gtk_box_set_homogeneous
  none
  ((GtkBox box)
   (bool homogenous)))

(define-func gtk_box_get_homogeneous
  bool
  ((GtkBox box)))

(define-func gtk_box_set_spacing
  none
  ((GtkBox box)
   (int spacing)))

(define-func gtk_box_get_spacing
  int
  ((GtkBox box)))

(define-func gtk_box_reorder_child
  none
  ((GtkBox box)
   (GtkWidget child)
   (int pos)))

;; XXX - needs multiple return values
;; (define-func gtk_box_query_child_packing)

(define-func gtk_box_set_child_packing
  none
  ((GtkBox box)
   (GtkWidget child)
   (bool expand)
   (bool fill)
   (int padding)
   (GtkPackType pack_type)))

;;; ButtonBox

(define-object GtkButtonBox (GtkBox))

(define-func gtk_button_box_set_layout 
  none 
  ((GtkButtonBox widget)
   (GtkButtonBoxStyle layout_style)))

(define-func gtk_button_box_get_layout 
  GtkButtonBoxStyle
  ((GtkButtonBox widget)))

(define-func gtk_button_box_set_child_secondary
  none
  ((GtkButtonBox widget)
   (GtkWidget child)
   (bool is_secondary)))

(define-func gtk_button_box_set_child_size 
  none
  ((GtkButtonBox widget)
   (int min_width)
   (int min_height)))

(define-func gtk_button_box_set_child_ipadding
  none
  ((GtkButtonBox widget)
   (int ipad_x)
   (int ipad_y)))

;; XXX get_child_size, get_child_ipadding

;;; HButtonBox

(define-object GtkHButtonBox (GtkButtonBox))

(define-func gtk_hbutton_box_new  
  GtkWidget
  ())

;;; VButtonBox

(define-object GtkVButtonBox (GtkButtonBox))

(define-func gtk_vbutton_box_new  
  GtkWidget
  ())

;;;; Toolbar

(define-object GtkToolbar (GtkContainer))

(define-func gtk_toolbar_new
  GtkWidget
  ())

;; XXX - blech, need interp versions of these
;; (define-func gtk_toolbar_append_item)
;; (define-func gtk_toolbar_prepend_item)
;; (define-func gtk_toolbar_insert_item)
;; (define-func gtk_toolbar_insert_stock)
 
(define-func gtk_toolbar_append_space
  none
  ((GtkToolbar toolbar)))

(define-func gtk_toolbar_prepend_space
  none
  ((GtkToolbar toolbar)))

(define-func gtk_toolbar_insert_space
  none
  ((GtkToolbar toolbar)
   (int position)))

(define-func gtk_toolbar_remove_space
  none
  ((GtkToolbar toolbar)
   (int position)))

;; XXX - need interp version to handle the callback properly, probably
;; some null-ok stuff to handle missing fields.
;; (define-func gtk_toolbar_append_element)
;; (define-func gtk_toolbar_prepend_element)
;; (define-func gtk_toolbar_insert_element)

(define-func gtk_toolbar_append_widget
  none
  ((GtkToolbar Toolbar)
   (GtkWidget Widget)
   (string tooltip_text)
   (string tooltip_private_text)))

(define-func gtk_toolbar_prepend_widget
  none
  ((GtkToolbar Toolbar)
   (GtkWidget Widget)
   (string tooltip_text)
   (string tooltip_private_text)))

(define-func gtk_toolbar_insert_widget
  none
  ((GtkToolbar toolbar)
   (GtkWidget widget)
   (string tooltip_text)
   (string tooltip_private_text)
   (int position)))

(define-func gtk_toolbar_set_orientation
  none
  ((GtkToolbar toolbar)
   (GtkOrientation orientation)))

(define-func gtk_toolbar_set_style
  none
  ((GtkToolbar toolbar)
   (GtkToolbarStyle style)))

(define-func gtk_toolbar_set_icon_size
  none
  ((GtkToolbar toolbar)
   (GtkIconSize size)))

(define-func gtk_toolbar_set_tooltips
  none
  ((GtkToolbar toolbar)
   (bool enable)))

(define-func gtk_toolbar_unset_style
  none
  ((GtkToolbar toolbar)))

(define-func gtk_toolbar_unset_icon_size
  none
  ((GtkToolbar toolbar)))

(define-func gtk_toolbar_get_orientation
  GtkOrientation
  ((GtkToolbar toolbar)))

(define-func gtk_toolbar_get_style
  GtkToolbarStyle
  ((GtkToolbar toolbar)))

(define-func gtk_toolbar_get_icon_size
  GtkIconSize
  ((GtkToolbar toolbar)))

(define-func gtk_toolbar_get_tooltips
  bool
  ((GtkToolbar toolbar)))

;;; Table

(define-object GtkTable (GtkContainer))

(define-func gtk_table_new
  GtkWidget
  ((uint rows)
   (uint columns)
   (bool homogenous)))

(define-func gtk_table_resize
  none
  ((GtkTable table)
   (uint rows)
   (uint columns)))

(define-func gtk_table_attach
  none
  ((GtkTable table)
   (GtkWidget child)
   (uint left_attach)
   (uint right_attach)
   (uint top_attach)
   (uint bottom_attach)
   (GtkAttachOptions xoptions (= "GTK_EXPAND|GTK_FILL"))
   (GtkAttachOptions yoptions (= "GTK_EXPAND|GTK_FILL"))
   (uint xpadding (= "0"))
   (uint ypadding (= "0"))))

(define-func gtk_table_attach_defaults
  none
  ((GtkTable table)
   (GtkWidget child)
   (uint left_attach)
   (uint right_attach)
   (uint top_attach)
   (uint bottom_attach)))

(define-func gtk_table_set_row_spacing
  none
  ((GtkTable table)
   (uint row)
   (uint spacing)))

(define-func gtk_table_get_row_spacing
  uint
  ((GtkTable table)
   (uint row)))

(define-func gtk_table_set_col_spacing
  none
  ((GtkTable table)
   (uint column)
   (uint spacing)))

(define-func gtk_table_get_col_spacing
  uint
  ((GtkTable table)
   (uint column)))

(define-func gtk_table_set_row_spacings
  none
  ((GtkTable table)
   (int spacing)))

(define-func gtk_table_get_default_row_spacing
  uint
  ((GtkTable table)))

(define-func gtk_table_set_col_spacings
  none
  ((GtkTable table)
   (uint spacing)))

(define-func gtk_table_set_homogeneous
  none
  ((GtkTable table)
   (bool homogeneous)))

(define-func gtk_table_get_homogeneous
  bool
  ((GtkTable table)))

;;; Button

(define-object GtkButton (GtkContainer)
  (fields
   (bool in_button)
   (bool button_down)))

(define-func gtk_button_new
  GtkWidget
  ())

(define-func gtk_button_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_button_new_from_stock
  GtkWidget
  ((string stock_id)))

(define-func gtk_button_new_with_mnemonic
  GtkWidget
  ((string label)))

(define-func gtk_button_pressed
  none
  ((GtkButton button)))

(define-func gtk_button_released
  none
  ((GtkButton button)))

(define-func gtk_button_clicked
  none
  ((GtkButton button)))

(define-func gtk_button_enter
  none
  ((GtkButton button)))

(define-func gtk_button_leave
  none
  ((GtkButton button)))

(define-func gtk_button_set_relief
  none
  ((GtkButton button)
   (GtkReliefStyle relief)))

(define-func gtk_button_get_relief
  GtkReliefStyle
  ((GtkButton button)))

(define-func gtk_button_set_label
  none
  ((GtkButton button)
   (string label)))

(define-func gtk_button_get_label
  static_string
  ((GtkButton button)))

(define-func gtk_button_set_use_underline
  none
  ((GtkButton button)
   (bool use_underline)))

(define-func gtk_button_get_use_underline
  bool
  ((GtkButton button)))

(define-func gtk_button_set_use_stock
  none
  ((GtkButton button)
   (bool use_stock)))

(define-func gtk_button_get_use_stock
  bool
  ((GtkButton button)))

;;; ToggleButton

(define-object GtkToggleButton (GtkButton))

(define-func gtk_toggle_button_new
  GtkWidget
  ())

(define-func gtk_toggle_button_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_toggle_button_new_with_mnemonic
  GtkWidget
  ((string mnemonic)))

(define-func gtk_toggle_button_set_mode
  none
  ((GtkToggleButton toggle_button)
   (bool draw_indicator)))

(define-func gtk_toggle_button_get_mode
  bool
  ((GtkToggleButton toggle_button)))

(define-func gtk_toggle_button_set_active
  none
  ((GtkToggleButton toggle_button)
   (bool is_active)))

(define-func gtk_toggle_button_get_active
  bool
  ((GtkToggleButton toggle_button)))

(define-func gtk_toggle_button_toggled
  none
  ((GtkToggleButton toggle_button)))

(define-func gtk_toggle_button_set_inconsistent
  none
  ((GtkToggleButton toggle_button)
   (bool setting)))

(define-func gtk_toggle_button_get_inconsistent
  bool
  ((GtkToggleButton toggle_button)))

;;; CheckButton

(define-object GtkCheckButton (GtkToggleButton))

(define-func gtk_check_button_new
  GtkWidget
  ())

(define-func gtk_check_button_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_check_button_new_with_mnemonic
  GtkWidget
  ((string mnemonic)))

;;; RadioButton

(define-object GtkRadioButton (GtkCheckButton))

(define-func gtk_radio_button_new_from_widget
  GtkWidget
  ((GtkRadioButton group (null-ok))))

(define-func gtk_radio_button_new_with_label_from_widget
  GtkWidget
  ((GtkRadioButton group (null-ok))
   (string label)))

(define-func gtk_radio_button_new_with_mnemonic_from_widget
  GtkWidget
  ((GtkRadioButton group (null-ok))
   (string label)))

;; XXX
;(define-func gtk_radio_button_get_group
;  ((slist GtkWidget))
;  ((GtkRadioButton button)))
;
;(define-func gtk_radio_button_set_group
;  none
;  ((GtkRadioButton button)
;   (slist GtkWidget)))

;;; Misc

(define-object GtkMisc (GtkWidget))

(define-func gtk_misc_set_alignment
  none
  ((GtkMisc misc)
   (float xalign)
   (float yalign)))

;; XXX get_alignment

(define-func gtk_misc_set_padding
  none
  ((GtkMisc misc)
   (int xpad)
   (int ypad)))

;; XXX get_padding

;;; Arrow

(define-object GtkArrow (GtkWidget))

(define-func gtk_arrow_new 
  GtkWidget
  ((GtkArrowType arrow_type)
   (GtkShadowType shadow_type)))

(define-func gtk_arrow_set
  none
  ((GtkArrow arrow)
   (GtkArrowType arrow_type)
   (GtkShadowType shadow_type)))

;;; Label

(define-object GtkLabel (GtkMisc))

(define-func gtk_label_new
  GtkWidget
  ((string str)))

(define-func gtk_label_new_with_mnemonic
  GtkWidget
  ((string str)))

(define-func gtk_label_set_text
  none
  ((GtkLabel label)
   (string str)))

(define-func gtk_label_get_text
  static_string
  ((GtkLabel label)))

(define-func gtk_label_set_label
  none
  ((GtkLabel label)
   (string str)))

(define-func gtk_label_get_label
  static_string
  ((GtkLabel label)))

(define-func gtk_label_set_markup
  none
  ((GtkLabel label)
   (string str)))

(define-func gtk_label_set_use_markup
  none
  ((GtkLabel label)
   (bool setting)))

(define-func gtk_label_get_use_markup
  bool
  ((GtkLabel label)))

(define-func gtk_label_set_use_underline
  none
  ((GtkLabel label)
   (bool setting)))

(define-func gtk_label_get_use_underline
  bool
  ((GtkLabel label)))

(define-func gtk_label_set_markup_with_mnemonic
  none
  ((GtkLabel label)
   (string str)))

(define-func gtk_label_get_mnemonic_keyval
  uint
  ((GtkLabel label)))

(define-func gtk_label_set_mnemonic_widget
  none
  ((GtkLabel label)
   (GtkWidget widget)))

(define-func gtk_label_get_mnemonic_widget
  GtkWidget
  ((GtkLabel label)))

(define-func gtk_label_set_text_with_mnemonic
  none
  ((GtkLabel label)
   (string str)))

(define-func gtk_label_set_justify
  none
  ((GtkLabel label)
   (GtkJustification jtype)))

(define-func gtk_label_get_justify
  GtkJustification
  ((GtkLabel label)))

(define-func gtk_label_set_pattern
  none
  ((GtkLabel label)
   (string pattern)))

(define-func gtk_label_set_line_wrap
  none
  ((GtkLabel label)
   (bool wrap)))

(define-func gtk_label_get_line_wrap
  bool
  ((GtkLabel label)))

(define-func gtk_label_set_selectable
  none
  ((GtkLabel label)
   (bool setting)))

(define-func gtk_label_get_selectable
  bool
  ((GtkLabel label)))

(define-func gtk_label_select_region
  none
  ((GtkLabel label)
   (int start_offset)
   (int end_offset)))

;; XXX get_layout, get_layout_offsets

;;; GtkLayout

(define-object GtkLayout (GtkContainer))

(define-func gtk_layout_new
  GtkWidget
  ((GtkAdjustment hadjustment)
   (GtkAdjustment vadjustment)))

(define-func gtk_layout_put
  none
  ((GtkLayout layout)
   (GtkWidget child_widget)
   (int x)
   (int y)))

(define-func gtk_layout_move
  none
  ((GtkLayout layout)
   (GtkWidget child_widget)
   (int x)
   (int y)))

(define-func gtk_layout_set_size
  none
  ((GtkLayout layout)
   (uint width)
   (uint height)))

;; XXX get_size

(define-func gtk_layout_get_hadjustment
  GtkAdjustment 
  ((GtkLayout layout)))

(define-func gtk_layout_get_vadjustment
  GtkAdjustment 
  ((GtkLayout layout)))

(define-func gtk_layout_set_hadjustment
  none
  ((GtkLayout layout)
   (GtkAdjustment adjustment)))

(define-func gtk_layout_set_vadjustment
  none
  ((GtkLayout layout)
   (GtkAdjustment adjustment)))

;;; GtkTipsQuery

(define-object GtkTipsQuery (GtkLabel))

(define-func gtk_tips_query_new
  GtkWidget
  ())

(define-func gtk_tips_query_start_query
  none
  ((GtkTipsQuery tips_query)))

(define-func gtk_tips_query_stop_query
  none
  ((GtkTipsQuery tips_query)))

(define-func gtk_tips_query_set_caller
  none
  ((GtkTipsQuery tips_query)
   (GtkWidget caller)))

(define-func gtk_tips_query_set_labels
  none
  ((GtkTipsQuery tips_query)
   (string label_inactive)
   (string label_no_tip)))

;; VBox

(define-object GtkVBox (GtkBox))

(define-func gtk_vbox_new
  GtkWidget
  ((bool homogenous)
   (int spacing)))

;; HBox

(define-object GtkHBox (GtkBox))

(define-func gtk_hbox_new
  GtkWidget
  ((bool homogenous)
   (int spacing)))

;; Item

(define-object GtkItem (GtkBin))

(define-func gtk_item_select 
  none
  ((GtkItem item)))

(define-func gtk_item_deselect 
  none
  ((GtkItem item)))

(define-func gtk_item_toggle 
  none
  ((GtkItem item)))

;;;; GtkCombo

(define-object GtkCombo (GtkHBox)
  (fields 
   (GtkWidget entry)
   (GtkWidget button)
   (GtkWidget popup)
   (GtkWidget popwin)
   (GtkWidget list)))

(define-func gtk_combo_new
  GtkWidget 
  ())

(define-func gtk_combo_set_value_in_list
  none
  ((GtkCombo combo)
   (bool val)
   (bool ok_if_empty)))

(define-func gtk_combo_set_use_arrows
  none
  ((GtkCombo combo)
   (bool val)))

(define-func gtk_combo_set_use_arrows_always
  none
  ((GtkCombo combo)
   (bool val)))

(define-func gtk_combo_set_case_sensitive
  none
  ((GtkCombo combo)
   (bool val)))

(define-func gtk_combo_set_item_string
  none
  ((GtkCombo combo)
   (GtkItem item)
   (string item_value)))

(define-func gtk_combo_disable_activate
  none
  ((GtkCombo combo)))

(define-func gtk_combo_set_popdown_strings
  none
  ((GtkCombo combo)
   ((list string) strings)))

;;;; StatusBar

(define-object GtkStatusbar (GtkHBox))

(define-func gtk_statusbar_new
  GtkWidget
  ())

(define-func gtk_statusbar_get_context_id
  uint
  ((GtkStatusbar statusbar)
   (string context_description)))

(define-func gtk_statusbar_push
  uint
  ((GtkStatusbar statusbar)
   (uint context_id)
   (string text)))

(define-func gtk_statusbar_pop
  none
  ((GtkStatusbar statusbar)
   (uint context_id)))

(define-func gtk_statusbar_remove
  none
  ((GtkStatusbar statusbar)
   (uint context_id)
   (uint message_id)))

;;;; GammaCurve

(define-object GtkGammaCurve (GtkVBox)
  (fields
   (GtkWidget table)
   (GtkWidget curve)
   (float gamma)
   (GtkWidget gamma_dialog)
   (GtkWidget gamma_text)))

(define-func gtk_gamma_curve_new
  GtkWidget
  ())

;; Separator

(define-object GtkSeparator (GtkWidget))

;; HSeparator

(define-object GtkHSeparator (GtkSeparator))

(define-func gtk_hseparator_new
  GtkWidget
  ())

;; VSeparator

(define-object GtkVSeparator (GtkSeparator))

(define-func gtk_vseparator_new
  GtkWidget
  ())

;; Frame

(define-object GtkFrame (GtkBin))

(define-func gtk_frame_new
  GtkWidget
  ((string label (null-ok))))

(define-func gtk_frame_set_label
  none
  ((GtkFrame frame)
   (string label)))

(define-func gtk_frame_get_label
  static_string
  ((GtkFrame frame)))

(define-func gtk_frame_set_label_widget
  none
  ((GtkFrame frame)
   (GtkWidget widget)))

(define-func gtk_frame_get_label_widget
  GtkWidget
  ((GtkFrame frame)))

(define-func gtk_frame_set_label_align
  none
  ((GtkFrame frame)
   (float xalign)
   (float yalign)))

;; XXX get_label_align

(define-func gtk_frame_set_shadow_type
  none
  ((GtkFrame frame)
   (GtkShadowType type)))

(define-func gtk_frame_get_shadow_type
  GtkShadowType
  ((GtkFrame frame)))

;; Aspect Frame

(define-object GtkAspectFrame (GtkFrame))

(define-func gtk_aspect_frame_new
  GtkWidget
  ((string label)
   (float xalign)
   (float yalign)
   (float ratio)
   (bool obey_child)))

(define-func gtk_aspect_frame_set
  none
  ((GtkAspectFrame aspect_frame)
   (float xalign)
   (float yalign)
   (float ratio)
   (bool obey_child)))

;; Progress

(define-object GtkProgress (GtkWidget))

;; Progress Bar

(define-object GtkProgressBar (GtkWidget)
  (fields))

(define-func gtk_progress_bar_new
  GtkWidget
  ())

(define-func gtk_progress_bar_pulse
  none
  ((GtkProgressBar pbar)))

(define-func gtk_progress_bar_set_text
  none
  ((GtkProgressBar pbar)
   (string text)))

(define-func gtk_progress_bar_set_fraction
  none
  ((GtkProgressBar pbar)
   (double fraction)))

(define-func gtk_progress_bar_set_pulse_step
  none
  ((GtkProgressBar pbar)
   (double fraction)))

(define-func gtk_progress_bar_set_orientation
  none
  ((GtkProgressBar pbar)
   (GtkProgressBarOrientation orientation)))

(define-func gtk_progress_bar_get_text
  static_string
  ((GtkProgressBar pbar)))

(define-func gtk_progress_bar_get_fraction
  double
  ((GtkProgressBar pbar)))

(define-func gtk_progress_bar_get_pulse_step
  double
  ((GtkProgressBar pbar)))

(define-func gtk_progress_bar_get_orientation
  GtkProgressBarOrientation
  ((GtkProgressBar pbar)))

;; Tooltips

(define-object GtkTooltips (GtkObject))

(define-func gtk_tooltips_new
  GtkTooltips
  ())

(define-func gtk_tooltips_enable
  none
  ((GtkTooltips tooltips)))

(define-func gtk_tooltips_disable
  none
  ((GtkTooltips tooltips)))

(define-func gtk_tooltips_set_tip
  none
  ((GtkTooltips tooltips)
   (GtkWidget widget)
   (string tip_text (null-ok))
   (string tip_private)))

;; XXX data_get

(define-func gtk_tooltips_force_window
  none
  ((GtkTooltips tooltips)))

;; MenuShell

(define-object GtkMenuShell (GtkContainer))

(define-func gtk_menu_shell_append
  none
  ((GtkMenuShell menu_shell)
   (GtkWidget child)))

(define-func gtk_menu_shell_prepend
  none
  ((GtkMenuShell menu_shell)
   (GtkWidget child)))

(define-func gtk_menu_shell_insert
  none
  ((GtkMenuShell menu_shell)
   (GtkWidget child)
   (int position)))

(define-func gtk_menu_shell_deactivate
  none
  ((GtkMenuShell menu_shell)))

(define-func gtk_menu_shell_select_item
  none
  ((GtkMenuShell menu_shell)
   (GtkWidget menu_item)))

(define-func gtk_menu_shell_deselect
  none
  ((GtkMenuShell menu_shell)))

(define-func gtk_menu_shell_activate_item
  none
  ((GtkMenuShell menu_shell)
   (GtkWidget menu_item)
   (bool force_deactivate)))

;; MenuBar

(define-object GtkMenuBar (GtkMenuShell))

(define-func gtk_menu_bar_new
  GtkWidget
  ())

;; Menu

(define-object GtkMenu (GtkMenuShell))

(define-func gtk_menu_new
  GtkWidget
  ())

(define-func gtk_menu_popup_interp
  none
  ((GtkMenu menu)
   (GtkWidget parent_menu_shell (null-ok))
   (GtkWidget parent_menu_item (null-ok))
   (uint button)
   (uint activate_time)
   (SCM position)))

(define-func gtk_menu_reposition
  none
  ((GtkMenu menu)))

(define-func gtk_menu_popdown
  none
  ((GtkMenu menu)))

(define-func gtk_menu_get_active
  GtkWidget
  ((GtkMenu menu)))

(define-func gtk_menu_set_active
  none
  ((GtkMenu menu)
   (uint index)))

(define-func gtk_menu_set_accel_group
  none
  ((GtkMenu menu)
   (GtkAccelGroup accel_group)))

(define-func gtk_menu_get_accel_group
  GtkAccelGroup
  ((GtkMenu menu)))

(define-func gtk_menu_set_accel_path
  none
  ((GtkMenu menu)
   (string accel_path)))

;; XXX - probably needs _interp version
;; gtk_menu_attach_to_widget

(define-func gtk_menu_detach
  none
  ((GtkMenu menu)))

(define-func gtk_menu_get_attach_widget
  GtkWidget
  ((GtkMenu menu)))

(define-func gtk_menu_set_tearoff_state
  none
  ((GtkMenu menu)
   (bool torn_off)))

(define-func gtk_menu_get_tearoff_state
  bool
  ((GtkMenu menu)))

(define-func gtk_menu_set_title
  none
  ((GtkMenu menu)
   (string title)))

(define-func gtk_menu_get_title
  static_string
  ((GtkMenu menu)))

(define-func gtk_menu_reorder_child
  none
  ((GtkMenu menu)
   (GtkWidget child)
   (int position)))

;; MenuItem

(define-object GtkMenuItem (GtkItem))

(define-func gtk_menu_item_new
  GtkWidget
  ())

(define-func gtk_menu_item_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_menu_item_new_with_mnemonic
  GtkWidget
  ((string label)))

(define-func gtk_menu_item_set_submenu
  none
  ((GtkMenuItem menu_item)
   (GtkWidget submenu)))

(define-func gtk_menu_item_get_submenu
  GtkWidget
  ((GtkMenuItem menu_item)))

(define-func gtk_menu_item_remove_submenu
  none
  ((GtkMenuItem menu_item)))

(define-func gtk_menu_item_select
  none
  ((GtkMenuItem menu_item)))

(define-func gtk_menu_item_deselect
  none
  ((GtkMenuItem menu_item)))

(define-func gtk_menu_item_activate
  none
  ((GtkMenuItem menu_item)))

;; XXX toggle_size_request, toggle_size_allocate

(define-func gtk_menu_item_set_right_justified
  none
  ((GtkMenuItem menu_item)
   (bool setting)))

(define-func gtk_menu_item_get_right_justified
  bool
  ((GtkMenuItem menu_item)))

(define-func gtk_menu_item_set_accel_path
  none
  ((GtkMenuItem menu_item)
   (string accel_path)))

;; CheckMenuItem

(define-object GtkCheckMenuItem (GtkMenuItem)
  (fields
   (bool active)))

(define-func gtk_check_menu_item_new
  GtkWidget
  ())

(define-func gtk_check_menu_item_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_check_menu_item_new_with_mnemonic
  GtkWidget
  ((string label)))

(define-func gtk_check_menu_item_set_active
  none
  ((GtkCheckMenuItem check_menu_item)
   (bool is_active)))

(define-func gtk_check_menu_item_get_active
  bool
  ((GtkCheckMenuItem check_menu_item)))

(define-func gtk_check_menu_item_toggled
  none
  ((GtkCheckMenuItem check_menu_item)))

(define-func gtk_check_menu_item_set_inconsistent
  none
  ((GtkCheckMenuItem menu_item)
   (bool setting)))

(define-func gtk_check_menu_item_get_inconsistent
  bool
  ((GtkCheckMenuItem menu_item)))

;; RadioMenuItem

(define-object GtkRadioMenuItem (GtkCheckMenuItem))

(define-func gtk_radio_menu_item_new_from_widget
  GtkWidget
  ((GtkRadioMenuItem group (null-ok))))

(define-func gtk_radio_menu_item_new_with_label_from_widget
  GtkWidget
  ((GtkRadioMenuItem group (null-ok))
   (string label)))

(define-func gtk_radio_menu_item_new_with_mnemonic_from_widget
  GtkWidget
  ((GtkRadioMenuItem group (null-ok))
   (string label)))

;; OptionMenu

(define-object GtkOptionMenu (GtkButton))

(define-func gtk_option_menu_new
  GtkWidget
  ())

(define-func gtk_option_menu_get_menu
  GtkWidget
  ((GtkOptionMenu option_menu)))

(define-func gtk_option_menu_set_menu
  none
  ((GtkOptionMenu option_menu)
   (GtkWidget menu)))

(define-func gtk_option_menu_remove_menu
  none
  ((GtkOptionMenu option_menu)))

(define-func gtk_option_menu_get_history
  int
  ((GtkOptionMenu option_menu)))

(define-func gtk_option_menu_set_history
  none
  ((GtkOptionMenu option_menu)
   (int index)))

;; Pixmaps

(define-object GtkPixmap (GtkMisc))

(define-func gtk_pixmap_new_interp
  GtkWidget
  ((string xpm_file)
   (GtkWidget intended_parent)))

;;; Viewport

(define-object GtkViewport (GtkBin))

(define-func gtk_viewport_new
  GtkWidget
  ((GtkAdjustment hadjustment)
   (GtkAdjustment vadjustment)))

(define-func gtk_viewport_get_hadjustment
  GtkAdjustment
  ((GtkViewport viewport)))

(define-func gtk_viewport_get_vadjustment
  GtkAdjustment
  ((GtkViewport viewport)))

(define-func gtk_viewport_set_hadjustment
  none
  ((GtkViewport viewport)
   (GtkAdjustment adjustment)))

(define-func gtk_viewport_set_vadjustment
  none
  ((GtkViewport viewport)
   (GtkAdjustment adjustment)))

(define-func gtk_viewport_set_shadow_type
  none
  ((GtkViewport viewport)
   (GtkShadowType type)))

(define-func gtk_viewport_get_shadow_type
  GtkShadowType
  ((GtkViewport viewport)))

;; ScrolledWindow

(define-object GtkScrolledWindow (GtkContainer))

(define-func gtk_scrolled_window_new
  GtkWidget
  ((GtkAdjustment hadjustment (null-ok) (= "NULL"))
   (GtkAdjustment vadjustment (null-ok) (= "NULL"))))

(define-func gtk_scrolled_window_set_hadjustment
  none
  ((GtkScrolledWindow scrolled_window)
   (GtkAdjustment hadjustment)))

(define-func gtk_scrolled_window_set_vadjustment
  none
  ((GtkScrolledWindow scrolled_window)
   (GtkAdjustment vadjustment)))

(define-func gtk_scrolled_window_get_hadjustment
  GtkAdjustment
  ((GtkScrolledWindow scrolled_window)))

(define-func gtk_scrolled_window_get_vadjustment
  GtkAdjustment
  ((GtkScrolledWindow scrolled_window)))

(define-func gtk_scrolled_window_set_policy
  none
  ((GtkScrolledWindow scrolled_window)
   (GtkPolicyType hscrollbar_policy)
   (GtkPolicyType vscrollbar_policy)))

;; XXX get_policy

(define-func gtk_scrolled_window_set_placement
  none
  ((GtkScrolledWindow scrolled_window)
   (GtkCornerType window_placement)))

(define-func gtk_scrolled_window_get_placement
  GtkCornerType
  ((GtkScrolledWindow scrolled_window)))

(define-func gtk_scrolled_window_set_shadow_type
  none
  ((GtkScrolledWindow scrolled_window)
   (GtkShadowType type)))

(define-func gtk_scrolled_window_get_shadow_type
  GtkShadowType
  ((GtkScrolledWindow scrolled_window)))

(define-func gtk_scrolled_window_add_with_viewport
  none
  ((GtkScrolledWindow scrolled_window)
   (GtkWidget child)))

;; ListItem

(define-object GtkListItem (GtkItem))

(define-func gtk_list_item_new
  GtkWidget
  ())

(define-func gtk_list_item_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_list_item_select
  none
  ((GtkListItem list_item)))

(define-func gtk_list_item_deselect
  none
  ((GtkListItem list_item)))

;; List

(define-object GtkList (GtkContainer))

(define-func gtk_list_new
  GtkWidget
  ())

(define-func gtk_list_insert_items
  none
  ((GtkList list)
   ((list GtkListItem) items)
   (int position)))

(define-func gtk_list_append_items
  none
  ((GtkList list)
   ((list GtkListItem) items)))

(define-func gtk_list_prepend_items
  none
  ((GtkList list)
   ((list GtkListItem) items)))

(define-func gtk_list_remove_items
  none
  ((GtkList list)
   ((list GtkListItem) items)))

;; in gtk-compat.c
(define-func gtk_list_append_item
  none
  ((GtkList list)
   (GtkListItem item)))
(define-func gtk_list_prepend_item
  none
  ((GtkList list)
   (GtkListItem item)))

;; XXX many missing

(define-func gtk_list_clear_items
  none
  ((GtkList list)
   (int start)
   (int end)))

(define-func gtk_list_select_item
  none
  ((GtkList list)
   (int item)))

(define-func gtk_list_unselect_item
  none
  ((GtkList list)
   (int item)))

(define-func gtk_list_select_child
  none
  ((GtkList list)
   (GtkWidget child)))

(define-func gtk_list_unselect_child
  none
  ((GtkList list)
   (GtkWidget child)))

(define-func gtk_list_child_position
  int
  ((GtkList list)
   (GtkWidget child)))

(define-func gtk_list_set_selection_mode
  none
  ((GtkList list)
   (GtkSelectionMode mode)))

(define-func gtk_list_extend_selection
  none
  ((GtkList list)
   (GtkScrollType scroll_type)
   (float position)
   (bool auto_start_selection)))

(define-func gtk_list_start_selection
  none
  ((GtkList list)))

(define-func gtk_list_end_selection
  none
  ((GtkList list)))

(define-func gtk_list_select_all
  none
  ((GtkList list)))

(define-func gtk_list_unselect_all
  none
  ((GtkList list)))

(define-func gtk_list_scroll_horizontal
  none
  ((GtkList list)
   (GtkScrollType type)
   (float position)))

(define-func gtk_list_scroll_vertical
  none
  ((GtkList list)
   (GtkScrollType type)
   (float position)))

(define-func gtk_list_toggle_add_mode
  none
  ((GtkList list)))

(define-func gtk_list_toggle_focus_row
  none
  ((GtkList list)))

(define-func gtk_list_toggle_row
  none
  ((GtkList list)
   (GtkWidget item)))

(define-func gtk_list_undo_selection
  none
  ((GtkList list)))

(define-func gtk_list_end_drag_selection
  none
  ((GtkList list)))

;; Notebook

(define-object GtkNotebook (GtkContainer)
  (fields
   (GtkPositionType tab_pos)))

(define-func gtk_notebook_new
  GtkWidget
  ())

(define-func gtk_notebook_append_page
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget tab_label)))

(define-func gtk_notebook_append_page_menu  
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget tab_label)
   (GtkWidget menu_label)))

(define-func gtk_notebook_prepend_page
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget tab_label)))

(define-func gtk_notebook_prepend_page_menu 
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget tab_label)
   (GtkWidget menu_label)))

(define-func gtk_notebook_insert_page
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget tab_label)
   (int position)))

(define-func gtk_notebook_insert_page_menu 
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget tab_label)
   (GtkWidget menu_label)
   (int position)))

(define-func gtk_notebook_remove_page
  none
  ((GtkNotebook notebook)
   (int page_num)))

(define-func gtk_notebook_get_current_page
  int
  ((GtkNotebook notebook)))

(define-func gtk_notebook_get_nth_page
  GtkWidget
  ((GtkNotebook notebook)
   (int page_num)))

(define-func gtk_notebook_page_num
  int
  ((GtkNotebook notebook)
   (GtkWidget child)))

(define-func gtk_notebook_set_current_page
  none
  ((GtkNotebook notebook)
   (int page_num)))

(define-func gtk_notebook_next_page
  none
  ((GtkNotebook notebook)))

(define-func gtk_notebook_prev_page
  none
  ((GtkNotebook notebook)))

(define-func gtk_notebook_set_show_border
  none
  ((GtkNotebook notebook)
   (bool show_border)))

(define-func gtk_notebook_get_show_border
  bool
  ((GtkNotebook notebook)))

(define-func gtk_notebook_set_show_tabs
  none
  ((GtkNotebook notebook)
   (bool show_tabs)))

(define-func gtk_notebook_get_show_tabs
  bool
  ((GtkNotebook notebook)))

(define-func gtk_notebook_set_tab_pos
  none
  ((GtkNotebook notebook)
   (GtkPositionType pos)))

(define-func gtk_notebook_get_tab_pos
  GtkPositionType
  ((GtkNotebook notebook)))

(define-func gtk_notebook_set_scrollable 
  none
  ((GtkNotebook notebook)
   (bool scrollable)))

(define-func gtk_notebook_get_scrollable 
  bool
  ((GtkNotebook notebook)))

(define-func gtk_notebook_popup_enable 
  none
  ((GtkNotebook notebook)))
   
(define-func gtk_notebook_popup_disable 
  none
  ((GtkNotebook notebook)))

(define-func gtk_notebook_get_tab_label
  GtkWidget
  ((GtkNotebook notebook)
   (GtkWidget child)))

(define-func gtk_notebook_set_tab_label
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget tab_label)))

(define-func gtk_notebook_set_tab_label_text
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (string text)))

(define-func gtk_notebook_get_tab_label_text
  static_string
  ((GtkNotebook notebook)
   (GtkWidget child)))

(define-func gtk_notebook_get_menu_label
  GtkWidget
  ((GtkNotebook notebook)
   (GtkWidget child)))

(define-func gtk_notebook_set_menu_label
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (GtkWidget menu_label)))

(define-func gtk_notebook_set_menu_label_text
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (string text)))

(define-func gtk_notebook_get_menu_label_text
  static_string
  ((GtkNotebook notebook)
   (GtkWidget child)))

;; XXX query_tab_label_packing, set_tab_label_packing

(define-func gtk_notebook_reorder_child
  none
  ((GtkNotebook notebook)
   (GtkWidget child)
   (int position)))

;; Editable

(define-object GtkEditable (GtkWidget))

(define-func gtk_editable_select_region
  none
  ((GtkEditable editable)
   (int start)
   (int end)))

;; XXX get_selection_bounds

(define-func gtk_editable_insert_text
  none
  ((GtkEditable editable)
   (string new_text)
   (int new_text_length)
   ((fvec int 1 inout) position)))

(define-func gtk_editable_delete_text
  none
  ((GtkEditable editable)
   (int start_pos)
   (int end_pos)))

(define-func gtk_editable_get_chars
  string
  ((GtkEditable editable)
   (int start_pos)
   (int end_pos)))

(define-func gtk_editable_cut_clipboard
  none
  ((GtkEditable editable)))

(define-func gtk_editable_copy_clipboard
  none
  ((GtkEditable editable)))

(define-func gtk_editable_paste_clipboard
  none
  ((GtkEditable editable)))

(define-func gtk_editable_delete_selection
  none
  ((GtkEditable editable)))

(define-func gtk_editable_set_position
  none
  ((GtkEditable editable)
   (int position)))

(define-func gtk_editable_get_position
  int
  ((GtkEditable editable)))

(define-func gtk_editable_set_editable
  none
  ((GtkEditable editable)
   (bool is_editable)))

(define-func gtk_editable_get_editable
  bool
  ((GtkEditable editable)))

;; Entry

(define-object GtkEntry (GtkEditable))

(define-func gtk_entry_new
  GtkWidget
  ())

(define-func gtk_entry_set_visibility
  none
  ((GtkEntry entry)
   (bool visible)))

(define-func gtk_entry_get_visibility
  bool
  ((GtkEntry entry)))

;; XXX unichar?
;(define-func gtk_entry_set_invisibile_char
;  none
;  ((GtkEntry entry)
;   (unichar ch)))
;
;(define-func gtk_entry_get_invisibile_char
;  unichar
;  ((GtkEntry entry)))

(define-func gtk_entry_set_has_frame
  none
  ((GtkEntry entry)
   (bool setting)))

(define-func gtk_entry_get_has_frame
  bool
  ((GtkEntry entry)))

(define-func gtk_entry_set_max_length
  none
  ((GtkEntry entry)
   (int max)))

(define-func gtk_entry_get_max_length
  int
  ((GtkEntry entry)))

(define-func gtk_entry_set_activates_default
  none
  ((GtkEntry entry)
   (bool setting)))

(define-func gtk_entry_get_activates_default
  bool
  ((GtkEntry entry)))

(define-func gtk_entry_set_width_chars
  none
  ((GtkEntry entry)
   (int n_chars)))

(define-func gtk_entry_get_width_chars
  int
  ((GtkEntry entry)))

(define-func gtk_entry_set_text
  none
  ((GtkEntry entry)
   (string text)))

(define-func gtk_entry_get_text
  static_string
  ((GtkEntry entry)))

;; SpinButton

(define-object GtkSpinButton (GtkEntry))

(define-func gtk_spin_button_new
  GtkWidget
  ((GtkAdjustment adjustment)
   (double climb_rate)
   (int digits)))
  
(define-func gtk_spin_button_new_with_range
  GtkWidget
  ((double min)
   (double max)
   (double step)))

(define-func gtk_spin_button_set_adjustment 
  none
  ((GtkSpinButton spin_button)
   (GtkAdjustment adjustment)))

(define-func gtk_spin_button_get_adjustment 
  GtkAdjustment
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_set_digits 
  none
  ((GtkSpinButton spin_button)
   (int digits)))

(define-func gtk_spin_button_get_digits 
  int
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_set_increments
  none
  ((GtkSpinButton spin_button)
   (double step)
   (double page)))

;; XXX get_increments

(define-func gtk_spin_button_set_range
  none
  ((GtkSpinButton spin_button)
   (double min)
   (double max)))

;; XXX get_range

(define-func gtk_spin_button_get_value
  double
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_get_value_as_int  
  int
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_set_value 
  none
  ((GtkSpinButton spin_button) 
   (double value)))

(define-func gtk_spin_button_set_update_policy 
  none
  ((GtkSpinButton spin_button)
   (GtkSpinButtonUpdatePolicy policy)))

(define-func gtk_spin_button_get_update_policy 
  GtkSpinButtonUpdatePolicy
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_set_numeric
  none
  ((GtkSpinButton spin_button)
   (bool numeric)))

(define-func gtk_spin_button_get_numeric
  bool
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_spin
  none
  ((GtkSpinButton spin_button)
   (GtkSpinType direction)
   (double increment)))

(define-func gtk_spin_button_set_wrap
  none
  ((GtkSpinButton spin_button)
   (bool wrap)))

(define-func gtk_spin_button_get_wrap
  bool
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_set_snap_to_ticks
  none
  ((GtkSpinButton spin_button)
   (bool snap_to_ticks)))

(define-func gtk_spin_button_get_snap_to_ticks
  bool
  ((GtkSpinButton spin_button)))

(define-func gtk_spin_button_update
  none
  ((GtkSpinButton spin_button)))

;; Alignment

(define-object GtkAlignment (GtkBin))

(define-func gtk_alignment_new
  GtkWidget
  ((float xalign)
   (float yalign)
   (float xscale)
   (float yscale)))

(define-func gtk_alignment_set
  none
  ((GtkAlignment alignment)
   (float xalign)
   (float yalign)
   (float xscale)
   (float yscale)))

;; DrawingArea 

(define-object GtkDrawingArea (GtkWidget))

(define-func gtk_drawing_area_new
  GtkWidget
  ())

;; Curve

(define-object GtkCurve (GtkDrawingArea))

(define-func gtk_curve_new
  GtkWidget
  ())

(define-func gtk_curve_reset
  none
  ((GtkCurve curve)))

(define-func gtk_curve_set_gamma
  none
  ((GtkCurve curve)
   (float gamma)))

(define-func gtk_curve_set_range
  none
  ((GtkCurve curve)
   (float min_x)
   (float max_x)
   (float min_y)
   (float max_y)))

;; XXX - needs to convert something to length and array of floats
;; (define-func gtk_curve_set_vector)

;; XXX - needs to convert something to length and array of floats
;; (define-func gtk_curve_get_vector)

(define-func gtk_curve_set_curve_type
  none
  ((GtkCurve curve)
   (GtkCurveType type)))


;; Preview

(define-object GtkPreview (GtkWidget))

(define-func gtk_preview_new 
  GtkWidget
  ((GtkPreviewType type)))

(define-func gtk_preview_size 
  none
  ((GtkPreview preview)
   (int width)
   (int height)))

(define-func gtk_preview_put
  none
  ((GtkPreview preview)
   (GdkWindow window)
   (GdkGC gc)
   (int srcx)
   (int srcy)
   (int destx)
   (int desty)
   (int width)
   (int height)))

(define-func gtk_preview_draw_row
  none
  ((GtkPreview preview)
   (string data)
   (int x)
   (int y)
   (int w)))

(define-func gtk_preview_set_expand
  none
  ((GtkPreview preview)
   (bool expand)))

(define-func gtk_preview_set_gamma
  none
  ((double gamma)))

(define-func gtk_preview_set_color_cube 
  none
  ((uint nred_shades)
   (uint ngreen_shades)
   (uint nblue_shades)
   (uint ngray_shades)))

(define-func gtk_preview_set_install_cmap
  none
  ((bool install_cmap)))

(define-func gtk_preview_set_reserved
  none
  ((int nreserved)))

;; FileSelection

(define-object GtkFileSelection (GtkWindow)
  (fields
   (GtkWidget dir_list)
   (GtkWidget file_list)
   (GtkWidget selection_entry)
   (GtkWidget selection_text)
   (GtkWidget main_vbox)
   (GtkWidget ok_button)
   (GtkWidget cancel_button)
   (GtkWidget help_button)
   (GtkWidget action_area)))

(define-func gtk_file_selection_new
  GtkWidget
  ((string title)))

(define-func gtk_file_selection_set_filename
  none
  ((GtkFileSelection filesel)
   (string filename)))

(define-func gtk_file_selection_get_filename
  static_string
  ((GtkFileSelection filesel)))

(define-func gtk_file_selection_complete
  none
  ((GtkFileSelection filesel)
   (string pattern)))

(define-func gtk_file_selection_show_fileop_buttons
  none
  ((GtkFileSelection filesel)))

(define-func gtk_file_selection_hide_fileop_buttons
  none
  ((GtkFileSelection filesel)))

;; FontSelectionDialog

(define-object GtkFontSelectionDialog (GtkWindow)
  (fields 
   (GtkWidget main_vbox)
   (GtkWidget action_area)
   (GtkWidget ok_button)
   (GtkWidget apply_button)
   (GtkWidget cancel_button)))
   
(define-func gtk_font_selection_dialog_new 
  GtkWidget
  ((string title)))

(define-func gtk_font_selection_dialog_get_font_name
  string
  ((GtkFontSelectionDialog fontsel)))

(define-func gtk_font_selection_dialog_set_font_name
  bool
  ((GtkFontSelectionDialog fontsel)
   (string fontname)))

(define-func gtk_font_selection_dialog_get_preview_text
  static_string
  ((GtkFontSelectionDialog fontsel)))
  
(define-func gtk_font_selection_dialog_set_preview_text
  none
  ((GtkFontSelectionDialog fontsel)
   (string text)))
    
;; ColorSelectionDialog

(define-object GtkColorSelectionDialog (GtkWindow)
  (fields
   (GtkWidget colorsel)
   (GtkWidget ok_button)
   (GtkWidget cancel_button)
   (GtkWidget help_button)))

(define-func gtk_color_selection_dialog_new
  GtkWidget
  ((string title)))

;; ColorSelection

(define-object GtkColorSelection (GtkVBox))

(define-func gtk_color_selection_new
  GtkWidget
  ())

(define-func gtk_color_selection_set_has_opacity_control
  none
  ((GtkColorSelection colorsel)
   (bool has_opacity)))

(define-func gtk_color_selection_get_has_opacity_control
  bool
  ((GtkColorSelection colorsel)))

(define-func gtk_color_selection_get_has_palette
  bool
  ((GtkColorSelection colorsel)))

(define-func gtk_color_selection_set_has_palette
  none
  ((GtkColorSelection colorsel)
   (bool setting)))

(define-func gtk_color_selection_set_current_color
  none
  ((GtkColorSelection colorsel)
   (GdkColor color)))

(define-func gtk_color_selection_set_current_alpha
  none
  ((GtkColorSelection colorsel)
   (ushort alpha)))

;; XXX get_current_color

(define-func gtk_color_selection_get_current_alpha
  ushort
  ((GtkColorSelection colorsel)))

;; XXX `previous' functions

(define-func gtk_color_selection_is_adjusting
  bool
  ((GtkColorSelection colorsel)))

;; XXX palette_from,to_string

(define-func gtk_color_selection_set_color_interp
  none
  ((GtkColorSelection colorsel)
   (GdkColor color)))

;; This returns a color which is not allocated in any colormap.
(define-func gtk_color_selection_get_color_interp
  GdkColor
  ((GtkColorSelection colorsel)))  

;; Range

(define-object GtkRange (GtkWidget))

(define-func gtk_range_set_update_policy
  none
  ((GtkRange range)
   (GtkUpdateType policy)))

(define-func gtk_range_get_update_policy
  GtkUpdateType
  ((GtkRange range)))

(define-func gtk_range_set_adjustment
  none
  ((GtkRange range)
   (GtkAdjustment adjustment)))

(define-func gtk_range_get_adjustment
  GtkAdjustment
  ((GtkRange range)))

(define-func gtk_range_set_inverted
  none
  ((GtkRange range)
   (bool setting)))

(define-func gtk_range_get_inverted
  bool
  ((GtkRange range)))

(define-func gtk_range_set_increments
  none
  ((GtkRange range)
   (double step)
   (double page)))

(define-func gtk_range_set_range
  none
  ((GtkRange range)
   (double min)
   (double max)))

(define-func gtk_range_set_value
  none
  ((GtkRange range)
   (double value)))

(define-func gtk_range_get_value
  double
  ((GtkRange range)))

;; Scale

(define-object GtkScale (GtkRange))

(define-func gtk_scale_set_digits
  none
  ((GtkScale scale)
   (int digits)))

(define-func gtk_scale_get_digits
  int
  ((GtkScale scale)))

(define-func gtk_scale_set_draw_value
  none
  ((GtkScale scale)
   (bool draw_value)))

(define-func gtk_scale_get_draw_value
  bool
  ((GtkScale scale)))

(define-func gtk_scale_set_value_pos
  none
  ((GtkScale scale)
   (GtkPositionType pos)))

(define-func gtk_scale_get_value_pos
  GtkPositionType
  ((GtkScale scale)))

;; HScale

(define-object GtkHScale (GtkScale))

(define-func gtk_hscale_new
  GtkWidget
  ((GtkAdjustment adjustment)))

(define-func gtk_hscale_new_with_range
  GtkWidget
  ((double min)
   (double max)
   (double step)))

;; VScale

(define-object GtkVScale (GtkScale))

(define-func gtk_vscale_new
  GtkWidget
  ((GtkAdjustment adjustment)))

(define-func gtk_vscale_new_with_range
  GtkWidget
  ((double min)
   (double max)
   (double step)))

;; Scrollbar

(define-object GtkScrollbar (GtkRange))

;; HScrollbar

(define-object GtkHScrollbar (GtkScrollbar))

(define-func gtk_hscrollbar_new
  GtkWidget
  ((GtkAdjustment adjustment)))

;; VScrollbar

(define-object GtkVScrollbar (GtkScrollbar))

(define-func gtk_vscrollbar_new
  GtkWidget
  ((GtkAdjustment adjustment)))

;; Ruler

(define-object GtkRuler (GtkWidget))

(define-func gtk_ruler_set_metric
  none
  ((GtkRuler ruler)
   (GtkMetricType metric)))

(define-func gtk_ruler_set_range
  none
  ((GtkRuler ruler)
   (float lower)
   (float upper)
   (float position)
   (float max_size)))

(define-func gtk_ruler_draw_ticks
  none
  ((GtkRuler ruler)))

(define-func gtk_ruler_draw_pos
  none
  ((GtkRuler ruler)))

(define-func gtk_ruler_get_metric
  GtkMetricType
  ((GtkRuler ruler)))

;; XXX get_range

;; HRuler

(define-object GtkHRuler (GtkRuler))

(define-func gtk_hruler_new
  GtkWidget
  ())

;; VRuler

(define-object GtkVRuler (GtkRuler))

(define-func gtk_vruler_new
  GtkWidget
  ())

;; Dialog

(define-object GtkDialog (GtkWindow)
  (fields
   (GtkWidget vbox)
   (GtkWidget action_area)))

(define-func gtk_dialog_new
  GtkWidget
  ())

;; XXX new_with_buttons

(define-func gtk_dialog_add_button
  GtkWidget
  ((GtkDialog dialog)
   (string button_text)
   (int response_id)))

;; XXX add_buttons

(define-func gtk_dialog_set_response_sensitive
  none
  ((GtkDialog dialog)
   (int response_id)
   (bool setting)))

(define-func gtk_dialog_set_default_response
  none
  ((GtkDialog dialog)
   (int response_id)))

(define-func gtk_dialog_set_has_separator
  none
  ((GtkDialog dialog)
   (bool setting)))

(define-func gtk_dialog_get_has_separator
  bool
  ((GtkDialog dialog)))

(define-func gtk_dialog_response
  none
  ((GtkDialog dialog)
   (int response_id)))

(define-func gtk_dialog_run
  int
  ((GtkDialog dialog)))

;; InputDialog

(define-object GtkInputDialog (GtkDialog)
  (fields
   (GtkWidget close_button)
   (GtkWidget save_button)))

(define-func gtk_input_dialog_new
  GtkWidget
  ())

;; Paned

(define-object GtkPaned (GtkContainer))

(define-func gtk_paned_add1
  none
  ((GtkPaned paned)
   (GtkWidget child)))

(define-func gtk_paned_add2
  none
  ((GtkPaned paned)
   (GtkWidget child)))

(define-func gtk_paned_pack1
  none
  ((GtkPaned paned)
   (GtkWidget child)
   (bool resize)
   (bool shrink)))

(define-func gtk_paned_pack2
  none
  ((GtkPaned paned)
   (GtkWidget child)
   (bool resize)
   (bool shrink)))

(define-func gtk_paned_get_position
  int
  ((GtkPaned paned)))

(define-func gtk_paned_set_position
  none
  ((GtkPaned paned)
   (int position)))

;; HPaned

(define-object GtkHPaned (GtkPaned))

(define-func gtk_hpaned_new
  GtkWidget
  ())

;; VPaned

(define-object GtkVPaned (GtkPaned))

(define-func gtk_vpaned_new
  GtkWidget
  ())

;; Types

(define-func gtk_type_name
  static_string
  ((type type)))

(define-func gtk_type_from_name
  type
  ((string name)))

;(define-func gtk_class_new
;  type
;  ((type parent)
;   (string name)))
;
;(define-func gtk_signal_new_generic
;  int
;  ((string name)
;   (GtkSignalRunType signal_flags)
;   (type class_type)
;   (type return_type)
;   ((cvec type) params)))
;
;(define-func sgtk_signal_emit
;  none
;  ((GtkObject object)
;   (string signal)
;   (SCM args))
;  (scm-name "gtk-signal-emit")
;  (rest-arg t))

(define-func gtk_signal_set_class_function_full
  none
  ((type class)
   (string signal)
   (full-callback function))
  (protection t)
  (scm-name "gtk-signal-set-class-function"))

;; Plug

(define-object GtkPlug (GtkWindow)
  (fields
   (GdkWindow socket_window)))

(define-func gtk_plug_construct
  none
  ((GtkPlug plug)
   (uint id)))

(define-func gtk_plug_new
  GtkWidget
  ((uint socket_id)))

;; Socket

(define-object GtkSocket (GtkContainer)
  (fields
   (GdkWindow plug_window)))

(define-func gtk_socket_new
  GtkWidget
  ())

(define-func gtk_socket_add_id
  none
  ((GtkSocket socket)
   (ulong window_id)))

(define-func gtk_socket_get_id
  ulong
  ((GtkSocket socket)))

;; TearoffMenuItem

(define-object GtkTearoffMenuItem (GtkMenuItem)
  (fields
   (bool torn_off)))

(define-func gtk_tearoff_menu_item_new
  GtkWidget
  ())

;; Calendar

(define-object GtkCalendar (GtkWidget))

(define-func gtk_calendar_new
  GtkWidget
  ())

(define-func gtk_calendar_select_month
  none
  ((GtkCalendar cal)
   (uint month)
   (uint year)))

(define-func gtk_calendar_select_day
  none
  ((GtkCalendar cal)
   (uint day)))

(define-func gtk_calendar_mark_day
  bool
  ((GtkCalendar cal)
   (uint day)))

(define-func gtk_calendar_unmark_day
  bool
  ((GtkCalendar cal)
   (uint day)))

(define-func gtk_calendar_clear_marks
  none
  ((GtkCalendar cal)))

(define-func gtk_calendar_display_options
  none
  ((GtkCalendar cal)
   (GtkCalendarDisplayOptions flags)))

(define-func gtk_calendar_get_date
  none
  ((GtkCalendar cal)
   ((fvec uint 1 out) year)
   ((fvec uint 1 out) month)
   ((fvec uint 1 out) day)))

(define-func gtk_calendar_freeze
  none
  ((GtkCalendar cal)))

(define-func gtk_calendar_thaw
  none
  ((GtkCalendar cal)))

;; IconFactory

(define-object GtkIconFactory (GObject))

(define-boxed GtkIconSet
  (copy gtk_icon_set_copy)
  (free gtk_icon_set_unref))

(define-func gtk_icon_factory_new
  GtkIconFactory
  ())

(define-func gtk_icon_factory_add
  none
  ((GtkIconFactory factory)
   (string stock_id)
   (GtkIconSet icon_set)))

(define-func gtk_icon_factory_lookup
  GtkIconSet
  ((GtkIconFactory factory)
   (string stock_id)))

(define-func gtk_icon_factory_add_default
  none
  ((GtkIconFactory factory)))

(define-func gtk_icon_factory_remove_default
  none
  ((GtkIconFactory factory)))

(define-func gtk_icon_factory_lookup_default
  GtkIconSet
  ((string stock_id)))

;; XXX size_lookup

(define-func gtk_icon_size_register
  GtkIconSize
  ((string name)
   (int width)
   (int height)))

(define-func gtk_icon_size_register_alias
  none
  ((string alias)
   (GtkIconSize target)))

(define-func gtk_icon_size_from_name
  GtkIconSize
  ((string name)))

(define-func gtk_icon_size_get_name
  static_string
  ((GtkIconSize size)))

(define-func gtk_icon_set_render_icon
  GdkPixbuf
  ((GtkIconSet icon_set)
   (GtkStyle style (null-ok))
   (GtkTextDirection direction)
   (GtkStateType state)
   (GtkIconSize size)
   (GtkWidget widget (null-ok))
   (string detail (null-ok))))

;; XXX icon_source foo

;; Image

(define-object GtkImage (GtkMisc))

(define-func gtk_image_new
  GtkWidget
  ())

(define-func gtk_image_new_from_file
  GtkWidget
  ((string filename)))

(define-func gtk_image_new_from_pixbuf
  GtkWidget
  ((GdkPixbuf pixbuf)))

(define-func gtk_image_new_from_stock
  GtkWidget
  ((string stock_id)
   (GtkIconSize size)))

(define-func gtk_image_new_from_icon_set
  GtkWidget
  ((GtkIconSet icon_set)
   (GtkIconSize size)))

(define-func gtk_image_set_from_file
  none
  ((GtkImage image)
   (string filename)))

(define-func gtk_image_set_from_pixbuf
  none
  ((GtkImage image)
   (GdkPixbuf pixbuf)))

(define-func gtk_image_set_from_stock
  none
  ((GtkImage image)
   (string stock_id)
   (GtkIconSize size)))

(define-func gtk_image_set_from_icon_set
  none
  ((GtkImage image)
   (GtkIconSet icon_set)
   (GtkIconSize size)))

(define-func gtk_image_get_pixbuf
  GdkPixbuf
  ((GtkImage image)))

;; ImageMenuItem

(define-object GtkImageMenuItem (GtkMenuItem))

(define-func gtk_image_menu_item_new
  GtkWidget
  ())

(define-func gtk_image_menu_item_new_with_label
  GtkWidget
  ((string label)))

(define-func gtk_image_menu_item_new_with_mnemonic
  GtkWidget
  ((string label)))

(define-func gtk_image_menu_item_new_from_stock
  GtkWidget
  ((string stock_id)
   (GtkAccelGroup accel_group)))

(define-func gtk_image_menu_item_set_image
  none
  ((GtkImageMenuItem item)
   (GtkWidget image)))

(define-func gtk_image_menu_item_get_image
  GtkWidget
  ((GtkImageMenuItem item)))

;; Invisible

(define-object GtkInvisible (GtkWidget))

(define-func gtk_invisible_new
  GtkWidget
  ())

;; SeparatorMenuItem

(define-object GtkSeparatorMenuItem (GtkMenuItem))

(define-func gtk_separator_menu_item_new
  GtkWidget
  ())

;; More defs files

(include "gtktext.defs")

;; Options

(options
 ;; XXX remove the enable-broken when possible
 (includes "#define GTK_ENABLE_BROKEN\n#include <gtk/gtk.h>")
 (init-func "sgtk_init_gtk_gtk_glue")
 (other-inits "sgtk_init_gtk_glib_glue")
 (other-inits "sgtk_init_gtk_gdk_glue")
 (other-inits "sgtk_init_gdk_pixbuf_glue"))