{-# LANGUAGE ImplicitParams, RankNTypes, 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)
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 ,
ColorButtonActivateCallback ,
#if defined(ENABLE_OVERLOADING)
ColorButtonActivateSignalInfo ,
#endif
afterColorButtonActivate ,
onColorButtonActivate ,
ColorButtonColorSetCallback ,
#if defined(ENABLE_OVERLOADING)
ColorButtonColorSetSignalInfo ,
#endif
afterColorButtonColorSet ,
onColorButtonColorSet ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
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
$c== :: ColorButton -> ColorButton -> Bool
== :: ColorButton -> ColorButton -> Bool
$c/= :: ColorButton -> ColorButton -> Bool
/= :: 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
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, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ColorChooser.ColorChooser, Gtk.ConstraintTarget.ConstraintTarget]
toColorButton :: (MIO.MonadIO m, IsColorButton o) => o -> m ColorButton
toColorButton :: forall (m :: * -> *) o.
(MonadIO m, IsColorButton o) =>
o -> m ColorButton
toColorButton = IO ColorButton -> m ColorButton
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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'
B.ManagedPtr.unsafeCastTo ManagedPtr ColorButton -> ColorButton
ColorButton
instance B.GValue.IsGValue (Maybe ColorButton) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_color_button_get_type
gvalueSet_ :: Ptr GValue -> Maybe ColorButton -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ColorButton
P.Nothing = Ptr GValue -> Ptr ColorButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ColorButton
forall a. Ptr a
FP.nullPtr :: FP.Ptr ColorButton)
gvalueSet_ Ptr GValue
gv (P.Just ColorButton
obj) = ColorButton -> (Ptr ColorButton -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColorButton
obj (Ptr GValue -> Ptr ColorButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ColorButton)
gvalueGet_ Ptr GValue
gv = do
Ptr ColorButton
ptr <- Ptr GValue -> IO (Ptr ColorButton)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ColorButton)
if Ptr ColorButton
ptr Ptr ColorButton -> Ptr ColorButton -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ColorButton
forall a. Ptr a
FP.nullPtr
then ColorButton -> Maybe ColorButton
forall a. a -> Maybe a
P.Just (ColorButton -> Maybe ColorButton)
-> IO ColorButton -> IO (Maybe ColorButton)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe ColorButton -> IO (Maybe ColorButton)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ColorButton
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveColorButtonMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "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 "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveColorButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveColorButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveColorButtonMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
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 "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 "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveColorButtonMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveColorButtonMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
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 "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveColorButtonMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveColorButtonMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveColorButtonMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveColorButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColorButtonMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveColorButtonMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
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 "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveColorButtonMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveColorButtonMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
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 "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
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 "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
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 "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 "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
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 "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
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 "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveColorButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveColorButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveColorButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
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 "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
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 "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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveColorButtonMethod t ColorButton, O.OverloadedMethod info ColorButton p, R.HasField t ColorButton p) => R.HasField t ColorButton p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveColorButtonMethod t ColorButton, O.OverloadedMethodInfo info ColorButton) => OL.IsLabel t (O.MethodProxy info ColorButton) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ColorButtonActivateCallback =
IO ()
type C_ColorButtonActivateCallback =
Ptr ColorButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorButtonActivateCallback :: C_ColorButtonActivateCallback -> IO (FunPtr C_ColorButtonActivateCallback)
wrap_ColorButtonActivateCallback ::
GObject a => (a -> ColorButtonActivateCallback) ->
C_ColorButtonActivateCallback
wrap_ColorButtonActivateCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ColorButtonActivateCallback
wrap_ColorButtonActivateCallback a -> IO ()
gi'cb Ptr ColorButton
gi'selfPtr Ptr ()
_ = do
Ptr ColorButton -> (ColorButton -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ColorButton
gi'selfPtr ((ColorButton -> IO ()) -> IO ())
-> (ColorButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ColorButton
gi'self -> a -> IO ()
gi'cb (ColorButton -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ColorButton
gi'self)
onColorButtonActivate :: (IsColorButton a, MonadIO m) => a -> ((?self :: a) => ColorButtonActivateCallback) -> m SignalHandlerId
onColorButtonActivate :: forall a (m :: * -> *).
(IsColorButton a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onColorButtonActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ColorButtonActivateCallback
wrapped' = (a -> IO ()) -> C_ColorButtonActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ColorButtonActivateCallback
wrap_ColorButtonActivateCallback a -> IO ()
wrapped
FunPtr C_ColorButtonActivateCallback
wrapped'' <- C_ColorButtonActivateCallback
-> IO (FunPtr C_ColorButtonActivateCallback)
mk_ColorButtonActivateCallback C_ColorButtonActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ColorButtonActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ColorButtonActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterColorButtonActivate :: (IsColorButton a, MonadIO m) => a -> ((?self :: a) => ColorButtonActivateCallback) -> m SignalHandlerId
afterColorButtonActivate :: forall a (m :: * -> *).
(IsColorButton a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterColorButtonActivate a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ColorButtonActivateCallback
wrapped' = (a -> IO ()) -> C_ColorButtonActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ColorButtonActivateCallback
wrap_ColorButtonActivateCallback a -> IO ()
wrapped
FunPtr C_ColorButtonActivateCallback
wrapped'' <- C_ColorButtonActivateCallback
-> IO (FunPtr C_ColorButtonActivateCallback)
mk_ColorButtonActivateCallback C_ColorButtonActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ColorButtonActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ColorButtonActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ColorButtonActivateSignalInfo
instance SignalInfo ColorButtonActivateSignalInfo where
type HaskellCallbackType ColorButtonActivateSignalInfo = ColorButtonActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ColorButtonActivateCallback cb
cb'' <- mk_ColorButtonActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#g:signal:activate"})
#endif
type ColorButtonColorSetCallback =
IO ()
type C_ColorButtonColorSetCallback =
Ptr ColorButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColorButtonColorSetCallback :: C_ColorButtonColorSetCallback -> IO (FunPtr C_ColorButtonColorSetCallback)
wrap_ColorButtonColorSetCallback ::
GObject a => (a -> ColorButtonColorSetCallback) ->
C_ColorButtonColorSetCallback
wrap_ColorButtonColorSetCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ColorButtonActivateCallback
wrap_ColorButtonColorSetCallback a -> IO ()
gi'cb Ptr ColorButton
gi'selfPtr Ptr ()
_ = do
Ptr ColorButton -> (ColorButton -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ColorButton
gi'selfPtr ((ColorButton -> IO ()) -> IO ())
-> (ColorButton -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ColorButton
gi'self -> a -> IO ()
gi'cb (ColorButton -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ColorButton
gi'self)
onColorButtonColorSet :: (IsColorButton a, MonadIO m) => a -> ((?self :: a) => ColorButtonColorSetCallback) -> m SignalHandlerId
onColorButtonColorSet :: forall a (m :: * -> *).
(IsColorButton a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onColorButtonColorSet a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ColorButtonActivateCallback
wrapped' = (a -> IO ()) -> C_ColorButtonActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ColorButtonActivateCallback
wrap_ColorButtonColorSetCallback a -> IO ()
wrapped
FunPtr C_ColorButtonActivateCallback
wrapped'' <- C_ColorButtonActivateCallback
-> IO (FunPtr C_ColorButtonActivateCallback)
mk_ColorButtonColorSetCallback C_ColorButtonActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ColorButtonActivateCallback
-> 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_ColorButtonActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterColorButtonColorSet :: (IsColorButton a, MonadIO m) => a -> ((?self :: a) => ColorButtonColorSetCallback) -> m SignalHandlerId
afterColorButtonColorSet :: forall a (m :: * -> *).
(IsColorButton a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterColorButtonColorSet a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ColorButtonActivateCallback
wrapped' = (a -> IO ()) -> C_ColorButtonActivateCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ColorButtonActivateCallback
wrap_ColorButtonColorSetCallback a -> IO ()
wrapped
FunPtr C_ColorButtonActivateCallback
wrapped'' <- C_ColorButtonActivateCallback
-> IO (FunPtr C_ColorButtonActivateCallback)
mk_ColorButtonColorSetCallback C_ColorButtonActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ColorButtonActivateCallback
-> 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_ColorButtonActivateCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton::color-set"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#g:signal:colorSet"})
#endif
getColorButtonModal :: (MonadIO m, IsColorButton o) => o -> m Bool
getColorButtonModal :: forall (m :: * -> *) o. (MonadIO m, IsColorButton o) => o -> m Bool
getColorButtonModal o
obj = IO Bool -> m Bool
forall a. IO a -> m a
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
"modal"
setColorButtonModal :: (MonadIO m, IsColorButton o) => o -> Bool -> m ()
setColorButtonModal :: forall (m :: * -> *) o.
(MonadIO m, IsColorButton o) =>
o -> Bool -> m ()
setColorButtonModal o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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 :: forall o (m :: * -> *).
(IsColorButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColorButtonModal Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton.modal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#g:attr:modal"
})
#endif
getColorButtonShowEditor :: (MonadIO m, IsColorButton o) => o -> m Bool
getColorButtonShowEditor :: forall (m :: * -> *) o. (MonadIO m, IsColorButton o) => o -> m Bool
getColorButtonShowEditor o
obj = IO Bool -> m Bool
forall a. IO a -> m a
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
"show-editor"
setColorButtonShowEditor :: (MonadIO m, IsColorButton o) => o -> Bool -> m ()
setColorButtonShowEditor :: forall (m :: * -> *) o.
(MonadIO m, IsColorButton o) =>
o -> Bool -> m ()
setColorButtonShowEditor o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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 :: forall o (m :: * -> *).
(IsColorButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColorButtonShowEditor Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton.showEditor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#g:attr:showEditor"
})
#endif
getColorButtonTitle :: (MonadIO m, IsColorButton o) => o -> m T.Text
getColorButtonTitle :: forall (m :: * -> *) o. (MonadIO m, IsColorButton o) => o -> m Text
getColorButtonTitle o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsColorButton o) =>
o -> Text -> m ()
setColorButtonTitle o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe 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 :: forall o (m :: * -> *).
(IsColorButton o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructColorButtonTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#g:attr:title"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColorButton
type instance O.AttributeList ColorButton = ColorButtonAttributeList
type ColorButtonAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("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", Gtk.ColorChooser.ColorChooserRgbaPropertyInfo), '("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", Gtk.ColorChooser.ColorChooserUseAlphaPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
colorButtonModal :: AttrLabelProxy "modal"
colorButtonModal = AttrLabelProxy
colorButtonShowEditor :: AttrLabelProxy "showEditor"
colorButtonShowEditor = AttrLabelProxy
colorButtonTitle :: AttrLabelProxy "title"
colorButtonTitle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColorButton = ColorButtonSignalList
type ColorButtonSignalList = ('[ '("activate", ColorButtonActivateSignalInfo), '("colorActivated", Gtk.ColorChooser.ColorChooserColorActivatedSignalInfo), '("colorSet", ColorButtonColorSetSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("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, DK.Type)])
#endif
foreign import ccall "gtk_color_button_new" gtk_color_button_new ::
IO (Ptr ColorButton)
{-# DEPRECATED colorButtonNew ["(Since version 4.10)","Use t'GI.Gtk.Objects.ColorDialogButton.ColorDialogButton' instead"] #-}
colorButtonNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ColorButton
colorButtonNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ColorButton
colorButtonNew = IO ColorButton -> m ColorButton
forall a. IO a -> m a
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 a. a -> IO a
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 :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RGBA -> m ColorButton
colorButtonNewWithRgba RGBA
rgba = IO ColorButton -> m ColorButton
forall a. IO a -> m a
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 a. a -> IO a
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
{-# DEPRECATED colorButtonGetModal ["(Since version 4.10)","Use t'GI.Gtk.Objects.ColorDialogButton.ColorDialogButton' instead"] #-}
colorButtonGetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> m Bool
colorButtonGetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorButton a) =>
a -> m Bool
colorButtonGetModal a
button = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod ColorButtonGetModalMethodInfo a signature where
overloadedMethod = colorButtonGetModal
instance O.OverloadedMethodInfo ColorButtonGetModalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton.colorButtonGetModal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#v:colorButtonGetModal"
})
#endif
foreign import ccall "gtk_color_button_get_title" gtk_color_button_get_title ::
Ptr ColorButton ->
IO CString
{-# DEPRECATED colorButtonGetTitle ["(Since version 4.10)","Use t'GI.Gtk.Objects.ColorDialogButton.ColorDialogButton' instead"] #-}
colorButtonGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> m T.Text
colorButtonGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorButton a) =>
a -> m Text
colorButtonGetTitle a
button = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod ColorButtonGetTitleMethodInfo a signature where
overloadedMethod = colorButtonGetTitle
instance O.OverloadedMethodInfo ColorButtonGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton.colorButtonGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#v:colorButtonGetTitle"
})
#endif
foreign import ccall "gtk_color_button_set_modal" gtk_color_button_set_modal ::
Ptr ColorButton ->
CInt ->
IO ()
{-# DEPRECATED colorButtonSetModal ["(Since version 4.10)","Use t'GI.Gtk.Objects.ColorDialogButton.ColorDialogButton' instead"] #-}
colorButtonSetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> Bool
-> m ()
colorButtonSetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorButton a) =>
a -> Bool -> m ()
colorButtonSetModal a
button Bool
modal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
P.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
P.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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColorButtonSetModalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColorButton a) => O.OverloadedMethod ColorButtonSetModalMethodInfo a signature where
overloadedMethod = colorButtonSetModal
instance O.OverloadedMethodInfo ColorButtonSetModalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton.colorButtonSetModal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#v:colorButtonSetModal"
})
#endif
foreign import ccall "gtk_color_button_set_title" gtk_color_button_set_title ::
Ptr ColorButton ->
CString ->
IO ()
{-# DEPRECATED colorButtonSetTitle ["(Since version 4.10)","Use t'GI.Gtk.Objects.ColorDialogButton.ColorDialogButton' instead"] #-}
colorButtonSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsColorButton a) =>
a
-> T.Text
-> m ()
colorButtonSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColorButton a) =>
a -> Text -> m ()
colorButtonSetTitle a
button Text
title = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ColorButtonSetTitleMethodInfo a signature where
overloadedMethod = colorButtonSetTitle
instance O.OverloadedMethodInfo ColorButtonSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColorButton.colorButtonSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColorButton.html#v:colorButtonSetTitle"
})
#endif