#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.ColorChooserRequest
(
ColorChooserRequest(..) ,
IsColorChooserRequest ,
toColorChooserRequest ,
noColorChooserRequest ,
#if ENABLE_OVERLOADING
ColorChooserRequestCancelMethodInfo ,
#endif
colorChooserRequestCancel ,
#if ENABLE_OVERLOADING
ColorChooserRequestFinishMethodInfo ,
#endif
colorChooserRequestFinish ,
#if ENABLE_OVERLOADING
ColorChooserRequestGetElementRectangleMethodInfo,
#endif
colorChooserRequestGetElementRectangle ,
#if ENABLE_OVERLOADING
ColorChooserRequestGetRgbaMethodInfo ,
#endif
colorChooserRequestGetRgba ,
#if ENABLE_OVERLOADING
ColorChooserRequestSetRgbaMethodInfo ,
#endif
colorChooserRequestSetRgba ,
#if ENABLE_OVERLOADING
ColorChooserRequestRgbaPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
colorChooserRequestRgba ,
#endif
constructColorChooserRequestRgba ,
getColorChooserRequestRgba ,
setColorChooserRequestRgba ,
C_ColorChooserRequestFinishedCallback ,
ColorChooserRequestFinishedCallback ,
#if ENABLE_OVERLOADING
ColorChooserRequestFinishedSignalInfo ,
#endif
afterColorChooserRequestFinished ,
genClosure_ColorChooserRequestFinished ,
mk_ColorChooserRequestFinishedCallback ,
noColorChooserRequestFinishedCallback ,
onColorChooserRequestFinished ,
wrap_ColorChooserRequestFinishedCallback,
) 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.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 qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
newtype ColorChooserRequest = ColorChooserRequest (ManagedPtr ColorChooserRequest)
foreign import ccall "webkit_color_chooser_request_get_type"
c_webkit_color_chooser_request_get_type :: IO GType
instance GObject ColorChooserRequest where
gobjectType = c_webkit_color_chooser_request_get_type
class (GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o
instance (GObject o, O.IsDescendantOf ColorChooserRequest o) => IsColorChooserRequest o
instance O.HasParentTypes ColorChooserRequest
type instance O.ParentTypes ColorChooserRequest = '[GObject.Object.Object]
toColorChooserRequest :: (MonadIO m, IsColorChooserRequest o) => o -> m ColorChooserRequest
toColorChooserRequest = liftIO . unsafeCastTo ColorChooserRequest
noColorChooserRequest :: Maybe ColorChooserRequest
noColorChooserRequest = Nothing
#if 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.MethodInfo info ColorChooserRequest p) => OL.IsLabel t (ColorChooserRequest -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type ColorChooserRequestFinishedCallback =
IO ()
noColorChooserRequestFinishedCallback :: Maybe ColorChooserRequestFinishedCallback
noColorChooserRequestFinishedCallback = Nothing
type C_ColorChooserRequestFinishedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorChooserRequestFinishedCallback :: C_ColorChooserRequestFinishedCallback -> IO (FunPtr C_ColorChooserRequestFinishedCallback)
genClosure_ColorChooserRequestFinished :: MonadIO m => ColorChooserRequestFinishedCallback -> m (GClosure C_ColorChooserRequestFinishedCallback)
genClosure_ColorChooserRequestFinished cb = liftIO $ do
let cb' = wrap_ColorChooserRequestFinishedCallback cb
mk_ColorChooserRequestFinishedCallback cb' >>= B.GClosure.newGClosure
wrap_ColorChooserRequestFinishedCallback ::
ColorChooserRequestFinishedCallback ->
C_ColorChooserRequestFinishedCallback
wrap_ColorChooserRequestFinishedCallback _cb _ _ = do
_cb
onColorChooserRequestFinished :: (IsColorChooserRequest a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId
onColorChooserRequestFinished obj cb = liftIO $ do
let cb' = wrap_ColorChooserRequestFinishedCallback cb
cb'' <- mk_ColorChooserRequestFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' SignalConnectBefore
afterColorChooserRequestFinished :: (IsColorChooserRequest a, MonadIO m) => a -> ColorChooserRequestFinishedCallback -> m SignalHandlerId
afterColorChooserRequestFinished obj cb = liftIO $ do
let cb' = wrap_ColorChooserRequestFinishedCallback cb
cb'' <- mk_ColorChooserRequestFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' SignalConnectAfter
getColorChooserRequestRgba :: (MonadIO m, IsColorChooserRequest o) => o -> m (Maybe Gdk.RGBA.RGBA)
getColorChooserRequestRgba obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "rgba" Gdk.RGBA.RGBA
setColorChooserRequestRgba :: (MonadIO m, IsColorChooserRequest o) => o -> Gdk.RGBA.RGBA -> m ()
setColorChooserRequestRgba obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "rgba" (Just val)
constructColorChooserRequestRgba :: (IsColorChooserRequest o) => Gdk.RGBA.RGBA -> IO (GValueConstruct o)
constructColorChooserRequestRgba val = B.Properties.constructObjectPropertyBoxed "rgba" (Just val)
#if ENABLE_OVERLOADING
data ColorChooserRequestRgbaPropertyInfo
instance AttrInfo ColorChooserRequestRgbaPropertyInfo where
type AttrAllowedOps ColorChooserRequestRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ColorChooserRequestRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrBaseTypeConstraint ColorChooserRequestRgbaPropertyInfo = IsColorChooserRequest
type AttrGetType ColorChooserRequestRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel ColorChooserRequestRgbaPropertyInfo = "rgba"
type AttrOrigin ColorChooserRequestRgbaPropertyInfo = ColorChooserRequest
attrGet _ = getColorChooserRequestRgba
attrSet _ = setColorChooserRequestRgba
attrConstruct _ = constructColorChooserRequestRgba
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList ColorChooserRequest
type instance O.AttributeList ColorChooserRequest = ColorChooserRequestAttributeList
type ColorChooserRequestAttributeList = ('[ '("rgba", ColorChooserRequestRgbaPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
colorChooserRequestRgba :: AttrLabelProxy "rgba"
colorChooserRequestRgba = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data ColorChooserRequestFinishedSignalInfo
instance SignalInfo ColorChooserRequestFinishedSignalInfo where
type HaskellCallbackType ColorChooserRequestFinishedSignalInfo = ColorChooserRequestFinishedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ColorChooserRequestFinishedCallback cb
cb'' <- mk_ColorChooserRequestFinishedCallback cb'
connectSignalFunPtr obj "finished" cb'' connectMode
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 request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
webkit_color_chooser_request_cancel request'
touchManagedPtr request
return ()
#if ENABLE_OVERLOADING
data ColorChooserRequestCancelMethodInfo
instance (signature ~ (m ()), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestCancelMethodInfo a signature where
overloadedMethod _ = 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 request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
webkit_color_chooser_request_finish request'
touchManagedPtr request
return ()
#if ENABLE_OVERLOADING
data ColorChooserRequestFinishMethodInfo
instance (signature ~ (m ()), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestFinishMethodInfo a signature where
overloadedMethod _ = 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 request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
webkit_color_chooser_request_get_element_rectangle request' rect
rect' <- (wrapBoxed Gdk.Rectangle.Rectangle) rect
touchManagedPtr request
return rect'
#if ENABLE_OVERLOADING
data ColorChooserRequestGetElementRectangleMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestGetElementRectangleMethodInfo a signature where
overloadedMethod _ = 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 request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)
webkit_color_chooser_request_get_rgba request' rgba
rgba' <- (wrapBoxed Gdk.RGBA.RGBA) rgba
touchManagedPtr request
return rgba'
#if ENABLE_OVERLOADING
data ColorChooserRequestGetRgbaMethodInfo
instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestGetRgbaMethodInfo a signature where
overloadedMethod _ = 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 request rgba = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
rgba' <- unsafeManagedPtrGetPtr rgba
webkit_color_chooser_request_set_rgba request' rgba'
touchManagedPtr request
touchManagedPtr rgba
return ()
#if ENABLE_OVERLOADING
data ColorChooserRequestSetRgbaMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsColorChooserRequest a) => O.MethodInfo ColorChooserRequestSetRgbaMethodInfo a signature where
overloadedMethod _ = colorChooserRequestSetRgba
#endif