module GI.WebKit.Objects.DOMGeolocation
(
DOMGeolocation(..) ,
DOMGeolocationK ,
toDOMGeolocation ,
noDOMGeolocation ,
dOMGeolocationClearWatch ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMGeolocation = DOMGeolocation (ForeignPtr DOMGeolocation)
foreign import ccall "webkit_dom_geolocation_get_type"
c_webkit_dom_geolocation_get_type :: IO GType
type instance ParentTypes DOMGeolocation = DOMGeolocationParentTypes
type DOMGeolocationParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMGeolocation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_geolocation_get_type
class GObject o => DOMGeolocationK o
instance (GObject o, IsDescendantOf DOMGeolocation o) => DOMGeolocationK o
toDOMGeolocation :: DOMGeolocationK o => o -> IO DOMGeolocation
toDOMGeolocation = unsafeCastTo DOMGeolocation
noDOMGeolocation :: Maybe DOMGeolocation
noDOMGeolocation = Nothing
type instance AttributeList DOMGeolocation = DOMGeolocationAttributeList
type DOMGeolocationAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMGeolocation = DOMGeolocationSignalList
type DOMGeolocationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_geolocation_clear_watch" webkit_dom_geolocation_clear_watch ::
Ptr DOMGeolocation ->
Int64 ->
IO ()
dOMGeolocationClearWatch ::
(MonadIO m, DOMGeolocationK a) =>
a ->
Int64 ->
m ()
dOMGeolocationClearWatch _obj watchID = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_geolocation_clear_watch _obj' watchID
touchManagedPtr _obj
return ()