module GI.WebKit.Objects.DOMBatteryManager
(
DOMBatteryManager(..) ,
DOMBatteryManagerK ,
toDOMBatteryManager ,
noDOMBatteryManager ,
dOMBatteryManagerDispatchEvent ,
dOMBatteryManagerGetCharging ,
dOMBatteryManagerGetChargingTime ,
dOMBatteryManagerGetDischargingTime ,
dOMBatteryManagerGetLevel ,
DOMBatteryManagerChargingPropertyInfo ,
getDOMBatteryManagerCharging ,
DOMBatteryManagerChargingTimePropertyInfo,
getDOMBatteryManagerChargingTime ,
DOMBatteryManagerDischargingTimePropertyInfo,
getDOMBatteryManagerDischargingTime ,
DOMBatteryManagerLevelPropertyInfo ,
getDOMBatteryManagerLevel ,
) 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 DOMBatteryManager = DOMBatteryManager (ForeignPtr DOMBatteryManager)
foreign import ccall "webkit_dom_battery_manager_get_type"
c_webkit_dom_battery_manager_get_type :: IO GType
type instance ParentTypes DOMBatteryManager = DOMBatteryManagerParentTypes
type DOMBatteryManagerParentTypes = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMBatteryManager where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_battery_manager_get_type
class GObject o => DOMBatteryManagerK o
instance (GObject o, IsDescendantOf DOMBatteryManager o) => DOMBatteryManagerK o
toDOMBatteryManager :: DOMBatteryManagerK o => o -> IO DOMBatteryManager
toDOMBatteryManager = unsafeCastTo DOMBatteryManager
noDOMBatteryManager :: Maybe DOMBatteryManager
noDOMBatteryManager = Nothing
getDOMBatteryManagerCharging :: (MonadIO m, DOMBatteryManagerK o) => o -> m Bool
getDOMBatteryManagerCharging obj = liftIO $ getObjectPropertyBool obj "charging"
data DOMBatteryManagerChargingPropertyInfo
instance AttrInfo DOMBatteryManagerChargingPropertyInfo where
type AttrAllowedOps DOMBatteryManagerChargingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMBatteryManagerChargingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMBatteryManagerChargingPropertyInfo = DOMBatteryManagerK
type AttrGetType DOMBatteryManagerChargingPropertyInfo = Bool
type AttrLabel DOMBatteryManagerChargingPropertyInfo = "DOMBatteryManager::charging"
attrGet _ = getDOMBatteryManagerCharging
attrSet _ = undefined
attrConstruct _ = undefined
getDOMBatteryManagerChargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double
getDOMBatteryManagerChargingTime obj = liftIO $ getObjectPropertyDouble obj "charging-time"
data DOMBatteryManagerChargingTimePropertyInfo
instance AttrInfo DOMBatteryManagerChargingTimePropertyInfo where
type AttrAllowedOps DOMBatteryManagerChargingTimePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = DOMBatteryManagerK
type AttrGetType DOMBatteryManagerChargingTimePropertyInfo = Double
type AttrLabel DOMBatteryManagerChargingTimePropertyInfo = "DOMBatteryManager::charging-time"
attrGet _ = getDOMBatteryManagerChargingTime
attrSet _ = undefined
attrConstruct _ = undefined
getDOMBatteryManagerDischargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double
getDOMBatteryManagerDischargingTime obj = liftIO $ getObjectPropertyDouble obj "discharging-time"
data DOMBatteryManagerDischargingTimePropertyInfo
instance AttrInfo DOMBatteryManagerDischargingTimePropertyInfo where
type AttrAllowedOps DOMBatteryManagerDischargingTimePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = DOMBatteryManagerK
type AttrGetType DOMBatteryManagerDischargingTimePropertyInfo = Double
type AttrLabel DOMBatteryManagerDischargingTimePropertyInfo = "DOMBatteryManager::discharging-time"
attrGet _ = getDOMBatteryManagerDischargingTime
attrSet _ = undefined
attrConstruct _ = undefined
getDOMBatteryManagerLevel :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double
getDOMBatteryManagerLevel obj = liftIO $ getObjectPropertyDouble obj "level"
data DOMBatteryManagerLevelPropertyInfo
instance AttrInfo DOMBatteryManagerLevelPropertyInfo where
type AttrAllowedOps DOMBatteryManagerLevelPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMBatteryManagerLevelPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMBatteryManagerLevelPropertyInfo = DOMBatteryManagerK
type AttrGetType DOMBatteryManagerLevelPropertyInfo = Double
type AttrLabel DOMBatteryManagerLevelPropertyInfo = "DOMBatteryManager::level"
attrGet _ = getDOMBatteryManagerLevel
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMBatteryManager = DOMBatteryManagerAttributeList
type DOMBatteryManagerAttributeList = ('[ '("charging", DOMBatteryManagerChargingPropertyInfo), '("charging-time", DOMBatteryManagerChargingTimePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("discharging-time", DOMBatteryManagerDischargingTimePropertyInfo), '("level", DOMBatteryManagerLevelPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMBatteryManager = DOMBatteryManagerSignalList
type DOMBatteryManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_battery_manager_dispatch_event" webkit_dom_battery_manager_dispatch_event ::
Ptr DOMBatteryManager ->
Ptr DOMEvent ->
Ptr (Ptr GError) ->
IO CInt
dOMBatteryManagerDispatchEvent ::
(MonadIO m, DOMBatteryManagerK a, DOMEventK b) =>
a ->
b ->
m ()
dOMBatteryManagerDispatchEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrCastPtr event
onException (do
_ <- propagateGError $ webkit_dom_battery_manager_dispatch_event _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_battery_manager_get_charging" webkit_dom_battery_manager_get_charging ::
Ptr DOMBatteryManager ->
IO CInt
dOMBatteryManagerGetCharging ::
(MonadIO m, DOMBatteryManagerK a) =>
a ->
m Bool
dOMBatteryManagerGetCharging _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_charging _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_battery_manager_get_charging_time" webkit_dom_battery_manager_get_charging_time ::
Ptr DOMBatteryManager ->
IO CDouble
dOMBatteryManagerGetChargingTime ::
(MonadIO m, DOMBatteryManagerK a) =>
a ->
m Double
dOMBatteryManagerGetChargingTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_charging_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_battery_manager_get_discharging_time" webkit_dom_battery_manager_get_discharging_time ::
Ptr DOMBatteryManager ->
IO CDouble
dOMBatteryManagerGetDischargingTime ::
(MonadIO m, DOMBatteryManagerK a) =>
a ->
m Double
dOMBatteryManagerGetDischargingTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_discharging_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_battery_manager_get_level" webkit_dom_battery_manager_get_level ::
Ptr DOMBatteryManager ->
IO CDouble
dOMBatteryManagerGetLevel ::
(MonadIO m, DOMBatteryManagerK a) =>
a ->
m Double
dOMBatteryManagerGetLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_level _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'