{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.ColorChooserRequest
(
ColorChooserRequest(..) ,
IsColorChooserRequest ,
toColorChooserRequest ,
#if defined(ENABLE_OVERLOADING)
ResolveColorChooserRequestMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ColorChooserRequestCancelMethodInfo ,
#endif
colorChooserRequestCancel ,
#if defined(ENABLE_OVERLOADING)
ColorChooserRequestFinishMethodInfo ,
#endif
colorChooserRequestFinish ,
#if defined(ENABLE_OVERLOADING)
ColorChooserRequestGetElementRectangleMethodInfo,
#endif
colorChooserRequestGetElementRectangle ,
#if defined(ENABLE_OVERLOADING)
ColorChooserRequestGetRgbaMethodInfo ,
#endif
colorChooserRequestGetRgba ,
#if defined(ENABLE_OVERLOADING)
ColorChooserRequestSetRgbaMethodInfo ,
#endif
colorChooserRequestSetRgba ,
#if defined(ENABLE_OVERLOADING)
ColorChooserRequestRgbaPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorChooserRequestRgba ,
#endif
constructColorChooserRequestRgba ,
getColorChooserRequestRgba ,
setColorChooserRequestRgba ,
ColorChooserRequestFinishedCallback ,
#if defined(ENABLE_OVERLOADING)
ColorChooserRequestFinishedSignalInfo ,
#endif
afterColorChooserRequestFinished ,
onColorChooserRequestFinished ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
newtype ColorChooserRequest = ColorChooserRequest (SP.ManagedPtr ColorChooserRequest)
deriving (ColorChooserRequest -> ColorChooserRequest -> Bool
(ColorChooserRequest -> ColorChooserRequest -> Bool)
-> (ColorChooserRequest -> ColorChooserRequest -> Bool)
-> Eq ColorChooserRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ColorChooserRequest -> ColorChooserRequest -> Bool
== :: ColorChooserRequest -> ColorChooserRequest -> Bool
$c/= :: ColorChooserRequest -> ColorChooserRequest -> Bool
/= :: ColorChooserRequest -> ColorChooserRequest -> Bool
Eq)
instance SP.ManagedPtrNewtype ColorChooserRequest where
toManagedPtr :: ColorChooserRequest -> ManagedPtr ColorChooserRequest
toManagedPtr (ColorChooserRequest ManagedPtr ColorChooserRequest
p) = ManagedPtr ColorChooserRequest
p
foreign import ccall "webkit_color_chooser_request_get_type"
c_webkit_color_chooser_request_get_type :: IO B.Types.GType
instance B.Types.TypedObject ColorChooserRequest where
glibType :: IO GType
glibType = IO GType
c_webkit_color_chooser_request_get_type
instance B.Types.GObject ColorChooserRequest
class (SP.GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o
instance (SP.GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o
instance O.HasParentTypes ColorChooserRequest
type instance O.ParentTypes ColorChooserRequest = '[GObject.Object.Object]
toColorChooserRequest :: (MIO.MonadIO m, IsColorChooserRequest o) => o -> m ColorChooserRequest
toColorChooserRequest :: forall (m :: * -> *) o.
(MonadIO m, IsColorChooserRequest o) =>
o -> m ColorChooserRequest
toColorChooserRequest = IO ColorChooserRequest -> m ColorChooserRequest
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ColorChooserRequest -> m ColorChooserRequest)
-> (o -> IO ColorChooserRequest) -> o -> m ColorChooserRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ColorChooserRequest -> ColorChooserRequest)
-> o -> IO ColorChooserRequest
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ColorChooserRequest -> ColorChooserRequest
ColorChooserRequest
instance B.GValue.IsGValue (Maybe ColorChooserRequest) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_color_chooser_request_get_type
gvalueSet_ :: Ptr GValue -> Maybe ColorChooserRequest -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ColorChooserRequest
P.Nothing = Ptr GValue -> Ptr ColorChooserRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ColorChooserRequest
forall a. Ptr a
FP.nullPtr :: FP.Ptr ColorChooserRequest)
gvalueSet_ Ptr GValue
gv (P.Just ColorChooserRequest
obj) = ColorChooserRequest -> (Ptr ColorChooserRequest -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColorChooserRequest
obj (Ptr GValue -> Ptr ColorChooserRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ColorChooserRequest)
gvalueGet_ Ptr GValue
gv = do
Ptr ColorChooserRequest
ptr <- Ptr GValue -> IO (Ptr ColorChooserRequest)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ColorChooserRequest)
if Ptr ColorChooserRequest
ptr Ptr ColorChooserRequest -> Ptr ColorChooserRequest -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ColorChooserRequest
forall a. Ptr a
FP.nullPtr
then ColorChooserRequest -> Maybe ColorChooserRequest
forall a. a -> Maybe a
P.Just (ColorChooserRequest -> Maybe ColorChooserRequest)
-> IO ColorChooserRequest -> IO (Maybe ColorChooserRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ColorChooserRequest -> ColorChooserRequest)
-> Ptr ColorChooserRequest -> IO ColorChooserRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ColorChooserRequest -> ColorChooserRequest
ColorChooserRequest Ptr ColorChooserRequest
ptr
else Maybe ColorChooserRequest -> IO (Maybe ColorChooserRequest)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ColorChooserRequest
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveColorChooserRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveColorChooserRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColorChooserRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColorChooserRequestMethod "cancel" o = ColorChooserRequestCancelMethodInfo
ResolveColorChooserRequestMethod "finish" o = ColorChooserRequestFinishMethodInfo
ResolveColorChooserRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColorChooserRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColorChooserRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColorChooserRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColorChooserRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColorChooserRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColorChooserRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColorChooserRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColorChooserRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColorChooserRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColorChooserRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColorChooserRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColorChooserRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColorChooserRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColorChooserRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColorChooserRequestMethod "getElementRectangle" o = ColorChooserRequestGetElementRectangleMethodInfo
ResolveColorChooserRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColorChooserRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColorChooserRequestMethod "getRgba" o = ColorChooserRequestGetRgbaMethodInfo
ResolveColorChooserRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColorChooserRequestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColorChooserRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColorChooserRequestMethod "setRgba" o = ColorChooserRequestSetRgbaMethodInfo
ResolveColorChooserRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, O.OverloadedMethod info ColorChooserRequest p) => OL.IsLabel t (ColorChooserRequest -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, O.OverloadedMethod info ColorChooserRequest p, R.HasField t ColorChooserRequest p) => R.HasField t ColorChooserRequest p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveColorChooserRequestMethod t ColorChooserRequest, O.OverloadedMethodInfo info ColorChooserRequest) => OL.IsLabel t (O.MethodProxy info ColorChooserRequest) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ColorChooserRequestFinishedCallback =
IO ()
type C_ColorChooserRequestFinishedCallback =
Ptr ColorChooserRequest ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorChooserRequestFinishedCallback :: C_ColorChooserRequestFinishedCallback -> IO (FunPtr C_ColorChooserRequestFinishedCallback)
wrap_ColorChooserRequestFinishedCallback ::
GObject a => (a -> ColorChooserRequestFinishedCallback) ->
C_ColorChooserRequestFinishedCallback
wrap_ColorChooserRequestFinishedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ColorChooserRequestFinishedCallback
wrap_ColorChooserRequestFinishedCallback a -> IO ()
gi'cb Ptr ColorChooserRequest
gi'selfPtr Ptr ()
_ = do
Ptr ColorChooserRequest -> (ColorChooserRequest -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ColorChooserRequest
gi'selfPtr ((ColorChooserRequest -> IO ()) -> IO ())
-> (ColorChooserRequest -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ColorChooserRequest
gi'self -> a -> IO ()
gi'cb (ColorChooserRequest -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ColorChooserRequest
gi'self)
onColorChooserRequestFinished :: (IsColorChooserRequest a, MonadIO m) => a -> ((?self :: a) => ColorChooserRequestFinishedCallback) -> m SignalHandlerId
onColorChooserRequestFinished :: forall a (m :: * -> *).
(IsColorChooserRequest a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onColorChooserRequestFinished a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ColorChooserRequestFinishedCallback
wrapped' = (a -> IO ()) -> C_ColorChooserRequestFinishedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ColorChooserRequestFinishedCallback
wrap_ColorChooserRequestFinishedCallback a -> IO ()
wrapped
FunPtr C_ColorChooserRequestFinishedCallback
wrapped'' <- C_ColorChooserRequestFinishedCallback
-> IO (FunPtr C_ColorChooserRequestFinishedCallback)
mk_ColorChooserRequestFinishedCallback C_ColorChooserRequestFinishedCallback
wrapped'
a
-> Text
-> FunPtr C_ColorChooserRequestFinishedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"finished" FunPtr C_ColorChooserRequestFinishedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterColorChooserRequestFinished :: (IsColorChooserRequest a, MonadIO m) => a -> ((?self :: a) => ColorChooserRequestFinishedCallback) -> m SignalHandlerId
afterColorChooserRequestFinished :: forall a (m :: * -> *).
(IsColorChooserRequest a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterColorChooserRequestFinished a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ColorChooserRequestFinishedCallback
wrapped' = (a -> IO ()) -> C_ColorChooserRequestFinishedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ColorChooserRequestFinishedCallback
wrap_ColorChooserRequestFinishedCallback a -> IO ()
wrapped
FunPtr C_ColorChooserRequestFinishedCallback
wrapped'' <- C_ColorChooserRequestFinishedCallback
-> IO (FunPtr C_ColorChooserRequestFinishedCallback)
mk_ColorChooserRequestFinishedCallback C_ColorChooserRequestFinishedCallback
wrapped'
a
-> Text
-> FunPtr C_ColorChooserRequestFinishedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"finished" FunPtr C_ColorChooserRequestFinishedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ColorChooserRequestFinishedSignalInfo
instance SignalInfo ColorChooserRequestFinishedSignalInfo where
type HaskellCallbackType ColorChooserRequestFinishedSignalInfo = ColorChooserRequestFinishedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ColorChooserRequestFinishedCallback cb
cb'' <- mk_ColorChooserRequestFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ColorChooserRequest::finished"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ColorChooserRequest.html#g:signal:finished"})
#endif
getColorChooserRequestRgba :: (MonadIO m, IsColorChooserRequest o) => o -> m (Maybe Gdk.RGBA.RGBA)
getColorChooserRequestRgba :: forall (m :: * -> *) o.
(MonadIO m, IsColorChooserRequest o) =>
o -> m (Maybe RGBA)
getColorChooserRequestRgba o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe RGBA) -> m (Maybe RGBA))
-> IO (Maybe RGBA) -> m (Maybe RGBA)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr RGBA -> RGBA) -> IO (Maybe RGBA)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"rgba" ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA
setColorChooserRequestRgba :: (MonadIO m, IsColorChooserRequest o) => o -> Gdk.RGBA.RGBA -> m ()
setColorChooserRequestRgba :: forall (m :: * -> *) o.
(MonadIO m, IsColorChooserRequest o) =>
o -> RGBA -> m ()
setColorChooserRequestRgba o
obj RGBA
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructColorChooserRequestRgba :: (IsColorChooserRequest o, MIO.MonadIO m) => Gdk.RGBA.RGBA -> m (GValueConstruct o)
constructColorChooserRequestRgba :: forall o (m :: * -> *).
(IsColorChooserRequest o, MonadIO m) =>
RGBA -> m (GValueConstruct o)
constructColorChooserRequestRgba RGBA
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe RGBA -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
P.Just RGBA
val)
#if defined(ENABLE_OVERLOADING)
data ColorChooserRequestRgbaPropertyInfo
instance AttrInfo ColorChooserRequestRgbaPropertyInfo where
type AttrAllowedOps ColorChooserRequestRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorChooserRequestRgbaPropertyInfo = IsColorChooserRequest
type AttrSetTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferType ColorChooserRequestRgbaPropertyInfo = Gdk.RGBA.RGBA
type AttrGetType ColorChooserRequestRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel ColorChooserRequestRgbaPropertyInfo = "rgba"
type AttrOrigin ColorChooserRequestRgbaPropertyInfo = ColorChooserRequest
attrGet = getColorChooserRequestRgba
attrSet = setColorChooserRequestRgba
attrTransfer _ v = do
return v
attrConstruct = constructColorChooserRequestRgba
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ColorChooserRequest.rgba"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ColorChooserRequest.html#g:attr:rgba"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColorChooserRequest
type instance O.AttributeList ColorChooserRequest = ColorChooserRequestAttributeList
type ColorChooserRequestAttributeList = ('[ '("rgba", ColorChooserRequestRgbaPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
colorChooserRequestRgba :: AttrLabelProxy "rgba"
colorChooserRequestRgba = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColorChooserRequest = ColorChooserRequestSignalList
type ColorChooserRequestSignalList = ('[ '("finished", ColorChooserRequestFinishedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_color_chooser_request_cancel" webkit_color_chooser_request_cancel ::
Ptr ColorChooserRequest ->
IO ()
colorChooserRequestCancel ::
(B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a
-> m ()
colorChooserRequestCancel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a -> m ()
colorChooserRequestCancel a
request = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorChooserRequest
request' <- a -> IO (Ptr ColorChooserRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr ColorChooserRequest -> IO ()
webkit_color_chooser_request_cancel Ptr ColorChooserRequest
request'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorChooserRequestCancelMethodInfo
instance (signature ~ (m ()), MonadIO m, IsColorChooserRequest a) => O.OverloadedMethod ColorChooserRequestCancelMethodInfo a signature where
overloadedMethod = colorChooserRequestCancel
instance O.OverloadedMethodInfo ColorChooserRequestCancelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ColorChooserRequest.colorChooserRequestCancel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ColorChooserRequest.html#v:colorChooserRequestCancel"
})
#endif
foreign import ccall "webkit_color_chooser_request_finish" webkit_color_chooser_request_finish ::
Ptr ColorChooserRequest ->
IO ()
colorChooserRequestFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a
-> m ()
colorChooserRequestFinish :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a -> m ()
colorChooserRequestFinish a
request = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorChooserRequest
request' <- a -> IO (Ptr ColorChooserRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr ColorChooserRequest -> IO ()
webkit_color_chooser_request_finish Ptr ColorChooserRequest
request'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorChooserRequestFinishMethodInfo
instance (signature ~ (m ()), MonadIO m, IsColorChooserRequest a) => O.OverloadedMethod ColorChooserRequestFinishMethodInfo a signature where
overloadedMethod = colorChooserRequestFinish
instance O.OverloadedMethodInfo ColorChooserRequestFinishMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ColorChooserRequest.colorChooserRequestFinish",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ColorChooserRequest.html#v:colorChooserRequestFinish"
})
#endif
foreign import ccall "webkit_color_chooser_request_get_element_rectangle" webkit_color_chooser_request_get_element_rectangle ::
Ptr ColorChooserRequest ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
colorChooserRequestGetElementRectangle ::
(B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a
-> m (Gdk.Rectangle.Rectangle)
colorChooserRequestGetElementRectangle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a -> m Rectangle
colorChooserRequestGetElementRectangle a
request = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorChooserRequest
request' <- a -> IO (Ptr ColorChooserRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr Rectangle
rect <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr ColorChooserRequest -> Ptr Rectangle -> IO ()
webkit_color_chooser_request_get_element_rectangle Ptr ColorChooserRequest
request' Ptr Rectangle
rect
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Rectangle -> IO Rectangle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
rect'
#if defined(ENABLE_OVERLOADING)
data ColorChooserRequestGetElementRectangleMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsColorChooserRequest a) => O.OverloadedMethod ColorChooserRequestGetElementRectangleMethodInfo a signature where
overloadedMethod = colorChooserRequestGetElementRectangle
instance O.OverloadedMethodInfo ColorChooserRequestGetElementRectangleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ColorChooserRequest.colorChooserRequestGetElementRectangle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ColorChooserRequest.html#v:colorChooserRequestGetElementRectangle"
})
#endif
foreign import ccall "webkit_color_chooser_request_get_rgba" webkit_color_chooser_request_get_rgba ::
Ptr ColorChooserRequest ->
Ptr Gdk.RGBA.RGBA ->
IO ()
colorChooserRequestGetRgba ::
(B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a
-> m (Gdk.RGBA.RGBA)
colorChooserRequestGetRgba :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a -> m RGBA
colorChooserRequestGetRgba a
request = IO RGBA -> m RGBA
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RGBA -> m RGBA) -> IO RGBA -> m RGBA
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorChooserRequest
request' <- a -> IO (Ptr ColorChooserRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr RGBA
rgba <- Int -> IO (Ptr RGBA)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
Ptr ColorChooserRequest -> Ptr RGBA -> IO ()
webkit_color_chooser_request_get_rgba Ptr ColorChooserRequest
request' Ptr RGBA
rgba
RGBA
rgba' <- ((ManagedPtr RGBA -> RGBA) -> Ptr RGBA -> IO RGBA
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
rgba
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
RGBA -> IO RGBA
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
rgba'
#if defined(ENABLE_OVERLOADING)
data ColorChooserRequestGetRgbaMethodInfo
instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsColorChooserRequest a) => O.OverloadedMethod ColorChooserRequestGetRgbaMethodInfo a signature where
overloadedMethod = colorChooserRequestGetRgba
instance O.OverloadedMethodInfo ColorChooserRequestGetRgbaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ColorChooserRequest.colorChooserRequestGetRgba",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ColorChooserRequest.html#v:colorChooserRequestGetRgba"
})
#endif
foreign import ccall "webkit_color_chooser_request_set_rgba" webkit_color_chooser_request_set_rgba ::
Ptr ColorChooserRequest ->
Ptr Gdk.RGBA.RGBA ->
IO ()
colorChooserRequestSetRgba ::
(B.CallStack.HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a
-> Gdk.RGBA.RGBA
-> m ()
colorChooserRequestSetRgba :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorChooserRequest a) =>
a -> RGBA -> m ()
colorChooserRequestSetRgba a
request RGBA
rgba = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorChooserRequest
request' <- a -> IO (Ptr ColorChooserRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr RGBA
rgba' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
rgba
Ptr ColorChooserRequest -> Ptr RGBA -> IO ()
webkit_color_chooser_request_set_rgba Ptr ColorChooserRequest
request' Ptr RGBA
rgba'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
rgba
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorChooserRequestSetRgbaMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsColorChooserRequest a) => O.OverloadedMethod ColorChooserRequestSetRgbaMethodInfo a signature where
overloadedMethod = colorChooserRequestSetRgba
instance O.OverloadedMethodInfo ColorChooserRequestSetRgbaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ColorChooserRequest.colorChooserRequestSetRgba",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ColorChooserRequest.html#v:colorChooserRequestSetRgba"
})
#endif