    withCString frameName $ \framePtr -> 
    wrapNewGObject mkWebResource $ 
      {#call web_resource_new#} dataPtr (fromIntegral size) uriPtr mimePtr encodingPtr framePtr
+
+-- | Returns the data of the WebResource.
+webResourceGetData :: WebResourceClass self => self -> IO (Maybe String)
+webResourceGetData wr =
+  {#call web_resource_get_data#} (toWebResource wr) >>= readGString
 
 -- | Get encoding.
 webResourceGetEncoding :: 

  webResourceNew,

-- * Methods  
  webResourceGetEncoding,
  webResourceGetFrameName,
  webResourceGetMimeType,

import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.GList
import System.Glib.GString
import System.Glib.GError 
import Graphics.UI.Gtk.Gdk.Events

