-- GENERATED by C->Haskell Compiler, version 0.13.13 (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(
getRegionsByContent,
getRegions,
getContent,
getName,
getOverset,
getFirstEmptyRegionIndex,
WebKitNamedFlow,
castToWebKitNamedFlow,
gTypeWebKitNamedFlow,
WebKitNamedFlowClass,
toWebKitNamedFlow,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 27 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums


getRegionsByContent ::
                    (MonadIO m, WebKitNamedFlowClass self, NodeClass contentNode) =>
                      self -> Maybe contentNode -> m (Maybe NodeList)
getRegionsByContent self contentNode
  = liftIO
      (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 38 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
            (toWebKitNamedFlow self)
            (maybe (Node nullForeignPtr) toNode contentNode)))
 
getRegions ::
           (MonadIO m, WebKitNamedFlowClass self) =>
             self -> m (Maybe NodeList)
getRegions self
  = liftIO
      (maybeNull (makeNewGObject mkNodeList)
         ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_regions argPtr1)
{-# LINE 48 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
            (toWebKitNamedFlow self)))
 
getContent ::
           (MonadIO m, WebKitNamedFlowClass self) =>
             self -> m (Maybe NodeList)
getContent self
  = liftIO
      (maybeNull (makeNewGObject mkNodeList)
         ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_content argPtr1)
{-# LINE 57 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
            (toWebKitNamedFlow self)))
 
getName ::
        (MonadIO m, WebKitNamedFlowClass self, GlibString string) =>
          self -> m string
getName self
  = liftIO
      (((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_name argPtr1)
{-# LINE 65 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
          (toWebKitNamedFlow self))
         >>=
         readUTFString)
 
getOverset ::
           (MonadIO m, WebKitNamedFlowClass self) => self -> m Bool
getOverset self
  = liftIO
      (toBool <$>
         ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_overset argPtr1)
{-# LINE 75 "./Graphics/UI/Gtk/WebKit/DOM/WebKitNamedFlow.chs" #-}
            (toWebKitNamedFlow self)))
 
getFirstEmptyRegionIndex ::
                         (MonadIO m, WebKitNamedFlowClass self) => self -> m Int
getFirstEmptyRegionIndex self
  = liftIO
      (fromIntegral <$>
         ((\(WebKitNamedFlow arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_named_flow_get_first_empty_region_index argPtr1)
{-# LINE 84 "./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_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))