-- 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/WebKitPoint.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.WebKitPoint
       (webKitPointSetX, webKitPointGetX, webKitPointSetY,
        webKitPointGetY, WebKitPoint, WebKitPointClass, castToWebKitPoint,
        gTypeWebKitPoint, toWebKitPoint)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 9 "./Graphics/UI/Gtk/WebKit/DOM/WebKitPoint.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
webKitPointSetX ::
                (WebKitPointClass self) => self -> Float -> IO ()
webKitPointSetX self val
  = (\(WebKitPoint arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_point_set_x argPtr1 arg2) (toWebKitPoint self)
      (realToFrac val)
 
webKitPointGetX :: (WebKitPointClass self) => self -> IO Float
webKitPointGetX self
  = realToFrac <$>
      ((\(WebKitPoint arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_point_get_x argPtr1) (toWebKitPoint self))
 
webKitPointSetY ::
                (WebKitPointClass self) => self -> Float -> IO ()
webKitPointSetY self val
  = (\(WebKitPoint arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_point_set_y argPtr1 arg2) (toWebKitPoint self)
      (realToFrac val)
 
webKitPointGetY :: (WebKitPointClass self) => self -> IO Float
webKitPointGetY self
  = realToFrac <$>
      ((\(WebKitPoint arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_webkit_point_get_y argPtr1) (toWebKitPoint self))

foreign import ccall safe "webkit_dom_webkit_point_set_x"
  webkit_dom_webkit_point_set_x :: ((Ptr WebKitPoint) -> (CFloat -> (IO ())))

foreign import ccall safe "webkit_dom_webkit_point_get_x"
  webkit_dom_webkit_point_get_x :: ((Ptr WebKitPoint) -> (IO CFloat))

foreign import ccall safe "webkit_dom_webkit_point_set_y"
  webkit_dom_webkit_point_set_y :: ((Ptr WebKitPoint) -> (CFloat -> (IO ())))

foreign import ccall safe "webkit_dom_webkit_point_get_y"
  webkit_dom_webkit_point_get_y :: ((Ptr WebKitPoint) -> (IO CFloat))