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


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/Screen.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.Screen
       (screenGetHeight, screenGetWidth, screenGetColorDepth,
        screenGetPixelDepth, screenGetAvailLeft, screenGetAvailTop,
        screenGetAvailHeight, screenGetAvailWidth, DOMScreen,
        DOMScreenClass, castToDOMScreen, gTypeDOMScreen, toDOMScreen)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 10 "./Graphics/UI/Gtk/WebKit/DOM/Screen.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
screenGetHeight :: (DOMScreenClass self) => self -> IO Word
screenGetHeight self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_height argPtr1) (toDOMScreen self))
 
screenGetWidth :: (DOMScreenClass self) => self -> IO Word
screenGetWidth self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_width argPtr1) (toDOMScreen self))
 
screenGetColorDepth :: (DOMScreenClass self) => self -> IO Word
screenGetColorDepth self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_color_depth argPtr1) (toDOMScreen self))
 
screenGetPixelDepth :: (DOMScreenClass self) => self -> IO Word
screenGetPixelDepth self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_pixel_depth argPtr1) (toDOMScreen self))
 
screenGetAvailLeft :: (DOMScreenClass self) => self -> IO Int
screenGetAvailLeft self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_avail_left argPtr1) (toDOMScreen self))
 
screenGetAvailTop :: (DOMScreenClass self) => self -> IO Int
screenGetAvailTop self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_avail_top argPtr1) (toDOMScreen self))
 
screenGetAvailHeight :: (DOMScreenClass self) => self -> IO Word
screenGetAvailHeight self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_avail_height argPtr1) (toDOMScreen self))
 
screenGetAvailWidth :: (DOMScreenClass self) => self -> IO Word
screenGetAvailWidth self
  = fromIntegral <$>
      ((\(DOMScreen arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_screen_get_avail_width argPtr1) (toDOMScreen self))

foreign import ccall safe "webkit_dom_screen_get_height"
  webkit_dom_screen_get_height :: ((Ptr DOMScreen) -> (IO CULong))

foreign import ccall safe "webkit_dom_screen_get_width"
  webkit_dom_screen_get_width :: ((Ptr DOMScreen) -> (IO CULong))

foreign import ccall safe "webkit_dom_screen_get_color_depth"
  webkit_dom_screen_get_color_depth :: ((Ptr DOMScreen) -> (IO CULong))

foreign import ccall safe "webkit_dom_screen_get_pixel_depth"
  webkit_dom_screen_get_pixel_depth :: ((Ptr DOMScreen) -> (IO CULong))

foreign import ccall safe "webkit_dom_screen_get_avail_left"
  webkit_dom_screen_get_avail_left :: ((Ptr DOMScreen) -> (IO CLong))

foreign import ccall safe "webkit_dom_screen_get_avail_top"
  webkit_dom_screen_get_avail_top :: ((Ptr DOMScreen) -> (IO CLong))

foreign import ccall safe "webkit_dom_screen_get_avail_height"
  webkit_dom_screen_get_avail_height :: ((Ptr DOMScreen) -> (IO CULong))

foreign import ccall safe "webkit_dom_screen_get_avail_width"
  webkit_dom_screen_get_avail_width :: ((Ptr DOMScreen) -> (IO CULong))