anchor.diff:    (activate_time :uint32)               ;guint32
     )
   
  -(defcfun "cairo_show_text"
  -    :void
  -  (arg0 :pointer)                       ;cairo_t *
  -  (arg1 :string)                        ;const char *
  -  )
  -
  -(defcfun "gdk_threads_leave" :void)
  -
  -(defcfun "cairo_set_line_join"
  -    :void
  -  (arg0 :pointer)                       ;cairo_t *
  -  (arg1 cairo_line_join_t))
  -
  -(defcfun "cairo_reset_clip"
  -    :void
  -  (arg0 :pointer)                       ;cairo_t *
  -  )
  -
  -(defcfun "gdk_screen_get_height"
  -    :int
  -  (screen :pointer)                     ;GdkScreen *
  -  )
  -
  -(defcfun "cairo_set_line_width"
  -    :void
  -  (arg0 :pointer)                       ;cairo_t *
  -  (arg1 :double)                        ;double
  -  )
  -
  -(defcfun "gtk_widget_hide"
  -    :void
  -  (widget :pointer)                     ;GtkWidget *
  +(defcfun "gtk_menu_shell_append"
  +    :void
  +  (menu_shell :pointer)                 ;GtkMenuShell *
  +  (child :pointer)                      ;GtkWidget *
  +  )
  +
  +(defcfun "gtk_radio_button_get_group"
  +    :pointer
  +  (radio_button :pointer)               ;GtkRadioButton *
  +  )
  +
  +(defcfun "gtk_radio_button_new_with_label"
  +    :pointer
  +  (group :pointer)                      ;GSList *
  +  (label :string)                       ;const gchar *
  +  )
  +
  +(defcfun "gtk_range_get_adjustment"
  +    :pointer
  +  (range :pointer)                      ;GtkRange *
     )
   
   (defcfun "gtk_range_get_value"
  
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: ;;; -*- Mode: Lisp; -*-
  
  (in-package :clim-gtkairo)
  
  (cffi:defcstruct Depth
    (depth :int)                          ;int
    (nvisuals :int)                       ;int
    (visuals :pointer)                    ;Visual *
    )
  
  (defcenum GConnectFlags
    (:G_CONNECT_AFTER 1)
    :G_CONNECT_SWAPPED)
  
  (defcenum GdkCrossingMode
    :GDK_CROSSING_NORMAL
    :GDK_CROSSING_GRAB
    :GDK_CROSSING_UNGRAB)
  
  (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 GdkDragProtocol
    :GDK_DRAG_PROTO_MOTIF
    :GDK_DRAG_PROTO_XDND
    :GDK_DRAG_PROTO_ROOTWIN
    :GDK_DRAG_PROTO_NONE
    :GDK_DRAG_PROTO_WIN32_DROPFILES
    :GDK_DRAG_PROTO_OLE2
    :GDK_DRAG_PROTO_LOCAL)
  
  (defcenum GdkEventMask
    (:GDK_EXPOSURE_MASK 2)
  