{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ColorSelection
(
ColorSelection(..) ,
IsColorSelection ,
toColorSelection ,
#if defined(ENABLE_OVERLOADING)
ResolveColorSelectionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetCurrentAlphaMethodInfo ,
#endif
colorSelectionGetCurrentAlpha ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetCurrentColorMethodInfo ,
#endif
colorSelectionGetCurrentColor ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetCurrentRgbaMethodInfo ,
#endif
colorSelectionGetCurrentRgba ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetHasOpacityControlMethodInfo,
#endif
colorSelectionGetHasOpacityControl ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetHasPaletteMethodInfo ,
#endif
colorSelectionGetHasPalette ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetPreviousAlphaMethodInfo,
#endif
colorSelectionGetPreviousAlpha ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetPreviousColorMethodInfo,
#endif
colorSelectionGetPreviousColor ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionGetPreviousRgbaMethodInfo ,
#endif
colorSelectionGetPreviousRgba ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionIsAdjustingMethodInfo ,
#endif
colorSelectionIsAdjusting ,
colorSelectionNew ,
colorSelectionPaletteFromString ,
colorSelectionPaletteToString ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetCurrentAlphaMethodInfo ,
#endif
colorSelectionSetCurrentAlpha ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetCurrentColorMethodInfo ,
#endif
colorSelectionSetCurrentColor ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetCurrentRgbaMethodInfo ,
#endif
colorSelectionSetCurrentRgba ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetHasOpacityControlMethodInfo,
#endif
colorSelectionSetHasOpacityControl ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetHasPaletteMethodInfo ,
#endif
colorSelectionSetHasPalette ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetPreviousAlphaMethodInfo,
#endif
colorSelectionSetPreviousAlpha ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetPreviousColorMethodInfo,
#endif
colorSelectionSetPreviousColor ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionSetPreviousRgbaMethodInfo ,
#endif
colorSelectionSetPreviousRgba ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionCurrentAlphaPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorSelectionCurrentAlpha ,
#endif
constructColorSelectionCurrentAlpha ,
getColorSelectionCurrentAlpha ,
setColorSelectionCurrentAlpha ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionCurrentColorPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorSelectionCurrentColor ,
#endif
constructColorSelectionCurrentColor ,
getColorSelectionCurrentColor ,
setColorSelectionCurrentColor ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionCurrentRgbaPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorSelectionCurrentRgba ,
#endif
constructColorSelectionCurrentRgba ,
getColorSelectionCurrentRgba ,
setColorSelectionCurrentRgba ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionHasOpacityControlPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
colorSelectionHasOpacityControl ,
#endif
constructColorSelectionHasOpacityControl,
getColorSelectionHasOpacityControl ,
setColorSelectionHasOpacityControl ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionHasPalettePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorSelectionHasPalette ,
#endif
constructColorSelectionHasPalette ,
getColorSelectionHasPalette ,
setColorSelectionHasPalette ,
C_ColorSelectionColorChangedCallback ,
ColorSelectionColorChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ColorSelectionColorChangedSignalInfo ,
#endif
afterColorSelectionColorChanged ,
genClosure_ColorSelectionColorChanged ,
mk_ColorSelectionColorChangedCallback ,
noColorSelectionColorChangedCallback ,
onColorSelectionColorChanged ,
wrap_ColorSelectionColorChangedCallback ,
) 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.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.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.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Color as Gdk.Color
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Box as Gtk.Box
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype ColorSelection = ColorSelection (SP.ManagedPtr ColorSelection)
deriving (ColorSelection -> ColorSelection -> Bool
(ColorSelection -> ColorSelection -> Bool)
-> (ColorSelection -> ColorSelection -> Bool) -> Eq ColorSelection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ColorSelection -> ColorSelection -> Bool
$c/= :: ColorSelection -> ColorSelection -> Bool
== :: ColorSelection -> ColorSelection -> Bool
$c== :: ColorSelection -> ColorSelection -> Bool
Eq)
instance SP.ManagedPtrNewtype ColorSelection where
toManagedPtr :: ColorSelection -> ManagedPtr ColorSelection
toManagedPtr (ColorSelection ManagedPtr ColorSelection
p) = ManagedPtr ColorSelection
p
foreign import ccall "gtk_color_selection_get_type"
c_gtk_color_selection_get_type :: IO B.Types.GType
instance B.Types.TypedObject ColorSelection where
glibType :: IO GType
glibType = IO GType
c_gtk_color_selection_get_type
instance B.Types.GObject ColorSelection
class (SP.GObject o, O.IsDescendantOf ColorSelection o) => IsColorSelection o
instance (SP.GObject o, O.IsDescendantOf ColorSelection o) => IsColorSelection o
instance O.HasParentTypes ColorSelection
type instance O.ParentTypes ColorSelection = '[Gtk.Box.Box, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable]
toColorSelection :: (MIO.MonadIO m, IsColorSelection o) => o -> m ColorSelection
toColorSelection :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> m ColorSelection
toColorSelection = IO ColorSelection -> m ColorSelection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ColorSelection -> m ColorSelection)
-> (o -> IO ColorSelection) -> o -> m ColorSelection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ColorSelection -> ColorSelection)
-> o -> IO ColorSelection
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ColorSelection -> ColorSelection
ColorSelection
instance B.GValue.IsGValue (Maybe ColorSelection) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_color_selection_get_type
gvalueSet_ :: Ptr GValue -> Maybe ColorSelection -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ColorSelection
P.Nothing = Ptr GValue -> Ptr ColorSelection -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ColorSelection
forall a. Ptr a
FP.nullPtr :: FP.Ptr ColorSelection)
gvalueSet_ Ptr GValue
gv (P.Just ColorSelection
obj) = ColorSelection -> (Ptr ColorSelection -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColorSelection
obj (Ptr GValue -> Ptr ColorSelection -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ColorSelection)
gvalueGet_ Ptr GValue
gv = do
Ptr ColorSelection
ptr <- Ptr GValue -> IO (Ptr ColorSelection)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ColorSelection)
if Ptr ColorSelection
ptr Ptr ColorSelection -> Ptr ColorSelection -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ColorSelection
forall a. Ptr a
FP.nullPtr
then ColorSelection -> Maybe ColorSelection
forall a. a -> Maybe a
P.Just (ColorSelection -> Maybe ColorSelection)
-> IO ColorSelection -> IO (Maybe ColorSelection)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ColorSelection -> ColorSelection)
-> Ptr ColorSelection -> IO ColorSelection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ColorSelection -> ColorSelection
ColorSelection Ptr ColorSelection
ptr
else Maybe ColorSelection -> IO (Maybe ColorSelection)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ColorSelection
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveColorSelectionMethod (t :: Symbol) (o :: *) :: * where
ResolveColorSelectionMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveColorSelectionMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveColorSelectionMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveColorSelectionMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveColorSelectionMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveColorSelectionMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveColorSelectionMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveColorSelectionMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveColorSelectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColorSelectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColorSelectionMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveColorSelectionMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveColorSelectionMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveColorSelectionMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveColorSelectionMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveColorSelectionMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveColorSelectionMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveColorSelectionMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveColorSelectionMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveColorSelectionMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveColorSelectionMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveColorSelectionMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveColorSelectionMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveColorSelectionMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveColorSelectionMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveColorSelectionMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveColorSelectionMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveColorSelectionMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveColorSelectionMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveColorSelectionMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveColorSelectionMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveColorSelectionMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveColorSelectionMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveColorSelectionMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveColorSelectionMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveColorSelectionMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveColorSelectionMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveColorSelectionMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveColorSelectionMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveColorSelectionMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveColorSelectionMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveColorSelectionMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveColorSelectionMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveColorSelectionMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveColorSelectionMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveColorSelectionMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveColorSelectionMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveColorSelectionMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveColorSelectionMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveColorSelectionMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveColorSelectionMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveColorSelectionMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveColorSelectionMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveColorSelectionMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveColorSelectionMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveColorSelectionMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveColorSelectionMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveColorSelectionMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveColorSelectionMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveColorSelectionMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveColorSelectionMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveColorSelectionMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveColorSelectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColorSelectionMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveColorSelectionMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveColorSelectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColorSelectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColorSelectionMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveColorSelectionMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveColorSelectionMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveColorSelectionMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveColorSelectionMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveColorSelectionMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveColorSelectionMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveColorSelectionMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveColorSelectionMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveColorSelectionMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveColorSelectionMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveColorSelectionMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveColorSelectionMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveColorSelectionMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveColorSelectionMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveColorSelectionMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveColorSelectionMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveColorSelectionMethod "isAdjusting" o = ColorSelectionIsAdjustingMethodInfo
ResolveColorSelectionMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveColorSelectionMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveColorSelectionMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveColorSelectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColorSelectionMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveColorSelectionMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveColorSelectionMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveColorSelectionMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveColorSelectionMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveColorSelectionMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveColorSelectionMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveColorSelectionMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveColorSelectionMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveColorSelectionMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveColorSelectionMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveColorSelectionMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveColorSelectionMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveColorSelectionMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveColorSelectionMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveColorSelectionMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveColorSelectionMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveColorSelectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColorSelectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColorSelectionMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveColorSelectionMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveColorSelectionMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveColorSelectionMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveColorSelectionMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveColorSelectionMethod "packEnd" o = Gtk.Box.BoxPackEndMethodInfo
ResolveColorSelectionMethod "packStart" o = Gtk.Box.BoxPackStartMethodInfo
ResolveColorSelectionMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveColorSelectionMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveColorSelectionMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveColorSelectionMethod "queryChildPacking" o = Gtk.Box.BoxQueryChildPackingMethodInfo
ResolveColorSelectionMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveColorSelectionMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveColorSelectionMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveColorSelectionMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveColorSelectionMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveColorSelectionMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveColorSelectionMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveColorSelectionMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveColorSelectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColorSelectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColorSelectionMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveColorSelectionMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveColorSelectionMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveColorSelectionMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveColorSelectionMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveColorSelectionMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveColorSelectionMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveColorSelectionMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveColorSelectionMethod "reorderChild" o = Gtk.Box.BoxReorderChildMethodInfo
ResolveColorSelectionMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveColorSelectionMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveColorSelectionMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveColorSelectionMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveColorSelectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColorSelectionMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveColorSelectionMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveColorSelectionMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveColorSelectionMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveColorSelectionMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveColorSelectionMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveColorSelectionMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveColorSelectionMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveColorSelectionMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveColorSelectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColorSelectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColorSelectionMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveColorSelectionMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveColorSelectionMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveColorSelectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColorSelectionMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveColorSelectionMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveColorSelectionMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveColorSelectionMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveColorSelectionMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveColorSelectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColorSelectionMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveColorSelectionMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveColorSelectionMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveColorSelectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColorSelectionMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveColorSelectionMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveColorSelectionMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveColorSelectionMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveColorSelectionMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveColorSelectionMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveColorSelectionMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveColorSelectionMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveColorSelectionMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveColorSelectionMethod "getBaselinePosition" o = Gtk.Box.BoxGetBaselinePositionMethodInfo
ResolveColorSelectionMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveColorSelectionMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveColorSelectionMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveColorSelectionMethod "getCenterWidget" o = Gtk.Box.BoxGetCenterWidgetMethodInfo
ResolveColorSelectionMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveColorSelectionMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveColorSelectionMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveColorSelectionMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveColorSelectionMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveColorSelectionMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveColorSelectionMethod "getCurrentAlpha" o = ColorSelectionGetCurrentAlphaMethodInfo
ResolveColorSelectionMethod "getCurrentColor" o = ColorSelectionGetCurrentColorMethodInfo
ResolveColorSelectionMethod "getCurrentRgba" o = ColorSelectionGetCurrentRgbaMethodInfo
ResolveColorSelectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColorSelectionMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveColorSelectionMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveColorSelectionMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveColorSelectionMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveColorSelectionMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveColorSelectionMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveColorSelectionMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveColorSelectionMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveColorSelectionMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveColorSelectionMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveColorSelectionMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveColorSelectionMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveColorSelectionMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveColorSelectionMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveColorSelectionMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveColorSelectionMethod "getHasOpacityControl" o = ColorSelectionGetHasOpacityControlMethodInfo
ResolveColorSelectionMethod "getHasPalette" o = ColorSelectionGetHasPaletteMethodInfo
ResolveColorSelectionMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveColorSelectionMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveColorSelectionMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveColorSelectionMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveColorSelectionMethod "getHomogeneous" o = Gtk.Box.BoxGetHomogeneousMethodInfo
ResolveColorSelectionMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveColorSelectionMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveColorSelectionMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveColorSelectionMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveColorSelectionMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveColorSelectionMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveColorSelectionMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveColorSelectionMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveColorSelectionMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveColorSelectionMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveColorSelectionMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveColorSelectionMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveColorSelectionMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveColorSelectionMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveColorSelectionMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveColorSelectionMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveColorSelectionMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveColorSelectionMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveColorSelectionMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveColorSelectionMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveColorSelectionMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveColorSelectionMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveColorSelectionMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveColorSelectionMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveColorSelectionMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveColorSelectionMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveColorSelectionMethod "getPreviousAlpha" o = ColorSelectionGetPreviousAlphaMethodInfo
ResolveColorSelectionMethod "getPreviousColor" o = ColorSelectionGetPreviousColorMethodInfo
ResolveColorSelectionMethod "getPreviousRgba" o = ColorSelectionGetPreviousRgbaMethodInfo
ResolveColorSelectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColorSelectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColorSelectionMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveColorSelectionMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveColorSelectionMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveColorSelectionMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveColorSelectionMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveColorSelectionMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveColorSelectionMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveColorSelectionMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveColorSelectionMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveColorSelectionMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveColorSelectionMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveColorSelectionMethod "getSpacing" o = Gtk.Box.BoxGetSpacingMethodInfo
ResolveColorSelectionMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveColorSelectionMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveColorSelectionMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveColorSelectionMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveColorSelectionMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveColorSelectionMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveColorSelectionMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveColorSelectionMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveColorSelectionMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveColorSelectionMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveColorSelectionMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveColorSelectionMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveColorSelectionMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveColorSelectionMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveColorSelectionMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveColorSelectionMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveColorSelectionMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveColorSelectionMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveColorSelectionMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveColorSelectionMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveColorSelectionMethod "setBaselinePosition" o = Gtk.Box.BoxSetBaselinePositionMethodInfo
ResolveColorSelectionMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveColorSelectionMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveColorSelectionMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveColorSelectionMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveColorSelectionMethod "setCenterWidget" o = Gtk.Box.BoxSetCenterWidgetMethodInfo
ResolveColorSelectionMethod "setChildPacking" o = Gtk.Box.BoxSetChildPackingMethodInfo
ResolveColorSelectionMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveColorSelectionMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveColorSelectionMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveColorSelectionMethod "setCurrentAlpha" o = ColorSelectionSetCurrentAlphaMethodInfo
ResolveColorSelectionMethod "setCurrentColor" o = ColorSelectionSetCurrentColorMethodInfo
ResolveColorSelectionMethod "setCurrentRgba" o = ColorSelectionSetCurrentRgbaMethodInfo
ResolveColorSelectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColorSelectionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColorSelectionMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveColorSelectionMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveColorSelectionMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveColorSelectionMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveColorSelectionMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveColorSelectionMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveColorSelectionMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveColorSelectionMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveColorSelectionMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveColorSelectionMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveColorSelectionMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveColorSelectionMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveColorSelectionMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveColorSelectionMethod "setHasOpacityControl" o = ColorSelectionSetHasOpacityControlMethodInfo
ResolveColorSelectionMethod "setHasPalette" o = ColorSelectionSetHasPaletteMethodInfo
ResolveColorSelectionMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveColorSelectionMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveColorSelectionMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveColorSelectionMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveColorSelectionMethod "setHomogeneous" o = Gtk.Box.BoxSetHomogeneousMethodInfo
ResolveColorSelectionMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveColorSelectionMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveColorSelectionMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveColorSelectionMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveColorSelectionMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveColorSelectionMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveColorSelectionMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveColorSelectionMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveColorSelectionMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveColorSelectionMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveColorSelectionMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveColorSelectionMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveColorSelectionMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveColorSelectionMethod "setPreviousAlpha" o = ColorSelectionSetPreviousAlphaMethodInfo
ResolveColorSelectionMethod "setPreviousColor" o = ColorSelectionSetPreviousColorMethodInfo
ResolveColorSelectionMethod "setPreviousRgba" o = ColorSelectionSetPreviousRgbaMethodInfo
ResolveColorSelectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColorSelectionMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveColorSelectionMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveColorSelectionMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveColorSelectionMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveColorSelectionMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveColorSelectionMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveColorSelectionMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveColorSelectionMethod "setSpacing" o = Gtk.Box.BoxSetSpacingMethodInfo
ResolveColorSelectionMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveColorSelectionMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveColorSelectionMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveColorSelectionMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveColorSelectionMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveColorSelectionMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveColorSelectionMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveColorSelectionMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveColorSelectionMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveColorSelectionMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveColorSelectionMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveColorSelectionMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveColorSelectionMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveColorSelectionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColorSelectionMethod t ColorSelection, O.OverloadedMethod info ColorSelection p) => OL.IsLabel t (ColorSelection -> 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 ~ ResolveColorSelectionMethod t ColorSelection, O.OverloadedMethod info ColorSelection p, R.HasField t ColorSelection p) => R.HasField t ColorSelection p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveColorSelectionMethod t ColorSelection, O.OverloadedMethodInfo info ColorSelection) => OL.IsLabel t (O.MethodProxy info ColorSelection) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ColorSelectionColorChangedCallback =
IO ()
noColorSelectionColorChangedCallback :: Maybe ColorSelectionColorChangedCallback
noColorSelectionColorChangedCallback :: Maybe (IO ())
noColorSelectionColorChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ColorSelectionColorChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorSelectionColorChangedCallback :: C_ColorSelectionColorChangedCallback -> IO (FunPtr C_ColorSelectionColorChangedCallback)
genClosure_ColorSelectionColorChanged :: MonadIO m => ColorSelectionColorChangedCallback -> m (GClosure C_ColorSelectionColorChangedCallback)
genClosure_ColorSelectionColorChanged :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_ColorSelectionColorChangedCallback)
genClosure_ColorSelectionColorChanged IO ()
cb = IO (GClosure C_ColorSelectionColorChangedCallback)
-> m (GClosure C_ColorSelectionColorChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ColorSelectionColorChangedCallback)
-> m (GClosure C_ColorSelectionColorChangedCallback))
-> IO (GClosure C_ColorSelectionColorChangedCallback)
-> m (GClosure C_ColorSelectionColorChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ColorSelectionColorChangedCallback
cb' = IO () -> C_ColorSelectionColorChangedCallback
wrap_ColorSelectionColorChangedCallback IO ()
cb
C_ColorSelectionColorChangedCallback
-> IO (FunPtr C_ColorSelectionColorChangedCallback)
mk_ColorSelectionColorChangedCallback C_ColorSelectionColorChangedCallback
cb' IO (FunPtr C_ColorSelectionColorChangedCallback)
-> (FunPtr C_ColorSelectionColorChangedCallback
-> IO (GClosure C_ColorSelectionColorChangedCallback))
-> IO (GClosure C_ColorSelectionColorChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ColorSelectionColorChangedCallback
-> IO (GClosure C_ColorSelectionColorChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ColorSelectionColorChangedCallback ::
ColorSelectionColorChangedCallback ->
C_ColorSelectionColorChangedCallback
wrap_ColorSelectionColorChangedCallback :: IO () -> C_ColorSelectionColorChangedCallback
wrap_ColorSelectionColorChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onColorSelectionColorChanged :: (IsColorSelection a, MonadIO m) => a -> ColorSelectionColorChangedCallback -> m SignalHandlerId
onColorSelectionColorChanged :: forall a (m :: * -> *).
(IsColorSelection a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onColorSelectionColorChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ColorSelectionColorChangedCallback
cb' = IO () -> C_ColorSelectionColorChangedCallback
wrap_ColorSelectionColorChangedCallback IO ()
cb
FunPtr C_ColorSelectionColorChangedCallback
cb'' <- C_ColorSelectionColorChangedCallback
-> IO (FunPtr C_ColorSelectionColorChangedCallback)
mk_ColorSelectionColorChangedCallback C_ColorSelectionColorChangedCallback
cb'
a
-> Text
-> FunPtr C_ColorSelectionColorChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"color-changed" FunPtr C_ColorSelectionColorChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterColorSelectionColorChanged :: (IsColorSelection a, MonadIO m) => a -> ColorSelectionColorChangedCallback -> m SignalHandlerId
afterColorSelectionColorChanged :: forall a (m :: * -> *).
(IsColorSelection a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterColorSelectionColorChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_ColorSelectionColorChangedCallback
cb' = IO () -> C_ColorSelectionColorChangedCallback
wrap_ColorSelectionColorChangedCallback IO ()
cb
FunPtr C_ColorSelectionColorChangedCallback
cb'' <- C_ColorSelectionColorChangedCallback
-> IO (FunPtr C_ColorSelectionColorChangedCallback)
mk_ColorSelectionColorChangedCallback C_ColorSelectionColorChangedCallback
cb'
a
-> Text
-> FunPtr C_ColorSelectionColorChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"color-changed" FunPtr C_ColorSelectionColorChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ColorSelectionColorChangedSignalInfo
instance SignalInfo ColorSelectionColorChangedSignalInfo where
type HaskellCallbackType ColorSelectionColorChangedSignalInfo = ColorSelectionColorChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ColorSelectionColorChangedCallback cb
cb'' <- mk_ColorSelectionColorChangedCallback cb'
connectSignalFunPtr obj "color-changed" cb'' connectMode detail
#endif
getColorSelectionCurrentAlpha :: (MonadIO m, IsColorSelection o) => o -> m Word32
getColorSelectionCurrentAlpha :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> m Word32
getColorSelectionCurrentAlpha o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"current-alpha"
setColorSelectionCurrentAlpha :: (MonadIO m, IsColorSelection o) => o -> Word32 -> m ()
setColorSelectionCurrentAlpha :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> Word32 -> m ()
setColorSelectionCurrentAlpha o
obj Word32
val = IO () -> m ()
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"current-alpha" Word32
val
constructColorSelectionCurrentAlpha :: (IsColorSelection o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructColorSelectionCurrentAlpha :: forall o (m :: * -> *).
(IsColorSelection o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructColorSelectionCurrentAlpha Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"current-alpha" Word32
val
#if defined(ENABLE_OVERLOADING)
data ColorSelectionCurrentAlphaPropertyInfo
instance AttrInfo ColorSelectionCurrentAlphaPropertyInfo where
type AttrAllowedOps ColorSelectionCurrentAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorSelectionCurrentAlphaPropertyInfo = IsColorSelection
type AttrSetTypeConstraint ColorSelectionCurrentAlphaPropertyInfo = (~) Word32
type AttrTransferTypeConstraint ColorSelectionCurrentAlphaPropertyInfo = (~) Word32
type AttrTransferType ColorSelectionCurrentAlphaPropertyInfo = Word32
type AttrGetType ColorSelectionCurrentAlphaPropertyInfo = Word32
type AttrLabel ColorSelectionCurrentAlphaPropertyInfo = "current-alpha"
type AttrOrigin ColorSelectionCurrentAlphaPropertyInfo = ColorSelection
attrGet = getColorSelectionCurrentAlpha
attrSet = setColorSelectionCurrentAlpha
attrTransfer _ v = do
return v
attrConstruct = constructColorSelectionCurrentAlpha
attrClear = undefined
#endif
getColorSelectionCurrentColor :: (MonadIO m, IsColorSelection o) => o -> m (Maybe Gdk.Color.Color)
getColorSelectionCurrentColor :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> m (Maybe Color)
getColorSelectionCurrentColor o
obj = IO (Maybe Color) -> m (Maybe Color)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Color) -> m (Maybe Color))
-> IO (Maybe Color) -> m (Maybe Color)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Color -> Color) -> IO (Maybe Color)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"current-color" ManagedPtr Color -> Color
Gdk.Color.Color
setColorSelectionCurrentColor :: (MonadIO m, IsColorSelection o) => o -> Gdk.Color.Color -> m ()
setColorSelectionCurrentColor :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> Color -> m ()
setColorSelectionCurrentColor o
obj Color
val = IO () -> m ()
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 Color -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"current-color" (Color -> Maybe Color
forall a. a -> Maybe a
Just Color
val)
constructColorSelectionCurrentColor :: (IsColorSelection o, MIO.MonadIO m) => Gdk.Color.Color -> m (GValueConstruct o)
constructColorSelectionCurrentColor :: forall o (m :: * -> *).
(IsColorSelection o, MonadIO m) =>
Color -> m (GValueConstruct o)
constructColorSelectionCurrentColor Color
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 Color -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"current-color" (Color -> Maybe Color
forall a. a -> Maybe a
P.Just Color
val)
#if defined(ENABLE_OVERLOADING)
data ColorSelectionCurrentColorPropertyInfo
instance AttrInfo ColorSelectionCurrentColorPropertyInfo where
type AttrAllowedOps ColorSelectionCurrentColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorSelectionCurrentColorPropertyInfo = IsColorSelection
type AttrSetTypeConstraint ColorSelectionCurrentColorPropertyInfo = (~) Gdk.Color.Color
type AttrTransferTypeConstraint ColorSelectionCurrentColorPropertyInfo = (~) Gdk.Color.Color
type AttrTransferType ColorSelectionCurrentColorPropertyInfo = Gdk.Color.Color
type AttrGetType ColorSelectionCurrentColorPropertyInfo = (Maybe Gdk.Color.Color)
type AttrLabel ColorSelectionCurrentColorPropertyInfo = "current-color"
type AttrOrigin ColorSelectionCurrentColorPropertyInfo = ColorSelection
attrGet = getColorSelectionCurrentColor
attrSet = setColorSelectionCurrentColor
attrTransfer _ v = do
return v
attrConstruct = constructColorSelectionCurrentColor
attrClear = undefined
#endif
getColorSelectionCurrentRgba :: (MonadIO m, IsColorSelection o) => o -> m (Maybe Gdk.RGBA.RGBA)
getColorSelectionCurrentRgba :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> m (Maybe RGBA)
getColorSelectionCurrentRgba o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
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
"current-rgba" ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA
setColorSelectionCurrentRgba :: (MonadIO m, IsColorSelection o) => o -> Gdk.RGBA.RGBA -> m ()
setColorSelectionCurrentRgba :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> RGBA -> m ()
setColorSelectionCurrentRgba o
obj RGBA
val = IO () -> m ()
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
"current-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructColorSelectionCurrentRgba :: (IsColorSelection o, MIO.MonadIO m) => Gdk.RGBA.RGBA -> m (GValueConstruct o)
constructColorSelectionCurrentRgba :: forall o (m :: * -> *).
(IsColorSelection o, MonadIO m) =>
RGBA -> m (GValueConstruct o)
constructColorSelectionCurrentRgba RGBA
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"current-rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
P.Just RGBA
val)
#if defined(ENABLE_OVERLOADING)
data ColorSelectionCurrentRgbaPropertyInfo
instance AttrInfo ColorSelectionCurrentRgbaPropertyInfo where
type AttrAllowedOps ColorSelectionCurrentRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = IsColorSelection
type AttrSetTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferType ColorSelectionCurrentRgbaPropertyInfo = Gdk.RGBA.RGBA
type AttrGetType ColorSelectionCurrentRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "current-rgba"
type AttrOrigin ColorSelectionCurrentRgbaPropertyInfo = ColorSelection
attrGet = getColorSelectionCurrentRgba
attrSet = setColorSelectionCurrentRgba
attrTransfer _ v = do
return v
attrConstruct = constructColorSelectionCurrentRgba
attrClear = undefined
#endif
getColorSelectionHasOpacityControl :: (MonadIO m, IsColorSelection o) => o -> m Bool
getColorSelectionHasOpacityControl :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> m Bool
getColorSelectionHasOpacityControl o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-opacity-control"
setColorSelectionHasOpacityControl :: (MonadIO m, IsColorSelection o) => o -> Bool -> m ()
setColorSelectionHasOpacityControl :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> Bool -> m ()
setColorSelectionHasOpacityControl o
obj Bool
val = IO () -> m ()
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-opacity-control" Bool
val
constructColorSelectionHasOpacityControl :: (IsColorSelection o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColorSelectionHasOpacityControl :: forall o (m :: * -> *).
(IsColorSelection o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColorSelectionHasOpacityControl Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-opacity-control" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColorSelectionHasOpacityControlPropertyInfo
instance AttrInfo ColorSelectionHasOpacityControlPropertyInfo where
type AttrAllowedOps ColorSelectionHasOpacityControlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorSelectionHasOpacityControlPropertyInfo = IsColorSelection
type AttrSetTypeConstraint ColorSelectionHasOpacityControlPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColorSelectionHasOpacityControlPropertyInfo = (~) Bool
type AttrTransferType ColorSelectionHasOpacityControlPropertyInfo = Bool
type AttrGetType ColorSelectionHasOpacityControlPropertyInfo = Bool
type AttrLabel ColorSelectionHasOpacityControlPropertyInfo = "has-opacity-control"
type AttrOrigin ColorSelectionHasOpacityControlPropertyInfo = ColorSelection
attrGet = getColorSelectionHasOpacityControl
attrSet = setColorSelectionHasOpacityControl
attrTransfer _ v = do
return v
attrConstruct = constructColorSelectionHasOpacityControl
attrClear = undefined
#endif
getColorSelectionHasPalette :: (MonadIO m, IsColorSelection o) => o -> m Bool
getColorSelectionHasPalette :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> m Bool
getColorSelectionHasPalette o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-palette"
setColorSelectionHasPalette :: (MonadIO m, IsColorSelection o) => o -> Bool -> m ()
setColorSelectionHasPalette :: forall (m :: * -> *) o.
(MonadIO m, IsColorSelection o) =>
o -> Bool -> m ()
setColorSelectionHasPalette o
obj Bool
val = IO () -> m ()
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-palette" Bool
val
constructColorSelectionHasPalette :: (IsColorSelection o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColorSelectionHasPalette :: forall o (m :: * -> *).
(IsColorSelection o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColorSelectionHasPalette Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-palette" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColorSelectionHasPalettePropertyInfo
instance AttrInfo ColorSelectionHasPalettePropertyInfo where
type AttrAllowedOps ColorSelectionHasPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorSelectionHasPalettePropertyInfo = IsColorSelection
type AttrSetTypeConstraint ColorSelectionHasPalettePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColorSelectionHasPalettePropertyInfo = (~) Bool
type AttrTransferType ColorSelectionHasPalettePropertyInfo = Bool
type AttrGetType ColorSelectionHasPalettePropertyInfo = Bool
type AttrLabel ColorSelectionHasPalettePropertyInfo = "has-palette"
type AttrOrigin ColorSelectionHasPalettePropertyInfo = ColorSelection
attrGet = getColorSelectionHasPalette
attrSet = setColorSelectionHasPalette
attrTransfer _ v = do
return v
attrConstruct = constructColorSelectionHasPalette
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColorSelection
type instance O.AttributeList ColorSelection = ColorSelectionAttributeList
type ColorSelectionAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("baselinePosition", Gtk.Box.BoxBaselinePositionPropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("currentAlpha", ColorSelectionCurrentAlphaPropertyInfo), '("currentColor", ColorSelectionCurrentColorPropertyInfo), '("currentRgba", ColorSelectionCurrentRgbaPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasOpacityControl", ColorSelectionHasOpacityControlPropertyInfo), '("hasPalette", ColorSelectionHasPalettePropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("homogeneous", Gtk.Box.BoxHomogeneousPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("spacing", Gtk.Box.BoxSpacingPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
colorSelectionCurrentAlpha :: AttrLabelProxy "currentAlpha"
colorSelectionCurrentAlpha = AttrLabelProxy
colorSelectionCurrentColor :: AttrLabelProxy "currentColor"
colorSelectionCurrentColor = AttrLabelProxy
colorSelectionCurrentRgba :: AttrLabelProxy "currentRgba"
colorSelectionCurrentRgba = AttrLabelProxy
colorSelectionHasOpacityControl :: AttrLabelProxy "hasOpacityControl"
colorSelectionHasOpacityControl = AttrLabelProxy
colorSelectionHasPalette :: AttrLabelProxy "hasPalette"
colorSelectionHasPalette = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColorSelection = ColorSelectionSignalList
type ColorSelectionSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("colorChanged", ColorSelectionColorChangedSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_color_selection_new" gtk_color_selection_new ::
IO (Ptr ColorSelection)
colorSelectionNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ColorSelection
colorSelectionNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ColorSelection
colorSelectionNew = IO ColorSelection -> m ColorSelection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColorSelection -> m ColorSelection)
-> IO ColorSelection -> m ColorSelection
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
result <- IO (Ptr ColorSelection)
gtk_color_selection_new
Text -> Ptr ColorSelection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"colorSelectionNew" Ptr ColorSelection
result
ColorSelection
result' <- ((ManagedPtr ColorSelection -> ColorSelection)
-> Ptr ColorSelection -> IO ColorSelection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColorSelection -> ColorSelection
ColorSelection) Ptr ColorSelection
result
ColorSelection -> IO ColorSelection
forall (m :: * -> *) a. Monad m => a -> m a
return ColorSelection
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_color_selection_get_current_alpha" gtk_color_selection_get_current_alpha ::
Ptr ColorSelection ->
IO Word16
colorSelectionGetCurrentAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m Word16
colorSelectionGetCurrentAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m Word16
colorSelectionGetCurrentAlpha a
colorsel = IO Word16 -> m Word16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Word16
result <- Ptr ColorSelection -> IO Word16
gtk_color_selection_get_current_alpha Ptr ColorSelection
colorsel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Word16 -> IO Word16
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetCurrentAlphaMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetCurrentAlphaMethodInfo a signature where
overloadedMethod = colorSelectionGetCurrentAlpha
instance O.OverloadedMethodInfo ColorSelectionGetCurrentAlphaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetCurrentAlpha",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetCurrentAlpha"
}
#endif
foreign import ccall "gtk_color_selection_get_current_color" gtk_color_selection_get_current_color ::
Ptr ColorSelection ->
Ptr Gdk.Color.Color ->
IO ()
{-# DEPRECATED colorSelectionGetCurrentColor ["(Since version 3.4)","Use 'GI.Gtk.Objects.ColorSelection.colorSelectionGetCurrentRgba' instead."] #-}
colorSelectionGetCurrentColor ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m (Gdk.Color.Color)
colorSelectionGetCurrentColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m Color
colorSelectionGetCurrentColor a
colorsel = IO Color -> m Color
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Color -> m Color) -> IO Color -> m Color
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr Color
color <- Int -> IO (Ptr Color)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
12 :: IO (Ptr Gdk.Color.Color)
Ptr ColorSelection -> Ptr Color -> IO ()
gtk_color_selection_get_current_color Ptr ColorSelection
colorsel' Ptr Color
color
Color
color' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Gdk.Color.Color) Ptr Color
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Color -> IO Color
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetCurrentColorMethodInfo
instance (signature ~ (m (Gdk.Color.Color)), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetCurrentColorMethodInfo a signature where
overloadedMethod = colorSelectionGetCurrentColor
instance O.OverloadedMethodInfo ColorSelectionGetCurrentColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetCurrentColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetCurrentColor"
}
#endif
foreign import ccall "gtk_color_selection_get_current_rgba" gtk_color_selection_get_current_rgba ::
Ptr ColorSelection ->
Ptr Gdk.RGBA.RGBA ->
IO ()
colorSelectionGetCurrentRgba ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m (Gdk.RGBA.RGBA)
colorSelectionGetCurrentRgba :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m RGBA
colorSelectionGetCurrentRgba a
colorsel = IO RGBA -> m RGBA
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 ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
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 ColorSelection -> Ptr RGBA -> IO ()
gtk_color_selection_get_current_rgba Ptr ColorSelection
colorsel' 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
colorsel
RGBA -> IO RGBA
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
rgba'
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetCurrentRgbaMethodInfo
instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetCurrentRgbaMethodInfo a signature where
overloadedMethod = colorSelectionGetCurrentRgba
instance O.OverloadedMethodInfo ColorSelectionGetCurrentRgbaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetCurrentRgba",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetCurrentRgba"
}
#endif
foreign import ccall "gtk_color_selection_get_has_opacity_control" gtk_color_selection_get_has_opacity_control ::
Ptr ColorSelection ->
IO CInt
colorSelectionGetHasOpacityControl ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m Bool
colorSelectionGetHasOpacityControl :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m Bool
colorSelectionGetHasOpacityControl a
colorsel = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
CInt
result <- Ptr ColorSelection -> IO CInt
gtk_color_selection_get_has_opacity_control Ptr ColorSelection
colorsel'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetHasOpacityControlMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetHasOpacityControlMethodInfo a signature where
overloadedMethod = colorSelectionGetHasOpacityControl
instance O.OverloadedMethodInfo ColorSelectionGetHasOpacityControlMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetHasOpacityControl",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetHasOpacityControl"
}
#endif
foreign import ccall "gtk_color_selection_get_has_palette" gtk_color_selection_get_has_palette ::
Ptr ColorSelection ->
IO CInt
colorSelectionGetHasPalette ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m Bool
colorSelectionGetHasPalette :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m Bool
colorSelectionGetHasPalette a
colorsel = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
CInt
result <- Ptr ColorSelection -> IO CInt
gtk_color_selection_get_has_palette Ptr ColorSelection
colorsel'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetHasPaletteMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetHasPaletteMethodInfo a signature where
overloadedMethod = colorSelectionGetHasPalette
instance O.OverloadedMethodInfo ColorSelectionGetHasPaletteMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetHasPalette",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetHasPalette"
}
#endif
foreign import ccall "gtk_color_selection_get_previous_alpha" gtk_color_selection_get_previous_alpha ::
Ptr ColorSelection ->
IO Word16
colorSelectionGetPreviousAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m Word16
colorSelectionGetPreviousAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m Word16
colorSelectionGetPreviousAlpha a
colorsel = IO Word16 -> m Word16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Word16
result <- Ptr ColorSelection -> IO Word16
gtk_color_selection_get_previous_alpha Ptr ColorSelection
colorsel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Word16 -> IO Word16
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetPreviousAlphaMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetPreviousAlphaMethodInfo a signature where
overloadedMethod = colorSelectionGetPreviousAlpha
instance O.OverloadedMethodInfo ColorSelectionGetPreviousAlphaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetPreviousAlpha",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetPreviousAlpha"
}
#endif
foreign import ccall "gtk_color_selection_get_previous_color" gtk_color_selection_get_previous_color ::
Ptr ColorSelection ->
Ptr Gdk.Color.Color ->
IO ()
{-# DEPRECATED colorSelectionGetPreviousColor ["(Since version 3.4)","Use 'GI.Gtk.Objects.ColorSelection.colorSelectionGetPreviousRgba' instead."] #-}
colorSelectionGetPreviousColor ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m (Gdk.Color.Color)
colorSelectionGetPreviousColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m Color
colorSelectionGetPreviousColor a
colorsel = IO Color -> m Color
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Color -> m Color) -> IO Color -> m Color
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr Color
color <- Int -> IO (Ptr Color)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
12 :: IO (Ptr Gdk.Color.Color)
Ptr ColorSelection -> Ptr Color -> IO ()
gtk_color_selection_get_previous_color Ptr ColorSelection
colorsel' Ptr Color
color
Color
color' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Gdk.Color.Color) Ptr Color
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Color -> IO Color
forall (m :: * -> *) a. Monad m => a -> m a
return Color
color'
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetPreviousColorMethodInfo
instance (signature ~ (m (Gdk.Color.Color)), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetPreviousColorMethodInfo a signature where
overloadedMethod = colorSelectionGetPreviousColor
instance O.OverloadedMethodInfo ColorSelectionGetPreviousColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetPreviousColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetPreviousColor"
}
#endif
foreign import ccall "gtk_color_selection_get_previous_rgba" gtk_color_selection_get_previous_rgba ::
Ptr ColorSelection ->
Ptr Gdk.RGBA.RGBA ->
IO ()
colorSelectionGetPreviousRgba ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m (Gdk.RGBA.RGBA)
colorSelectionGetPreviousRgba :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m RGBA
colorSelectionGetPreviousRgba a
colorsel = IO RGBA -> m RGBA
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 ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
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 ColorSelection -> Ptr RGBA -> IO ()
gtk_color_selection_get_previous_rgba Ptr ColorSelection
colorsel' 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
colorsel
RGBA -> IO RGBA
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
rgba'
#if defined(ENABLE_OVERLOADING)
data ColorSelectionGetPreviousRgbaMethodInfo
instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionGetPreviousRgbaMethodInfo a signature where
overloadedMethod = colorSelectionGetPreviousRgba
instance O.OverloadedMethodInfo ColorSelectionGetPreviousRgbaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionGetPreviousRgba",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionGetPreviousRgba"
}
#endif
foreign import ccall "gtk_color_selection_is_adjusting" gtk_color_selection_is_adjusting ::
Ptr ColorSelection ->
IO CInt
colorSelectionIsAdjusting ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> m Bool
colorSelectionIsAdjusting :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> m Bool
colorSelectionIsAdjusting a
colorsel = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
CInt
result <- Ptr ColorSelection -> IO CInt
gtk_color_selection_is_adjusting Ptr ColorSelection
colorsel'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColorSelectionIsAdjustingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionIsAdjustingMethodInfo a signature where
overloadedMethod = colorSelectionIsAdjusting
instance O.OverloadedMethodInfo ColorSelectionIsAdjustingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionIsAdjusting",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionIsAdjusting"
}
#endif
foreign import ccall "gtk_color_selection_set_current_alpha" gtk_color_selection_set_current_alpha ::
Ptr ColorSelection ->
Word16 ->
IO ()
colorSelectionSetCurrentAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Word16
-> m ()
colorSelectionSetCurrentAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> Word16 -> m ()
colorSelectionSetCurrentAlpha a
colorsel Word16
alpha = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr ColorSelection -> Word16 -> IO ()
gtk_color_selection_set_current_alpha Ptr ColorSelection
colorsel' Word16
alpha
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetCurrentAlphaMethodInfo
instance (signature ~ (Word16 -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetCurrentAlphaMethodInfo a signature where
overloadedMethod = colorSelectionSetCurrentAlpha
instance O.OverloadedMethodInfo ColorSelectionSetCurrentAlphaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetCurrentAlpha",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetCurrentAlpha"
}
#endif
foreign import ccall "gtk_color_selection_set_current_color" gtk_color_selection_set_current_color ::
Ptr ColorSelection ->
Ptr Gdk.Color.Color ->
IO ()
{-# DEPRECATED colorSelectionSetCurrentColor ["(Since version 3.4)","Use 'GI.Gtk.Objects.ColorSelection.colorSelectionSetCurrentRgba' instead."] #-}
colorSelectionSetCurrentColor ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Gdk.Color.Color
-> m ()
colorSelectionSetCurrentColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> Color -> m ()
colorSelectionSetCurrentColor a
colorsel Color
color = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr Color
color' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
color
Ptr ColorSelection -> Ptr Color -> IO ()
gtk_color_selection_set_current_color Ptr ColorSelection
colorsel' Ptr Color
color'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
color
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetCurrentColorMethodInfo
instance (signature ~ (Gdk.Color.Color -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetCurrentColorMethodInfo a signature where
overloadedMethod = colorSelectionSetCurrentColor
instance O.OverloadedMethodInfo ColorSelectionSetCurrentColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetCurrentColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetCurrentColor"
}
#endif
foreign import ccall "gtk_color_selection_set_current_rgba" gtk_color_selection_set_current_rgba ::
Ptr ColorSelection ->
Ptr Gdk.RGBA.RGBA ->
IO ()
colorSelectionSetCurrentRgba ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Gdk.RGBA.RGBA
-> m ()
colorSelectionSetCurrentRgba :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> RGBA -> m ()
colorSelectionSetCurrentRgba a
colorsel RGBA
rgba = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr RGBA
rgba' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
rgba
Ptr ColorSelection -> Ptr RGBA -> IO ()
gtk_color_selection_set_current_rgba Ptr ColorSelection
colorsel' Ptr RGBA
rgba'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
rgba
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetCurrentRgbaMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetCurrentRgbaMethodInfo a signature where
overloadedMethod = colorSelectionSetCurrentRgba
instance O.OverloadedMethodInfo ColorSelectionSetCurrentRgbaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetCurrentRgba",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetCurrentRgba"
}
#endif
foreign import ccall "gtk_color_selection_set_has_opacity_control" gtk_color_selection_set_has_opacity_control ::
Ptr ColorSelection ->
CInt ->
IO ()
colorSelectionSetHasOpacityControl ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Bool
-> m ()
colorSelectionSetHasOpacityControl :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> Bool -> m ()
colorSelectionSetHasOpacityControl a
colorsel Bool
hasOpacity = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
let hasOpacity' :: CInt
hasOpacity' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasOpacity
Ptr ColorSelection -> CInt -> IO ()
gtk_color_selection_set_has_opacity_control Ptr ColorSelection
colorsel' CInt
hasOpacity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetHasOpacityControlMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetHasOpacityControlMethodInfo a signature where
overloadedMethod = colorSelectionSetHasOpacityControl
instance O.OverloadedMethodInfo ColorSelectionSetHasOpacityControlMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetHasOpacityControl",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetHasOpacityControl"
}
#endif
foreign import ccall "gtk_color_selection_set_has_palette" gtk_color_selection_set_has_palette ::
Ptr ColorSelection ->
CInt ->
IO ()
colorSelectionSetHasPalette ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Bool
-> m ()
colorSelectionSetHasPalette :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> Bool -> m ()
colorSelectionSetHasPalette a
colorsel Bool
hasPalette = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
let hasPalette' :: CInt
hasPalette' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hasPalette
Ptr ColorSelection -> CInt -> IO ()
gtk_color_selection_set_has_palette Ptr ColorSelection
colorsel' CInt
hasPalette'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetHasPaletteMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetHasPaletteMethodInfo a signature where
overloadedMethod = colorSelectionSetHasPalette
instance O.OverloadedMethodInfo ColorSelectionSetHasPaletteMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetHasPalette",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetHasPalette"
}
#endif
foreign import ccall "gtk_color_selection_set_previous_alpha" gtk_color_selection_set_previous_alpha ::
Ptr ColorSelection ->
Word16 ->
IO ()
colorSelectionSetPreviousAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Word16
-> m ()
colorSelectionSetPreviousAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> Word16 -> m ()
colorSelectionSetPreviousAlpha a
colorsel Word16
alpha = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr ColorSelection -> Word16 -> IO ()
gtk_color_selection_set_previous_alpha Ptr ColorSelection
colorsel' Word16
alpha
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetPreviousAlphaMethodInfo
instance (signature ~ (Word16 -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetPreviousAlphaMethodInfo a signature where
overloadedMethod = colorSelectionSetPreviousAlpha
instance O.OverloadedMethodInfo ColorSelectionSetPreviousAlphaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetPreviousAlpha",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetPreviousAlpha"
}
#endif
foreign import ccall "gtk_color_selection_set_previous_color" gtk_color_selection_set_previous_color ::
Ptr ColorSelection ->
Ptr Gdk.Color.Color ->
IO ()
{-# DEPRECATED colorSelectionSetPreviousColor ["(Since version 3.4)","Use 'GI.Gtk.Objects.ColorSelection.colorSelectionSetPreviousRgba' instead."] #-}
colorSelectionSetPreviousColor ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Gdk.Color.Color
-> m ()
colorSelectionSetPreviousColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> Color -> m ()
colorSelectionSetPreviousColor a
colorsel Color
color = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr Color
color' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
color
Ptr ColorSelection -> Ptr Color -> IO ()
gtk_color_selection_set_previous_color Ptr ColorSelection
colorsel' Ptr Color
color'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
color
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetPreviousColorMethodInfo
instance (signature ~ (Gdk.Color.Color -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetPreviousColorMethodInfo a signature where
overloadedMethod = colorSelectionSetPreviousColor
instance O.OverloadedMethodInfo ColorSelectionSetPreviousColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetPreviousColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetPreviousColor"
}
#endif
foreign import ccall "gtk_color_selection_set_previous_rgba" gtk_color_selection_set_previous_rgba ::
Ptr ColorSelection ->
Ptr Gdk.RGBA.RGBA ->
IO ()
colorSelectionSetPreviousRgba ::
(B.CallStack.HasCallStack, MonadIO m, IsColorSelection a) =>
a
-> Gdk.RGBA.RGBA
-> m ()
colorSelectionSetPreviousRgba :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorSelection a) =>
a -> RGBA -> m ()
colorSelectionSetPreviousRgba a
colorsel RGBA
rgba = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorSelection
colorsel' <- a -> IO (Ptr ColorSelection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
colorsel
Ptr RGBA
rgba' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
rgba
Ptr ColorSelection -> Ptr RGBA -> IO ()
gtk_color_selection_set_previous_rgba Ptr ColorSelection
colorsel' Ptr RGBA
rgba'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
colorsel
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
rgba
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorSelectionSetPreviousRgbaMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsColorSelection a) => O.OverloadedMethod ColorSelectionSetPreviousRgbaMethodInfo a signature where
overloadedMethod = colorSelectionSetPreviousRgba
instance O.OverloadedMethodInfo ColorSelectionSetPreviousRgbaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.ColorSelection.colorSelectionSetPreviousRgba",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-ColorSelection.html#v:colorSelectionSetPreviousRgba"
}
#endif
foreign import ccall "gtk_color_selection_palette_from_string" gtk_color_selection_palette_from_string ::
CString ->
Ptr (Ptr Gdk.Color.Color) ->
Ptr Int32 ->
IO CInt
colorSelectionPaletteFromString ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m ((Bool, [Gdk.Color.Color]))
colorSelectionPaletteFromString :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m (Bool, [Color])
colorSelectionPaletteFromString Text
str = IO (Bool, [Color]) -> m (Bool, [Color])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, [Color]) -> m (Bool, [Color]))
-> IO (Bool, [Color]) -> m (Bool, [Color])
forall a b. (a -> b) -> a -> b
$ do
CString
str' <- Text -> IO CString
textToCString Text
str
Ptr (Ptr Color)
colors <- IO (Ptr (Ptr Color))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Gdk.Color.Color))
Ptr Int32
nColors <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- CString -> Ptr (Ptr Color) -> Ptr Int32 -> IO CInt
gtk_color_selection_palette_from_string CString
str' Ptr (Ptr Color)
colors Ptr Int32
nColors
Int32
nColors' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
nColors
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr Color
colors' <- Ptr (Ptr Color) -> IO (Ptr Color)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr Color)
colors
[Ptr Color]
colors'' <- (Int -> Int32 -> Ptr Color -> IO [Ptr Color]
forall a b.
(Integral a, GBoxed b) =>
Int -> a -> Ptr b -> IO [Ptr b]
unpackBoxedArrayWithLength Int
12 Int32
nColors') Ptr Color
colors'
[Color]
colors''' <- (Ptr Color -> IO Color) -> [Ptr Color] -> IO [Color]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Gdk.Color.Color) [Ptr Color]
colors''
Ptr Color -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Color
colors'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
str'
Ptr (Ptr Color) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr Color)
colors
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
nColors
(Bool, [Color]) -> IO (Bool, [Color])
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', [Color]
colors''')
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_color_selection_palette_to_string" gtk_color_selection_palette_to_string ::
Ptr Gdk.Color.Color ->
Int32 ->
IO CString
colorSelectionPaletteToString ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Gdk.Color.Color]
-> m T.Text
colorSelectionPaletteToString :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
[Color] -> m Text
colorSelectionPaletteToString [Color]
colors = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
let nColors :: Int32
nColors = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [Color] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [Color]
colors
[Ptr Color]
colors' <- (Color -> IO (Ptr Color)) -> [Color] -> IO [Ptr Color]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Color]
colors
Ptr Color
colors'' <- Int -> [Ptr Color] -> IO (Ptr Color)
forall a. Int -> [Ptr a] -> IO (Ptr a)
packBlockArray Int
12 [Ptr Color]
colors'
CString
result <- Ptr Color -> Int32 -> IO CString
gtk_color_selection_palette_to_string Ptr Color
colors'' Int32
nColors
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"colorSelectionPaletteToString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
(Color -> IO ()) -> [Color] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Color]
colors
Ptr Color -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Color
colors''
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif