alice
library
manual.

Alice Project

The Gtk structure


________ Synopsis ____________________________________________________

    signature GTK
    structure Gtk : GTK

The Gtk structure provides access to the Gtk toolkit.

See the overview page for a general introduction to the GTK library binding.

See also: GLib, Pango, Atk, Gdk, Canvas


________ Import ______________________________________________________

    import signature GTK from "x-alice:/lib/gtk/GTK-sig"
    import structure Gtk from "x-alice:/lib/gtk/Gtk"
  

________ Interface ___________________________________________________

signature GTK =
sig
    type object
    type gtype
    type gvalue
    type prop
    type prop_initializer

    datatype event =
	EVENT_NOTHING
      | EVENT_DELETE
      | EVENT_DESTROY
      | EVENT_EXPOSE of 
	{window:object, send:bool, 
	 area_x:int, area_y:int, area_height:int, area_width:int,
	 region:object, count:int}
      | EVENT_MOTION_NOTIFY of
	{window:object, send:bool, time:IntInf.int,
	 x:real, y:real,
	 state:int, is_hint:int,
	 device: object, x_root:real, y_root:real}
      | EVENT_BUTTON_PRESS of
	{window:object, send:bool, time:IntInf.int,
	 x:real, y:real, state:int, button:int,
	 device: object, x_root:real, y_root:real}
      | EVENT_2BUTTON_PRESS of
	{window:object, send:bool, time:IntInf.int,
	 x:real, y:real, state:int, button:int,
	 device: object, x_root:real, y_root:real}
      | EVENT_3BUTTON_PRESS of
	{window:object, send:bool, time:IntInf.int,
	 x:real, y:real, state:int, button:int,
	 device: object, x_root:real, y_root:real}
      | EVENT_BUTTON_RELEASE of
	{window:object, send:bool, time:IntInf.int,
	 x:real, y:real, state:int, button:int,
	 device: object, x_root:real, y_root:real}
      | EVENT_KEY_PRESS of
	{window:object, send:bool, time:IntInf.int, state:int,
	 keyval:int, length:int, string:string, 
	 hardware_keycode:int, group:int}
      | EVENT_KEY_RELEASE of
	{window:object, send:bool, time:IntInf.int, state:int,
	 keyval:int, length:int, string:string, 
	 hardware_keycode:int, group:int}
      | EVENT_ENTER_NOTIFY of
	{window:object, send:bool, subwindow:object, time:IntInf.int,
	 x:real, y:real, x_root:real, y_root:real,
	 mode:int, detail:int, focus:bool, state:int}
      | EVENT_LEAVE_NOTIFY of
	{window:object, send:bool, subwindow:object, time:IntInf.int,
	 x:real, y:real, x_root:real, y_root:real,
	 mode:int, detail:int, focus:bool, state:int}
      | EVENT_FOCUS_CHANGE of {window:object, send:bool, hasFocus:bool}
      | EVENT_CONFIGURE of
	{window:object, send:bool, x:int, y:int,
 	 width:int, height:int}
      | EVENT_MAP
      | EVENT_UNMAP
      | EVENT_PROPERTY_NOTIFY
      | EVENT_SELECTION_CLEAR
      | EVENT_SELECTION_REQUEST
      | EVENT_SELECTION_NOTIFY
      | EVENT_PROXIMITY_IN
      | EVENT_PROXIMITY_OUT
      | EVENT_DRAG_ENTER
      | EVENT_DRAG_LEAVE
      | EVENT_DRAG_MOTION
      | EVENT_DRAG_STATUS
      | EVENT_DROP_START
      | EVENT_DROP_FINISHED
      | EVENT_CLIENT_EVENT
      | EVENT_VISIBILITY_NOTIFY of
	{window:object, send:bool, state:int}
      | EVENT_NO_EXPOSE of {window:object, send:bool}
      | EVENT_SCROLL of
	{window:object, send:bool, time:IntInf.int, x:real, y:real,
	 state:int, direction:int, device:object,
	 x_root:real, y_root:real}
      | EVENT_WINDOW_STATE
      | EVENT_SETTING
      | EVENT_UNSUPPORTED of object

    datatype arg = 
	BOOL of bool
      | INT of int
      | REAL of real
      | STRING of string
      | OBJECT of object
      | LIST of object list
      | EVENT of event

    val NULL : object
    val TRUE : int
    val FALSE : int

    type callback_function = object * arg list -> unit
    val signalConnect        : object * string * callback_function -> int
    val signalConnectAfter   : object * string * callback_function -> int
    val signalDisconnect     : object * int -> unit
    val signalHandlerBlock   : object * int -> unit
    val signalHandlerUnblock : object * int -> unit

    val latin1ToUtf8 : string -> string
    val utf8ToLatin1 : string -> string

    val lock : Lock.lock


    structure Types :
    sig
        val string : gtype
        val int    : gtype
        val float  : gtype
        val double : gtype
        val pixbuf : gtype
    end

    structure Value :
    sig
        (* exception TypeError *)

        val undefined : unit -> gvalue

        val int : int -> gvalue
        val enum : int * gtype -> gvalue
        val string : string -> gvalue
        val float : real -> gvalue
        val double : real -> gvalue
        val bool : bool -> gvalue
        val object : object -> gvalue
            
        val toInt : gvalue -> int
        val toString : gvalue -> string
        val toReal : gvalue -> real
        val toBool : gvalue -> bool
        val toObject : gvalue -> object

        val getType : gvalue -> gtype
    end

    structure Prop :
    sig
        val setL : object -> prop_initializer list -> unit

        val set : 'a prop -> object * 'a -> unit
        val get : 'a prop -> object -> 'a 

        val rawSet : object * string * gvalue -> unit
        val rawGet : object * string -> gvalue

        val name : 'a prop -> string

        val prop : 'a prop * 'a -> prop_initializer

        (* creation *)
        val newProp : string * ('a -> gvalue) * (gvalue -> 'a) -> 'a prop
    end
(* end of CORE-sig.aml *)

    structure WidgetFlags :
    sig
        datatype flag =
            APP_PAINTABLE
          | CAN_DEFAULT
          | CAN_FOCUS
          | COMPOSITE_CHILD
          | DOUBLE_BUFFERED
          | HAS_DEFAULT
          | HAS_FOCUS
          | HAS_GRAB
          | MAPPED
          | NO_REPARENT
          | NO_SHOW_ALL
          | NO_WINDOW
          | PARENT_SENSITIVE
          | RC_STYLE
          | REALIZED
          | RECEIVES_DEFAULT
          | SENSITIVE
          | TOPLEVEL
          | VISIBLE
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure UIManagerItemType :
    sig
        datatype flag =
            ACCELERATOR
          | AUTO
          | MENU
          | MENUBAR
          | MENUITEM
          | PLACEHOLDER
          | POPUP
          | SEPARATOR
          | TOOLBAR
          | TOOLITEM
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TreeModelFlags :
    sig
        datatype flag =
            ITERS_PERSIST
          | LIST_ONLY
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TextSearchFlags :
    sig
        datatype flag =
            TEXT_ONLY
          | VISIBLE_ONLY
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TargetFlags :
    sig
        datatype flag =
            APP
          | WIDGET
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure RcFlags :
    sig
        datatype flag =
            BASE
          | BG
          | FG
          | TEXT
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure PrivateFlags :
    sig
        datatype flag =
            ALLOC_NEEDED
          | ANCHORED
          | CHILD_VISIBLE
          | DIRECTION_LTR
          | DIRECTION_SET
          | HAS_SHAPE_MASK
          | IN_REPARENT
          | LEAVE_PENDING
          | REDRAW_ON_ALLOC
          | REQUEST_NEEDED
          | RESIZE_PENDING
          | USER_STYLE
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ObjectFlags :
    sig
        datatype flag =
            FLOATING
          | IN_DESTRUCTION
          | RESERVED_1
          | RESERVED_2
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure IconLookupFlags :
    sig
        datatype flag =
            FORCE_SVG
          | NO_SVG
          | USE_BUILTIN
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure FileFilterFlags :
    sig
        datatype flag =
            DISPLAY_NAME
          | FILENAME
          | MIME_TYPE
          | URI
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure DialogFlags :
    sig
        datatype flag =
            DESTROY_WITH_PARENT
          | MODAL
          | NO_SEPARATOR
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure DestDefaults :
    sig
        datatype flag =
            ALL
          | DROP
          | HIGHLIGHT
          | MOTION
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure DebugFlag :
    sig
        datatype flag =
            KEYBINDINGS
          | MISC
          | MULTIHEAD
          | PLUGSOCKET
          | TEXT
          | TREE
          | UPDATES
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure CellRendererState :
    sig
        datatype flag =
            FOCUSED
          | INSENSITIVE
          | PRELIT
          | SELECTED
          | SORTED
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure CalendarDisplayOptions :
    sig
        datatype flag =
            NO_MONTH_CHANGE
          | SHOW_DAY_NAMES
          | SHOW_HEADING
          | SHOW_WEEK_NUMBERS
          | WEEK_START_MONDAY
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ButtonAction :
    sig
        datatype flag =
            DRAGS
          | EXPANDS
          | IGNORED
          | SELECTS
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure AttachOptions :
    sig
        datatype flag =
            EXPAND
          | FILL
          | SHRINK
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ArgFlags :
    sig
        datatype flag =
            CHILD_ARG
          | CONSTRUCT
          | CONSTRUCT_ONLY
          | READABLE
          | WRITABLE
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure AccelFlags :
    sig
        datatype flag =
            LOCKED
          | MASK
          | VISIBLE
        type t = flag list
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure WrapMode :
    sig
        datatype t =
            CHAR
          | NONE
          | WORD
          | WORD_CHAR
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure WindowType :
    sig
        datatype t =
            POPUP
          | TOPLEVEL
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure WindowPosition :
    sig
        datatype t =
            CENTER
          | CENTER_ALWAYS
          | CENTER_ON_PARENT
          | MOUSE
          | NONE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure WidgetHelpType :
    sig
        datatype t =
            TOOLTIP
          | WHATS_THIS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure Visibility :
    sig
        datatype t =
            FULL
          | NONE
          | PARTIAL
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure UpdateType :
    sig
        datatype t =
            CONTINUOUS
          | DELAYED
          | DISCONTINUOUS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TreeViewDropPosition :
    sig
        datatype t =
            AFTER
          | BEFORE
          | INTO_OR_AFTER
          | INTO_OR_BEFORE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TreeViewColumnSizing :
    sig
        datatype t =
            AUTOSIZE
          | FIXED
          | GROW_ONLY
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ToolbarStyle :
    sig
        datatype t =
            BOTH
          | BOTH_HORIZ
          | ICONS
          | TEXT
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ToolbarSpaceStyle :
    sig
        datatype t =
            EMPTY
          | LINE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ToolbarChildType :
    sig
        datatype t =
            BUTTON
          | RADIOBUTTON
          | SPACE
          | TOGGLEBUTTON
          | WIDGET
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TextWindowType :
    sig
        datatype t =
            BOTTOM
          | LEFT
          | PRIVATE
          | RIGHT
          | TEXT
          | TOP
          | WIDGET
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TextDirection :
    sig
        datatype t =
            LTR
          | NONE
          | RTL
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SubmenuPlacement :
    sig
        datatype t =
            LEFT_RIGHT
          | TOP_BOTTOM
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SubmenuDirection :
    sig
        datatype t =
            LEFT
          | RIGHT
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure StateType :
    sig
        datatype t =
            ACTIVE
          | INSENSITIVE
          | NORMAL
          | PRELIGHT
          | SELECTED
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SpinType :
    sig
        datatype t =
            END
          | HOME
          | PAGE_BACKWARD
          | PAGE_FORWARD
          | STEP_BACKWARD
          | STEP_FORWARD
          | USER_DEFINED
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SpinButtonUpdatePolicy :
    sig
        datatype t =
            ALWAYS
          | IF_VALID
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SortType :
    sig
        datatype t =
            ASCENDING
          | DESCENDING
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SizeGroupMode :
    sig
        datatype t =
            BOTH
          | HORIZONTAL
          | NONE
          | VERTICAL
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SideType :
    sig
        datatype t =
            BOTTOM
          | LEFT
          | RIGHT
          | TOP
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ShadowType :
    sig
        datatype t =
            ETCHED_IN
          | ETCHED_OUT
          | IN
          | NONE
          | OUT
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure SelectionMode :
    sig
        datatype t =
            BROWSE
          | EXTENDED
          | MULTIPLE
          | NONE
          | SINGLE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ScrollType :
    sig
        datatype t =
            END
          | JUMP
          | NONE
          | PAGE_BACKWARD
          | PAGE_DOWN
          | PAGE_FORWARD
          | PAGE_LEFT
          | PAGE_RIGHT
          | PAGE_UP
          | START
          | STEP_BACKWARD
          | STEP_DOWN
          | STEP_FORWARD
          | STEP_LEFT
          | STEP_RIGHT
          | STEP_UP
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ScrollStep :
    sig
        datatype t =
            ENDS
          | HORIZONTAL_ENDS
          | HORIZONTAL_PAGES
          | HORIZONTAL_STEPS
          | PAGES
          | STEPS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ResponseType :
    sig
        datatype t =
            ACCEPT
          | APPLY
          | CANCEL
          | CLOSE
          | DELETE_EVENT
          | HELP
          | NO
          | NONE
          | OK
          | REJECT
          | YES
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ResizeMode :
    sig
        datatype t =
            IMMEDIATE
          | PARENT
          | QUEUE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ReliefStyle :
    sig
        datatype t =
            HALF
          | NONE
          | NORMAL
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure RcTokenType :
    sig
        datatype t =
            ACTIVE
          | APPLICATION
          | BASE
          | BG
          | BG_PIXMAP
          | BIND
          | BINDING
          | CLASS
          | ENGINE
          | FG
          | FONT
          | FONTSET
          | FONT_NAME
          | GTK
          | HIGHEST
          | IM_MODULE_FILE
          | IM_MODULE_PATH
          | INCLUDE
          | INSENSITIVE
          | INVALID
          | LAST
          | LOWEST
          | LTR
          | MODULE_PATH
          | NORMAL
          | PIXMAP_PATH
          | PRELIGHT
          | RC
          | RTL
          | SELECTED
          | STOCK
          | STYLE
          | TEXT
          | THEME
          | WIDGET
          | WIDGET_CLASS
          | XTHICKNESS
          | YTHICKNESS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ProgressBarStyle :
    sig
        datatype t =
            CONTINUOUS
          | DISCRETE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ProgressBarOrientation :
    sig
        datatype t =
            BOTTOM_TO_TOP
          | LEFT_TO_RIGHT
          | RIGHT_TO_LEFT
          | TOP_TO_BOTTOM
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure PreviewType :
    sig
        datatype t =
            COLOR
          | GRAYSCALE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure PositionType :
    sig
        datatype t =
            BOTTOM
          | LEFT
          | RIGHT
          | TOP
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure PolicyType :
    sig
        datatype t =
            ALWAYS
          | AUTOMATIC
          | NEVER
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure PathType :
    sig
        datatype t =
            CLASS
          | WIDGET
          | WIDGET_CLASS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure PathPriorityType :
    sig
        datatype t =
            APPLICATION
          | GTK
          | HIGHEST
          | LOWEST
          | RC
          | THEME
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure PackType :
    sig
        datatype t =
            END
          | START
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure Orientation :
    sig
        datatype t =
            HORIZONTAL
          | VERTICAL
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure NotebookTab :
    sig
        datatype t =
            FIRST
          | LAST
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure MovementStep :
    sig
        datatype t =
            BUFFER_ENDS
          | DISPLAY_LINES
          | DISPLAY_LINE_ENDS
          | HORIZONTAL_PAGES
          | LOGICAL_POSITIONS
          | PAGES
          | PARAGRAPHS
          | PARAGRAPH_ENDS
          | VISUAL_POSITIONS
          | WORDS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure MetricType :
    sig
        datatype t =
            CENTIMETERS
          | INCHES
          | PIXELS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure MessageType :
    sig
        datatype t =
            ERROR
          | INFO
          | QUESTION
          | WARNING
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure MenuDirectionType :
    sig
        datatype t =
            CHILD
          | NEXT
          | PARENT
          | PREV
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure MatchType :
    sig
        datatype t =
            ALL
          | ALL_TAIL
          | EXACT
          | HEAD
          | LAST
          | TAIL
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure Justification :
    sig
        datatype t =
            CENTER
          | FILL
          | LEFT
          | RIGHT
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure IMStatusStyle :
    sig
        datatype t =
            CALLBACK
          | NOTHING
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure IMPreeditStyle :
    sig
        datatype t =
            CALLBACK
          | NONE
          | NOTHING
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ImageType :
    sig
        datatype t =
            ANIMATION
          | EMPTY
          | ICON_SET
          | IMAGE
          | PIXBUF
          | PIXMAP
          | STOCK
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure IconThemeError :
    sig
        datatype t =
            FAILED
          | NOT_FOUND
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure IconSize :
    sig
        datatype t =
            BUTTON
          | DIALOG
          | DND
          | INVALID
          | LARGE_TOOLBAR
          | MENU
          | SMALL_TOOLBAR
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure FileChooserError :
    sig
        datatype t =
            BAD_FILENAME
          | NONEXISTENT
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure FileChooserAction :
    sig
        datatype t =
            CREATE_FOLDER
          | OPEN
          | SAVE
          | SELECT_FOLDER
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ExpanderStyle :
    sig
        datatype t =
            COLLAPSED
          | EXPANDED
          | SEMI_COLLAPSED
          | SEMI_EXPANDED
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure DirectionType :
    sig
        datatype t =
            DOWN
          | LEFT
          | RIGHT
          | TAB_BACKWARD
          | TAB_FORWARD
          | UP
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure DeleteType :
    sig
        datatype t =
            CHARS
          | DISPLAY_LINES
          | DISPLAY_LINE_ENDS
          | PARAGRAPHS
          | PARAGRAPH_ENDS
          | WHITESPACE
          | WORDS
          | WORD_ENDS
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure CurveType :
    sig
        datatype t =
            FREE
          | LINEAR
          | SPLINE
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure CornerType :
    sig
        datatype t =
            BOTTOM_LEFT
          | BOTTOM_RIGHT
          | TOP_LEFT
          | TOP_RIGHT
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure CellType :
    sig
        datatype t =
            EMPTY
          | PIXMAP
          | PIXTEXT
          | TEXT
          | WIDGET
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure CellRendererMode :
    sig
        datatype t =
            ACTIVATABLE
          | EDITABLE
          | INERT
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ButtonsType :
    sig
        datatype t =
            CANCEL
          | CLOSE
          | NONE
          | OK
          | OK_CANCEL
          | YES_NO
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ButtonBoxStyle :
    sig
        datatype t =
            DEFAULT_STYLE
          | EDGE
          | END
          | SPREAD
          | START
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure ArrowType :
    sig
        datatype t =
            DOWN
          | LEFT
          | RIGHT
          | UP
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure AnchorType :
    sig
        datatype t =
            CENTER
          | E
          | EAST
          | N
          | NE
          | NORTH
          | NORTH_EAST
          | NORTH_WEST
          | NW
          | S
          | SE
          | SOUTH
          | SOUTH_EAST
          | SOUTH_WEST
          | SW
          | W
          | WEST
        val getType : unit -> gtype
        val toInt   : t -> int
        val fromInt : int -> t
    end
    structure TreeRowReference :
    sig
        (* constructors *)
        val newProxy : object * object * object -> object
        val new : object * object -> object
        (* methods *)
        val reordered : object * object * object * int -> int
        val deleted : object * object -> unit
        val inserted : object * object -> unit
        val free : object -> unit
        val copy : object -> object
        val valid : object -> bool
        val getPath : object -> object
        val getType : unit -> gtype
    end
    structure TreeIter :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        val free : object -> unit
        val copy : object -> object
    end
    structure TextIter :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val order : object * object -> unit
        val inRange : object * object * object -> bool
        val compare : object * object -> int
        val equal : object * object -> bool
        val backwardSearch : object * string * TextSearchFlags.t * object * object * object -> bool
        val forwardSearch : object * string * TextSearchFlags.t * object * object * object -> bool
        val backwardFindChar : object * object * object * object -> bool
        val forwardFindChar : object * object * object * object -> bool
        val backwardToTagToggle : object * object -> bool
        val forwardToTagToggle : object * object -> bool
        val setVisibleLineIndex : object * int -> unit
        val setVisibleLineOffset : object * int -> unit
        val forwardToLineEnd : object -> bool
        val forwardToEnd : object -> unit
        val setLineIndex : object * int -> unit
        val setLineOffset : object * int -> unit
        val setLine : object * int -> unit
        val setOffset : object * int -> unit
        val backwardVisibleCursorPositions : object * int -> bool
        val forwardVisibleCursorPositions : object * int -> bool
        val backwardVisibleCursorPosition : object -> bool
        val forwardVisibleCursorPosition : object -> bool
        val backwardCursorPositions : object * int -> bool
        val forwardCursorPositions : object * int -> bool
        val backwardCursorPosition : object -> bool
        val forwardCursorPosition : object -> bool
        val backwardSentenceStarts : object * int -> bool
        val forwardSentenceEnds : object * int -> bool
        val backwardSentenceStart : object -> bool
        val forwardSentenceEnd : object -> bool
        val backwardVisibleWordStarts : object * int -> bool
        val forwardVisibleWordEnds : object * int -> bool
        val backwardVisibleWordStart : object -> bool
        val forwardVisibleWordEnd : object -> bool
        val backwardWordStarts : object * int -> bool
        val forwardWordEnds : object * int -> bool
        val backwardWordStart : object -> bool
        val forwardWordEnd : object -> bool
        val backwardLines : object * int -> bool
        val forwardLines : object * int -> bool
        val backwardLine : object -> bool
        val forwardLine : object -> bool
        val backwardChars : object * int -> bool
        val forwardChars : object * int -> bool
        val backwardChar : object -> bool
        val forwardChar : object -> bool
        val isStart : object -> bool
        val isEnd : object -> bool
        val getLanguage : object -> object
        val getAttributes : object * object -> bool
        val getBytesInLine : object -> int
        val getCharsInLine : object -> int
        val isCursorPosition : object -> bool
        val endsLine : object -> bool
        val startsLine : object -> bool
        val insideSentence : object -> bool
        val endsSentence : object -> bool
        val startsSentence : object -> bool
        val insideWord : object -> bool
        val endsWord : object -> bool
        val startsWord : object -> bool
        val canInsert : object * bool -> bool
        val editable : object * bool -> bool
        val getTags : object -> object list
        val hasTag : object * object -> bool
        val togglesTag : object * object -> bool
        val endsTag : object * object -> bool
        val beginsTag : object * object -> bool
        val getToggledTags : object * bool -> object list
        val getChildAnchor : object -> object
        val getMarks : object -> object list
        val getPixbuf : object -> object
        val getVisibleText : object * object -> string
        val getVisibleSlice : object * object -> string
        val getText : object * object -> string
        val getSlice : object * object -> string
        val getChar : object -> int
        val getVisibleLineIndex : object -> int
        val getVisibleLineOffset : object -> int
        val getLineIndex : object -> int
        val getLineOffset : object -> int
        val getLine : object -> int
        val getOffset : object -> int
        val getType : unit -> gtype
        val free : object -> unit
        val copy : object -> object
        val getBuffer : object -> object
    end
    structure TextAttributes :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        val reference : object -> unit
        val unref : object -> unit
        val copyValues : object * object -> unit
        val copy : object -> object
        val getFieldWrapMode : object -> WrapMode.t
        val setFieldWrapMode : object * WrapMode.t -> unit
        val getFieldTabs : object -> object
        val setFieldTabs : object * object -> unit
        val getFieldRightMargin : object -> int
        val setFieldRightMargin : object * int -> unit
        val getFieldRealized : object -> int
        val setFieldRealized : object * int -> unit
        val getFieldPixelsInsideWrap : object -> int
        val setFieldPixelsInsideWrap : object * int -> unit
        val getFieldPixelsBelowLines : object -> int
        val setFieldPixelsBelowLines : object * int -> unit
        val getFieldPixelsAboveLines : object -> int
        val setFieldPixelsAboveLines : object * int -> unit
        val getFieldLeftMargin : object -> int
        val setFieldLeftMargin : object * int -> unit
        val getFieldLanguage : object -> object
        val setFieldLanguage : object * object -> unit
        val getFieldJustification : object -> Justification.t
        val setFieldJustification : object * Justification.t -> unit
        val getFieldInvisible : object -> int
        val setFieldInvisible : object * int -> unit
        val getFieldIndent : object -> int
        val setFieldIndent : object * int -> unit
        val getFieldFontScale : object -> real
        val setFieldFontScale : object * real -> unit
        val getFieldFont : object -> object
        val setFieldFont : object * object -> unit
        val getFieldEditable : object -> int
        val setFieldEditable : object * int -> unit
        val getFieldDirection : object -> TextDirection.t
        val setFieldDirection : object * TextDirection.t -> unit
        val getFieldBgFullHeight : object -> int
        val setFieldBgFullHeight : object * int -> unit
        val getFieldAppearance : object -> object
        val setFieldAppearance : object * object -> unit
    end
    structure TextAppearance :
    sig
        (* constructors *)
        val new : { bg_color : object, bg_stipple : object, draw_bg : int, fg_color : object, fg_stipple : object, rise : int, strikethrough : int, underline : int } -> object
        (* methods *)
        val getFieldUnderline : object -> int
        val setFieldUnderline : object * int -> unit
        val getFieldStrikethrough : object -> int
        val setFieldStrikethrough : object * int -> unit
        val getFieldRise : object -> int
        val setFieldRise : object * int -> unit
        val getFieldFgStipple : object -> object
        val setFieldFgStipple : object * object -> unit
        val getFieldFgColor : object -> object
        val setFieldFgColor : object * object -> unit
        val getFieldDrawBg : object -> int
        val setFieldDrawBg : object * int -> unit
        val getFieldBgStipple : object -> object
        val setFieldBgStipple : object * object -> unit
        val getFieldBgColor : object -> object
        val setFieldBgColor : object * object -> unit
    end
    structure SelectionData :
    sig
        (* constructors *)
        val new : { data : string, format : int, selection : Word32.word, target : Word32.word, ty : Word32.word } -> object
        (* methods *)
        val treeGetRowDragData : object -> bool * object * object
        val treeSetRowDragData : object * object * object -> bool
        val targetsIncludeImage : object * bool -> bool
        val getUris : object -> object
        val setUris : object * (string vector) -> bool
        val getPixbuf : object -> object
        val setPixbuf : object * object -> bool
        val free : object -> unit
        val copy : object -> object
        val getType : unit -> gtype
        val targetsIncludeText : object -> bool
        val getTargets : object * object * int -> bool * int
        val getText : object -> string
        val setText : object * string * int -> bool
        val set : object * Word32.word * int * string * int -> unit
        val getFieldType : object -> Word32.word
        val setFieldType : object * Word32.word -> unit
        val getFieldTarget : object -> Word32.word
        val setFieldTarget : object * Word32.word -> unit
        val getFieldSelection : object -> Word32.word
        val setFieldSelection : object * Word32.word -> unit
        val getFieldFormat : object -> int
        val setFieldFormat : object * int -> unit
        val getFieldData : object -> string
        val setFieldData : object * string -> unit
    end
    structure Requisition :
    sig
        (* constructors *)
        val new : { height : int, width : int } -> object
        (* methods *)
        val free : object -> unit
        val copy : object -> object
        val getType : unit -> gtype
        val getFieldWidth : object -> int
        val setFieldWidth : object * int -> unit
        val getFieldHeight : object -> int
        val setFieldHeight : object * int -> unit
    end
    structure IconSource :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getSize : object -> IconSize.t
        val getState : object -> StateType.t
        val getDirection : object -> TextDirection.t
        val setSize : object * IconSize.t -> unit
        val setState : object * StateType.t -> unit
        val setDirection : object * TextDirection.t -> unit
        val getDirectionWildcarded : object -> bool
        val getStateWildcarded : object -> bool
        val getSizeWildcarded : object -> bool
        val setSizeWildcarded : object * bool -> unit
        val setStateWildcarded : object * bool -> unit
        val setDirectionWildcarded : object * bool -> unit
        val getPixbuf : object -> object
        val getIconName : object -> string
        val getFilename : object -> string
        val setPixbuf : object * object -> unit
        val setIconName : object * string -> unit
        val setFilename : object * string -> unit
        val free : object -> unit
        val copy : object -> object
        val getType : unit -> gtype
    end
    structure IconSet :
    sig
        (* constructors *)
        val newFromPixbuf : object -> object
        (* methods *)
        val getSizes : object * object * int -> int
        val addSource : object * object -> unit
        val renderIcon : object * object * TextDirection.t * StateType.t * IconSize.t * object * string -> object
        val copy : object -> object
        val unref : object -> unit
        val reference : object -> object
        val new : unit -> object
        val getType : unit -> gtype
    end
    structure IconInfo :
    sig
        (* constructors *)
        (* methods *)
        val getDisplayName : object -> string
        val getAttachPoints : object * int -> bool * object * int
        val getEmbeddedRect : object * object -> bool
        val setRawCoordinates : object * bool -> unit
        val loadIcon : object -> object
        val getBuiltinPixbuf : object -> object
        val getFilename : object -> string
        val getBaseSize : object -> int
        val free : object -> unit
        val copy : object -> object
        val getType : unit -> gtype
    end
    structure Border :
    sig
        (* constructors *)
        (* methods *)
        val free : object -> unit
        val copy : object -> object
        val getType : unit -> gtype
    end
    structure TargetEntry :
    sig
        (* constructors *)
        val new : { flags : int, info : int, target : string } -> object
        (* methods *)
        val getFieldTarget : object -> string
        val setFieldTarget : object * string -> unit
        val getFieldInfo : object -> int
        val setFieldInfo : object * int -> unit
        val getFieldFlags : object -> int
        val setFieldFlags : object * int -> unit
    end
    structure TreePath :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val isDescendant : object * object -> bool
        val isAncestor : object * object -> bool
        val down : object -> unit
        val up : object -> int
        val prev : object -> int
        val next : object -> unit
        val compare : object * object -> int
        val copy : object -> object
        val free : object -> unit
        val getDepth : object -> int
        val prependIndex : object * int -> unit
        val appendIndex : object * int -> unit
        val newFirst : unit -> object
        val toString : object -> string
        val newFromIndices : int -> object
        val newFromString : string -> object
    end
    structure BindingSet :
    sig
        (* constructors *)
        val find : string -> object
        val new : string -> object
        (* methods *)
        val addPath : object * PathType.t * string * PathPriorityType.t -> unit
        val activate : object * int * Gdk.ModifierType.t * object -> bool
        val byClass : object -> object
    end
    structure WindowGroup :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val removeWindow : object * object -> unit
        val addWindow : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Window :
    sig
        (* constructors *)
        val new : WindowType.t -> object
        (* methods *)
        val setDefaultIconName : string -> unit
        val getIconName : object -> string
        val setIconName : object * string -> unit
        val getFocusOnMap : object -> bool
        val setFocusOnMap : object * bool -> unit
        val addEmbeddedXid : object * int -> unit
        val removeEmbeddedXid : object * int -> unit
        val reshowWithInitialSize : object -> unit
        val parseGeometry : object * string -> bool
        val getPosition : object * int * int -> int * int
        val move : object * int * int -> unit
        val getSize : object * int * int -> int * int
        val resize : object * int * int -> unit
        val getDefaultSize : object * int * int -> int * int
        val setDefaultSize : object * int * int -> unit
        val beginMoveDrag : object * int * int * int * int -> unit
        val beginResizeDrag : object * Gdk.WindowEdge.t * int * int * int * int -> unit
        val setKeepBelow : object * bool -> unit
        val setKeepAbove : object * bool -> unit
        val unfullscreen : object -> unit
        val fullscreen : object -> unit
        val unmaximize : object -> unit
        val maximize : object -> unit
        val unstick : object -> unit
        val stick : object -> unit
        val deiconify : object -> unit
        val iconify : object -> unit
        val present : object -> unit
        val propagateKeyEvent : object * object -> bool
        val activateKey : object * object -> bool
        val getMnemonicModifier : object -> Gdk.ModifierType.t
        val setMnemonicModifier : object * Gdk.ModifierType.t -> unit
        val mnemonicActivate : object * int * Gdk.ModifierType.t -> bool
        val removeMnemonic : object * int * object -> unit
        val addMnemonic : object * int * object -> unit
        val listToplevels : unit -> object list
        val getModal : object -> bool
        val setModal : object * bool -> unit
        val setAutoStartupNotification : bool -> unit
        val setDefaultIconFromFile : string -> unit
        val setDefaultIcon : object -> unit
        val getDefaultIconList : unit -> object list
        val setDefaultIconList : (object list) -> unit
        val getIcon : object -> object
        val setIconFromFile : object * string -> unit
        val setIcon : object * object -> unit
        val getIconList : object -> object list
        val setIconList : object * (object list) -> unit
        val getDecorated : object -> bool
        val setDecorated : object * bool -> unit
        val getFrameDimensions : object * int * int * int * int -> int * int * int * int
        val setFrameDimensions : object * int * int * int * int -> unit
        val getHasFrame : object -> bool
        val setHasFrame : object * bool -> unit
        val hasToplevelFocus : object -> bool
        val isActive : object -> bool
        val getScreen : object -> object
        val setScreen : object * object -> unit
        val getGravity : object -> Gdk.Gravity.t
        val setGravity : object * Gdk.Gravity.t -> unit
        val getResizable : object -> bool
        val setResizable : object * bool -> unit
        val getDestroyWithParent : object -> bool
        val setDestroyWithParent : object * bool -> unit
        val getAcceptFocus : object -> bool
        val setAcceptFocus : object * bool -> unit
        val getSkipPagerHint : object -> bool
        val setSkipPagerHint : object * bool -> unit
        val getSkipTaskbarHint : object -> bool
        val setSkipTaskbarHint : object * bool -> unit
        val getTypeHint : object -> Gdk.WindowTypeHint.t
        val setTypeHint : object * Gdk.WindowTypeHint.t -> unit
        val getTransientFor : object -> object
        val setTransientFor : object * object -> unit
        val activateDefault : object -> bool
        val setDefault : object * object -> unit
        val getFocus : object -> object
        val setFocus : object * object -> unit
        val activateFocus : object -> bool
        val setPosition : object * WindowPosition.t -> unit
        val removeAccelGroup : object * object -> unit
        val addAccelGroup : object * object -> unit
        val getRole : object -> string
        val setRole : object * string -> unit
        val setWmclass : object * string * string -> unit
        val getTitle : object -> string
        val setTitle : object * string -> unit
        val getType : unit -> gtype
        val tooltipsGetInfoFromTipWindow : object -> bool * object * object
        val getFieldWmclassName : object -> string
        val setFieldWmclassName : object * string -> unit
        val getFieldWmclassClass : object -> string
        val setFieldWmclassClass : object * string -> unit
        val getFieldWmRole : object -> string
        val setFieldWmRole : object * string -> unit
        val getFieldTypeHint : object -> int
        val setFieldTypeHint : object * int -> unit
        val getFieldType : object -> int
        val setFieldType : object * int -> unit
        val getFieldTransientParent : object -> object
        val setFieldTransientParent : object * object -> unit
        val getFieldTitle : object -> string
        val setFieldTitle : object * string -> unit
        val getFieldStickInitially : object -> int
        val setFieldStickInitially : object * int -> unit
        val getFieldPosition : object -> int
        val setFieldPosition : object * int -> unit
        val getFieldNeedDefaultSize : object -> int
        val setFieldNeedDefaultSize : object * int -> unit
        val getFieldNeedDefaultPosition : object -> int
        val setFieldNeedDefaultPosition : object * int -> unit
        val getFieldModal : object -> int
        val setFieldModal : object * int -> unit
        val getFieldMnemonicModifier : object -> Gdk.ModifierType.t
        val setFieldMnemonicModifier : object * Gdk.ModifierType.t -> unit
        val getFieldMaximizeInitially : object -> int
        val setFieldMaximizeInitially : object * int -> unit
        val getFieldKeysChangedHandler : object -> int
        val setFieldKeysChangedHandler : object * int -> unit
        val getFieldIconifyInitially : object -> int
        val setFieldIconifyInitially : object * int -> unit
        val getFieldHasUserRefCount : object -> int
        val setFieldHasUserRefCount : object * int -> unit
        val getFieldHasFrame : object -> int
        val setFieldHasFrame : object * int -> unit
        val getFieldHasFocus : object -> int
        val setFieldHasFocus : object * int -> unit
        val getFieldGroup : object -> object
        val setFieldGroup : object * object -> unit
        val getFieldGravity : object -> int
        val setFieldGravity : object * int -> unit
        val getFieldFrameTop : object -> int
        val setFieldFrameTop : object * int -> unit
        val getFieldFrameRight : object -> int
        val setFieldFrameRight : object * int -> unit
        val getFieldFrameLeft : object -> int
        val setFieldFrameLeft : object * int -> unit
        val getFieldFrameBottom : object -> int
        val setFieldFrameBottom : object * int -> unit
        val getFieldFrame : object -> object
        val setFieldFrame : object * object -> unit
        val getFieldFocusWidget : object -> object
        val setFieldFocusWidget : object * object -> unit
        val getFieldDestroyWithParent : object -> int
        val setFieldDestroyWithParent : object * int -> unit
        val getFieldDefaultWidget : object -> object
        val setFieldDefaultWidget : object * object -> unit
        val getFieldDecorated : object -> int
        val setFieldDecorated : object * int -> unit
        val getFieldConfigureRequestCount : object -> int
        val setFieldConfigureRequestCount : object * int -> unit
        val getFieldConfigureNotifyReceived : object -> int
        val setFieldConfigureNotifyReceived : object * int -> unit
        val getFieldAllowShrink : object -> int
        val setFieldAllowShrink : object * int -> unit
        val getFieldAllowGrow : object -> int
        val setFieldAllowGrow : object * int -> unit
        (* properties *)
    end
    structure Widget :
    sig
        (* constructors *)
        val new : gtype * string -> object
        (* methods *)
        val removeMnemonicLabel : object * object -> unit
        val addMnemonicLabel : object * object -> unit
        val listMnemonicLabels : object -> object list
        val classPath : object * int * (string vector) * (string vector) -> int
        val path : object * int * (string vector) * (string vector) -> int
        val resetShapes : object -> unit
        val shapeCombineMask : object * object * int * int -> unit
        val getDefaultDirection : unit -> TextDirection.t
        val setDefaultDirection : TextDirection.t -> unit
        val getDirection : object -> TextDirection.t
        val setDirection : object * TextDirection.t -> unit
        val getDefaultVisual : unit -> object
        val getDefaultColormap : unit -> object
        val setDefaultColormap : object -> unit
        val getDefaultStyle : unit -> object
        val styleGet : object * string -> unit
        val styleGetProperty : object * string -> gvalue
        val classFindStyleProperty : object * string -> object
        val classInstallStylePropertyParser : object * object * object -> unit
        val classInstallStyleProperty : object * object -> unit
        val popColormap : unit -> unit
        val popCompositeChild : unit -> unit
        val pushCompositeChild : unit -> unit
        val pushColormap : object -> unit
        val resetRcStyles : object -> unit
        val getCompositeName : object -> string
        val setCompositeName : object * string -> unit
        val renderIcon : object * string * IconSize.t * string -> object
        val createPangoLayout : object * string -> object
        val getPangoContext : object -> object
        val createPangoContext : object -> object
        val modifyFont : object * object -> unit
        val modifyBase : object * StateType.t * object -> unit
        val modifyText : object * StateType.t * object -> unit
        val modifyBg : object * StateType.t * object -> unit
        val modifyFg : object * StateType.t * object -> unit
        val getModifierStyle : object -> object
        val modifyStyle : object * object -> unit
        val getStyle : object -> object
        val ensureStyle : object -> unit
        val setStyle : object * object -> unit
        val hideOnDelete : object -> bool
        val translateCoordinates : object * object * int * int * int * int -> bool * int * int
        val isAncestor : object * object -> bool
        val getPointer : object * int * int -> int * int
        val getEvents : object -> int
        val setColormap : object * object -> unit
        val getAccessible : object -> object
        val getClipboard : object * Word32.word -> object
        val getSettings : object -> object
        val getRootWindow : object -> object
        val getDisplay : object -> object
        val hasScreen : object -> bool
        val getScreen : object -> object
        val getVisual : object -> object
        val getColormap : object -> object
        val getAncestor : object * gtype -> object
        val getToplevel : object -> object
        val getExtensionEvents : object -> Gdk.ExtensionMode.t
        val setExtensionEvents : object * Gdk.ExtensionMode.t -> unit
        val addEvents : object * int -> unit
        val setEvents : object * int -> unit
        val getSizeRequest : object * int * int -> int * int
        val setSizeRequest : object * int * int -> unit
        val childFocus : object * DirectionType.t -> bool
        val getParentWindow : object -> object
        val getParent : object -> object
        val getChildVisible : object -> bool
        val setChildVisible : object * bool -> unit
        val setParentWindow : object * object -> unit
        val setParent : object * object -> unit
        val setRedrawOnAllocate : object * bool -> unit
        val setDoubleBuffered : object * bool -> unit
        val setAppPaintable : object * bool -> unit
        val setSensitive : object * bool -> unit
        val setState : object * StateType.t -> unit
        val getName : object -> string
        val setName : object * string -> unit
        val grabDefault : object -> unit
        val grabFocus : object -> unit
        val isFocus : object -> bool
        val thawChildNotify : object -> unit
        val childNotify : object * string -> unit
        val freezeChildNotify : object -> unit
        val regionIntersect : object * object -> object
        val intersect : object * object * object -> bool
        val reparent : object * object -> unit
        val setScrollAdjustments : object * object * object -> bool
        val activate : object -> bool
        val sendExpose : object * object -> int
        val event : object * object -> bool
        val mnemonicActivate : object * bool -> bool
        val canActivateAccel : object * int -> bool
        val listAccelClosures : object -> object list
        val setAccelPath : object * string * object -> unit
        val removeAccelerator : object * object * int * Gdk.ModifierType.t -> bool
        val addAccelerator : object * string * object * int * Gdk.ModifierType.t * AccelFlags.t -> unit
        val getChildRequisition : object * object -> unit
        val sizeAllocate : object * object -> unit
        val sizeRequest : object * object -> unit
        val draw : object * object -> unit
        val queueResizeNoRedraw : object -> unit
        val queueResize : object -> unit
        val queueClearArea : object * int * int * int * int -> unit
        val queueClear : object -> unit
        val queueDrawArea : object * int * int * int * int -> unit
        val queueDraw : object -> unit
        val unrealize : object -> unit
        val realize : object -> unit
        val unmap : object -> unit
        val map : object -> unit
        val getNoShowAll : object -> bool
        val setNoShowAll : object * bool -> unit
        val hideAll : object -> unit
        val showAll : object -> unit
        val hide : object -> unit
        val showNow : object -> unit
        val show : object -> unit
        val unparent : object -> unit
        val set : object * string -> unit
        val destroyed : object -> object
        val destroy : object -> unit
        val unref : object -> unit
        val reference : object -> object
        val getType : unit -> gtype
        val selectionClear : object * object -> bool
        val selectionRemoveAll : object -> unit
        val selectionConvert : object * Word32.word * Word32.word * int -> bool
        val selectionClearTargets : object * Word32.word -> unit
        val selectionAddTargets : object * Word32.word * object * int -> unit
        val selectionAddTarget : object * Word32.word * Word32.word * int -> unit
        val selectionOwnerSet : object * Word32.word * int -> bool
        val rcGetStyle : object -> object
        val menuGetForAttachWidget : object -> object list
        val propagateEvent : object * object -> unit
        val grabRemove : object -> unit
        val grabAdd : object -> unit
        val dragSourceAddTextTargets : object -> unit
        val dragDestAddUriTargets : object -> unit
        val dragDestAddImageTargets : object -> unit
        val dragDestAddTextTargets : object -> unit
        val dragBegin : object * object * Gdk.DragAction.t * int * object -> object
        val dragSourceSetTargetList : object * object -> unit
        val dragSourceGetTargetList : object -> object
        val dragSourceSetIconStock : object * string -> unit
        val dragSourceSetIconPixbuf : object * object -> unit
        val dragSourceSetIcon : object * object * object * object -> unit
        val dragSourceUnset : object -> unit
        val dragSourceSet : object * Gdk.ModifierType.t * (object vector) * Gdk.DragAction.t -> unit
        val dragDestSetTargetList : object * object -> unit
        val dragDestGetTargetList : object -> object
        val dragDestFindTarget : object * object * object -> Word32.word
        val dragDestUnset : object -> unit
        val dragDestSetProxy : object * object * Gdk.DragProtocol.t * bool -> unit
        val dragDestSet : object * DestDefaults.t * (object vector) * Gdk.DragAction.t -> unit
        val dragUnhighlight : object -> unit
        val dragHighlight : object -> unit
        val dragGetData : object * object * Word32.word * int -> unit
        val dragCheckThreshold : object * int * int * int * int -> bool
        val getFieldWindow : object -> object
        val setFieldWindow : object * object -> unit
        val getFieldStyle : object -> object
        val setFieldStyle : object * object -> unit
        val getFieldState : object -> int
        val setFieldState : object * int -> unit
        val getFieldSavedState : object -> int
        val setFieldSavedState : object * int -> unit
        val getFieldParent : object -> object
        val setFieldParent : object * object -> unit
        val getFieldName : object -> string
        val setFieldName : object * string -> unit
        val getFieldAllocation : object -> object
        val setFieldAllocation : object * object -> unit
        (* properties *)
        val sensitive : bool prop
        val hasDefault : bool prop
        val hasFocus : bool prop
        val canFocus : bool prop
        val canDefault : bool prop
    end
    structure VSeparator :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure VScrollbar :
    sig
        (* constructors *)
        val new : object -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure VScale :
    sig
        (* constructors *)
        val newWithRange : real * real * real -> object
        val new : object -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure VRuler :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure VPaned :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure Viewport :
    sig
        (* constructors *)
        val new : object * object -> object
        (* methods *)
        val getShadowType : object -> ShadowType.t
        val setShadowType : object * ShadowType.t -> unit
        val setVadjustment : object * object -> unit
        val setHadjustment : object * object -> unit
        val getVadjustment : object -> object
        val getHadjustment : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure VButtonBox :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setLayoutDefault : ButtonBoxStyle.t -> unit
        val getLayoutDefault : unit -> ButtonBoxStyle.t
        val setSpacingDefault : int -> unit
        val getSpacingDefault : unit -> int
        val getType : unit -> gtype
        (* properties *)
    end
    structure VBox :
    sig
        (* constructors *)
        val new : bool * int -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure UIManager :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val newMergeId : object -> int
        val ensureUpdate : object -> unit
        val getUI : object -> string
        val removeUI : object * int -> unit
        val addUI : object * int * string * string * string * UIManagerItemType.t * bool -> unit
        val addUIFromFile : object * string -> int
        val addUIFromString : object * string * object -> int
        val getAction : object * string -> object
        val getToplevels : object * UIManagerItemType.t -> object list
        val getWidget : object * string -> object
        val getAccelGroup : object -> object
        val getActionGroups : object -> object list
        val removeActionGroup : object * object -> unit
        val insertActionGroup : object * object * int -> unit
        val getAddTearoffs : object -> bool
        val setAddTearoffs : object * bool -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeViewColumn :
    sig
        (* constructors *)
        val newWithAttributes : string * object -> object
        val new : unit -> object
        (* methods *)
        val cellGetPosition : object * object * int * int -> int * int
        val focusCell : object * object -> unit
        val cellIsVisible : object -> bool
        val cellGetSize : object * object * int * int * int * int -> int * int * int * int
        val cellSetCellData : object * object * object * bool * bool -> unit
        val getSortOrder : object -> SortType.t
        val setSortOrder : object * SortType.t -> unit
        val getSortIndicator : object -> bool
        val setSortIndicator : object * bool -> unit
        val getSortColumnId : object -> int
        val setSortColumnId : object * int -> unit
        val getReorderable : object -> bool
        val setReorderable : object * bool -> unit
        val getAlignment : object -> real
        val setAlignment : object * real -> unit
        val getWidget : object -> object
        val setWidget : object * object -> unit
        val getClickable : object -> bool
        val setClickable : object * bool -> unit
        val getExpand : object -> bool
        val setExpand : object * bool -> unit
        val getTitle : object -> string
        val setTitle : object * string -> unit
        val clicked : object -> unit
        val getMaxWidth : object -> int
        val setMaxWidth : object * int -> unit
        val getMinWidth : object -> int
        val setMinWidth : object * int -> unit
        val setFixedWidth : object * int -> unit
        val getFixedWidth : object -> int
        val getWidth : object -> int
        val getSizing : object -> int
        val setSizing : object * TreeViewColumnSizing.t -> unit
        val getResizable : object -> bool
        val setResizable : object * bool -> unit
        val getVisible : object -> bool
        val setVisible : object * bool -> unit
        val getSpacing : object -> int
        val setSpacing : object * int -> unit
        val clearAttributes : object * object -> unit
        val setCellDataFunc : object * object * Core.object * object * object -> unit
        val setAttributes : object * object -> unit
        val addAttribute : object * object * string * int -> unit
        val getCellRenderers : object -> object list
        val clear : object -> unit
        val packEnd : object * object * bool -> unit
        val packStart : object * object * bool -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeView :
    sig
        (* constructors *)
        val newWithModel : object -> object
        val new : unit -> object
        (* methods *)
        val getHoverExpand : object -> bool
        val setHoverExpand : object * bool -> unit
        val getHoverSelection : object -> bool
        val setHoverSelection : object * bool -> unit
        val getFixedHeightMode : object -> bool
        val setFixedHeightMode : object * bool -> unit
        val setSearchColumn : object * int -> unit
        val getSearchColumn : object -> int
        val getEnableSearch : object -> bool
        val setEnableSearch : object * bool -> unit
        val createRowDragIcon : object * object -> object
        val getDestRowAtPos : object * int * int * TreeViewDropPosition.t -> bool * object * TreeViewDropPosition.t
        val getDragDestRow : object * TreeViewDropPosition.t -> object * TreeViewDropPosition.t
        val setDragDestRow : object * object * TreeViewDropPosition.t -> unit
        val unsetRowsDragDest : object -> unit
        val unsetRowsDragSource : object -> unit
        val enableModelDragDest : object * (object vector) * Gdk.DragAction.t -> unit
        val enableModelDragSource : object * Gdk.ModifierType.t * (object vector) * Gdk.DragAction.t -> unit
        val treeToWidgetCoords : object * int * int * int * int -> int * int
        val widgetToTreeCoords : object * int * int * int * int -> int * int
        val getVisibleRect : object * object -> unit
        val getBackgroundArea : object * object * object * object -> unit
        val getCellArea : object * object * object * object -> unit
        val getPathAtPos : object * int * int * int * int -> bool * object * object * int * int
        val getBinWindow : object -> object
        val getCursor : object -> object * object
        val setCursorOnCell : object * object * object * object * bool -> unit
        val setCursor : object * object * object * bool -> unit
        val getReorderable : object -> bool
        val setReorderable : object * bool -> unit
        val rowExpanded : object * object -> bool
        val collapseRow : object * object -> unit
        val expandRow : object * object * bool -> bool
        val expandToPath : object * object -> unit
        val collapseAll : object -> unit
        val expandAll : object -> unit
        val rowActivated : object * object * object -> unit
        val scrollToCell : object * object * object * bool * real * real -> unit
        val scrollToPoint : object * int * int -> unit
        val getExpanderColumn : object -> object
        val setExpanderColumn : object * object -> unit
        val moveColumnAfter : object * object * object -> unit
        val getColumns : object -> object list
        val getColumn : object * int -> object
        val insertColumnWithAttributes : object * int * string * object -> int
        val insertColumn : object * object * int -> int
        val removeColumn : object * object -> int
        val appendColumn : object * object -> int
        val getRulesHint : object -> bool
        val setRulesHint : object * bool -> unit
        val setHeadersClickable : object * bool -> unit
        val columnsAutosize : object -> unit
        val setHeadersVisible : object * bool -> unit
        val getHeadersVisible : object -> bool
        val setVadjustment : object * object -> unit
        val getVadjustment : object -> object
        val setHadjustment : object * object -> unit
        val getHadjustment : object -> object
        val getSelection : object -> object
        val setModel : object * object -> unit
        val getModel : object -> object
        val getType : unit -> gtype
        (* properties *)
        val searchColumn : int prop
        val reorderable : bool prop
        val headersVisible : bool prop
        val headersClickable : bool prop
        val enableSearch : bool prop
        val indentExpanders : bool prop
        val allowRules : bool prop
        val verticalSeparator : int prop
        val horizontalSeparator : int prop
        val expanderSize : int prop
        val oddRowColor : object prop
        val evenRowColor : object prop
    end
    structure TreeStore :
    sig
        (* constructors *)
        val newv : (gtype vector) -> object
        (* methods *)
        val moveBefore : object * object * object -> unit
        val moveAfter : object * object * object -> unit
        val swap : object * object * object -> unit
        val reorder : object * object * int -> int
        val iterIsValid : object * object -> bool
        val clear : object -> unit
        val iterDepth : object * object -> int
        val isAncestor : object * object * object -> bool
        val append : object * object * object -> unit
        val prepend : object * object * object -> unit
        val insertAfter : object * object * object * object -> unit
        val insertBefore : object * object * object * object -> unit
        val insert : object * object * object * int -> unit
        val remove : object * object -> bool
        val set : object * object -> unit
        val setValue : object * object * int * gvalue -> unit
        val setColumnTypes : object * (gtype vector) -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeSelection :
    sig
        (* constructors *)
        (* methods *)
        val unselectRange : object * object * object -> unit
        val selectRange : object * object * object -> unit
        val unselectAll : object -> unit
        val selectAll : object -> unit
        val iterIsSelected : object * object -> bool
        val pathIsSelected : object * object -> bool
        val unselectIter : object * object -> unit
        val selectIter : object * object -> unit
        val unselectPath : object * object -> unit
        val selectPath : object * object -> unit
        val countSelectedRows : object -> int
        val getSelectedRows : object -> (object list) * object
        val getSelected : object * object -> bool * object
        val getTreeView : object -> object
        val getUserData : object -> object
        val getMode : object -> SelectionMode.t
        val setMode : object * SelectionMode.t -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeModelSort :
    sig
        (* constructors *)
        val newWithModel : object -> object
        (* methods *)
        val iterIsValid : object * object -> bool
        val clearCache : object -> unit
        val resetDefaultSortFunc : object -> unit
        val convertIterToChildIter : object * object * object -> unit
        val convertPathToChildPath : object * object -> object
        val convertChildIterToIter : object * object * object -> unit
        val convertChildPathToPath : object * object -> object
        val getModel : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeModelFilter :
    sig
        (* constructors *)
        (* methods *)
        val clearCache : object -> unit
        val refilter : object -> unit
        val convertPathToChildPath : object * object -> object
        val convertChildPathToPath : object * object -> object
        val convertIterToChildIter : object * object * object -> unit
        val convertChildIterToIter : object * object * object -> unit
        val getModel : object -> object
        val setVisibleColumn : object * int -> unit
        val setModifyFunc : object * int * object * Core.object * object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Tooltips :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val forceWindow : object -> unit
        val dataGet : object -> object
        val setTip : object * object * string * string -> unit
        val disable : object -> unit
        val enable : object -> unit
        val getType : unit -> gtype
        val getFieldUseStickyDelay : object -> int
        val setFieldUseStickyDelay : object * int -> unit
        val getFieldTipsDataList : object -> object list
        val setFieldTipsDataList : object * (object list) -> unit
        val getFieldTipWindow : object -> object
        val setFieldTipWindow : object * object -> unit
        val getFieldTipLabel : object -> object
        val setFieldTipLabel : object * object -> unit
        val getFieldTimerTag : object -> int
        val setFieldTimerTag : object * int -> unit
        val getFieldEnabled : object -> int
        val setFieldEnabled : object * int -> unit
        val getFieldDelay : object -> int
        val setFieldDelay : object * int -> unit
        val getFieldActiveTipsData : object -> object
        val setFieldActiveTipsData : object * object -> unit
        (* properties *)
    end
    structure ToolItem :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val rebuildMenu : object -> unit
        val getProxyMenuItem : object * string -> object
        val setProxyMenuItem : object * string * object -> unit
        val retrieveProxyMenuItem : object -> object
        val getReliefStyle : object -> ReliefStyle.t
        val getToolbarStyle : object -> ToolbarStyle.t
        val getOrientation : object -> Orientation.t
        val getIconSize : object -> IconSize.t
        val getIsImportant : object -> bool
        val setIsImportant : object * bool -> unit
        val getVisibleVertical : object -> bool
        val setVisibleVertical : object * bool -> unit
        val getVisibleHorizontal : object -> bool
        val setVisibleHorizontal : object * bool -> unit
        val getUseDragWindow : object -> bool
        val setUseDragWindow : object * bool -> unit
        val setTooltip : object * object * string * string -> unit
        val getExpand : object -> bool
        val setExpand : object * bool -> unit
        val getHomogeneous : object -> bool
        val setHomogeneous : object * bool -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure ToolButton :
    sig
        (* constructors *)
        val new : object * string -> object
        (* methods *)
        val getLabelWidget : object -> object
        val setLabelWidget : object * object -> unit
        val getIconWidget : object -> object
        val setIconWidget : object * object -> unit
        val getStockId : object -> string
        val setStockId : object * string -> unit
        val getUseUnderline : object -> bool
        val setUseUnderline : object * bool -> unit
        val getLabel : object -> string
        val setLabel : object * string -> unit
        val newFromStock : string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure Toolbar :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getTooltips : object -> bool
        val getIconSize : object -> IconSize.t
        val getStyle : object -> ToolbarStyle.t
        val getOrientation : object -> Orientation.t
        val unsetStyle : object -> unit
        val setTooltips : object * bool -> unit
        val setStyle : object * ToolbarStyle.t -> unit
        val setOrientation : object * Orientation.t -> unit
        val getReliefStyle : object -> ReliefStyle.t
        val getShowArrow : object -> bool
        val setShowArrow : object * bool -> unit
        val setDropHighlightItem : object * object * int -> unit
        val getDropIndex : object * int * int -> int
        val getNthItem : object * int -> object
        val getNItems : object -> int
        val getItemIndex : object * object -> int
        val insert : object * object * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure ToggleToolButton :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getActive : object -> bool
        val setActive : object * bool -> unit
        val newFromStock : string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure ToggleButton :
    sig
        (* constructors *)
        val newWithMnemonic : string -> object
        val newWithLabel : string -> object
        val new : unit -> object
        (* methods *)
        val getInconsistent : object -> bool
        val setInconsistent : object * bool -> unit
        val toggled : object -> unit
        val getActive : object -> bool
        val setActive : object * bool -> unit
        val getMode : object -> bool
        val setMode : object * bool -> unit
        val getType : unit -> gtype
        val getFieldDrawIndicator : object -> bool
        val setFieldDrawIndicator : object * bool -> unit
        (* properties *)
    end
    structure ToggleAction :
    sig
        (* constructors *)
        val new : string * string * string * string -> object
        (* methods *)
        val getDrawAsRadio : object -> bool
        val setDrawAsRadio : object * bool -> unit
        val getActive : object -> bool
        val setActive : object * bool -> unit
        val toggled : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TextView :
    sig
        (* constructors *)
        val newWithBuffer : object -> object
        val new : unit -> object
        (* methods *)
        val getDefaultAttributes : object -> object
        val getTabs : object -> object
        val setTabs : object * object -> unit
        val getIndent : object -> int
        val setIndent : object * int -> unit
        val getRightMargin : object -> int
        val setRightMargin : object * int -> unit
        val getLeftMargin : object -> int
        val setLeftMargin : object * int -> unit
        val getJustification : object -> Justification.t
        val setJustification : object * Justification.t -> unit
        val getPixelsInsideWrap : object -> int
        val setPixelsInsideWrap : object * int -> unit
        val getPixelsBelowLines : object -> int
        val setPixelsBelowLines : object * int -> unit
        val getPixelsAboveLines : object -> int
        val setPixelsAboveLines : object * int -> unit
        val getAcceptsTab : object -> bool
        val setAcceptsTab : object * bool -> unit
        val getOverwrite : object -> bool
        val setOverwrite : object * bool -> unit
        val getEditable : object -> bool
        val setEditable : object * bool -> unit
        val getWrapMode : object -> WrapMode.t
        val setWrapMode : object * WrapMode.t -> unit
        val moveChild : object * object * int * int -> unit
        val addChildInWindow : object * object * TextWindowType.t * int * int -> unit
        val addChildAtAnchor : object * object * object -> unit
        val moveVisually : object * object * int -> bool
        val startsDisplayLine : object * object -> bool
        val backwardDisplayLineStart : object * object -> bool
        val forwardDisplayLineEnd : object * object -> bool
        val backwardDisplayLine : object * object -> bool
        val forwardDisplayLine : object * object -> bool
        val getBorderWindowSize : object * TextWindowType.t -> int
        val setBorderWindowSize : object * TextWindowType.t * int -> unit
        val getWindowType : object * object -> TextWindowType.t
        val getWindow : object * TextWindowType.t -> object
        val windowToBufferCoords : object * TextWindowType.t * int * int * int * int -> int * int
        val bufferToWindowCoords : object * TextWindowType.t * int * int * int * int -> int * int
        val getLineAtY : object * object * int * int -> int
        val getLineYrange : object * object * int * int -> int * int
        val getIterAtPosition : object * object * int * int * int -> int
        val getIterAtLocation : object * object * int * int -> unit
        val getIterLocation : object * object * object -> unit
        val getCursorVisible : object -> bool
        val setCursorVisible : object * bool -> unit
        val getVisibleRect : object * object -> unit
        val placeCursorOnscreen : object -> bool
        val moveMarkOnscreen : object * object -> bool
        val scrollMarkOnscreen : object * object -> unit
        val scrollToMark : object * object * real * bool * real * real -> unit
        val scrollToIter : object * object * real * bool * real * real -> bool
        val getBuffer : object -> object
        val setBuffer : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TextTagTable :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getSize : object -> int
        val foreach : object * object * object -> unit
        val lookup : object * string -> object
        val remove : object * object -> unit
        val add : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TextTag :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val event : object * object * object * object -> bool
        val setPriority : object * int -> unit
        val getPriority : object -> int
        val getType : unit -> gtype
        (* properties *)
        val weightSet : bool prop
        val weight : int prop
        val sizeSet : bool prop
        val size : int prop
        val styleSet : bool prop
        val style : Pango.Style.t prop
        val name : string prop
        val editableSet : bool prop
        val editable : bool prop
        val foregroundGdk : object prop
        val foreground : string prop
        val fontDesc : object prop
        val font : string prop
        val backgroundGdk : object prop
        val background : string prop
    end
    structure TextMark :
    sig
        (* constructors *)
        (* methods *)
        val getLeftGravity : object -> bool
        val getBuffer : object -> object
        val getDeleted : object -> bool
        val getName : object -> string
        val getVisible : object -> bool
        val setVisible : object * bool -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TextChildAnchor :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getDeleted : object -> bool
        val getWidgets : object -> object list
        val getType : unit -> gtype
        (* properties *)
    end
    structure TextBuffer :
    sig
        (* constructors *)
        val new : object -> object
        (* methods *)
        val connectSpecialSignals : object -> unit
        val backspace : object * object * bool * bool -> bool
        val endUserAction : object -> unit
        val beginUserAction : object -> unit
        val deleteSelection : object * bool * bool -> bool
        val getSelectionBounds : object * object * object -> bool
        val pasteClipboard : object * object * object * bool -> unit
        val copyClipboard : object * object -> unit
        val cutClipboard : object * object * bool -> unit
        val removeSelectionClipboard : object * object -> unit
        val addSelectionClipboard : object * object -> unit
        val setModified : object * bool -> unit
        val getModified : object -> bool
        val getIterAtChildAnchor : object * object * object -> unit
        val getIterAtMark : object * object * object -> unit
        val getBounds : object * object * object -> unit
        val getEndIter : object * object -> unit
        val getStartIter : object * object -> unit
        val getIterAtLine : object * object * int -> unit
        val getIterAtOffset : object * object * int -> unit
        val getIterAtLineIndex : object * object * int * int -> unit
        val getIterAtLineOffset : object * object * int * int -> unit
        val createTag : object * string * string -> object
        val removeAllTags : object * object * object -> unit
        val removeTagByName : object * string * object * object -> unit
        val applyTagByName : object * string * object * object -> unit
        val removeTag : object * object * object * object -> unit
        val applyTag : object * object * object * object -> unit
        val selectRange : object * object * object -> unit
        val placeCursor : object * object -> unit
        val getSelectionBound : object -> object
        val getInsert : object -> object
        val deleteMarkByName : object * string -> unit
        val moveMarkByName : object * string * object -> unit
        val getMark : object * string -> object
        val deleteMark : object * object -> unit
        val moveMark : object * object * object -> unit
        val createMark : object * string * object * bool -> object
        val createChildAnchor : object * object -> object
        val insertChildAnchor : object * object * object -> unit
        val insertPixbuf : object * object * object -> unit
        val getSlice : object * object * object * bool -> string
        val getText : object * object * object * bool -> string
        val deleteInteractive : object * object * object * bool -> bool
        val delete : object * object * object -> unit
        val insertWithTagsByName : object * object * string * int * string -> unit
        val insertWithTags : object * object * string * int * object -> unit
        val insertRangeInteractive : object * object * object * object * bool -> bool
        val insertRange : object * object * object * object -> unit
        val insertInteractiveAtCursor : object * string * int * bool -> bool
        val insertInteractive : object * object * string * int * bool -> bool
        val insertAtCursor : object * string * int -> unit
        val insert : object * object * string * int -> unit
        val setText : object * string * int -> unit
        val getTagTable : object -> object
        val getCharCount : object -> int
        val getLineCount : object -> int
        val getType : unit -> gtype
        val getFieldTagTable : object -> object
        val setFieldTagTable : object * object -> unit
        (* properties *)
    end
    structure TearoffMenuItem :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure Table :
    sig
        (* constructors *)
        val new : int * int * bool -> object
        (* methods *)
        val getHomogeneous : object -> bool
        val setHomogeneous : object * bool -> unit
        val getDefaultColSpacing : object -> int
        val setColSpacings : object * int -> unit
        val getDefaultRowSpacing : object -> int
        val setRowSpacings : object * int -> unit
        val getColSpacing : object * int -> int
        val setColSpacing : object * int * int -> unit
        val getRowSpacing : object * int -> int
        val setRowSpacing : object * int * int -> unit
        val attachDefaults : object * object * int * int * int * int -> unit
        val attach : object * object * int * int * int * int * AttachOptions.t * AttachOptions.t * int * int -> unit
        val resize : object * int * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Style :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val paintResizeGrip : object * object * StateType.t * object * object * string * Gdk.WindowEdge.t * int * int * int * int -> unit
        val paintLayout : object * object * StateType.t * bool * object * object * string * int * int * object -> unit
        val paintExpander : object * object * StateType.t * object * object * string * int * int * ExpanderStyle.t -> unit
        val paintHandle : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int * Orientation.t -> unit
        val paintSlider : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int * Orientation.t -> unit
        val paintFocus : object * object * StateType.t * object * object * string * int * int * int * int -> unit
        val paintExtension : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int * PositionType.t -> unit
        val paintBoxGap : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int * PositionType.t * int * int -> unit
        val paintShadowGap : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int * PositionType.t * int * int -> unit
        val paintTab : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int -> unit
        val paintOption : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int -> unit
        val paintCheck : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int -> unit
        val paintFlatBox : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int -> unit
        val paintBox : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int -> unit
        val paintDiamond : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int -> unit
        val paintArrow : object * object * StateType.t * ShadowType.t * object * object * string * ArrowType.t * bool * int * int * int * int -> unit
        val paintPolygon : object * object * StateType.t * ShadowType.t * object * object * string * object * int * bool -> unit
        val paintShadow : object * object * StateType.t * ShadowType.t * object * object * string * int * int * int * int -> unit
        val paintVLine : object * object * StateType.t * object * object * string * int * int * int -> unit
        val paintHLine : object * object * StateType.t * object * object * string * int * int * int -> unit
        val drawCheck : object * object * StateType.t * ShadowType.t * int * int * int * int -> unit
        val renderIcon : object * object * TextDirection.t * StateType.t * IconSize.t * object * string -> object
        val lookupIconSet : object * string -> object
        val applyDefaultBackground : object * object * bool * StateType.t * object * int * int * int * int -> unit
        val setBackground : object * object * StateType.t -> unit
        val detach : object -> unit
        val attach : object * object -> object
        val copy : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure Statusbar :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getHasResizeGrip : object -> bool
        val setHasResizeGrip : object * bool -> unit
        val remove : object * int * int -> unit
        val pop : object * int -> unit
        val push : object * int * string -> int
        val getContextId : object * string -> int
        val getType : unit -> gtype
        (* properties *)
    end
    structure SpinButton :
    sig
        (* constructors *)
        val newWithRange : real * real * real -> object
        val new : object * real * int -> object
        (* methods *)
        val update : object -> unit
        val getSnapToTicks : object -> bool
        val setSnapToTicks : object * bool -> unit
        val getWrap : object -> bool
        val setWrap : object * bool -> unit
        val spin : object * SpinType.t * real -> unit
        val getNumeric : object -> bool
        val setNumeric : object * bool -> unit
        val getUpdatePolicy : object -> int
        val setUpdatePolicy : object * SpinButtonUpdatePolicy.t -> unit
        val setValue : object * real -> unit
        val getValueAsInt : object -> int
        val getValue : object -> real
        val getRange : object * real * real -> real * real
        val setRange : object * real * real -> unit
        val getIncrements : object * real * real -> real * real
        val setIncrements : object * real * real -> unit
        val getDigits : object -> int
        val setDigits : object * int -> unit
        val getAdjustment : object -> object
        val setAdjustment : object * object -> unit
        val configure : object * object * real * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure SizeGroup :
    sig
        (* constructors *)
        val new : SizeGroupMode.t -> object
        (* methods *)
        val removeWidget : object * object -> unit
        val addWidget : object * object -> unit
        val getMode : object -> SizeGroupMode.t
        val setMode : object * SizeGroupMode.t -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Settings :
    sig
        (* constructors *)
        (* methods *)
        val setDoubleProperty : object * string * real * string -> unit
        val setLongProperty : object * string * int * string -> unit
        val setStringProperty : object * string * string * string -> unit
        val setPropertyValue : object * string * object -> unit
        val installPropertyParser : object * object -> unit
        val installProperty : object -> unit
        val getForScreen : object -> object
        val getDefault : unit -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure SeparatorToolItem :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setDraw : object * bool -> unit
        val getDraw : object -> bool
        val getType : unit -> gtype
        (* properties *)
    end
    structure SeparatorMenuItem :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure Separator :
    sig
        (* constructors *)
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure ScrolledWindow :
    sig
        (* constructors *)
        val new : object * object -> object
        (* methods *)
        val addWithViewport : object * object -> unit
        val getShadowType : object -> ShadowType.t
        val setShadowType : object * ShadowType.t -> unit
        val getPlacement : object -> CornerType.t
        val setPlacement : object * CornerType.t -> unit
        val getPolicy : object * PolicyType.t * PolicyType.t -> PolicyType.t * PolicyType.t
        val setPolicy : object * PolicyType.t * PolicyType.t -> unit
        val getVadjustment : object -> object
        val getHadjustment : object -> object
        val setVadjustment : object * object -> unit
        val setHadjustment : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Scrollbar :
    sig
        (* constructors *)
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure Scale :
    sig
        (* constructors *)
        (* methods *)
        val getLayoutOffsets : object * int * int -> int * int
        val getLayout : object -> object
        val getValuePos : object -> PositionType.t
        val setValuePos : object * PositionType.t -> unit
        val getDrawValue : object -> bool
        val setDrawValue : object * bool -> unit
        val getDigits : object -> int
        val setDigits : object * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Ruler :
    sig
        (* constructors *)
        (* methods *)
        val getRange : object * real * real * real * real -> real * real * real * real
        val getMetric : object -> MetricType.t
        val drawPos : object -> unit
        val drawTicks : object -> unit
        val setRange : object * real * real * real * real -> unit
        val setMetric : object * MetricType.t -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure RcStyle :
    sig
        (* constructors *)
        (* methods *)
        val unref : object -> unit
        val reference : object -> unit
        val copy : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure Range :
    sig
        (* constructors *)
        (* methods *)
        val getValue : object -> real
        val setValue : object * real -> unit
        val setRange : object * real * real -> unit
        val setIncrements : object * real * real -> unit
        val getInverted : object -> bool
        val setInverted : object * bool -> unit
        val getAdjustment : object -> object
        val setAdjustment : object * object -> unit
        val getUpdatePolicy : object -> UpdateType.t
        val setUpdatePolicy : object * UpdateType.t -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure RadioToolButton :
    sig
        (* constructors *)
        val newWithStockFromWidget : object * string -> object
        val newFromWidget : object -> object
        (* methods *)
        val getGroup : object -> object list
        val setGroup : object * (object list) -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure RadioMenuItem :
    sig
        (* constructors *)
        val newWithMnemonic : (object list) * string -> object
        val newWithLabel : (object list) * string -> object
        val new : (object list) -> object
        (* methods *)
        val setGroup : object * (object list) -> unit
        val getGroup : object -> object list
        val newWithLabelFromWidget : object * string -> object
        val newWithMnemonicFromWidget : object * string -> object
        val newFromWidget : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure RadioButton :
    sig
        (* constructors *)
        val newWithMnemonicFromWidget : object * string -> object
        val newWithMnemonic : (object list) * string -> object
        val newWithLabelFromWidget : object * string -> object
        val newWithLabel : (object list) * string -> object
        val newFromWidget : object -> object
        val new : (object list) -> object
        (* methods *)
        val setGroup : object * (object list) -> unit
        val getGroup : object -> object list
        val getType : unit -> gtype
        (* properties *)
    end
    structure RadioAction :
    sig
        (* constructors *)
        (* methods *)
        (* properties *)
    end
    structure ProgressBar :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getEllipsize : object -> Pango.EllipsizeMode.t
        val setEllipsize : object * Pango.EllipsizeMode.t -> unit
        val getOrientation : object -> ProgressBarOrientation.t
        val getPulseStep : object -> real
        val getFraction : object -> real
        val getText : object -> string
        val setOrientation : object * ProgressBarOrientation.t -> unit
        val setPulseStep : object * real -> unit
        val setFraction : object * real -> unit
        val setText : object * string -> unit
        val pulse : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Progress :
    sig
        (* constructors *)
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure Preview :
    sig
        (* constructors *)
        (* methods *)
        val setExpand : object * bool -> unit
        val drawRow : object * string * int * int * int -> unit
        val put : object * object * object * int * int * int * int * int * int -> unit
        val size : object * int * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Pixmap :
    sig
        (* constructors *)
        (* methods *)
        (* properties *)
    end
    structure Paned :
    sig
        (* constructors *)
        (* methods *)
        val computePosition : object * int * int * int -> unit
        val getChild2 : object -> object
        val getChild1 : object -> object
        val setPosition : object * int -> unit
        val getPosition : object -> int
        val pack2 : object * object * bool * bool -> unit
        val pack1 : object * object * bool * bool -> unit
        val add2 : object * object -> unit
        val add1 : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure OptionMenu :
    sig
        (* constructors *)
        (* methods *)
        val setHistory : object * int -> unit
        val getHistory : object -> int
        val removeMenu : object -> unit
        val setMenu : object * object -> unit
        val getMenu : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure OldEditable :
    sig
        (* constructors *)
        (* methods *)
        val changed : object -> unit
        val claimSelection : object * bool * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Object :
    sig
        (* constructors *)
        (* methods *)
        val destroy : object -> unit
        val sink : object -> unit
        val new : gtype * string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure Notebook :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val reorderChild : object * object * int -> unit
        val setTabLabelPacking : object * object * bool * bool * PackType.t -> unit
        val queryTabLabelPacking : object * object * object * object * PackType.t -> PackType.t
        val getMenuLabelText : object * object -> string
        val setMenuLabelText : object * object * string -> unit
        val setMenuLabel : object * object * object -> unit
        val getMenuLabel : object * object -> object
        val getTabLabelText : object * object -> string
        val setTabLabelText : object * object * string -> unit
        val setTabLabel : object * object * object -> unit
        val getTabLabel : object * object -> object
        val popupDisable : object -> unit
        val popupEnable : object -> unit
        val getScrollable : object -> bool
        val setScrollable : object * bool -> unit
        val getTabPos : object -> PositionType.t
        val setTabPos : object * PositionType.t -> unit
        val getShowTabs : object -> bool
        val setShowTabs : object * bool -> unit
        val getShowBorder : object -> bool
        val setShowBorder : object * bool -> unit
        val prevPage : object -> unit
        val nextPage : object -> unit
        val setCurrentPage : object * int -> unit
        val pageNum : object * object -> int
        val getNPages : object -> int
        val getNthPage : object * int -> object
        val getCurrentPage : object -> int
        val removePage : object * int -> unit
        val insertPageMenu : object * object * object * object * int -> int
        val insertPage : object * object * object * int -> int
        val prependPageMenu : object * object * object * object -> int
        val prependPage : object * object * object -> int
        val appendPageMenu : object * object * object * object -> int
        val appendPage : object * object * object -> int
        val getType : unit -> gtype
        val getFieldTabPos : object -> PositionType.t
        val setFieldTabPos : object * PositionType.t -> unit
        (* properties *)
    end
    structure Misc :
    sig
        (* constructors *)
        (* methods *)
        val getPadding : object * int * int -> int * int
        val setPadding : object * int * int -> unit
        val getAlignment : object * real * real -> real * real
        val setAlignment : object * real * real -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure MessageDialog :
    sig
        (* constructors *)
        val newWithMarkup : object * DialogFlags.t * MessageType.t * ButtonsType.t * string -> object
        val new : object * DialogFlags.t * MessageType.t * ButtonsType.t * string -> object
        (* methods *)
        val formatSecondaryMarkup : object * string -> unit
        val formatSecondaryText : object * string -> unit
        val setMarkup : object * string -> unit
        val getType : unit -> gtype
        val getFieldLabel : object -> object
        val setFieldLabel : object * object -> unit
        val getFieldImage : object -> object
        val setFieldImage : object * object -> unit
        (* properties *)
    end
    structure MenuToolButton :
    sig
        (* constructors *)
        val new : object * string -> object
        (* methods *)
        val setArrowTooltip : object * object * string * string -> unit
        val getMenu : object -> object
        val setMenu : object * object -> unit
        val newFromStock : string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure MenuShell :
    sig
        (* constructors *)
        (* methods *)
        val cancel : object -> unit
        val selectFirst : object * bool -> unit
        val activateItem : object * object * bool -> unit
        val deselect : object -> unit
        val selectItem : object * object -> unit
        val deactivate : object -> unit
        val insert : object * object * int -> unit
        val prepend : object * object -> unit
        val append : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure MenuItem :
    sig
        (* constructors *)
        val newWithMnemonic : string -> object
        val newWithLabel : string -> object
        val new : unit -> object
        (* methods *)
        val setAccelPath : object * string -> unit
        val getRightJustified : object -> bool
        val setRightJustified : object * bool -> unit
        val toggleSizeAllocate : object * int -> unit
        val toggleSizeRequest : object * int -> int
        val activate : object -> unit
        val deselect : object -> unit
        val select : object -> unit
        val removeSubmenu : object -> unit
        val getSubmenu : object -> object
        val setSubmenu : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure MenuBar :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure Menu :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setMonitor : object * int -> unit
        val attach : object * object * int * int * int * int -> unit
        val setScreen : object * object -> unit
        val reorderChild : object * object * int -> unit
        val getTitle : object -> string
        val setTitle : object * string -> unit
        val getTearoffState : object -> bool
        val setTearoffState : object * bool -> unit
        val getAttachWidget : object -> object
        val detach : object -> unit
        val attachToWidget : object * object * Core.object -> unit
        val setAccelPath : object * string -> unit
        val getAccelGroup : object -> object
        val setAccelGroup : object * object -> unit
        val setActive : object * int -> unit
        val getActive : object -> object
        val popdown : object -> unit
        val reposition : object -> unit
        val popup : object * object * object * Core.object * object * int * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure ListStore :
    sig
        (* constructors *)
        val newv : (gtype vector) -> object
        (* methods *)
        val moveBefore : object * object * object -> unit
        val moveAfter : object * object * object -> unit
        val swap : object * object * object -> unit
        val reorder : object * int -> int
        val iterIsValid : object * object -> bool
        val clear : object -> unit
        val append : object * object -> unit
        val prepend : object * object -> unit
        val insertWithValuesv : object * object * int * int * (gvalue vector) -> int
        val insertWithValues : object * object * int -> unit
        val insertAfter : object * object * object -> unit
        val insertBefore : object * object * object -> unit
        val insert : object * object * int -> unit
        val remove : object * object -> bool
        val set : object * object -> unit
        val setValue : object * object * int * gvalue -> unit
        val setColumnTypes : object * (gtype vector) -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Layout :
    sig
        (* constructors *)
        val new : object * object -> object
        (* methods *)
        val thaw : object -> unit
        val freeze : object -> unit
        val setVadjustment : object * object -> unit
        val setHadjustment : object * object -> unit
        val getVadjustment : object -> object
        val getHadjustment : object -> object
        val getSize : object * int * int -> int * int
        val setSize : object * int * int -> unit
        val move : object * object * int * int -> unit
        val put : object * object * int * int -> unit
        val getType : unit -> gtype
        val getFieldBinWindow : object -> object
        val setFieldBinWindow : object * object -> unit
        (* properties *)
    end
    structure Label :
    sig
        (* constructors *)
        val newWithMnemonic : string -> object
        val new : string -> object
        (* methods *)
        val getSingleLineMode : object -> bool
        val setSingleLineMode : object * bool -> unit
        val getMaxWidthChars : object -> int
        val setMaxWidthChars : object * int -> unit
        val getWidthChars : object -> int
        val setWidthChars : object * int -> unit
        val getAngle : object -> int
        val setAngle : object * int -> unit
        val getEllipsize : object -> Pango.EllipsizeMode.t
        val setEllipsize : object * Pango.EllipsizeMode.t -> unit
        val getLayoutOffsets : object * int * int -> int * int
        val getLayout : object -> object
        val getSelectionBounds : object * int * int -> bool * int * int
        val selectRegion : object * int * int -> unit
        val getSelectable : object -> bool
        val setSelectable : object * bool -> unit
        val getLineWrap : object -> bool
        val setLineWrap : object * bool -> unit
        val setPattern : object * string -> unit
        val getJustify : object -> Justification.t
        val setJustify : object * Justification.t -> unit
        val setTextWithMnemonic : object * string -> unit
        val getMnemonicWidget : object -> object
        val setMnemonicWidget : object * object -> unit
        val getMnemonicKeyval : object -> int
        val setMarkupWithMnemonic : object * string -> unit
        val getUseUnderline : object -> bool
        val setUseUnderline : object * bool -> unit
        val getUseMarkup : object -> bool
        val setUseMarkup : object * bool -> unit
        val setMarkup : object * string -> unit
        val getLabel : object -> string
        val setLabel : object * string -> unit
        val getAttributes : object -> object
        val setAttributes : object * object -> unit
        val getText : object -> string
        val setText : object * string -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure ItemFactory :
    sig
        (* constructors *)
        (* methods *)
        (* properties *)
    end
    structure Item :
    sig
        (* constructors *)
        (* methods *)
        val toggle : object -> unit
        val deselect : object -> unit
        val select : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Invisible :
    sig
        (* constructors *)
        val newForScreen : object -> object
        val new : unit -> object
        (* methods *)
        val getScreen : object -> object
        val setScreen : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure InputDialog :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure IMMulticontext :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val appendMenuitems : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure IMContextSimple :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val addTable : object * object * int * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure IMContext :
    sig
        (* constructors *)
        (* methods *)
        val deleteSurrounding : object * int * int -> bool
        val getSurrounding : object * (string vector) * int -> bool * int
        val setSurrounding : object * string * int * int -> unit
        val setUsePreedit : object * bool -> unit
        val setCursorLocation : object * object -> unit
        val reset : object -> unit
        val focusOut : object -> unit
        val focusIn : object -> unit
        val filterKeypress : object * object -> bool
        val getPreeditString : object * (string vector) * object * int -> int
        val setClientWindow : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure ImageMenuItem :
    sig
        (* constructors *)
        val newFromStock : string * object -> object
        val newWithMnemonic : string -> object
        val newWithLabel : string -> object
        val new : unit -> object
        (* methods *)
        val getImage : object -> object
        val setImage : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Image :
    sig
        (* constructors *)
        val newFromStock : string * IconSize.t -> object
        val newFromPixbuf : object -> object
        val newFromFile : string -> object
        val newFromImage : object * object -> object
        val newFromPixmap : object * object -> object
        val new : unit -> object
        (* methods *)
        val getPixelSize : object -> int
        val getIconName : object * (string vector) * IconSize.t -> IconSize.t
        val setPixelSize : object * int -> unit
        val setFromIconName : object * string * IconSize.t -> unit
        val newFromIconName : string * IconSize.t -> object
        val getAnimation : object -> object
        val getIconSet : object * IconSize.t -> object * IconSize.t
        val getStock : object * (string vector) * IconSize.t -> IconSize.t
        val getPixbuf : object -> object
        val getImage : object -> object * object
        val getPixmap : object -> object * object
        val getStorageType : object -> ImageType.t
        val setFromAnimation : object * object -> unit
        val setFromIconSet : object * object * IconSize.t -> unit
        val setFromStock : object * string * IconSize.t -> unit
        val setFromPixbuf : object * object -> unit
        val setFromFile : object * string -> unit
        val setFromImage : object * object * object -> unit
        val setFromPixmap : object * object * object -> unit
        val newFromAnimation : object -> object
        val newFromIconSet : object * IconSize.t -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure IconView :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val itemActivated : object * object -> unit
        val unselectAll : object -> unit
        val selectAll : object -> unit
        val getSelectedItems : object -> object list
        val pathIsSelected : object * object -> bool
        val unselectPath : object * object -> unit
        val selectPath : object * object -> unit
        val getSelectionMode : object -> SelectionMode.t
        val setSelectionMode : object * SelectionMode.t -> unit
        val getPathAtPos : object * int * int -> object
        val getMargin : object -> int
        val setMargin : object * int -> unit
        val getColumnSpacing : object -> int
        val setColumnSpacing : object * int -> unit
        val getRowSpacing : object -> int
        val setRowSpacing : object * int -> unit
        val getSpacing : object -> int
        val setSpacing : object * int -> unit
        val getItemWidth : object -> int
        val setItemWidth : object * int -> unit
        val getColumns : object -> int
        val setColumns : object * int -> unit
        val getOrientation : object -> Orientation.t
        val setOrientation : object * Orientation.t -> unit
        val getPixbufColumn : object -> int
        val setPixbufColumn : object * int -> unit
        val getMarkupColumn : object -> int
        val setMarkupColumn : object * int -> unit
        val getTextColumn : object -> int
        val setTextColumn : object * int -> unit
        val getModel : object -> object
        val setModel : object * object -> unit
        val newWithModel : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure IconTheme :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val addBuiltinIcon : string * int * object -> unit
        val rescanIfNeeded : object -> bool
        val getExampleIconName : object -> string
        val listIcons : object * string -> object list
        val loadIcon : object * string * int * IconLookupFlags.t -> object
        val lookupIcon : object * string * int * IconLookupFlags.t -> object
        val hasIcon : object * string -> bool
        val setCustomTheme : object * string -> unit
        val prependSearchPath : object * string -> unit
        val appendSearchPath : object * string -> unit
        val setScreen : object * object -> unit
        val getForScreen : object -> object
        val getDefault : unit -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure IconFactory :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val lookupDefault : string -> object
        val removeDefault : object -> unit
        val addDefault : object -> unit
        val lookup : object * string -> object
        val add : object * string * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure HSeparator :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure HScrollbar :
    sig
        (* constructors *)
        val new : object -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure HScale :
    sig
        (* constructors *)
        val newWithRange : real * real * real -> object
        val new : object -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure HRuler :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure HPaned :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure HButtonBox :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure HBox :
    sig
        (* constructors *)
        val new : bool * int -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure HandleBox :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getSnapEdge : object -> PositionType.t
        val setSnapEdge : object * PositionType.t -> unit
        val getHandlePosition : object -> PositionType.t
        val setHandlePosition : object * PositionType.t -> unit
        val getShadowType : object -> ShadowType.t
        val setShadowType : object * ShadowType.t -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure GammaCurve :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        val getFieldTable : object -> object
        val setFieldTable : object * object -> unit
        val getFieldGammaText : object -> object
        val setFieldGammaText : object * object -> unit
        val getFieldGammaDialog : object -> object
        val setFieldGammaDialog : object * object -> unit
        val getFieldGamma : object -> real
        val setFieldGamma : object * real -> unit
        val getFieldCurve : object -> object
        val setFieldCurve : object * object -> unit
        (* properties *)
    end
    structure Frame :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val getShadowType : object -> ShadowType.t
        val setShadowType : object * ShadowType.t -> unit
        val getLabelAlign : object * real * real -> real * real
        val setLabelAlign : object * real * real -> unit
        val getLabelWidget : object -> object
        val setLabelWidget : object * object -> unit
        val getLabel : object -> string
        val setLabel : object * string -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure FontSelectionDialog :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val setPreviewText : object * string -> unit
        val getPreviewText : object -> string
        val setFontName : object * string -> bool
        val getFont : object -> object
        val getFontName : object -> string
        val getType : unit -> gtype
        val getFieldOkButton : object -> object
        val setFieldOkButton : object * object -> unit
        val getFieldMainVBox : object -> object
        val setFieldMainVBox : object * object -> unit
        val getFieldFontsel : object -> object
        val setFieldFontsel : object * object -> unit
        val getFieldCancelButton : object -> object
        val setFieldCancelButton : object * object -> unit
        val getFieldApplyButton : object -> object
        val setFieldApplyButton : object * object -> unit
        val getFieldActionArea : object -> object
        val setFieldActionArea : object * object -> unit
        (* properties *)
    end
    structure FontSelection :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setPreviewText : object * string -> unit
        val getPreviewText : object -> string
        val setFontName : object * string -> bool
        val getFont : object -> object
        val getFontName : object -> string
        val getType : unit -> gtype
        (* properties *)
    end
    structure FontButton :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setShowSize : object * bool -> unit
        val getShowSize : object -> bool
        val setShowStyle : object * bool -> unit
        val getShowStyle : object -> bool
        val setFontName : object * string -> bool
        val getFontName : object -> string
        val setUseSize : object * bool -> unit
        val getUseSize : object -> bool
        val setUseFont : object * bool -> unit
        val getUseFont : object -> bool
        val setTitle : object * string -> unit
        val getTitle : object -> string
        val newWithFont : string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure Fixed :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getHasWindow : object -> bool
        val setHasWindow : object * bool -> unit
        val move : object * object * int * int -> unit
        val put : object * object * int * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure FileSelection :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val getSelectMultiple : object -> bool
        val setSelectMultiple : object * bool -> unit
        val getSelections : object -> object
        val hideFileopButtons : object -> unit
        val showFileopButtons : object -> unit
        val complete : object * string -> unit
        val getFilename : object -> string
        val setFilename : object * string -> unit
        val getType : unit -> gtype
        val getFieldSelectionText : object -> object
        val setFieldSelectionText : object * object -> unit
        val getFieldSelectionEntry : object -> object
        val setFieldSelectionEntry : object * object -> unit
        val getFieldOkButton : object -> object
        val setFieldOkButton : object * object -> unit
        val getFieldMainVBox : object -> object
        val setFieldMainVBox : object * object -> unit
        val getFieldHistoryPulldown : object -> object
        val setFieldHistoryPulldown : object * object -> unit
        val getFieldHistoryMenu : object -> object
        val setFieldHistoryMenu : object * object -> unit
        val getFieldHelpButton : object -> object
        val setFieldHelpButton : object * object -> unit
        val getFieldFileopRenFile : object -> object
        val setFieldFileopRenFile : object * object -> unit
        val getFieldFileopFile : object -> string
        val setFieldFileopFile : object * string -> unit
        val getFieldFileopEntry : object -> object
        val setFieldFileopEntry : object * object -> unit
        val getFieldFileopDialog : object -> object
        val setFieldFileopDialog : object * object -> unit
        val getFieldFileopDelFile : object -> object
        val setFieldFileopDelFile : object * object -> unit
        val getFieldFileopCDir : object -> object
        val setFieldFileopCDir : object * object -> unit
        val getFieldFileList : object -> object
        val setFieldFileList : object * object -> unit
        val getFieldDirList : object -> object
        val setFieldDirList : object * object -> unit
        val getFieldCancelButton : object -> object
        val setFieldCancelButton : object * object -> unit
        val getFieldButtonArea : object -> object
        val setFieldButtonArea : object * object -> unit
        val getFieldActionArea : object -> object
        val setFieldActionArea : object * object -> unit
        (* properties *)
    end
    structure FileFilter :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val filter : object * object -> bool
        val getNeeded : object -> FileFilterFlags.t
        val addPixbufFormats : object -> unit
        val addPattern : object * string -> unit
        val addMimeType : object * string -> unit
        val getName : object -> string
        val setName : object * string -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure FileChooserWidget :
    sig
        (* constructors *)
        val new : FileChooserAction.t -> object
        (* methods *)
        val newWithBackend : FileChooserAction.t * string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure FileChooserDialog :
    sig
        (* constructors *)
        val new : string * object * FileChooserAction.t * string -> object
        (* methods *)
        val newWithBackend : string * object * FileChooserAction.t * string * string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure FileChooserButton :
    sig
        (* constructors *)
        (* methods *)
        val setWidthChars : object * int -> unit
        val getWidthChars : object -> int
        val setTitle : object * string -> unit
        val getTitle : object -> string
        val newWithDialog : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure Expander :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val getLabelWidget : object -> object
        val setLabelWidget : object * object -> unit
        val getUseMarkup : object -> bool
        val setUseMarkup : object * bool -> unit
        val getUseUnderline : object -> bool
        val setUseUnderline : object * bool -> unit
        val getLabel : object -> string
        val setLabel : object * string -> unit
        val getSpacing : object -> int
        val setSpacing : object * int -> unit
        val getExpanded : object -> bool
        val setExpanded : object * bool -> unit
        val newWithMnemonic : string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure EventBox :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setAboveChild : object * bool -> unit
        val getAboveChild : object -> bool
        val setVisibleWindow : object * bool -> unit
        val getVisibleWindow : object -> bool
        val getType : unit -> gtype
        (* properties *)
    end
    structure EntryCompletion :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getPopupCompletion : object -> bool
        val setPopupCompletion : object * bool -> unit
        val getInlineCompletion : object -> bool
        val setInlineCompletion : object * bool -> unit
        val insertPrefix : object -> unit
        val setTextColumn : object * int -> unit
        val deleteAction : object * int -> unit
        val insertActionMarkup : object * int * string -> unit
        val insertActionText : object * int * string -> unit
        val complete : object -> unit
        val getMinimumKeyLength : object -> int
        val setMinimumKeyLength : object * int -> unit
        val getModel : object -> object
        val setModel : object * object -> unit
        val getEntry : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure Entry :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setEditable : object * bool -> unit
        val selectRegion : object * int * int -> unit
        val setPosition : object * int -> unit
        val prependText : object * string -> unit
        val getCompletion : object -> object
        val setCompletion : object * object -> unit
        val getAlignment : object -> real
        val setAlignment : object * real -> unit
        val getLayoutOffsets : object * int * int -> int * int
        val getLayout : object -> object
        val getText : object -> string
        val setText : object * string -> unit
        val getWidthChars : object -> int
        val setWidthChars : object * int -> unit
        val getActivatesDefault : object -> bool
        val setActivatesDefault : object * bool -> unit
        val getMaxLength : object -> int
        val setMaxLength : object * int -> unit
        val getHasFrame : object -> bool
        val setHasFrame : object * bool -> unit
        val getInvisibleChar : object -> int
        val setInvisibleChar : object * int -> unit
        val getVisibility : object -> bool
        val setVisibility : object * bool -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure DrawingArea :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure Dialog :
    sig
        (* constructors *)
        val newWithButtons : string * object * DialogFlags.t * string -> object
        val new : unit -> object
        (* methods *)
        val setAlternativeButtonOrderFromArray : object * int * int -> int
        val setAlternativeButtonOrder : object * int -> unit
        val run : object -> int
        val response : object * int -> unit
        val getHasSeparator : object -> bool
        val setHasSeparator : object * bool -> unit
        val setDefaultResponse : object * int -> unit
        val setResponseSensitive : object * int * bool -> unit
        val addButtons : object * string -> unit
        val addButton : object * string * int -> object
        val addActionWidget : object * object * int -> unit
        val getType : unit -> gtype
        val getFieldVBox : object -> object
        val setFieldVBox : object * object -> unit
        val getFieldActionArea : object -> object
        val setFieldActionArea : object * object -> unit
        (* properties *)
    end
    structure Curve :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setCurveType : object * CurveType.t -> unit
        val setRange : object * real * real * real * real -> unit
        val setGamma : object * real -> unit
        val reset : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Container :
    sig
        (* constructors *)
        val new : { border_width : int, focus_child : object, has_focus_chain : int, need_resize : int, reallocate_redraws : int, resize_mode : int } -> object
        (* methods *)
        val forall : object * object * object -> unit
        val childGetProperty : object * object * string -> gvalue
        val childSetProperty : object * object * string * gvalue -> unit
        val childGet : object * object * string -> unit
        val childSet : object * object * string -> unit
        val addWithProperties : object * object * string -> unit
        val classListChildProperties : object * int -> object * int
        val classFindChildProperty : object * string -> object
        val classInstallChildProperty : object * int * object -> unit
        val childType : object -> gtype
        val resizeChildren : object -> unit
        val getFocusHadjustment : object -> object
        val setFocusHadjustment : object * object -> unit
        val getFocusVadjustment : object -> object
        val setFocusVadjustment : object * object -> unit
        val setFocusChild : object * object -> unit
        val setReallocateRedraws : object * bool -> unit
        val unsetFocusChain : object -> unit
        val getFocusChain : object * object -> bool
        val setFocusChain : object * (object list) -> unit
        val propagateExpose : object * object * object -> unit
        val getChildren : object -> object list
        val foreach : object * object * object -> unit
        val checkResize : object -> unit
        val getResizeMode : object -> ResizeMode.t
        val setResizeMode : object * ResizeMode.t -> unit
        val remove : object * object -> unit
        val add : object * object -> unit
        val getBorderWidth : object -> int
        val setBorderWidth : object * int -> unit
        val getType : unit -> gtype
        val getFieldResizeMode : object -> int
        val setFieldResizeMode : object * int -> unit
        val getFieldReallocateRedraws : object -> int
        val setFieldReallocateRedraws : object * int -> unit
        val getFieldNeedResize : object -> int
        val setFieldNeedResize : object * int -> unit
        val getFieldHasFocusChain : object -> int
        val setFieldHasFocusChain : object * int -> unit
        val getFieldFocusChild : object -> object
        val setFieldFocusChild : object * object -> unit
        val getFieldBorderWidth : object -> int
        val setFieldBorderWidth : object * int -> unit
        (* properties *)
    end
    structure ComboBoxEntry :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val newText : unit -> object
        val getTextColumn : object -> int
        val setTextColumn : object * int -> unit
        val newWithModel : object * int -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure ComboBox :
    sig
        (* constructors *)
        val newWithModel : object -> object
        val new : unit -> object
        (* methods *)
        val getPopupAccessible : object -> object
        val getActiveText : object -> string
        val setFocusOnClick : object * bool -> unit
        val getFocusOnClick : object -> bool
        val setAddTearoffs : object * bool -> unit
        val getColumnSpanColumn : object -> int
        val getRowSpanColumn : object -> int
        val getWrapWidth : object -> int
        val popdown : object -> unit
        val popup : object -> unit
        val removeText : object * int -> unit
        val prependText : object * string -> unit
        val insertText : object * int * string -> unit
        val appendText : object * string -> unit
        val newText : unit -> object
        val getModel : object -> object
        val setModel : object * object -> unit
        val setActiveIter : object * object -> unit
        val getActiveIter : object * object -> bool
        val setActive : object * int -> unit
        val getActive : object -> int
        val setColumnSpanColumn : object * int -> unit
        val setRowSpanColumn : object * int -> unit
        val setWrapWidth : object * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Combo :
    sig
        (* constructors *)
        val new : { entry : object, list : object } -> object
        (* methods *)
        val getFieldList : object -> object
        val setFieldList : object * object -> unit
        val getFieldEntry : object -> object
        val setFieldEntry : object * object -> unit
        (* properties *)
    end
    structure ColorSelectionDialog :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val getType : unit -> gtype
        val getFieldOkButton : object -> object
        val setFieldOkButton : object * object -> unit
        val getFieldHelpButton : object -> object
        val setFieldHelpButton : object * object -> unit
        val getFieldColorsel : object -> object
        val setFieldColorsel : object * object -> unit
        val getFieldCancelButton : object -> object
        val setFieldCancelButton : object * object -> unit
        (* properties *)
    end
    structure ColorSelection :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val paletteToString : (object vector) -> string
        val paletteFromString : string * int -> bool * object * int
        val isAdjusting : object -> bool
        val getPreviousAlpha : object -> int
        val getPreviousColor : object * object -> unit
        val setPreviousAlpha : object * int -> unit
        val setPreviousColor : object * object -> unit
        val getCurrentAlpha : object -> int
        val getCurrentColor : object * object -> unit
        val setCurrentAlpha : object * int -> unit
        val setCurrentColor : object * object -> unit
        val setHasPalette : object * bool -> unit
        val getHasPalette : object -> bool
        val setHasOpacityControl : object * bool -> unit
        val getHasOpacityControl : object -> bool
        val getType : unit -> gtype
        (* properties *)
    end
    structure ColorButton :
    sig
        (* constructors *)
        val newWithColor : object -> object
        val new : unit -> object
        (* methods *)
        val getTitle : object -> string
        val setTitle : object * string -> unit
        val getUseAlpha : object -> bool
        val setUseAlpha : object * bool -> unit
        val getAlpha : object -> int
        val getColor : object * object -> unit
        val setAlpha : object * int -> unit
        val setColor : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Clipboard :
    sig
        (* constructors *)
        val getForDisplay : object * Word32.word -> object
        (* methods *)
        val waitForTargets : object * object * int -> bool * int
        val waitIsTextAvailable : object -> bool
        val waitForText : object -> string
        val waitForContents : object * Word32.word -> object
        val setText : object * string * int -> unit
        val clear : object -> unit
        val getOwner : object -> object
        val getDisplay : object -> object
        val get : Word32.word -> object
        val getType : unit -> gtype
        val store : object -> unit
        val setCanStore : object * (object vector) -> unit
        val waitIsTargetAvailable : object * Word32.word -> bool
        (* properties *)
    end
    structure CheckMenuItem :
    sig
        (* constructors *)
        val newWithMnemonic : string -> object
        val newWithLabel : string -> object
        val new : unit -> object
        (* methods *)
        val getDrawAsRadio : object -> bool
        val setDrawAsRadio : object * bool -> unit
        val getInconsistent : object -> bool
        val setInconsistent : object * bool -> unit
        val toggled : object -> unit
        val getActive : object -> bool
        val setActive : object * bool -> unit
        val getType : unit -> gtype
        val getFieldActive : object -> bool
        val setFieldActive : object * bool -> unit
        (* properties *)
    end
    structure CheckButton :
    sig
        (* constructors *)
        val newWithMnemonic : string -> object
        val newWithLabel : string -> object
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellView :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getCellRenderers : object -> object list
        val setBackgroundColor : object * object -> unit
        val getSizeOfRow : object * object * object -> bool
        val getDisplayedRow : object -> object
        val setDisplayedRow : object * object -> unit
        val setModel : object * object -> unit
        val newWithPixbuf : object -> object
        val newWithMarkup : string -> object
        val newWithText : string -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellRendererToggle :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setActive : object * bool -> unit
        val getActive : object -> bool
        val setRadio : object * bool -> unit
        val getRadio : object -> bool
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellRendererText :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setFixedHeightFromFont : object * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellRendererProgress :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellRendererPixbuf :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellRendererCombo :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellRenderer :
    sig
        (* constructors *)
        (* methods *)
        val stopEditing : object * bool -> unit
        val editingCanceled : object -> unit
        val getFixedSize : object * int * int -> int * int
        val setFixedSize : object * int * int -> unit
        val startEditing : object * object * object * string * object * object * CellRendererState.t -> object
        val activate : object * object * object * string * object * object * CellRendererState.t -> bool
        val render : object * object * object * object * object * object * CellRendererState.t -> unit
        val getSize : object * object * object * int * int * int * int -> int * int * int * int
        val getType : unit -> gtype
        (* properties *)
        val pixbuf : object prop
        val sizePoints : real prop
        val size : int prop
        val text : string prop
        val markup : string prop
        val editableSet : bool prop
        val editable : bool prop
        val fontDesc : object prop
        val font : string prop
        val ypad : int prop
        val yalign : real prop
        val xpad : int prop
        val xalign : real prop
        val width : int prop
        val visible : bool prop
        val sensitive : bool prop
        val mode : CellRendererMode.t prop
        val height : int prop
        val cellBackgroundSet : bool prop
        val cellBackgroundGdk : object prop
        val cellBackground : string prop
    end
    structure Calendar :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val thaw : object -> unit
        val freeze : object -> unit
        val getDate : object * int * int * int -> int * int * int
        val displayOptions : object * CalendarDisplayOptions.t -> unit
        val getDisplayOptions : object -> CalendarDisplayOptions.t
        val setDisplayOptions : object * CalendarDisplayOptions.t -> unit
        val clearMarks : object -> unit
        val unmarkDay : object * int -> bool
        val markDay : object * int -> bool
        val selectDay : object * int -> unit
        val selectMonth : object * int * int -> bool
        val getType : unit -> gtype
        (* properties *)
    end
    structure ButtonBox :
    sig
        (* constructors *)
        (* methods *)
        val setChildSecondary : object * object * bool -> unit
        val getChildSecondary : object * object -> bool
        val setLayout : object * ButtonBoxStyle.t -> unit
        val getLayout : object -> ButtonBoxStyle.t
        val getType : unit -> gtype
        (* properties *)
    end
    structure Button :
    sig
        (* constructors *)
        val newWithMnemonic : string -> object
        val newFromStock : string -> object
        val newWithLabel : string -> object
        val new : unit -> object
        (* methods *)
        val getImage : object -> object
        val setImage : object * object -> unit
        val getAlignment : object * real * real -> real * real
        val setAlignment : object * real * real -> unit
        val getFocusOnClick : object -> bool
        val setFocusOnClick : object * bool -> unit
        val getUseStock : object -> bool
        val setUseStock : object * bool -> unit
        val getUseUnderline : object -> bool
        val setUseUnderline : object * bool -> unit
        val getLabel : object -> string
        val setLabel : object * string -> unit
        val getRelief : object -> ReliefStyle.t
        val setRelief : object * ReliefStyle.t -> unit
        val leave : object -> unit
        val enter : object -> unit
        val clicked : object -> unit
        val released : object -> unit
        val pressed : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Box :
    sig
        (* constructors *)
        (* methods *)
        val setChildPacking : object * object * bool * bool * int * PackType.t -> unit
        val queryChildPacking : object * object * object * object * int * PackType.t -> int * PackType.t
        val reorderChild : object * object * int -> unit
        val getSpacing : object -> int
        val setSpacing : object * int -> unit
        val getHomogeneous : object -> bool
        val setHomogeneous : object * bool -> unit
        val packEndDefaults : object * object -> unit
        val packStartDefaults : object * object -> unit
        val packEnd : object * object * bool * bool * int -> unit
        val packStart : object * object * bool * bool * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Bin :
    sig
        (* constructors *)
        val new : { child : object } -> object
        (* methods *)
        val getChild : object -> object
        val getType : unit -> gtype
        val getFieldChild : object -> object
        val setFieldChild : object * object -> unit
        (* properties *)
    end
    structure AspectFrame :
    sig
        (* constructors *)
        val new : string * real * real * real * bool -> object
        (* methods *)
        val set : object * real * real * real * bool -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Arrow :
    sig
        (* constructors *)
        val new : ArrowType.t * ShadowType.t -> object
        (* methods *)
        val set : object * ArrowType.t * ShadowType.t -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Alignment :
    sig
        (* constructors *)
        val new : real * real * real * real -> object
        (* methods *)
        val getPadding : object * int * int * int * int -> int * int * int * int
        val setPadding : object * int * int * int * int -> unit
        val set : object * real * real * real * real -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Adjustment :
    sig
        (* constructors *)
        val new : real * real * real * real * real * real -> object
        (* methods *)
        val setValue : object * real -> unit
        val getValue : object -> real
        val clampPage : object * real * real -> unit
        val valueChanged : object -> unit
        val changed : object -> unit
        val getType : unit -> gtype
        val getFieldValue : object -> real
        val setFieldValue : object * real -> unit
        val getFieldUpper : object -> real
        val setFieldUpper : object * real -> unit
        val getFieldStepIncrement : object -> real
        val setFieldStepIncrement : object * real -> unit
        val getFieldPageSize : object -> real
        val setFieldPageSize : object * real -> unit
        val getFieldPageIncrement : object -> real
        val setFieldPageIncrement : object * real -> unit
        val getFieldLower : object -> real
        val setFieldLower : object * real -> unit
        (* properties *)
    end
    structure ActionGroup :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val translateString : object * string -> string
        val setTranslationDomain : object * string -> unit
        val removeAction : object * object -> unit
        val addActionWithAccel : object * object * string -> unit
        val addAction : object * object -> unit
        val listActions : object -> object list
        val getAction : object * string -> object
        val setVisible : object * bool -> unit
        val getVisible : object -> bool
        val setSensitive : object * bool -> unit
        val getSensitive : object -> bool
        val getName : object -> string
        val getType : unit -> gtype
        (* properties *)
    end
    structure Action :
    sig
        (* constructors *)
        val new : string * string * string * string -> object
        (* methods *)
        val setVisible : object * bool -> unit
        val setSensitive : object * bool -> unit
        val setAccelGroup : object * object -> unit
        val setAccelPath : object * string -> unit
        val unblockActivateFrom : object * object -> unit
        val blockActivateFrom : object * object -> unit
        val getAccelPath : object -> string
        val disconnectAccelerator : object -> unit
        val connectAccelerator : object -> unit
        val getProxies : object -> object list
        val disconnectProxy : object * object -> unit
        val connectProxy : object * object -> unit
        val createToolItem : object -> object
        val createMenuItem : object -> object
        val createIcon : object * IconSize.t -> object
        val activate : object -> unit
        val getVisible : object -> bool
        val isVisible : object -> bool
        val getSensitive : object -> bool
        val isSensitive : object -> bool
        val getName : object -> string
        val getType : unit -> gtype
        (* properties *)
    end
    structure Accessible :
    sig
        (* constructors *)
        (* methods *)
        val connectWidgetDestroyed : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure AccelLabel :
    sig
        (* constructors *)
        val new : string -> object
        (* methods *)
        val refetch : object -> bool
        val setAccelClosure : object * object -> unit
        val setAccelWidget : object * object -> unit
        val getAccelWidth : object -> int
        val getAccelWidget : object -> object
        val getType : unit -> gtype
        (* properties *)
    end
    structure AccelGroup :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val query : object * int * Gdk.ModifierType.t * int -> object * int
        val fromAccelClosure : object -> object
        val activate : object * Word32.word * object * int * Gdk.ModifierType.t -> bool
        val disconnectKey : object * int * Gdk.ModifierType.t -> bool
        val disconnect : object * object -> bool
        val connectByPath : object * string * object -> unit
        val connect : object * int * Gdk.ModifierType.t * AccelFlags.t * object -> unit
        val unlock : object -> unit
        val lock : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure AboutDialog :
    sig
        (* constructors *)
        val new : unit -> object
        (* methods *)
        val setLogoIconName : object * string -> unit
        val getLogoIconName : object -> string
        val setLogo : object * object -> unit
        val getLogo : object -> object
        val setTranslatorCredits : object * string -> unit
        val getTranslatorCredits : object -> string
        val setArtists : object * (string vector) -> unit
        val getArtists : object -> object
        val setDocumenters : object * (string vector) -> unit
        val getDocumenters : object -> object
        val setAuthors : object * (string vector) -> unit
        val getAuthors : object -> object
        val setWebsiteLabel : object * string -> unit
        val getWebsiteLabel : object -> string
        val setWebsite : object * string -> unit
        val getWebsite : object -> string
        val setLicense : object * string -> unit
        val getLicense : object -> string
        val setComments : object * string -> unit
        val getComments : object -> string
        val setCopyright : object * string -> unit
        val getCopyright : object -> string
        val setVersion : object * string -> unit
        val getVersion : object -> string
        val setName : object * string -> unit
        val getName : object -> string
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeSortable :
    sig
        (* constructors *)
        (* methods *)
        val hasDefaultSortFunc : object -> bool
        val setSortColumnId : object * int * SortType.t -> unit
        val getSortColumnId : object * int * SortType.t -> bool * int * SortType.t
        val sortColumnChanged : object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeModel :
    sig
        (* constructors *)
        (* methods *)
        val filterNew : object * object -> object
        val rowsReordered : object * object * object * int -> int
        val rowDeleted : object * object -> unit
        val rowHasChildToggled : object * object * object -> unit
        val rowInserted : object * object * object -> unit
        val rowChanged : object * object * object -> unit
        val get : object * object -> unit
        val unrefNode : object * object -> unit
        val refNode : object * object -> unit
        val iterParent : object * object * object -> bool
        val iterNthChild : object * object * object * int -> bool
        val iterNChildren : object * object -> int
        val iterHasChild : object * object -> bool
        val iterChildren : object * object * object -> bool
        val iterNext : object * object -> bool
        val getValue : object * object * int -> gvalue
        val getPath : object * object -> object
        val getIterFirst : object * object -> bool
        val getIterRoot : object * object -> bool
        val getStringFromIter : object * object -> string
        val getIterFromString : object * object * string -> bool
        val getIter : object * object * object -> bool
        val getColumnType : object * int -> gtype
        val getNColumns : object -> int
        val getFlags : object -> TreeModelFlags.t
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeDragSource :
    sig
        (* constructors *)
        (* methods *)
        val dragDataGet : object * object * object -> bool
        val dragDataDelete : object * object -> bool
        val rowDraggable : object * object -> bool
        val getType : unit -> gtype
        (* properties *)
    end
    structure TreeDragDest :
    sig
        (* constructors *)
        (* methods *)
        val rowDropPossible : object * object * object -> bool
        val dragDataReceived : object * object * object -> bool
        val getType : unit -> gtype
        (* properties *)
    end
    structure FileChooser :
    sig
        (* constructors *)
        (* methods *)
        val getShowHidden : object -> bool
        val setShowHidden : object * bool -> unit
        val listShortcutFolderUris : object -> object list
        val removeShortcutFolderUri : object * string -> bool
        val addShortcutFolderUri : object * string -> bool
        val listShortcutFolders : object -> object list
        val removeShortcutFolder : object * string -> bool
        val addShortcutFolder : object * string -> bool
        val getFilter : object -> object
        val setFilter : object * object -> unit
        val listFilters : object -> object list
        val removeFilter : object * object -> unit
        val addFilter : object * object -> unit
        val getExtraWidget : object -> object
        val setExtraWidget : object * object -> unit
        val getPreviewUri : object -> string
        val getPreviewFilename : object -> string
        val getUsePreviewLabel : object -> bool
        val setUsePreviewLabel : object * bool -> unit
        val getPreviewWidgetActive : object -> bool
        val setPreviewWidgetActive : object * bool -> unit
        val getPreviewWidget : object -> object
        val setPreviewWidget : object * object -> unit
        val getCurrentFolderUri : object -> string
        val setCurrentFolderUri : object * string -> bool
        val getUris : object -> object list
        val unselectUri : object * string -> unit
        val selectUri : object * string -> bool
        val setUri : object * string -> bool
        val getUri : object -> string
        val getCurrentFolder : object -> string
        val setCurrentFolder : object * string -> bool
        val getFilenames : object -> object list
        val unselectAll : object -> unit
        val selectAll : object -> unit
        val unselectFilename : object * string -> unit
        val selectFilename : object * string -> bool
        val setFilename : object * string -> bool
        val getFilename : object -> string
        val setCurrentName : object * string -> unit
        val getSelectMultiple : object -> bool
        val setSelectMultiple : object * bool -> unit
        val getLocalOnly : object -> bool
        val setLocalOnly : object * bool -> unit
        val getAction : object -> FileChooserAction.t
        val setAction : object * FileChooserAction.t -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Editable :
    sig
        (* constructors *)
        (* methods *)
        val getEditable : object -> bool
        val setEditable : object * bool -> unit
        val getPosition : object -> int
        val setPosition : object * int -> unit
        val deleteSelection : object -> unit
        val pasteClipboard : object -> unit
        val copyClipboard : object -> unit
        val cutClipboard : object -> unit
        val getChars : object * int * int -> string
        val deleteText : object * int * int -> unit
        val insertText : object * string * int * int -> int
        val getSelectionBounds : object * int * int -> bool * int * int
        val selectRegion : object * int * int -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellLayout :
    sig
        (* constructors *)
        (* methods *)
        val reorder : object * object * int -> unit
        val clearAttributes : object * object -> unit
        val addAttribute : object * object * string * int -> unit
        val setAttributes : object * object -> unit
        val clear : object -> unit
        val packEnd : object * object * bool -> unit
        val packStart : object * object * bool -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure CellEditable :
    sig
        (* constructors *)
        (* methods *)
        val removeWidget : object -> unit
        val editingDone : object -> unit
        val startEditing : object * object -> unit
        val getType : unit -> gtype
        (* properties *)
    end
    structure Quit:
    sig
        val removeByData : object -> unit
        val remove : int -> unit
        val addFull : int * object * object * object * object -> int
        val add : int * object * object -> int
        val addDestroy : int * object -> unit
    end
    structure Accel:
    sig
        val mapGet : unit -> object
        val mapGetType : unit -> gtype
        val mapForeachUnfiltered : object * object -> unit
        val mapAddFilter : string -> unit
        val mapUnlockPath : string -> unit
        val mapLockPath : string -> unit
        val mapSaveFd : int -> unit
        val mapLoadScanner : object -> unit
        val mapLoadFd : int -> unit
        val mapForeach : object * object -> unit
        val mapSave : string -> unit
        val mapLoad : string -> unit
        val mapChangeEntry : string * int * Gdk.ModifierType.t * bool -> bool
        val mapLookupEntry : string * object -> bool
        val mapAddEntry : string * int * Gdk.ModifierType.t -> unit
        val groupsFromObject : object -> object list
        val groupsActivate : object * int * Gdk.ModifierType.t -> bool
    end
    structure Init:
    sig
        val add : object * object -> unit
        val check : int * object -> bool * int
    end
    structure Check:
    sig
        val version : int * int * int -> string
    end
    structure Key:
    sig
        val snooperRemove : int -> unit
    end
    structure Draw:
    sig
        val insertionCursor : object * object * object * object * bool * TextDirection.t * bool -> unit
    end
    structure Input:
    sig
        val remove : int -> unit
    end
    structure Timeout:
    sig
        val remove : int -> unit
    end
    structure Main:
    sig
        val iterationDo : bool -> bool
        val iteration : unit -> bool
        val quit : unit -> unit
        val level : unit -> int
        val doEvent : object -> unit
    end
    structure Idle:
    sig
        val removeByData : object -> unit
        val remove : int -> unit
    end
    structure Events:
    sig
        val pending : unit -> int
    end
    structure GC:
    sig
        val release : object -> unit
        val get : int * object * object * Gdk.GCValuesMask.t -> object
    end
    structure Bindings:
    sig
        val activateEvent : object * object -> bool
        val activate : object * int * Gdk.ModifierType.t -> bool
    end
    structure Binding:
    sig
        val parseBinding : object -> int
        val entryAddSignall : object * int * Gdk.ModifierType.t * string * (object list) -> unit
        val entryRemove : object * int * Gdk.ModifierType.t -> unit
        val entryAddSignal : object * int * Gdk.ModifierType.t * string * int -> unit
        val entryClear : object * int * Gdk.ModifierType.t -> unit
    end
    structure Grab:
    sig
        val getCurrent : unit -> object
    end
    structure Rc:
    sig
        val propertyParseBorder : object * object -> bool * gvalue
        val propertyParseRequisition : object * object -> bool * gvalue
        val propertyParseFlags : object * object -> bool * gvalue
        val propertyParseEnum : object * object -> bool * gvalue
        val propertyParseColor : object * object -> bool * gvalue
        val parsePriority : object * PathPriorityType.t -> int * PathPriorityType.t
        val parseState : object * StateType.t -> int * StateType.t
        val parseColor : object * object -> int
        val getIMModuleFile : unit -> string
        val getIMModulePath : unit -> string
        val getModuleDir : unit -> string
        val getThemeDir : unit -> string
        val findModuleInPath : string -> string
        val reparseAll : unit -> bool
        val parseString : string -> unit
        val parse : string -> unit
        val findPixmapInPath : object * object * string -> string
        val resetStyles : object -> unit
        val reparseAllForSettings : object * bool -> bool
        val getStyleByPaths : object * string * string * gtype -> object
        val getDefaultFiles : unit -> object
        val setDefaultFiles : (string vector) -> unit
        val addDefaultFile : string -> unit
    end
    structure Show:
    sig
        val aboutDialog : object * string -> unit
    end
    structure Set:
    sig
        val locale : unit -> string
    end
    structure Disable:
    sig
        val setlocale : unit -> unit
    end
    structure Target:
    sig
        val listAddUriTargets : object * int -> unit
        val listAddImageTargets : object * int * bool -> unit
        val listAddTextTargets : object * int -> unit
    end
    structure Accelerator:
    sig
        val getLabel : int * Gdk.ModifierType.t -> string
        val getDefaultModMask : unit -> int
        val setDefaultModMask : Gdk.ModifierType.t -> unit
        val name : int * Gdk.ModifierType.t -> string
        val parse : string * int * Gdk.ModifierType.t -> int * Gdk.ModifierType.t
        val valid : int * Gdk.ModifierType.t -> bool
    end
    structure Get:
    sig
        val eventWidget : object -> object
        val currentEventState : Gdk.ModifierType.t -> bool * Gdk.ModifierType.t
        val currentEventTime : unit -> int
        val currentEvent : unit -> object
        val defaultLanguage : unit -> object
    end
    structure Selection:
    sig
        val ownerSetForDisplay : object * object * Word32.word * int -> bool
    end
end

________ Description _________________________________________________

We do not give a full documentation here. We rather recommend to read the Porting Guide. It gives a comprehensive overview on what has been made available.


last modified 2007/Mar/30 17:10