anchor.diff:    (time :uint32)                        ;guint32
     )
   
  -(defcfun "g_idle_add"
  -    :unsigned-int
  -  (function :pointer)                   ;GSourceFunc
  -  (data :pointer)                       ;gpointer
  +(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
  
positive.code:   (range :pointer)                      ;GtkRange *
    )
  
  (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 "cairo_pattern_get_matrix"
      :void
    (arg0 :pointer)                       ;cairo_pattern_t *
    (arg1 :pointer)                       ;cairo_matrix_t *
    )
  
  (defcfun "cairo_arc"
      :void
    (arg0 :pointer)                       ;cairo_t *
    (arg1 :double)                        ;double
    (arg2 :double)                        ;double
    (arg3 :double)                        ;double
    (arg4 :double)                        ;double
    (arg5 :double)                        ;double
    )
  
  (defcfun "gtk_widget_set_size_request"
      :void
    (widget :pointer)                     ;GtkWidget *
    (width :int)                          ;gint
    (height :int)                         ;gint
    )
  
  (defcfun "gtk_widget_set_events"
      :void
    (widget :pointer)                     ;GtkWidget *
    (events :int)                         ;gint
    )
  
  (defcfun "gtk_radio_button_new_with_label"
      :pointer
    (group :pointer)                      ;GSList *
    (label :string)                       ;const gchar *
    )
  
  (defcfun "gtk_main_iteration_do"
      :int
    (blocking :int)                       ;gboolean
    )
  
  (defcfun "cairo_show_page"
      :void
    (arg0 :pointer)                       ;cairo_t *
    )
  
  (defcfun "cairo_scale"
      :void
    (arg0 :pointer)                       ;cairo_t *
    (arg1 :double)                        ;double
    (arg2 :double)                        ;double
    )
  
  (defcfun "gtk_tree_view_insert_column"
  
negative.code:   (step :double)                        ;gdouble
    )
  
  (defcfun "gtk_vscrollbar_new"
      :pointer
    (adjustment :pointer)                 ;GtkAdjustment *
    )
  
  (defcfun "gtk_widget_add_events"
      :void
    (widget :pointer)                     ;GtkWidget *
    (events :int)                         ;gint
    )
  
  (defcfun "gtk_widget_destroy"
      :void
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_widget_get_events"
      :int
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_widget_get_pointer"
      :void
    (widget :pointer)                     ;GtkWidget *
    (x :pointer)                          ;gint *
    (y :pointer)                          ;gint *
    )
  
  (defcfun "gtk_widget_grab_focus"
      :void
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_widget_hide"
      :void
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_widget_hide_all"
      :void
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_widget_modify_bg"
      :void
    (widget :pointer)                     ;GtkWidget *
    (state GtkStateType)
    (color :pointer)                      ;const GdkColor *
    )
  
  (defcfun "gtk_widget_set_double_buffered"
      :void
    (widget :pointer)                     ;GtkWidget *
    (double_buffered :int)                ;gboolean
    )
  
  (defcfun "gtk_widget_set_events"
      :void
    (widget :pointer)                     ;GtkWidget *
    (events :int)                         ;gint
    )
  
  (defcfun "gtk_widget_set_size_request"
      :void
    (widget :pointer)                     ;GtkWidget *
    (width :int)                          ;gint
    (height :int)                         ;gint
    )
  
  (defcfun "gtk_widget_show"
      :void
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_widget_show_all"
      :void
    (widget :pointer)                     ;GtkWidget *
    )
  
  (defcfun "gtk_widget_size_request"
      :void
    (widget :pointer)                     ;GtkWidget *
    (requisition :pointer)                ;GtkRequisition *
    )
  
  (defcfun "gtk_window_move"
      :void
    (window :pointer)                     ;GtkWindow *
    (x :int)                              ;gint
    (y :int)                              ;gint
    )
  
  (defcfun "gtk_window_new"
      :pointer
    (type GtkWindowType))
  
  (defcfun "gtk_window_resize"
      :void
    (window :pointer)                     ;GtkWindow *
    (width :int)                          ;gint
    (height :int)                         ;gint
    )
  
  (defcfun "gtk_window_set_default_size"
      :void
    (window :pointer)                     ;GtkWindow *
    (width :int)                          ;gint
    (height :int)                         ;gint
    )
  
  (defcfun "gtk_window_set_geometry_hints"
      :void
    (window :pointer)                     ;GtkWindow *
    (geometry_widget :pointer)            ;GtkWidget *
    (geometry :pointer)                   ;GdkGeometry *
    (geom_mask GdkWindowHints))
  
  (defcfun "gtk_window_set_title"
      :void
    (window :pointer)                     ;GtkWindow *
    (title :string)                       ;const gchar *
    )
  
  (defcfun "XGetErrorText"
  