-- 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/Navigator.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.Navigator
       (navigatorJavaEnabled, navigatorGetStorageUpdates,
        navigatorGetAppCodeName, navigatorGetAppName,
        navigatorGetAppVersion, navigatorGetLanguage,
        navigatorGetUserAgent, navigatorGetPlatform, navigatorGetPlugins,
        navigatorGetMimeTypes, navigatorGetProduct, navigatorGetProductSub,
        navigatorGetVendor, navigatorGetVendorSub,
        navigatorGetCookieEnabled, navigatorGetOnLine)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 13 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
navigatorJavaEnabled :: (NavigatorClass self) => self -> IO Bool
navigatorJavaEnabled self
  = toBool <$>
      ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_java_enabled argPtr1) (toNavigator self))
 
navigatorGetStorageUpdates ::
                           (NavigatorClass self) => self -> IO ()
navigatorGetStorageUpdates self
  = (\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_storage_updates argPtr1)
{-# LINE 25 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
      (toNavigator self)
 
navigatorGetAppCodeName ::
                        (NavigatorClass self) => self -> IO String
navigatorGetAppCodeName self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_app_code_name argPtr1)
{-# LINE 31 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetAppName :: (NavigatorClass self) => self -> IO String
navigatorGetAppName self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_app_name argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetAppVersion ::
                       (NavigatorClass self) => self -> IO String
navigatorGetAppVersion self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_app_version argPtr1)
{-# LINE 45 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetLanguage :: (NavigatorClass self) => self -> IO String
navigatorGetLanguage self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_language argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetUserAgent :: (NavigatorClass self) => self -> IO String
navigatorGetUserAgent self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_user_agent argPtr1)
{-# LINE 58 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetPlatform :: (NavigatorClass self) => self -> IO String
navigatorGetPlatform self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_platform argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetPlugins ::
                    (NavigatorClass self) => self -> IO (Maybe DOMPluginArray)
navigatorGetPlugins self
  = maybeNull (makeNewGObject mkDOMPluginArray)
      ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_plugins argPtr1) (toNavigator self))
 
navigatorGetMimeTypes ::
                      (NavigatorClass self) => self -> IO (Maybe DOMMimeTypeArray)
navigatorGetMimeTypes self
  = maybeNull (makeNewGObject mkDOMMimeTypeArray)
      ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_mime_types argPtr1) (toNavigator self))
 
navigatorGetProduct :: (NavigatorClass self) => self -> IO String
navigatorGetProduct self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_product argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetProductSub ::
                       (NavigatorClass self) => self -> IO String
navigatorGetProductSub self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_product_sub argPtr1)
{-# LINE 90 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetVendor :: (NavigatorClass self) => self -> IO String
navigatorGetVendor self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_vendor argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetVendorSub :: (NavigatorClass self) => self -> IO String
navigatorGetVendorSub self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_vendor_sub argPtr1)
{-# LINE 103 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetCookieEnabled ::
                          (NavigatorClass self) => self -> IO Bool
navigatorGetCookieEnabled self
  = toBool <$>
      ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_cookie_enabled argPtr1)
{-# LINE 112 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
         (toNavigator self))
 
navigatorGetOnLine :: (NavigatorClass self) => self -> IO Bool
navigatorGetOnLine self
  = toBool <$>
      ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_on_line argPtr1) (toNavigator self))

foreign import ccall safe "webkit_dom_navigator_java_enabled"
  webkit_dom_navigator_java_enabled :: ((Ptr Navigator) -> (IO CInt))

foreign import ccall safe "webkit_dom_navigator_get_storage_updates"
  webkit_dom_navigator_get_storage_updates :: ((Ptr Navigator) -> (IO ()))

foreign import ccall safe "webkit_dom_navigator_get_app_code_name"
  webkit_dom_navigator_get_app_code_name :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_app_name"
  webkit_dom_navigator_get_app_name :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_app_version"
  webkit_dom_navigator_get_app_version :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_language"
  webkit_dom_navigator_get_language :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_user_agent"
  webkit_dom_navigator_get_user_agent :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_platform"
  webkit_dom_navigator_get_platform :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_plugins"
  webkit_dom_navigator_get_plugins :: ((Ptr Navigator) -> (IO (Ptr DOMPluginArray)))

foreign import ccall safe "webkit_dom_navigator_get_mime_types"
  webkit_dom_navigator_get_mime_types :: ((Ptr Navigator) -> (IO (Ptr DOMMimeTypeArray)))

foreign import ccall safe "webkit_dom_navigator_get_product"
  webkit_dom_navigator_get_product :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_product_sub"
  webkit_dom_navigator_get_product_sub :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_vendor"
  webkit_dom_navigator_get_vendor :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_vendor_sub"
  webkit_dom_navigator_get_vendor_sub :: ((Ptr Navigator) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_navigator_get_cookie_enabled"
  webkit_dom_navigator_get_cookie_enabled :: ((Ptr Navigator) -> (IO CInt))

foreign import ccall safe "webkit_dom_navigator_get_on_line"
  webkit_dom_navigator_get_on_line :: ((Ptr Navigator) -> (IO CInt))