webkitgtk3-0.12.5: Graphics/UI/Gtk/WebKit/DOM/Location.chs

module Graphics.UI.Gtk.WebKit.DOM.Location
       (locationGetOrigin
#if WEBKIT_CHECK_VERSION(1,10,0)
        , locationGetAncestorOrigins
#endif
        ) where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
{#import Graphics.UI.Gtk.WebKit.Types#}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
locationGetOrigin :: (LocationClass self) => self -> IO String
locationGetOrigin self
  = ({# call webkit_dom_location_get_origin #} (toLocation self)) >>=
      readUTFString
 
#if WEBKIT_CHECK_VERSION(1,10,0)
locationGetAncestorOrigins ::
                           (LocationClass self) => self -> IO (Maybe DOMStringList)
locationGetAncestorOrigins self
  = maybeNull (makeNewGObject mkDOMStringList)
      ({# call webkit_dom_location_get_ancestor_origins #}
         (toLocation self))
#endif