{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Objects.Monitor
(
Monitor(..) ,
IsMonitor ,
toMonitor ,
noMonitor ,
#if defined(ENABLE_OVERLOADING)
ResolveMonitorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorGetDisplayMethodInfo ,
#endif
monitorGetDisplay ,
#if defined(ENABLE_OVERLOADING)
MonitorGetGeometryMethodInfo ,
#endif
monitorGetGeometry ,
#if defined(ENABLE_OVERLOADING)
MonitorGetHeightMmMethodInfo ,
#endif
monitorGetHeightMm ,
#if defined(ENABLE_OVERLOADING)
MonitorGetManufacturerMethodInfo ,
#endif
monitorGetManufacturer ,
#if defined(ENABLE_OVERLOADING)
MonitorGetModelMethodInfo ,
#endif
monitorGetModel ,
#if defined(ENABLE_OVERLOADING)
MonitorGetRefreshRateMethodInfo ,
#endif
monitorGetRefreshRate ,
#if defined(ENABLE_OVERLOADING)
MonitorGetScaleFactorMethodInfo ,
#endif
monitorGetScaleFactor ,
#if defined(ENABLE_OVERLOADING)
MonitorGetSubpixelLayoutMethodInfo ,
#endif
monitorGetSubpixelLayout ,
#if defined(ENABLE_OVERLOADING)
MonitorGetWidthMmMethodInfo ,
#endif
monitorGetWidthMm ,
#if defined(ENABLE_OVERLOADING)
MonitorGetWorkareaMethodInfo ,
#endif
monitorGetWorkarea ,
#if defined(ENABLE_OVERLOADING)
MonitorIsPrimaryMethodInfo ,
#endif
monitorIsPrimary ,
#if defined(ENABLE_OVERLOADING)
MonitorDisplayPropertyInfo ,
#endif
constructMonitorDisplay ,
getMonitorDisplay ,
#if defined(ENABLE_OVERLOADING)
monitorDisplay ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorGeometryPropertyInfo ,
#endif
getMonitorGeometry ,
#if defined(ENABLE_OVERLOADING)
monitorGeometry ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorHeightMmPropertyInfo ,
#endif
getMonitorHeightMm ,
#if defined(ENABLE_OVERLOADING)
monitorHeightMm ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorManufacturerPropertyInfo ,
#endif
getMonitorManufacturer ,
#if defined(ENABLE_OVERLOADING)
monitorManufacturer ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorModelPropertyInfo ,
#endif
getMonitorModel ,
#if defined(ENABLE_OVERLOADING)
monitorModel ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorRefreshRatePropertyInfo ,
#endif
getMonitorRefreshRate ,
#if defined(ENABLE_OVERLOADING)
monitorRefreshRate ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorScaleFactorPropertyInfo ,
#endif
getMonitorScaleFactor ,
#if defined(ENABLE_OVERLOADING)
monitorScaleFactor ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorSubpixelLayoutPropertyInfo ,
#endif
getMonitorSubpixelLayout ,
#if defined(ENABLE_OVERLOADING)
monitorSubpixelLayout ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorWidthMmPropertyInfo ,
#endif
getMonitorWidthMm ,
#if defined(ENABLE_OVERLOADING)
monitorWidthMm ,
#endif
#if defined(ENABLE_OVERLOADING)
MonitorWorkareaPropertyInfo ,
#endif
getMonitorWorkarea ,
#if defined(ENABLE_OVERLOADING)
monitorWorkarea ,
#endif
C_MonitorInvalidateCallback ,
MonitorInvalidateCallback ,
#if defined(ENABLE_OVERLOADING)
MonitorInvalidateSignalInfo ,
#endif
afterMonitorInvalidate ,
genClosure_MonitorInvalidate ,
mk_MonitorInvalidateCallback ,
noMonitorInvalidateCallback ,
onMonitorInvalidate ,
wrap_MonitorInvalidateCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Objects.Display as Gdk.Display
import {-# SOURCE #-} qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
newtype Monitor = Monitor (ManagedPtr Monitor)
deriving (Eq)
foreign import ccall "gdk_monitor_get_type"
c_gdk_monitor_get_type :: IO GType
instance GObject Monitor where
gobjectType = c_gdk_monitor_get_type
instance B.GValue.IsGValue Monitor where
toGValue o = do
gtype <- c_gdk_monitor_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr Monitor)
B.ManagedPtr.newObject Monitor ptr
class (GObject o, O.IsDescendantOf Monitor o) => IsMonitor o
instance (GObject o, O.IsDescendantOf Monitor o) => IsMonitor o
instance O.HasParentTypes Monitor
type instance O.ParentTypes Monitor = '[GObject.Object.Object]
toMonitor :: (MonadIO m, IsMonitor o) => o -> m Monitor
toMonitor = liftIO . unsafeCastTo Monitor
noMonitor :: Maybe Monitor
noMonitor = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMonitorMethod (t :: Symbol) (o :: *) :: * where
ResolveMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMonitorMethod "isPrimary" o = MonitorIsPrimaryMethodInfo
ResolveMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMonitorMethod "getDisplay" o = MonitorGetDisplayMethodInfo
ResolveMonitorMethod "getGeometry" o = MonitorGetGeometryMethodInfo
ResolveMonitorMethod "getHeightMm" o = MonitorGetHeightMmMethodInfo
ResolveMonitorMethod "getManufacturer" o = MonitorGetManufacturerMethodInfo
ResolveMonitorMethod "getModel" o = MonitorGetModelMethodInfo
ResolveMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMonitorMethod "getRefreshRate" o = MonitorGetRefreshRateMethodInfo
ResolveMonitorMethod "getScaleFactor" o = MonitorGetScaleFactorMethodInfo
ResolveMonitorMethod "getSubpixelLayout" o = MonitorGetSubpixelLayoutMethodInfo
ResolveMonitorMethod "getWidthMm" o = MonitorGetWidthMmMethodInfo
ResolveMonitorMethod "getWorkarea" o = MonitorGetWorkareaMethodInfo
ResolveMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMonitorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMonitorMethod t Monitor, O.MethodInfo info Monitor p) => OL.IsLabel t (Monitor -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type MonitorInvalidateCallback =
IO ()
noMonitorInvalidateCallback :: Maybe MonitorInvalidateCallback
noMonitorInvalidateCallback = Nothing
type C_MonitorInvalidateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MonitorInvalidateCallback :: C_MonitorInvalidateCallback -> IO (FunPtr C_MonitorInvalidateCallback)
genClosure_MonitorInvalidate :: MonadIO m => MonitorInvalidateCallback -> m (GClosure C_MonitorInvalidateCallback)
genClosure_MonitorInvalidate cb = liftIO $ do
let cb' = wrap_MonitorInvalidateCallback cb
mk_MonitorInvalidateCallback cb' >>= B.GClosure.newGClosure
wrap_MonitorInvalidateCallback ::
MonitorInvalidateCallback ->
C_MonitorInvalidateCallback
wrap_MonitorInvalidateCallback _cb _ _ = do
_cb
onMonitorInvalidate :: (IsMonitor a, MonadIO m) => a -> MonitorInvalidateCallback -> m SignalHandlerId
onMonitorInvalidate obj cb = liftIO $ do
let cb' = wrap_MonitorInvalidateCallback cb
cb'' <- mk_MonitorInvalidateCallback cb'
connectSignalFunPtr obj "invalidate" cb'' SignalConnectBefore Nothing
afterMonitorInvalidate :: (IsMonitor a, MonadIO m) => a -> MonitorInvalidateCallback -> m SignalHandlerId
afterMonitorInvalidate obj cb = liftIO $ do
let cb' = wrap_MonitorInvalidateCallback cb
cb'' <- mk_MonitorInvalidateCallback cb'
connectSignalFunPtr obj "invalidate" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MonitorInvalidateSignalInfo
instance SignalInfo MonitorInvalidateSignalInfo where
type HaskellCallbackType MonitorInvalidateSignalInfo = MonitorInvalidateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MonitorInvalidateCallback cb
cb'' <- mk_MonitorInvalidateCallback cb'
connectSignalFunPtr obj "invalidate" cb'' connectMode detail
#endif
getMonitorDisplay :: (MonadIO m, IsMonitor o) => o -> m Gdk.Display.Display
getMonitorDisplay obj = liftIO $ checkUnexpectedNothing "getMonitorDisplay" $ B.Properties.getObjectPropertyObject obj "display" Gdk.Display.Display
constructMonitorDisplay :: (IsMonitor o, Gdk.Display.IsDisplay a) => a -> IO (GValueConstruct o)
constructMonitorDisplay val = B.Properties.constructObjectPropertyObject "display" (Just val)
#if defined(ENABLE_OVERLOADING)
data MonitorDisplayPropertyInfo
instance AttrInfo MonitorDisplayPropertyInfo where
type AttrAllowedOps MonitorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MonitorDisplayPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorDisplayPropertyInfo = Gdk.Display.IsDisplay
type AttrTransferTypeConstraint MonitorDisplayPropertyInfo = Gdk.Display.IsDisplay
type AttrTransferType MonitorDisplayPropertyInfo = Gdk.Display.Display
type AttrGetType MonitorDisplayPropertyInfo = Gdk.Display.Display
type AttrLabel MonitorDisplayPropertyInfo = "display"
type AttrOrigin MonitorDisplayPropertyInfo = Monitor
attrGet = getMonitorDisplay
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gdk.Display.Display v
attrConstruct = constructMonitorDisplay
attrClear = undefined
#endif
getMonitorGeometry :: (MonadIO m, IsMonitor o) => o -> m (Maybe Gdk.Rectangle.Rectangle)
getMonitorGeometry obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "geometry" Gdk.Rectangle.Rectangle
#if defined(ENABLE_OVERLOADING)
data MonitorGeometryPropertyInfo
instance AttrInfo MonitorGeometryPropertyInfo where
type AttrAllowedOps MonitorGeometryPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MonitorGeometryPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorGeometryPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorGeometryPropertyInfo = (~) ()
type AttrTransferType MonitorGeometryPropertyInfo = ()
type AttrGetType MonitorGeometryPropertyInfo = (Maybe Gdk.Rectangle.Rectangle)
type AttrLabel MonitorGeometryPropertyInfo = "geometry"
type AttrOrigin MonitorGeometryPropertyInfo = Monitor
attrGet = getMonitorGeometry
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorHeightMm :: (MonadIO m, IsMonitor o) => o -> m Int32
getMonitorHeightMm obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "height-mm"
#if defined(ENABLE_OVERLOADING)
data MonitorHeightMmPropertyInfo
instance AttrInfo MonitorHeightMmPropertyInfo where
type AttrAllowedOps MonitorHeightMmPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint MonitorHeightMmPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorHeightMmPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorHeightMmPropertyInfo = (~) ()
type AttrTransferType MonitorHeightMmPropertyInfo = ()
type AttrGetType MonitorHeightMmPropertyInfo = Int32
type AttrLabel MonitorHeightMmPropertyInfo = "height-mm"
type AttrOrigin MonitorHeightMmPropertyInfo = Monitor
attrGet = getMonitorHeightMm
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorManufacturer :: (MonadIO m, IsMonitor o) => o -> m (Maybe T.Text)
getMonitorManufacturer obj = liftIO $ B.Properties.getObjectPropertyString obj "manufacturer"
#if defined(ENABLE_OVERLOADING)
data MonitorManufacturerPropertyInfo
instance AttrInfo MonitorManufacturerPropertyInfo where
type AttrAllowedOps MonitorManufacturerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MonitorManufacturerPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorManufacturerPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorManufacturerPropertyInfo = (~) ()
type AttrTransferType MonitorManufacturerPropertyInfo = ()
type AttrGetType MonitorManufacturerPropertyInfo = (Maybe T.Text)
type AttrLabel MonitorManufacturerPropertyInfo = "manufacturer"
type AttrOrigin MonitorManufacturerPropertyInfo = Monitor
attrGet = getMonitorManufacturer
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorModel :: (MonadIO m, IsMonitor o) => o -> m (Maybe T.Text)
getMonitorModel obj = liftIO $ B.Properties.getObjectPropertyString obj "model"
#if defined(ENABLE_OVERLOADING)
data MonitorModelPropertyInfo
instance AttrInfo MonitorModelPropertyInfo where
type AttrAllowedOps MonitorModelPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MonitorModelPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorModelPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorModelPropertyInfo = (~) ()
type AttrTransferType MonitorModelPropertyInfo = ()
type AttrGetType MonitorModelPropertyInfo = (Maybe T.Text)
type AttrLabel MonitorModelPropertyInfo = "model"
type AttrOrigin MonitorModelPropertyInfo = Monitor
attrGet = getMonitorModel
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorRefreshRate :: (MonadIO m, IsMonitor o) => o -> m Int32
getMonitorRefreshRate obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "refresh-rate"
#if defined(ENABLE_OVERLOADING)
data MonitorRefreshRatePropertyInfo
instance AttrInfo MonitorRefreshRatePropertyInfo where
type AttrAllowedOps MonitorRefreshRatePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint MonitorRefreshRatePropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorRefreshRatePropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorRefreshRatePropertyInfo = (~) ()
type AttrTransferType MonitorRefreshRatePropertyInfo = ()
type AttrGetType MonitorRefreshRatePropertyInfo = Int32
type AttrLabel MonitorRefreshRatePropertyInfo = "refresh-rate"
type AttrOrigin MonitorRefreshRatePropertyInfo = Monitor
attrGet = getMonitorRefreshRate
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorScaleFactor :: (MonadIO m, IsMonitor o) => o -> m Int32
getMonitorScaleFactor obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "scale-factor"
#if defined(ENABLE_OVERLOADING)
data MonitorScaleFactorPropertyInfo
instance AttrInfo MonitorScaleFactorPropertyInfo where
type AttrAllowedOps MonitorScaleFactorPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint MonitorScaleFactorPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorScaleFactorPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorScaleFactorPropertyInfo = (~) ()
type AttrTransferType MonitorScaleFactorPropertyInfo = ()
type AttrGetType MonitorScaleFactorPropertyInfo = Int32
type AttrLabel MonitorScaleFactorPropertyInfo = "scale-factor"
type AttrOrigin MonitorScaleFactorPropertyInfo = Monitor
attrGet = getMonitorScaleFactor
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorSubpixelLayout :: (MonadIO m, IsMonitor o) => o -> m Gdk.Enums.SubpixelLayout
getMonitorSubpixelLayout obj = liftIO $ B.Properties.getObjectPropertyEnum obj "subpixel-layout"
#if defined(ENABLE_OVERLOADING)
data MonitorSubpixelLayoutPropertyInfo
instance AttrInfo MonitorSubpixelLayoutPropertyInfo where
type AttrAllowedOps MonitorSubpixelLayoutPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint MonitorSubpixelLayoutPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorSubpixelLayoutPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorSubpixelLayoutPropertyInfo = (~) ()
type AttrTransferType MonitorSubpixelLayoutPropertyInfo = ()
type AttrGetType MonitorSubpixelLayoutPropertyInfo = Gdk.Enums.SubpixelLayout
type AttrLabel MonitorSubpixelLayoutPropertyInfo = "subpixel-layout"
type AttrOrigin MonitorSubpixelLayoutPropertyInfo = Monitor
attrGet = getMonitorSubpixelLayout
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorWidthMm :: (MonadIO m, IsMonitor o) => o -> m Int32
getMonitorWidthMm obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "width-mm"
#if defined(ENABLE_OVERLOADING)
data MonitorWidthMmPropertyInfo
instance AttrInfo MonitorWidthMmPropertyInfo where
type AttrAllowedOps MonitorWidthMmPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint MonitorWidthMmPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorWidthMmPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorWidthMmPropertyInfo = (~) ()
type AttrTransferType MonitorWidthMmPropertyInfo = ()
type AttrGetType MonitorWidthMmPropertyInfo = Int32
type AttrLabel MonitorWidthMmPropertyInfo = "width-mm"
type AttrOrigin MonitorWidthMmPropertyInfo = Monitor
attrGet = getMonitorWidthMm
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getMonitorWorkarea :: (MonadIO m, IsMonitor o) => o -> m (Maybe Gdk.Rectangle.Rectangle)
getMonitorWorkarea obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "workarea" Gdk.Rectangle.Rectangle
#if defined(ENABLE_OVERLOADING)
data MonitorWorkareaPropertyInfo
instance AttrInfo MonitorWorkareaPropertyInfo where
type AttrAllowedOps MonitorWorkareaPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MonitorWorkareaPropertyInfo = IsMonitor
type AttrSetTypeConstraint MonitorWorkareaPropertyInfo = (~) ()
type AttrTransferTypeConstraint MonitorWorkareaPropertyInfo = (~) ()
type AttrTransferType MonitorWorkareaPropertyInfo = ()
type AttrGetType MonitorWorkareaPropertyInfo = (Maybe Gdk.Rectangle.Rectangle)
type AttrLabel MonitorWorkareaPropertyInfo = "workarea"
type AttrOrigin MonitorWorkareaPropertyInfo = Monitor
attrGet = getMonitorWorkarea
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Monitor
type instance O.AttributeList Monitor = MonitorAttributeList
type MonitorAttributeList = ('[ '("display", MonitorDisplayPropertyInfo), '("geometry", MonitorGeometryPropertyInfo), '("heightMm", MonitorHeightMmPropertyInfo), '("manufacturer", MonitorManufacturerPropertyInfo), '("model", MonitorModelPropertyInfo), '("refreshRate", MonitorRefreshRatePropertyInfo), '("scaleFactor", MonitorScaleFactorPropertyInfo), '("subpixelLayout", MonitorSubpixelLayoutPropertyInfo), '("widthMm", MonitorWidthMmPropertyInfo), '("workarea", MonitorWorkareaPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
monitorDisplay :: AttrLabelProxy "display"
monitorDisplay = AttrLabelProxy
monitorGeometry :: AttrLabelProxy "geometry"
monitorGeometry = AttrLabelProxy
monitorHeightMm :: AttrLabelProxy "heightMm"
monitorHeightMm = AttrLabelProxy
monitorManufacturer :: AttrLabelProxy "manufacturer"
monitorManufacturer = AttrLabelProxy
monitorModel :: AttrLabelProxy "model"
monitorModel = AttrLabelProxy
monitorRefreshRate :: AttrLabelProxy "refreshRate"
monitorRefreshRate = AttrLabelProxy
monitorScaleFactor :: AttrLabelProxy "scaleFactor"
monitorScaleFactor = AttrLabelProxy
monitorSubpixelLayout :: AttrLabelProxy "subpixelLayout"
monitorSubpixelLayout = AttrLabelProxy
monitorWidthMm :: AttrLabelProxy "widthMm"
monitorWidthMm = AttrLabelProxy
monitorWorkarea :: AttrLabelProxy "workarea"
monitorWorkarea = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Monitor = MonitorSignalList
type MonitorSignalList = ('[ '("invalidate", MonitorInvalidateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gdk_monitor_get_display" gdk_monitor_get_display ::
Ptr Monitor ->
IO (Ptr Gdk.Display.Display)
monitorGetDisplay ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m Gdk.Display.Display
monitorGetDisplay monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_display monitor'
checkUnexpectedReturnNULL "monitorGetDisplay" result
result' <- (newObject Gdk.Display.Display) result
touchManagedPtr monitor
return result'
#if defined(ENABLE_OVERLOADING)
data MonitorGetDisplayMethodInfo
instance (signature ~ (m Gdk.Display.Display), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetDisplayMethodInfo a signature where
overloadedMethod = monitorGetDisplay
#endif
foreign import ccall "gdk_monitor_get_geometry" gdk_monitor_get_geometry ::
Ptr Monitor ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
monitorGetGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m (Gdk.Rectangle.Rectangle)
monitorGetGeometry monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
geometry <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gdk_monitor_get_geometry monitor' geometry
geometry' <- (wrapBoxed Gdk.Rectangle.Rectangle) geometry
touchManagedPtr monitor
return geometry'
#if defined(ENABLE_OVERLOADING)
data MonitorGetGeometryMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetGeometryMethodInfo a signature where
overloadedMethod = monitorGetGeometry
#endif
foreign import ccall "gdk_monitor_get_height_mm" gdk_monitor_get_height_mm ::
Ptr Monitor ->
IO Int32
monitorGetHeightMm ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m Int32
monitorGetHeightMm monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_height_mm monitor'
touchManagedPtr monitor
return result
#if defined(ENABLE_OVERLOADING)
data MonitorGetHeightMmMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetHeightMmMethodInfo a signature where
overloadedMethod = monitorGetHeightMm
#endif
foreign import ccall "gdk_monitor_get_manufacturer" gdk_monitor_get_manufacturer ::
Ptr Monitor ->
IO CString
monitorGetManufacturer ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m (Maybe T.Text)
monitorGetManufacturer monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_manufacturer monitor'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr monitor
return maybeResult
#if defined(ENABLE_OVERLOADING)
data MonitorGetManufacturerMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetManufacturerMethodInfo a signature where
overloadedMethod = monitorGetManufacturer
#endif
foreign import ccall "gdk_monitor_get_model" gdk_monitor_get_model ::
Ptr Monitor ->
IO CString
monitorGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m (Maybe T.Text)
monitorGetModel monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_model monitor'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr monitor
return maybeResult
#if defined(ENABLE_OVERLOADING)
data MonitorGetModelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetModelMethodInfo a signature where
overloadedMethod = monitorGetModel
#endif
foreign import ccall "gdk_monitor_get_refresh_rate" gdk_monitor_get_refresh_rate ::
Ptr Monitor ->
IO Int32
monitorGetRefreshRate ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m Int32
monitorGetRefreshRate monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_refresh_rate monitor'
touchManagedPtr monitor
return result
#if defined(ENABLE_OVERLOADING)
data MonitorGetRefreshRateMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetRefreshRateMethodInfo a signature where
overloadedMethod = monitorGetRefreshRate
#endif
foreign import ccall "gdk_monitor_get_scale_factor" gdk_monitor_get_scale_factor ::
Ptr Monitor ->
IO Int32
monitorGetScaleFactor ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m Int32
monitorGetScaleFactor monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_scale_factor monitor'
touchManagedPtr monitor
return result
#if defined(ENABLE_OVERLOADING)
data MonitorGetScaleFactorMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetScaleFactorMethodInfo a signature where
overloadedMethod = monitorGetScaleFactor
#endif
foreign import ccall "gdk_monitor_get_subpixel_layout" gdk_monitor_get_subpixel_layout ::
Ptr Monitor ->
IO CUInt
monitorGetSubpixelLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m Gdk.Enums.SubpixelLayout
monitorGetSubpixelLayout monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_subpixel_layout monitor'
let result' = (toEnum . fromIntegral) result
touchManagedPtr monitor
return result'
#if defined(ENABLE_OVERLOADING)
data MonitorGetSubpixelLayoutMethodInfo
instance (signature ~ (m Gdk.Enums.SubpixelLayout), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetSubpixelLayoutMethodInfo a signature where
overloadedMethod = monitorGetSubpixelLayout
#endif
foreign import ccall "gdk_monitor_get_width_mm" gdk_monitor_get_width_mm ::
Ptr Monitor ->
IO Int32
monitorGetWidthMm ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m Int32
monitorGetWidthMm monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_get_width_mm monitor'
touchManagedPtr monitor
return result
#if defined(ENABLE_OVERLOADING)
data MonitorGetWidthMmMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetWidthMmMethodInfo a signature where
overloadedMethod = monitorGetWidthMm
#endif
foreign import ccall "gdk_monitor_get_workarea" gdk_monitor_get_workarea ::
Ptr Monitor ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
monitorGetWorkarea ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m (Gdk.Rectangle.Rectangle)
monitorGetWorkarea monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
workarea <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gdk_monitor_get_workarea monitor' workarea
workarea' <- (wrapBoxed Gdk.Rectangle.Rectangle) workarea
touchManagedPtr monitor
return workarea'
#if defined(ENABLE_OVERLOADING)
data MonitorGetWorkareaMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsMonitor a) => O.MethodInfo MonitorGetWorkareaMethodInfo a signature where
overloadedMethod = monitorGetWorkarea
#endif
foreign import ccall "gdk_monitor_is_primary" gdk_monitor_is_primary ::
Ptr Monitor ->
IO CInt
monitorIsPrimary ::
(B.CallStack.HasCallStack, MonadIO m, IsMonitor a) =>
a
-> m Bool
monitorIsPrimary monitor = liftIO $ do
monitor' <- unsafeManagedPtrCastPtr monitor
result <- gdk_monitor_is_primary monitor'
let result' = (/= 0) result
touchManagedPtr monitor
return result'
#if defined(ENABLE_OVERLOADING)
data MonitorIsPrimaryMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMonitor a) => O.MethodInfo MonitorIsPrimaryMethodInfo a signature where
overloadedMethod = monitorIsPrimary
#endif