-- 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, Navigator,
        NavigatorClass, castToNavigator, gTypeNavigator, toNavigator)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 14 "./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 26 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
      (toNavigator self)
 
navigatorGetAppCodeName ::
                        (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetAppCodeName self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_app_code_name argPtr1)
{-# LINE 32 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetAppName ::
                    (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetAppName self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_app_name argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetAppVersion ::
                       (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetAppVersion self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_app_version argPtr1)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetLanguage ::
                     (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetLanguage self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_language argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetUserAgent ::
                      (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetUserAgent self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_user_agent argPtr1)
{-# LINE 62 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetPlatform ::
                     (NavigatorClass self, GlibString string) => 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, GlibString string) => self -> IO string
navigatorGetProduct self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_product argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetProductSub ::
                       (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetProductSub self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_product_sub argPtr1)
{-# LINE 96 "./Graphics/UI/Gtk/WebKit/DOM/Navigator.chs" #-}
       (toNavigator self))
      >>=
      readUTFString
 
navigatorGetVendor ::
                   (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetVendor self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_vendor argPtr1) (toNavigator self))
      >>=
      readUTFString
 
navigatorGetVendorSub ::
                      (NavigatorClass self, GlibString string) => self -> IO string
navigatorGetVendorSub self
  = ((\(Navigator arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_navigator_get_vendor_sub argPtr1)
{-# LINE 111 "./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 120 "./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))