-- GENERATED by C->Haskell Compiler, version 0.13.11 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.WebKitNamedFlow
       (
        webKitNamedFlowGetRegionsByContent, webKitNamedFlowGetRegions,
        webKitNamedFlowGetContent, webKitNamedFlowDispatchEvent,
        webKitNamedFlowGetName, webKitNamedFlowGetOverset,
        webKitNamedFlowGetFirstEmptyRegionIndex, WebKitNamedFlow,
        WebKitNamedFlowClass, castToWebKitNamedFlow, gTypeWebKitNamedFlow,
        toWebKitNamedFlow
        )
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 16 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
webKitNamedFlowGetRegionsByContent ::
                                   (WebKitNamedFlowClass self, NodeClass contentNode) =>
                                     self -> Maybe contentNode -> IO (Maybe NodeList)
webKitNamedFlowGetRegionsByContent self contentNode
  = maybeNull (makeNewGObject mkNodeList)
      ((\(WebKitNamedFlow arg1) (Node arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->webkit_dom_webkit_named_flow_get_regions_by_content argPtr1 argPtr2)
{-# LINE 26 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
         (toWebKitNamedFlow self)
         (maybe (Node nullForeignPtr) toNode contentNode))
 
webKitNamedFlowGetRegions ::
                          (WebKitNamedFlowClass self) => self -> IO (Maybe NodeList)
webKitNamedFlowGetRegions self
  = maybeNull (makeNewGObject mkNodeList)
      ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_regions argPtr1)
{-# LINE 34 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
         (toWebKitNamedFlow self))
 
webKitNamedFlowGetContent ::
                          (WebKitNamedFlowClass self) => self -> IO (Maybe NodeList)
webKitNamedFlowGetContent self
  = maybeNull (makeNewGObject mkNodeList)
      ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_content argPtr1)
{-# LINE 41 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
         (toWebKitNamedFlow self))
 
webKitNamedFlowDispatchEvent ::
                             (WebKitNamedFlowClass self, EventClass event) =>
                               self -> Maybe event -> IO Bool
webKitNamedFlowDispatchEvent self event
  = toBool <$>
      (propagateGError $
         \ errorPtr_ ->
           (\(WebKitNamedFlow arg1) (Event arg2) arg3 -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->webkit_dom_webkit_named_flow_dispatch_event argPtr1 argPtr2 arg3)
{-# LINE 51 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
             (toWebKitNamedFlow self)
             (maybe (Event nullForeignPtr) toEvent event)
             errorPtr_)
 
webKitNamedFlowGetName ::
                       (WebKitNamedFlowClass self, GlibString string) => self -> IO string
webKitNamedFlowGetName self
  = ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_name argPtr1)
{-# LINE 59 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
       (toWebKitNamedFlow self))
      >>=
      readUTFString
 
webKitNamedFlowGetOverset ::
                          (WebKitNamedFlowClass self) => self -> IO Bool
webKitNamedFlowGetOverset self
  = toBool <$>
      ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_overset argPtr1)
{-# LINE 68 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
         (toWebKitNamedFlow self))
 
webKitNamedFlowGetFirstEmptyRegionIndex ::
                                        (WebKitNamedFlowClass self) => self -> IO Int
webKitNamedFlowGetFirstEmptyRegionIndex self
  = fromIntegral <$>
      ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_first_empty_region_index argPtr1)
{-# LINE 76 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
         (toWebKitNamedFlow self))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.h webkit_dom_webkit_named_flow_get_regions_by_content"
  webkit_dom_webkit_named_flow_get_regions_by_content :: ((Ptr WebKitNamedFlow) -> ((Ptr Node) -> (IO (Ptr NodeList))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.h webkit_dom_webkit_named_flow_get_regions"
  webkit_dom_webkit_named_flow_get_regions :: ((Ptr WebKitNamedFlow) -> (IO (Ptr NodeList)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.h webkit_dom_webkit_named_flow_get_content"
  webkit_dom_webkit_named_flow_get_content :: ((Ptr WebKitNamedFlow) -> (IO (Ptr NodeList)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.h webkit_dom_webkit_named_flow_dispatch_event"
  webkit_dom_webkit_named_flow_dispatch_event :: ((Ptr WebKitNamedFlow) -> ((Ptr Event) -> ((Ptr (Ptr ())) -> (IO CInt))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.h webkit_dom_webkit_named_flow_get_name"
  webkit_dom_webkit_named_flow_get_name :: ((Ptr WebKitNamedFlow) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.h webkit_dom_webkit_named_flow_get_overset"
  webkit_dom_webkit_named_flow_get_overset :: ((Ptr WebKitNamedFlow) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.h webkit_dom_webkit_named_flow_get_first_empty_region_index"
  webkit_dom_webkit_named_flow_get_first_empty_region_index :: ((Ptr WebKitNamedFlow) -> (IO CLong))