anchor.diff:  (export 'webkit-web-resource)
   
   (defcfun "webkit_web_resource_new" webkit-web-resource
  -  (data glib:g-string)
  +  (data :string)
     (size :int) ; is really `gssize'
  -  (uri glib:g-string)
  -  (mime-type glib:g-string)
  -  (encoding glib:g-string)
  -  (frame-name glib:g-string))
  +  (uri :string)
  +  (mime-type :string)
  +  (encoding :string)
  +  (frame-name :string))
   (export 'webkit-web-resource-new)
   
   (defcfun "webkit_web_resource_get_data" glib:g-string ; this is GString
     (web-resource webkit-web-resource))
   (export 'webkit-web-resource-get-data)
   
  -(defcfun "webkit_web_resource_get_uri" glib:g-string
  +(defcfun "webkit_web_resource_get_uri" :string
     (web-resource webkit-web-resource))
   (export 'webkit-web-resource-get-uri)
   
  -(defcfun "webkit_web_resource_get_mime_type" glib:g-string
  +(defcfun "webkit_web_resource_get_mime_type" :string
     (web-resource webkit-web-resource))
   (export 'webkit-web-resource-get-mime-type)
   
  -(defcfun "webkit_web_resource_get_encoding" glib:g-string
  +(defcfun "webkit_web_resource_get_encoding" :string
     (web-resource webkit-web-resource))
   (export 'webkit-web-resource-get-encoding)
   
  -(defcfun "webkit_web_resource_get_frame_name" glib:g-string
  +(defcfun "webkit_web_resource_get_frame_name" :string
     (web-resource webkit-web-resource))
   (export 'webkit-web-resource-get-frame-name)
   
  
positive.code:   (navigation-action webkit-web-navigation-action))
  (export 'webkit-web-navigation-action-get-modifier-state)
  
  (defcfun "webkit_web_navigation_action_get_target_frame" glib:g-string
    (navigation-action webkit-web-navigation-action))
  (export 'webkit-web-navigation-action-get-target-frame)
  
  
negative.code: 
  (defcfun "webkit_web_view_search_text" :boolean
    (web-view webkit-web-view)
    (text :string)
    (case-sensitive :boolean)
    (forward :boolean)
    (wrap :boolean))
  