{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ColorButton
(
ColorButton(..) ,
IsColorButton ,
toColorButton ,
#if defined(ENABLE_OVERLOADING)
ResolveColorButtonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ColorButtonGetModalMethodInfo ,
#endif
colorButtonGetModal ,
#if defined(ENABLE_OVERLOADING)
ColorButtonGetTitleMethodInfo ,
#endif
colorButtonGetTitle ,
colorButtonNew ,
colorButtonNewWithRgba ,
#if defined(ENABLE_OVERLOADING)
ColorButtonSetModalMethodInfo ,
#endif
colorButtonSetModal ,
#if defined(ENABLE_OVERLOADING)
ColorButtonSetTitleMethodInfo ,
#endif
colorButtonSetTitle ,
#if defined(ENABLE_OVERLOADING)
ColorButtonModalPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorButtonModal ,
#endif
constructColorButtonModal ,
getColorButtonModal ,
setColorButtonModal ,
#if defined(ENABLE_OVERLOADING)
ColorButtonRgbaPropertyInfo ,
#endif
clearColorButtonRgba ,
#if defined(ENABLE_OVERLOADING)
colorButtonRgba ,
#endif
constructColorButtonRgba ,
getColorButtonRgba ,
setColorButtonRgba ,
#if defined(ENABLE_OVERLOADING)
ColorButtonShowEditorPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorButtonShowEditor ,
#endif
constructColorButtonShowEditor ,
getColorButtonShowEditor ,
setColorButtonShowEditor ,
#if defined(ENABLE_OVERLOADING)
ColorButtonTitlePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorButtonTitle ,
#endif
constructColorButtonTitle ,
getColorButtonTitle ,
setColorButtonTitle ,
#if defined(ENABLE_OVERLOADING)
ColorButtonUseAlphaPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
colorButtonUseAlpha ,
#endif
constructColorButtonUseAlpha ,
getColorButtonUseAlpha ,
setColorButtonUseAlpha ,
C_ColorButtonColorSetCallback ,
ColorButtonColorSetCallback ,
#if defined(ENABLE_OVERLOADING)
ColorButtonColorSetSignalInfo ,
#endif
afterColorButtonColorSet ,
genClosure_ColorButtonColorSet ,
mk_ColorButtonColorSetCallback ,
noColorButtonColorSetCallback ,
onColorButtonColorSet ,
wrap_ColorButtonColorSetCallback ,
) 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.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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
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.ColorChooser as Gtk.ColorChooser
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype ColorButton = ColorButton (SP.ManagedPtr ColorButton)
deriving (ColorButton -> ColorButton -> Bool
(ColorButton -> ColorButton -> Bool)
-> (ColorButton -> ColorButton -> Bool) -> Eq ColorButton
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ColorButton -> ColorButton -> Bool
$c/= :: ColorButton -> ColorButton -> Bool
== :: ColorButton -> ColorButton -> Bool
$c== :: ColorButton -> ColorButton -> Bool
Eq)
instance SP.ManagedPtrNewtype ColorButton where
toManagedPtr :: ColorButton -> ManagedPtr ColorButton
toManagedPtr (ColorButton ManagedPtr ColorButton
p) = ManagedPtr ColorButton
p
foreign import ccall "gtk_color_button_get_type"
c_gtk_color_button_get_type :: IO B.Types.GType
instance B.Types.TypedObject ColorButton where
glibType :: IO GType
glibType = IO GType
c_gtk_color_button_get_type
instance B.Types.GObject ColorButton
instance B.GValue.IsGValue ColorButton where
toGValue :: ColorButton -> IO GValue
toGValue ColorButton
o = do
GType
gtype <- IO GType
c_gtk_color_button_get_type
ColorButton -> (Ptr ColorButton -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColorButton
o (GType
-> (GValue -> Ptr ColorButton -> IO ())
-> Ptr ColorButton
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ColorButton -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO ColorButton
fromGValue GValue
gv = do
Ptr ColorButton
ptr <- GValue -> IO (Ptr ColorButton)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr ColorButton)
(ManagedPtr ColorButton -> ColorButton)
-> Ptr ColorButton -> IO ColorButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ColorButton -> ColorButton
ColorButton Ptr ColorButton
ptr
class (SP.GObject o, O.IsDescendantOf ColorButton o) => IsColorButton o
instance (SP.GObject o, O.IsDescendantOf ColorButton o) => IsColorButton o
instance O.HasParentTypes ColorButton
type instance O.ParentTypes ColorButton = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.ColorChooser.ColorChooser, Gtk.ConstraintTarget.ConstraintTarget]
toColorButton :: (MonadIO m, IsColorButton o) => o -> m ColorButton
toColorButton :: o -> m ColorButton
toColorButton = IO ColorButton -> m ColorButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColorButton -> m ColorButton)
-> (o -> IO ColorButton) -> o -> m ColorButton
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ColorButton -> ColorButton) -> o -> IO ColorButton
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr ColorButton -> ColorButton
ColorButton
#if defined(ENABLE_OVERLOADING)
type family ResolveColorButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveColorButtonMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveColorButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveColorButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveColorButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveColorButtonMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveColorButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveColorButtonMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveColorButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveColorButtonMethod "addPalette" o = Gtk.ColorChooser.ColorChooserAddPaletteMethodInfo
ResolveColorButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveColorButtonMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveColorButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColorButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColorButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveColorButtonMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveColorButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveColorButtonMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveColorButtonMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveColorButtonMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveColorButtonMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveColorButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveColorButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveColorButtonMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveColorButtonMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveColorButtonMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveColorButtonMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveColorButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveColorButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveColorButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColorButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColorButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColorButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveColorButtonMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveColorButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveColorButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveColorButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveColorButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveColorButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveColorButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveColorButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveColorButtonMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveColorButtonMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveColorButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveColorButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveColorButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColorButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveColorButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveColorButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveColorButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveColorButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveColorButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveColorButtonMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveColorButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveColorButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColorButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColorButtonMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveColorButtonMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveColorButtonMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveColorButtonMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveColorButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveColorButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveColorButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveColorButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveColorButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColorButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColorButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveColorButtonMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveColorButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveColorButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveColorButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColorButtonMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveColorButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveColorButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveColorButtonMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveColorButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColorButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColorButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColorButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveColorButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveColorButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveColorButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveColorButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveColorButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColorButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveColorButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColorButtonMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveColorButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveColorButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveColorButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveColorButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveColorButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveColorButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveColorButtonMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveColorButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveColorButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveColorButtonMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveColorButtonMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveColorButtonMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveColorButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColorButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveColorButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveColorButtonMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveColorButtonMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveColorButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveColorButtonMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveColorButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveColorButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveColorButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveColorButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveColorButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveColorButtonMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveColorButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveColorButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveColorButtonMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveColorButtonMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveColorButtonMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveColorButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveColorButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveColorButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveColorButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveColorButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveColorButtonMethod "getModal" o = ColorButtonGetModalMethodInfo
ResolveColorButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveColorButtonMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveColorButtonMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveColorButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveColorButtonMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveColorButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveColorButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveColorButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveColorButtonMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveColorButtonMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveColorButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColorButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColorButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveColorButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveColorButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveColorButtonMethod "getRgba" o = Gtk.ColorChooser.ColorChooserGetRgbaMethodInfo
ResolveColorButtonMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveColorButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveColorButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveColorButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveColorButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveColorButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveColorButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveColorButtonMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveColorButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveColorButtonMethod "getTitle" o = ColorButtonGetTitleMethodInfo
ResolveColorButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveColorButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveColorButtonMethod "getUseAlpha" o = Gtk.ColorChooser.ColorChooserGetUseAlphaMethodInfo
ResolveColorButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveColorButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveColorButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveColorButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveColorButtonMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveColorButtonMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveColorButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveColorButtonMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveColorButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveColorButtonMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveColorButtonMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveColorButtonMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveColorButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColorButtonMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColorButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveColorButtonMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveColorButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveColorButtonMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveColorButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveColorButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveColorButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveColorButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveColorButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveColorButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveColorButtonMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveColorButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveColorButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveColorButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveColorButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveColorButtonMethod "setModal" o = ColorButtonSetModalMethodInfo
ResolveColorButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveColorButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveColorButtonMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveColorButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveColorButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColorButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveColorButtonMethod "setRgba" o = Gtk.ColorChooser.ColorChooserSetRgbaMethodInfo
ResolveColorButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveColorButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveColorButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveColorButtonMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveColorButtonMethod "setTitle" o = ColorButtonSetTitleMethodInfo
ResolveColorButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveColorButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveColorButtonMethod "setUseAlpha" o = Gtk.ColorChooser.ColorChooserSetUseAlphaMethodInfo
ResolveColorButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveColorButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveColorButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveColorButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveColorButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColorButtonMethod t ColorButton, O.MethodInfo info ColorButton p) => OL.IsLabel t (ColorButton -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type ColorButtonColorSetCallback =
IO ()
noColorButtonColorSetCallback :: Maybe ColorButtonColorSetCallback
noColorButtonColorSetCallback :: Maybe (IO ())
noColorButtonColorSetCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ColorButtonColorSetCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorButtonColorSetCallback :: C_ColorButtonColorSetCallback -> IO (FunPtr C_ColorButtonColorSetCallback)
genClosure_ColorButtonColorSet :: MonadIO m => ColorButtonColorSetCallback -> m (GClosure C_ColorButtonColorSetCallback)
genClosure_ColorButtonColorSet :: IO () -> m (GClosure C_ColorButtonColorSetCallback)
genClosure_ColorButtonColorSet IO ()
cb = IO (GClosure C_ColorButtonColorSetCallback)
-> m (GClosure C_ColorButtonColorSetCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ColorButtonColorSetCallback)
-> m (GClosure C_ColorButtonColorSetCallback))
-> IO (GClosure C_ColorButtonColorSetCallback)
-> m (GClosure C_ColorButtonColorSetCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ColorButtonColorSetCallback
cb' = IO () -> C_ColorButtonColorSetCallback
wrap_ColorButtonColorSetCallback IO ()
cb
C_ColorButtonColorSetCallback
-> IO (FunPtr C_ColorButtonColorSetCallback)
mk_ColorButtonColorSetCallback C_ColorButtonColorSetCallback
cb' IO (FunPtr C_ColorButtonColorSetCallback)
-> (FunPtr C_ColorButtonColorSetCallback
-> IO (GClosure C_ColorButtonColorSetCallback))
-> IO (GClosure C_ColorButtonColorSetCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ColorButtonColorSetCallback
-> IO (GClosure C_ColorButtonColorSetCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ColorButtonColorSetCallback ::
ColorButtonColorSetCallback ->
C_ColorButtonColorSetCallback
wrap_ColorButtonColorSetCallback :: IO () -> C_ColorButtonColorSetCallback
wrap_ColorButtonColorSetCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onColorButtonColorSet :: (IsColorButton a, MonadIO m) => a -> ColorButtonColorSetCallback -> m SignalHandlerId
onColorButtonColorSet :: a -> IO () -> m SignalHandlerId
onColorButtonColorSet 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_ColorButtonColorSetCallback
cb' = IO () -> C_ColorButtonColorSetCallback
wrap_ColorButtonColorSetCallback IO ()
cb
FunPtr C_ColorButtonColorSetCallback
cb'' <- C_ColorButtonColorSetCallback
-> IO (FunPtr C_ColorButtonColorSetCallback)
mk_ColorButtonColorSetCallback C_ColorButtonColorSetCallback
cb'
a
-> Text
-> FunPtr C_ColorButtonColorSetCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"color-set" FunPtr C_ColorButtonColorSetCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterColorButtonColorSet :: (IsColorButton a, MonadIO m) => a -> ColorButtonColorSetCallback -> m SignalHandlerId
afterColorButtonColorSet :: a -> IO () -> m SignalHandlerId
afterColorButtonColorSet 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_ColorButtonColorSetCallback
cb' = IO () -> C_ColorButtonColorSetCallback
wrap_ColorButtonColorSetCallback IO ()
cb
FunPtr C_ColorButtonColorSetCallback
cb'' <- C_ColorButtonColorSetCallback
-> IO (FunPtr C_ColorButtonColorSetCallback)
mk_ColorButtonColorSetCallback C_ColorButtonColorSetCallback
cb'
a
-> Text
-> FunPtr C_ColorButtonColorSetCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"color-set" FunPtr C_ColorButtonColorSetCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ColorButtonColorSetSignalInfo
instance SignalInfo ColorButtonColorSetSignalInfo where
type HaskellCallbackType ColorButtonColorSetSignalInfo = ColorButtonColorSetCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ColorButtonColorSetCallback cb
cb'' <- mk_ColorButtonColorSetCallback cb'
connectSignalFunPtr obj "color-set" cb'' connectMode detail
#endif
getColorButtonModal :: (MonadIO m, IsColorButton o) => o -> m Bool
getColorButtonModal :: o -> m Bool
getColorButtonModal o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"modal"
setColorButtonModal :: (MonadIO m, IsColorButton o) => o -> Bool -> m ()
setColorButtonModal :: o -> Bool -> m ()
setColorButtonModal o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"modal" Bool
val
constructColorButtonModal :: (IsColorButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColorButtonModal :: Bool -> m (GValueConstruct o)
constructColorButtonModal 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
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"modal" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColorButtonModalPropertyInfo
instance AttrInfo ColorButtonModalPropertyInfo where
type AttrAllowedOps ColorButtonModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorButtonModalPropertyInfo = IsColorButton
type AttrSetTypeConstraint ColorButtonModalPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColorButtonModalPropertyInfo = (~) Bool
type AttrTransferType ColorButtonModalPropertyInfo = Bool
type AttrGetType ColorButtonModalPropertyInfo = Bool
type AttrLabel ColorButtonModalPropertyInfo = "modal"
type AttrOrigin ColorButtonModalPropertyInfo = ColorButton
attrGet = getColorButtonModal
attrSet = setColorButtonModal
attrTransfer _ v = do
return v
attrConstruct = constructColorButtonModal
attrClear = undefined
#endif
getColorButtonRgba :: (MonadIO m, IsColorButton o) => o -> m (Maybe Gdk.RGBA.RGBA)
getColorButtonRgba :: o -> m (Maybe RGBA)
getColorButtonRgba o
obj = IO (Maybe RGBA) -> m (Maybe RGBA)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe RGBA) -> m (Maybe RGBA))
-> IO (Maybe RGBA) -> m (Maybe RGBA)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr RGBA -> RGBA) -> IO (Maybe RGBA)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"rgba" ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA
setColorButtonRgba :: (MonadIO m, IsColorButton o) => o -> Gdk.RGBA.RGBA -> m ()
setColorButtonRgba :: o -> RGBA -> m ()
setColorButtonRgba o
obj RGBA
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
Just RGBA
val)
constructColorButtonRgba :: (IsColorButton o, MIO.MonadIO m) => Gdk.RGBA.RGBA -> m (GValueConstruct o)
constructColorButtonRgba :: RGBA -> m (GValueConstruct o)
constructColorButtonRgba 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
$ String -> Maybe RGBA -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"rgba" (RGBA -> Maybe RGBA
forall a. a -> Maybe a
P.Just RGBA
val)
clearColorButtonRgba :: (MonadIO m, IsColorButton o) => o -> m ()
clearColorButtonRgba :: o -> m ()
clearColorButtonRgba o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe RGBA -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"rgba" (Maybe RGBA
forall a. Maybe a
Nothing :: Maybe Gdk.RGBA.RGBA)
#if defined(ENABLE_OVERLOADING)
data ColorButtonRgbaPropertyInfo
instance AttrInfo ColorButtonRgbaPropertyInfo where
type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColorButtonRgbaPropertyInfo = IsColorButton
type AttrSetTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA.RGBA
type AttrTransferType ColorButtonRgbaPropertyInfo = Gdk.RGBA.RGBA
type AttrGetType ColorButtonRgbaPropertyInfo = (Maybe Gdk.RGBA.RGBA)
type AttrLabel ColorButtonRgbaPropertyInfo = "rgba"
type AttrOrigin ColorButtonRgbaPropertyInfo = ColorButton
attrGet = getColorButtonRgba
attrSet = setColorButtonRgba
attrTransfer _ v = do
return v
attrConstruct = constructColorButtonRgba
attrClear = clearColorButtonRgba
#endif
getColorButtonShowEditor :: (MonadIO m, IsColorButton o) => o -> m Bool
getColorButtonShowEditor :: o -> m Bool
getColorButtonShowEditor o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-editor"
setColorButtonShowEditor :: (MonadIO m, IsColorButton o) => o -> Bool -> m ()
setColorButtonShowEditor :: o -> Bool -> m ()
setColorButtonShowEditor o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-editor" Bool
val
constructColorButtonShowEditor :: (IsColorButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColorButtonShowEditor :: Bool -> m (GValueConstruct o)
constructColorButtonShowEditor 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
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"show-editor" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColorButtonShowEditorPropertyInfo
instance AttrInfo ColorButtonShowEditorPropertyInfo where
type AttrAllowedOps ColorButtonShowEditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorButtonShowEditorPropertyInfo = IsColorButton
type AttrSetTypeConstraint ColorButtonShowEditorPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColorButtonShowEditorPropertyInfo = (~) Bool
type AttrTransferType ColorButtonShowEditorPropertyInfo = Bool
type AttrGetType ColorButtonShowEditorPropertyInfo = Bool
type AttrLabel ColorButtonShowEditorPropertyInfo = "show-editor"
type AttrOrigin ColorButtonShowEditorPropertyInfo = ColorButton
attrGet = getColorButtonShowEditor
attrSet = setColorButtonShowEditor
attrTransfer _ v = do
return v
attrConstruct = constructColorButtonShowEditor
attrClear = undefined
#endif
getColorButtonTitle :: (MonadIO m, IsColorButton o) => o -> m T.Text
getColorButtonTitle :: o -> m Text
getColorButtonTitle o
obj = 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
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getColorButtonTitle" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setColorButtonTitle :: (MonadIO m, IsColorButton o) => o -> T.Text -> m ()
setColorButtonTitle :: o -> Text -> m ()
setColorButtonTitle o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructColorButtonTitle :: (IsColorButton o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructColorButtonTitle :: Text -> m (GValueConstruct o)
constructColorButtonTitle Text
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
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data ColorButtonTitlePropertyInfo
instance AttrInfo ColorButtonTitlePropertyInfo where
type AttrAllowedOps ColorButtonTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorButtonTitlePropertyInfo = IsColorButton
type AttrSetTypeConstraint ColorButtonTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ColorButtonTitlePropertyInfo = (~) T.Text
type AttrTransferType ColorButtonTitlePropertyInfo = T.Text
type AttrGetType ColorButtonTitlePropertyInfo = T.Text
type AttrLabel ColorButtonTitlePropertyInfo = "title"
type AttrOrigin ColorButtonTitlePropertyInfo = ColorButton
attrGet = getColorButtonTitle
attrSet = setColorButtonTitle
attrTransfer _ v = do
return v
attrConstruct = constructColorButtonTitle
attrClear = undefined
#endif
getColorButtonUseAlpha :: (MonadIO m, IsColorButton o) => o -> m Bool
getColorButtonUseAlpha :: o -> m Bool
getColorButtonUseAlpha o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"use-alpha"
setColorButtonUseAlpha :: (MonadIO m, IsColorButton o) => o -> Bool -> m ()
setColorButtonUseAlpha :: o -> Bool -> m ()
setColorButtonUseAlpha o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-alpha" Bool
val
constructColorButtonUseAlpha :: (IsColorButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColorButtonUseAlpha :: Bool -> m (GValueConstruct o)
constructColorButtonUseAlpha 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
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-alpha" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColorButtonUseAlphaPropertyInfo
instance AttrInfo ColorButtonUseAlphaPropertyInfo where
type AttrAllowedOps ColorButtonUseAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColorButtonUseAlphaPropertyInfo = IsColorButton
type AttrSetTypeConstraint ColorButtonUseAlphaPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColorButtonUseAlphaPropertyInfo = (~) Bool
type AttrTransferType ColorButtonUseAlphaPropertyInfo = Bool
type AttrGetType ColorButtonUseAlphaPropertyInfo = Bool
type AttrLabel ColorButtonUseAlphaPropertyInfo = "use-alpha"
type AttrOrigin ColorButtonUseAlphaPropertyInfo = ColorButton
attrGet = getColorButtonUseAlpha
attrSet = setColorButtonUseAlpha
attrTransfer _ v = do
return v
attrConstruct = constructColorButtonUseAlpha
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColorButton
type instance O.AttributeList ColorButton = ColorButtonAttributeList
type ColorButtonAttributeList = ('[ '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("modal", ColorButtonModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showEditor", ColorButtonShowEditorPropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useAlpha", ColorButtonUseAlphaPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
colorButtonModal :: AttrLabelProxy "modal"
colorButtonModal = AttrLabelProxy
colorButtonRgba :: AttrLabelProxy "rgba"
colorButtonRgba = AttrLabelProxy
colorButtonShowEditor :: AttrLabelProxy "showEditor"
colorButtonShowEditor = AttrLabelProxy
colorButtonTitle :: AttrLabelProxy "title"
colorButtonTitle = AttrLabelProxy
colorButtonUseAlpha :: AttrLabelProxy "useAlpha"
colorButtonUseAlpha = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColorButton = ColorButtonSignalList
type ColorButtonSignalList = ('[ '("colorActivated", Gtk.ColorChooser.ColorChooserColorActivatedSignalInfo), '("colorSet", ColorButtonColorSetSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_color_button_new" gtk_color_button_new ::
IO (Ptr ColorButton)
colorButtonNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ColorButton
colorButtonNew :: m ColorButton
colorButtonNew = IO ColorButton -> m ColorButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColorButton -> m ColorButton)
-> IO ColorButton -> m ColorButton
forall a b. (a -> b) -> a -> b
$ do
Ptr ColorButton
result <- IO (Ptr ColorButton)
gtk_color_button_new
Text -> Ptr ColorButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"colorButtonNew" Ptr ColorButton
result
ColorButton
result' <- ((ManagedPtr ColorButton -> ColorButton)
-> Ptr ColorButton -> IO ColorButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColorButton -> ColorButton
ColorButton) Ptr ColorButton
result
ColorButton -> IO ColorButton
forall (m :: * -> *) a. Monad m => a -> m a
return ColorButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_color_button_new_with_rgba" gtk_color_button_new_with_rgba ::
Ptr Gdk.RGBA.RGBA ->
IO (Ptr ColorButton)
colorButtonNewWithRgba ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gdk.RGBA.RGBA
-> m ColorButton
colorButtonNewWithRgba :: RGBA -> m ColorButton
colorButtonNewWithRgba RGBA
rgba = IO ColorButton -> m ColorButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColorButton -> m ColorButton)
-> IO ColorButton -> m ColorButton
forall a b. (a -> b) -> a -> b
$ do
Ptr RGBA
rgba' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
rgba
Ptr ColorButton
result <- Ptr RGBA -> IO (Ptr ColorButton)
gtk_color_button_new_with_rgba Ptr RGBA
rgba'
Text -> Ptr ColorButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"colorButtonNewWithRgba" Ptr ColorButton
result
ColorButton
result' <- ((ManagedPtr ColorButton -> ColorButton)
-> Ptr ColorButton -> IO ColorButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColorButton -> ColorButton
ColorButton) Ptr ColorButton
result
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
rgba
ColorButton -> IO ColorButton
forall (m :: * -> *) a. Monad m => a -> m a
return ColorButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_color_button_get_modal" gtk_color_button_get_modal ::
Ptr ColorButton ->
IO CInt
colorButtonGetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> m Bool
colorButtonGetModal :: a -> m Bool
colorButtonGetModal a
button = 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 ColorButton
button' <- a -> IO (Ptr ColorButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
CInt
result <- Ptr ColorButton -> IO CInt
gtk_color_button_get_modal Ptr ColorButton
button'
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
button
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColorButtonGetModalMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColorButton a) => O.MethodInfo ColorButtonGetModalMethodInfo a signature where
overloadedMethod = colorButtonGetModal
#endif
foreign import ccall "gtk_color_button_get_title" gtk_color_button_get_title ::
Ptr ColorButton ->
IO CString
colorButtonGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> m T.Text
colorButtonGetTitle :: a -> m Text
colorButtonGetTitle a
button = 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
Ptr ColorButton
button' <- a -> IO (Ptr ColorButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
CString
result <- Ptr ColorButton -> IO CString
gtk_color_button_get_title Ptr ColorButton
button'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"colorButtonGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ColorButtonGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsColorButton a) => O.MethodInfo ColorButtonGetTitleMethodInfo a signature where
overloadedMethod = colorButtonGetTitle
#endif
foreign import ccall "gtk_color_button_set_modal" gtk_color_button_set_modal ::
Ptr ColorButton ->
CInt ->
IO ()
colorButtonSetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> Bool
-> m ()
colorButtonSetModal :: a -> Bool -> m ()
colorButtonSetModal a
button Bool
modal = 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 ColorButton
button' <- a -> IO (Ptr ColorButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
let modal' :: CInt
modal' = (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
modal
Ptr ColorButton -> CInt -> IO ()
gtk_color_button_set_modal Ptr ColorButton
button' CInt
modal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorButtonSetModalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColorButton a) => O.MethodInfo ColorButtonSetModalMethodInfo a signature where
overloadedMethod = colorButtonSetModal
#endif
foreign import ccall "gtk_color_button_set_title" gtk_color_button_set_title ::
Ptr ColorButton ->
CString ->
IO ()
colorButtonSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> T.Text
-> m ()
colorButtonSetTitle :: a -> Text -> m ()
colorButtonSetTitle a
button Text
title = 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 ColorButton
button' <- a -> IO (Ptr ColorButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
button
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr ColorButton -> CString -> IO ()
gtk_color_button_set_title Ptr ColorButton
button' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
button
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorButtonSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsColorButton a) => O.MethodInfo ColorButtonSetTitleMethodInfo a signature where
overloadedMethod = colorButtonSetTitle
#endif