anchor.diff:    (destroy_data :pointer)               ;GClosureNotify
     (connect_flags GConnectFlags))
   
  -(defcfun "gdk_screen_get_height_mm"
  -    :int
  -  (screen :pointer)                     ;GdkScreen *
  -  )
  -
  -(defcfun "cairo_surface_create_similar"
  -    :pointer
  -  (arg0 :pointer)                       ;cairo_surface_t *
  -  (arg1 cairo_content_t)
  -  (arg2 :int)                           ;int
  -  (arg3 :int)                           ;int
  -  )
  -
  -(defcfun "gtk_adjustment_set_value"
  -    :void
  -  (adjustment :pointer)                 ;GtkAdjustment *
  -  (value :double)                       ;gdouble
  -  )
  -
  -(defcfun "cairo_pattern_reference"
  -    :pointer
  -  (arg0 :pointer)                       ;cairo_pattern_t *
  -  )
  -
  -(defcfun "cairo_glyph_extents"
  -    :void
  -  (arg0 :pointer)                       ;cairo_t *
  -  (arg1 :pointer)                       ;cairo_glyph_t *
  -  (arg2 :int)                           ;int
  -  (arg3 :pointer)                       ;cairo_text_extents_t *
  -  )
  -
  -(defcfun "gtk_widget_hide_all"
  -    :void
  -  (widget :pointer)                     ;GtkWidget *
  -  )
  -
  -(defcfun "gtk_widget_destroy"
  -    :void
  -  (widget :pointer)                     ;GtkWidget *
  -  )
  -
  -(defcfun "gtk_tree_view_new_with_model"
  -    :pointer
  -  (model :pointer)                      ;GtkTreeModel *
  -  )
  -
  -(defcfun "gdk_display_flush"
  -    :void
  -  (display :pointer)                    ;GdkDisplay *
  -  )
  -
  -(defcfun "gtk_tree_view_column_add_attribute"
  -    :void
  -  (tree_column :pointer)                ;GtkTreeViewColumn *
  -  (cell_renderer :pointer)              ;GtkCellRenderer *
  -  (attribute :string)                   ;const gchar *
  -  (column :int)                         ;gint
  -  )
  -
  -(defcfun "cairo_font_face_status"
  -    cairo_status_t
  -  (arg0 :pointer)                       ;cairo_font_face_t *
  +(defcfun "g_thread_init"
  +    :void
  +  (init :pointer)                       ;GThreadFunctions *
  +  )
  +
  +(defcfun "g_value_init"
  +    :pointer
  +  (value :pointer)                      ;GValue *
  +  (g_type :unsigned-long)               ;GType
     )
   
   (defcfun "g_value_set_string"
  
positive.code:   :GDK_OWNER_CHANGE
    :GDK_GRAB_BROKEN)
  
  (defcenum GdkModifierType
    (:GDK_SHIFT_MASK 1)
    :GDK_LOCK_MASK
    (:GDK_CONTROL_MASK 4)
    (:GDK_MOD1_MASK 8)
    (:GDK_MOD2_MASK 16)
    (:GDK_MOD3_MASK 32)
    (:GDK_MOD4_MASK 64)
    (:GDK_MOD5_MASK 128)
    (:GDK_BUTTON1_MASK 256)
    (:GDK_BUTTON2_MASK 512)
    (:GDK_BUTTON3_MASK 1024)
    (:GDK_BUTTON4_MASK 2048)
    (:GDK_BUTTON5_MASK 4096)
    (:GDK_RELEASE_MASK 1073741824)
    (:GDK_MODIFIER_MASK 1073750015))
  
  (defcenum GtkStateType
    :GTK_STATE_NORMAL
    :GTK_STATE_ACTIVE
    :GTK_STATE_PRELIGHT
    :GTK_STATE_SELECTED
    :GTK_STATE_INSENSITIVE)
  
  (defcenum GdkDragAction
    (:GDK_ACTION_DEFAULT 1)
    :GDK_ACTION_COPY
    (:GDK_ACTION_MOVE 4)
    (:GDK_ACTION_LINK 8)
    (:GDK_ACTION_PRIVATE 16)
    (:GDK_ACTION_ASK 32))
  
  (defcenum GdkCrossingMode
    :GDK_CROSSING_NORMAL
    :GDK_CROSSING_GRAB
    :GDK_CROSSING_UNGRAB)
  
  (defcenum GdkFunction
    :GDK_COPY
    :GDK_INVERT
  
negative.code:   (time :uint32)                        ;guint32
    )
  
  (defcfun "gdk_drag_status"
      :void
    (context :pointer)                    ;GdkDragContext *
    (action GdkDragAction)
    (time :uint32)                        ;guint32
    )
  
  (defcfun "gdk_draw_drawable"
      :void
    (drawable :pointer)                   ;GdkDrawable *
    (gc :pointer)                         ;GdkGC *
    (src :pointer)                        ;GdkDrawable *
    (xsrc :int)                           ;gint
    (ysrc :int)                           ;gint
    (xdest :int)                          ;gint
    (ydest :int)                          ;gint
    (width :int)                          ;gint
    (height :int)                         ;gint
    )
  
  (defcfun "gdk_draw_rectangle"
      :void
    (drawable :pointer)                   ;GdkDrawable *
    (gc :pointer)                         ;GdkGC *
    (filled :int)                         ;gboolean
    (x :int)                              ;gint
    (y :int)                              ;gint
    (width :int)                          ;gint
    (height :int)                         ;gint
    )
  
  (defcfun "gdk_drawable_get_depth"
      :int
    (drawable :pointer)                   ;GdkDrawable *
    )
  
  (defcfun "gdk_drawable_unref"
      :void
    (drawable :pointer)                   ;GdkDrawable *
    )
  
  (defcfun "gdk_error_trap_pop" :int)
  
  (defcfun "gdk_error_trap_push" :void)
  
  (defcfun "gdk_flush" :void)
  
  (defcfun "gdk_gc_new"
      :pointer
    (drawable :pointer)                   ;GdkDrawable *
    )
  
  (defcfun "gdk_gc_set_function"
      :void
    (gc :pointer)                         ;GdkGC *
    (function GdkFunction))
  
  (defcfun "gdk_gc_set_rgb_fg_color"
      :void
    (gc :pointer)                         ;GdkGC *
    (color :pointer)                      ;const GdkColor *
    )
  
  (defcfun "gdk_gc_unref"
      :void
    (gc :pointer)                         ;GdkGC *
    )
  
  (defcfun "gdk_pixmap_new"
      :pointer
    (drawable :pointer)                   ;GdkDrawable *
    (width :int)                          ;gint
    (height :int)                         ;gint
    (depth :int)                          ;gint
    )
  
  (defcfun "gdk_pointer_grab"
      GdkGrabStatus
    (window :pointer)                     ;GdkWindow *
    (owner_events :int)                   ;gboolean
    (event_mask GdkEventMask)
    (confine_to :pointer)                 ;GdkWindow *
    (cursor :pointer)                     ;GdkCursor *
    (time :uint32)                        ;guint32
    )
  
  (defcfun "gdk_pointer_ungrab"
      :void
    (time :uint32)                        ;guint32
    )
  
  (defcfun "gdk_screen_get_default" :pointer)
  
  (defcfun "gdk_screen_get_height"
      :int
    (screen :pointer)                     ;GdkScreen *
    )
  
  (defcfun "gdk_screen_get_height_mm"
      :int
    (screen :pointer)                     ;GdkScreen *
    )
  
  (defcfun "gdk_screen_get_root_window"
      :pointer
    (screen :pointer)                     ;GdkScreen *
    )
  
  (defcfun "gdk_screen_get_width"
      :int
    (screen :pointer)                     ;GdkScreen *
    )
  
  (defcfun "gdk_screen_get_width_mm"
      :int
    (screen :pointer)                     ;GdkScreen *
    )
  
  (defcfun "gdk_threads_enter" :void)
  
  (defcfun "gdk_threads_init" :void)
  
  (defcfun "gdk_threads_leave" :void)
  
  (defcfun "gdk_window_clear_area"
      :void
    (window :pointer)                     ;GdkWindow *
    (x :int)                              ;gint
    (y :int)                              ;gint
    (width :int)                          ;gint
    (height :int)                         ;gint
    )
  
  (defcfun "gdk_window_get_root_origin"
      :void
    (window :pointer)                     ;GdkWindow *
    (x :pointer)                          ;gint *
    (y :pointer)                          ;gint *
    )
  
  (defcfun "gdk_window_invalidate_rect"
      :void
    (window :pointer)                     ;GdkWindow *
    (rect :pointer)                       ;GdkRectangle *
    (invalidate_children :int)            ;gboolean
    )
  
  (defcfun "gtk_adjustment_new"
      :pointer
    (value :double)                       ;gdouble
    (lower :double)                       ;gdouble
    (upper :double)                       ;gdouble
    (step_increment :double)              ;gdouble
    (page_increment :double)              ;gdouble
    (page_size :double)                   ;gdouble
    )
  
  (defcfun "gtk_adjustment_set_value"
      :void
    (adjustment :pointer)                 ;GtkAdjustment *
    (value :double)                       ;gdouble
    )
  
  (defcfun "gtk_button_new_with_label"
      :pointer
    (label :string)                       ;const gchar *
    )
  
  (defcfun "gtk_cell_renderer_text_new" :pointer)
  
  (defcfun "gtk_check_button_new_with_label"
      :pointer
    (label :string)                       ;const gchar *
    )
  
  (defcfun "gtk_container_add"
      :void
    (container :pointer)                  ;GtkContainer *
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_events_pending" :int)
  
  (defcfun "gtk_fixed_move"
      :void
    (fixed :pointer)                      ;GtkFixed *
    (widget :pointer)                     ;GtkWidget *
    (x :int)                              ;gint
    (y :int)                              ;gint
    )
  
  (defcfun "gtk_fixed_new" :pointer)
  
  (defcfun "gtk_fixed_put"
      :void
    (fixed :pointer)                      ;GtkFixed *
    (widget :pointer)                     ;GtkWidget *
    (x :int)                              ;gint
    (y :int)                              ;gint
    )
  
  (defcfun "gtk_fixed_set_has_window"
      :void
    (fixed :pointer)                      ;GtkFixed *
    (has_window :int)                     ;gboolean
    )
  
  (defcfun "gtk_get_current_event_time" :uint32)
  
  (defcfun "gtk_hscale_new_with_range"
      :pointer
    (min :double)                         ;gdouble
    (max :double)                         ;gdouble
    (step :double)                        ;gdouble
    )
  
  (defcfun "gtk_hscrollbar_new"
      :pointer
    (adjustment :pointer)                 ;GtkAdjustment *
    )
  
  (defcfun "gtk_init"
      :void
    (argc :pointer)                       ;int *
    (argv :pointer)                       ;char ***
    )
  
  (defcfun "gtk_list_store_append"
      :void
    (list_store :pointer)                 ;GtkListStore *
    (iter :pointer)                       ;GtkTreeIter *
    )
  
  (defcfun "gtk_list_store_newv"
      :pointer
    (n_columns :int)                      ;gint
    (types :pointer)                      ;GType *
    )
  
  (defcfun "gtk_list_store_set_value"
      :void
    (list_store :pointer)                 ;GtkListStore *
    (iter :pointer)                       ;GtkTreeIter *
    (column :int)                         ;gint
    (value :pointer)                      ;GValue *
    )
  
  (defcfun "gtk_main_iteration_do"
      :int
    (blocking :int)                       ;gboolean
    )
  
  (defcfun "gtk_menu_bar_new" :pointer)
  
  (defcfun "gtk_menu_item_new_with_label"
      :pointer
    (label :string)                       ;const gchar *
    )
  
  (defcfun "gtk_menu_item_set_submenu"
      :void
    (menu_item :pointer)                  ;GtkMenuItem *
    (submenu :pointer)                    ;GtkWidget *
    )
  
  (defcfun "gtk_menu_new" :pointer)
  
  (defcfun "gtk_menu_popup"
      :void
  