{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.CheckButton
(
CheckButton(..) ,
IsCheckButton ,
toCheckButton ,
#if defined(ENABLE_OVERLOADING)
ResolveCheckButtonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CheckButtonGetActiveMethodInfo ,
#endif
checkButtonGetActive ,
#if defined(ENABLE_OVERLOADING)
CheckButtonGetInconsistentMethodInfo ,
#endif
checkButtonGetInconsistent ,
#if defined(ENABLE_OVERLOADING)
CheckButtonGetLabelMethodInfo ,
#endif
checkButtonGetLabel ,
#if defined(ENABLE_OVERLOADING)
CheckButtonGetUseUnderlineMethodInfo ,
#endif
checkButtonGetUseUnderline ,
checkButtonNew ,
checkButtonNewWithLabel ,
checkButtonNewWithMnemonic ,
#if defined(ENABLE_OVERLOADING)
CheckButtonSetActiveMethodInfo ,
#endif
checkButtonSetActive ,
#if defined(ENABLE_OVERLOADING)
CheckButtonSetGroupMethodInfo ,
#endif
checkButtonSetGroup ,
#if defined(ENABLE_OVERLOADING)
CheckButtonSetInconsistentMethodInfo ,
#endif
checkButtonSetInconsistent ,
#if defined(ENABLE_OVERLOADING)
CheckButtonSetLabelMethodInfo ,
#endif
checkButtonSetLabel ,
#if defined(ENABLE_OVERLOADING)
CheckButtonSetUseUnderlineMethodInfo ,
#endif
checkButtonSetUseUnderline ,
#if defined(ENABLE_OVERLOADING)
CheckButtonActivePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkButtonActive ,
#endif
constructCheckButtonActive ,
getCheckButtonActive ,
setCheckButtonActive ,
#if defined(ENABLE_OVERLOADING)
CheckButtonGroupPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkButtonGroup ,
#endif
clearCheckButtonGroup ,
constructCheckButtonGroup ,
setCheckButtonGroup ,
#if defined(ENABLE_OVERLOADING)
CheckButtonInconsistentPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkButtonInconsistent ,
#endif
constructCheckButtonInconsistent ,
getCheckButtonInconsistent ,
setCheckButtonInconsistent ,
#if defined(ENABLE_OVERLOADING)
CheckButtonLabelPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkButtonLabel ,
#endif
clearCheckButtonLabel ,
constructCheckButtonLabel ,
getCheckButtonLabel ,
setCheckButtonLabel ,
#if defined(ENABLE_OVERLOADING)
CheckButtonUseUnderlinePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkButtonUseUnderline ,
#endif
constructCheckButtonUseUnderline ,
getCheckButtonUseUnderline ,
setCheckButtonUseUnderline ,
C_CheckButtonToggledCallback ,
CheckButtonToggledCallback ,
#if defined(ENABLE_OVERLOADING)
CheckButtonToggledSignalInfo ,
#endif
afterCheckButtonToggled ,
genClosure_CheckButtonToggled ,
mk_CheckButtonToggledCallback ,
noCheckButtonToggledCallback ,
onCheckButtonToggled ,
wrap_CheckButtonToggledCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype CheckButton = CheckButton (SP.ManagedPtr CheckButton)
deriving (CheckButton -> CheckButton -> Bool
(CheckButton -> CheckButton -> Bool)
-> (CheckButton -> CheckButton -> Bool) -> Eq CheckButton
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CheckButton -> CheckButton -> Bool
$c/= :: CheckButton -> CheckButton -> Bool
== :: CheckButton -> CheckButton -> Bool
$c== :: CheckButton -> CheckButton -> Bool
Eq)
instance SP.ManagedPtrNewtype CheckButton where
toManagedPtr :: CheckButton -> ManagedPtr CheckButton
toManagedPtr (CheckButton ManagedPtr CheckButton
p) = ManagedPtr CheckButton
p
foreign import ccall "gtk_check_button_get_type"
c_gtk_check_button_get_type :: IO B.Types.GType
instance B.Types.TypedObject CheckButton where
glibType :: IO GType
glibType = IO GType
c_gtk_check_button_get_type
instance B.Types.GObject CheckButton
class (SP.GObject o, O.IsDescendantOf CheckButton o) => IsCheckButton o
instance (SP.GObject o, O.IsDescendantOf CheckButton o) => IsCheckButton o
instance O.HasParentTypes CheckButton
type instance O.ParentTypes CheckButton = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toCheckButton :: (MIO.MonadIO m, IsCheckButton o) => o -> m CheckButton
toCheckButton :: forall (m :: * -> *) o.
(MonadIO m, IsCheckButton o) =>
o -> m CheckButton
toCheckButton = IO CheckButton -> m CheckButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CheckButton -> m CheckButton)
-> (o -> IO CheckButton) -> o -> m CheckButton
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CheckButton -> CheckButton) -> o -> IO CheckButton
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CheckButton -> CheckButton
CheckButton
instance B.GValue.IsGValue (Maybe CheckButton) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_check_button_get_type
gvalueSet_ :: Ptr GValue -> Maybe CheckButton -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CheckButton
P.Nothing = Ptr GValue -> Ptr CheckButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CheckButton
forall a. Ptr a
FP.nullPtr :: FP.Ptr CheckButton)
gvalueSet_ Ptr GValue
gv (P.Just CheckButton
obj) = CheckButton -> (Ptr CheckButton -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CheckButton
obj (Ptr GValue -> Ptr CheckButton -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CheckButton)
gvalueGet_ Ptr GValue
gv = do
Ptr CheckButton
ptr <- Ptr GValue -> IO (Ptr CheckButton)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CheckButton)
if Ptr CheckButton
ptr Ptr CheckButton -> Ptr CheckButton -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CheckButton
forall a. Ptr a
FP.nullPtr
then CheckButton -> Maybe CheckButton
forall a. a -> Maybe a
P.Just (CheckButton -> Maybe CheckButton)
-> IO CheckButton -> IO (Maybe CheckButton)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CheckButton -> CheckButton)
-> Ptr CheckButton -> IO CheckButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CheckButton -> CheckButton
CheckButton Ptr CheckButton
ptr
else Maybe CheckButton -> IO (Maybe CheckButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CheckButton
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCheckButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveCheckButtonMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveCheckButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveCheckButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveCheckButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveCheckButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveCheckButtonMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveCheckButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveCheckButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveCheckButtonMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveCheckButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCheckButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCheckButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveCheckButtonMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveCheckButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveCheckButtonMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveCheckButtonMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveCheckButtonMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveCheckButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveCheckButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveCheckButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveCheckButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveCheckButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCheckButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCheckButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCheckButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveCheckButtonMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveCheckButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveCheckButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveCheckButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveCheckButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveCheckButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveCheckButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveCheckButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveCheckButtonMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveCheckButtonMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveCheckButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveCheckButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveCheckButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCheckButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveCheckButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveCheckButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveCheckButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveCheckButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveCheckButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveCheckButtonMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveCheckButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveCheckButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCheckButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCheckButtonMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveCheckButtonMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveCheckButtonMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveCheckButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveCheckButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveCheckButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveCheckButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveCheckButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCheckButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCheckButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveCheckButtonMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveCheckButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveCheckButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveCheckButtonMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveCheckButtonMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveCheckButtonMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveCheckButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCheckButtonMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveCheckButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveCheckButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveCheckButtonMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveCheckButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCheckButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCheckButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCheckButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveCheckButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveCheckButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveCheckButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveCheckButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveCheckButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCheckButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveCheckButtonMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveCheckButtonMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveCheckButtonMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveCheckButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCheckButtonMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveCheckButtonMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveCheckButtonMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveCheckButtonMethod "getActive" o = CheckButtonGetActiveMethodInfo
ResolveCheckButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveCheckButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveCheckButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveCheckButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveCheckButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveCheckButtonMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveCheckButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveCheckButtonMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveCheckButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveCheckButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveCheckButtonMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveCheckButtonMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveCheckButtonMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveCheckButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCheckButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveCheckButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveCheckButtonMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveCheckButtonMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveCheckButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveCheckButtonMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveCheckButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveCheckButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveCheckButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveCheckButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveCheckButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveCheckButtonMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveCheckButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveCheckButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveCheckButtonMethod "getInconsistent" o = CheckButtonGetInconsistentMethodInfo
ResolveCheckButtonMethod "getLabel" o = CheckButtonGetLabelMethodInfo
ResolveCheckButtonMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveCheckButtonMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveCheckButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveCheckButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveCheckButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveCheckButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveCheckButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveCheckButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveCheckButtonMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveCheckButtonMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveCheckButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveCheckButtonMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveCheckButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveCheckButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveCheckButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveCheckButtonMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveCheckButtonMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveCheckButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCheckButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCheckButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveCheckButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveCheckButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveCheckButtonMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveCheckButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveCheckButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveCheckButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveCheckButtonMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveCheckButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveCheckButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveCheckButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveCheckButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveCheckButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveCheckButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveCheckButtonMethod "getUseUnderline" o = CheckButtonGetUseUnderlineMethodInfo
ResolveCheckButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveCheckButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveCheckButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveCheckButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveCheckButtonMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveCheckButtonMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveCheckButtonMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveCheckButtonMethod "setActive" o = CheckButtonSetActiveMethodInfo
ResolveCheckButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveCheckButtonMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveCheckButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveCheckButtonMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveCheckButtonMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveCheckButtonMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveCheckButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCheckButtonMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCheckButtonMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveCheckButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveCheckButtonMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveCheckButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveCheckButtonMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveCheckButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveCheckButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveCheckButtonMethod "setGroup" o = CheckButtonSetGroupMethodInfo
ResolveCheckButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveCheckButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveCheckButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveCheckButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveCheckButtonMethod "setInconsistent" o = CheckButtonSetInconsistentMethodInfo
ResolveCheckButtonMethod "setLabel" o = CheckButtonSetLabelMethodInfo
ResolveCheckButtonMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveCheckButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveCheckButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveCheckButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveCheckButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveCheckButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveCheckButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveCheckButtonMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveCheckButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveCheckButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCheckButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveCheckButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveCheckButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveCheckButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveCheckButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveCheckButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveCheckButtonMethod "setUseUnderline" o = CheckButtonSetUseUnderlineMethodInfo
ResolveCheckButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveCheckButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveCheckButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveCheckButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveCheckButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCheckButtonMethod t CheckButton, O.OverloadedMethod info CheckButton p) => OL.IsLabel t (CheckButton -> 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 ~ ResolveCheckButtonMethod t CheckButton, O.OverloadedMethod info CheckButton p, R.HasField t CheckButton p) => R.HasField t CheckButton p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCheckButtonMethod t CheckButton, O.OverloadedMethodInfo info CheckButton) => OL.IsLabel t (O.MethodProxy info CheckButton) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CheckButtonToggledCallback =
IO ()
noCheckButtonToggledCallback :: Maybe CheckButtonToggledCallback
noCheckButtonToggledCallback :: Maybe (IO ())
noCheckButtonToggledCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_CheckButtonToggledCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CheckButtonToggledCallback :: C_CheckButtonToggledCallback -> IO (FunPtr C_CheckButtonToggledCallback)
genClosure_CheckButtonToggled :: MonadIO m => CheckButtonToggledCallback -> m (GClosure C_CheckButtonToggledCallback)
genClosure_CheckButtonToggled :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_CheckButtonToggledCallback)
genClosure_CheckButtonToggled IO ()
cb = IO (GClosure C_CheckButtonToggledCallback)
-> m (GClosure C_CheckButtonToggledCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_CheckButtonToggledCallback)
-> m (GClosure C_CheckButtonToggledCallback))
-> IO (GClosure C_CheckButtonToggledCallback)
-> m (GClosure C_CheckButtonToggledCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_CheckButtonToggledCallback
cb' = IO () -> C_CheckButtonToggledCallback
wrap_CheckButtonToggledCallback IO ()
cb
C_CheckButtonToggledCallback
-> IO (FunPtr C_CheckButtonToggledCallback)
mk_CheckButtonToggledCallback C_CheckButtonToggledCallback
cb' IO (FunPtr C_CheckButtonToggledCallback)
-> (FunPtr C_CheckButtonToggledCallback
-> IO (GClosure C_CheckButtonToggledCallback))
-> IO (GClosure C_CheckButtonToggledCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_CheckButtonToggledCallback
-> IO (GClosure C_CheckButtonToggledCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_CheckButtonToggledCallback ::
CheckButtonToggledCallback ->
C_CheckButtonToggledCallback
wrap_CheckButtonToggledCallback :: IO () -> C_CheckButtonToggledCallback
wrap_CheckButtonToggledCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onCheckButtonToggled :: (IsCheckButton a, MonadIO m) => a -> CheckButtonToggledCallback -> m SignalHandlerId
onCheckButtonToggled :: forall a (m :: * -> *).
(IsCheckButton a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onCheckButtonToggled 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_CheckButtonToggledCallback
cb' = IO () -> C_CheckButtonToggledCallback
wrap_CheckButtonToggledCallback IO ()
cb
FunPtr C_CheckButtonToggledCallback
cb'' <- C_CheckButtonToggledCallback
-> IO (FunPtr C_CheckButtonToggledCallback)
mk_CheckButtonToggledCallback C_CheckButtonToggledCallback
cb'
a
-> Text
-> FunPtr C_CheckButtonToggledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggled" FunPtr C_CheckButtonToggledCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCheckButtonToggled :: (IsCheckButton a, MonadIO m) => a -> CheckButtonToggledCallback -> m SignalHandlerId
afterCheckButtonToggled :: forall a (m :: * -> *).
(IsCheckButton a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterCheckButtonToggled 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_CheckButtonToggledCallback
cb' = IO () -> C_CheckButtonToggledCallback
wrap_CheckButtonToggledCallback IO ()
cb
FunPtr C_CheckButtonToggledCallback
cb'' <- C_CheckButtonToggledCallback
-> IO (FunPtr C_CheckButtonToggledCallback)
mk_CheckButtonToggledCallback C_CheckButtonToggledCallback
cb'
a
-> Text
-> FunPtr C_CheckButtonToggledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggled" FunPtr C_CheckButtonToggledCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CheckButtonToggledSignalInfo
instance SignalInfo CheckButtonToggledSignalInfo where
type HaskellCallbackType CheckButtonToggledSignalInfo = CheckButtonToggledCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CheckButtonToggledCallback cb
cb'' <- mk_CheckButtonToggledCallback cb'
connectSignalFunPtr obj "toggled" cb'' connectMode detail
#endif
getCheckButtonActive :: (MonadIO m, IsCheckButton o) => o -> m Bool
getCheckButtonActive :: forall (m :: * -> *) o. (MonadIO m, IsCheckButton o) => o -> m Bool
getCheckButtonActive o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"active"
setCheckButtonActive :: (MonadIO m, IsCheckButton o) => o -> Bool -> m ()
setCheckButtonActive :: forall (m :: * -> *) o.
(MonadIO m, IsCheckButton o) =>
o -> Bool -> m ()
setCheckButtonActive o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"active" Bool
val
constructCheckButtonActive :: (IsCheckButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCheckButtonActive :: forall o (m :: * -> *).
(IsCheckButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCheckButtonActive Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"active" Bool
val
#if defined(ENABLE_OVERLOADING)
data CheckButtonActivePropertyInfo
instance AttrInfo CheckButtonActivePropertyInfo where
type AttrAllowedOps CheckButtonActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckButtonActivePropertyInfo = IsCheckButton
type AttrSetTypeConstraint CheckButtonActivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CheckButtonActivePropertyInfo = (~) Bool
type AttrTransferType CheckButtonActivePropertyInfo = Bool
type AttrGetType CheckButtonActivePropertyInfo = Bool
type AttrLabel CheckButtonActivePropertyInfo = "active"
type AttrOrigin CheckButtonActivePropertyInfo = CheckButton
attrGet = getCheckButtonActive
attrSet = setCheckButtonActive
attrTransfer _ v = do
return v
attrConstruct = constructCheckButtonActive
attrClear = undefined
#endif
setCheckButtonGroup :: (MonadIO m, IsCheckButton o, IsCheckButton a) => o -> a -> m ()
setCheckButtonGroup :: forall (m :: * -> *) o a.
(MonadIO m, IsCheckButton o, IsCheckButton a) =>
o -> a -> m ()
setCheckButtonGroup o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"group" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructCheckButtonGroup :: (IsCheckButton o, MIO.MonadIO m, IsCheckButton a) => a -> m (GValueConstruct o)
constructCheckButtonGroup :: forall o (m :: * -> *) a.
(IsCheckButton o, MonadIO m, IsCheckButton a) =>
a -> m (GValueConstruct o)
constructCheckButtonGroup a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"group" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearCheckButtonGroup :: (MonadIO m, IsCheckButton o) => o -> m ()
clearCheckButtonGroup :: forall (m :: * -> *) o. (MonadIO m, IsCheckButton o) => o -> m ()
clearCheckButtonGroup 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 CheckButton -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"group" (Maybe CheckButton
forall a. Maybe a
Nothing :: Maybe CheckButton)
#if defined(ENABLE_OVERLOADING)
data CheckButtonGroupPropertyInfo
instance AttrInfo CheckButtonGroupPropertyInfo where
type AttrAllowedOps CheckButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint CheckButtonGroupPropertyInfo = IsCheckButton
type AttrSetTypeConstraint CheckButtonGroupPropertyInfo = IsCheckButton
type AttrTransferTypeConstraint CheckButtonGroupPropertyInfo = IsCheckButton
type AttrTransferType CheckButtonGroupPropertyInfo = CheckButton
type AttrGetType CheckButtonGroupPropertyInfo = ()
type AttrLabel CheckButtonGroupPropertyInfo = "group"
type AttrOrigin CheckButtonGroupPropertyInfo = CheckButton
attrGet = undefined
attrSet = setCheckButtonGroup
attrTransfer _ v = do
unsafeCastTo CheckButton v
attrConstruct = constructCheckButtonGroup
attrClear = clearCheckButtonGroup
#endif
getCheckButtonInconsistent :: (MonadIO m, IsCheckButton o) => o -> m Bool
getCheckButtonInconsistent :: forall (m :: * -> *) o. (MonadIO m, IsCheckButton o) => o -> m Bool
getCheckButtonInconsistent o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"inconsistent"
setCheckButtonInconsistent :: (MonadIO m, IsCheckButton o) => o -> Bool -> m ()
setCheckButtonInconsistent :: forall (m :: * -> *) o.
(MonadIO m, IsCheckButton o) =>
o -> Bool -> m ()
setCheckButtonInconsistent o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"inconsistent" Bool
val
constructCheckButtonInconsistent :: (IsCheckButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCheckButtonInconsistent :: forall o (m :: * -> *).
(IsCheckButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCheckButtonInconsistent Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"inconsistent" Bool
val
#if defined(ENABLE_OVERLOADING)
data CheckButtonInconsistentPropertyInfo
instance AttrInfo CheckButtonInconsistentPropertyInfo where
type AttrAllowedOps CheckButtonInconsistentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckButtonInconsistentPropertyInfo = IsCheckButton
type AttrSetTypeConstraint CheckButtonInconsistentPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CheckButtonInconsistentPropertyInfo = (~) Bool
type AttrTransferType CheckButtonInconsistentPropertyInfo = Bool
type AttrGetType CheckButtonInconsistentPropertyInfo = Bool
type AttrLabel CheckButtonInconsistentPropertyInfo = "inconsistent"
type AttrOrigin CheckButtonInconsistentPropertyInfo = CheckButton
attrGet = getCheckButtonInconsistent
attrSet = setCheckButtonInconsistent
attrTransfer _ v = do
return v
attrConstruct = constructCheckButtonInconsistent
attrClear = undefined
#endif
getCheckButtonLabel :: (MonadIO m, IsCheckButton o) => o -> m (Maybe T.Text)
getCheckButtonLabel :: forall (m :: * -> *) o.
(MonadIO m, IsCheckButton o) =>
o -> m (Maybe Text)
getCheckButtonLabel o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe 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
"label"
setCheckButtonLabel :: (MonadIO m, IsCheckButton o) => o -> T.Text -> m ()
setCheckButtonLabel :: forall (m :: * -> *) o.
(MonadIO m, IsCheckButton o) =>
o -> Text -> m ()
setCheckButtonLabel o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCheckButtonLabel :: (IsCheckButton o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCheckButtonLabel :: forall o (m :: * -> *).
(IsCheckButton o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructCheckButtonLabel 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCheckButtonLabel :: (MonadIO m, IsCheckButton o) => o -> m ()
clearCheckButtonLabel :: forall (m :: * -> *) o. (MonadIO m, IsCheckButton o) => o -> m ()
clearCheckButtonLabel 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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CheckButtonLabelPropertyInfo
instance AttrInfo CheckButtonLabelPropertyInfo where
type AttrAllowedOps CheckButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CheckButtonLabelPropertyInfo = IsCheckButton
type AttrSetTypeConstraint CheckButtonLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CheckButtonLabelPropertyInfo = (~) T.Text
type AttrTransferType CheckButtonLabelPropertyInfo = T.Text
type AttrGetType CheckButtonLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CheckButtonLabelPropertyInfo = "label"
type AttrOrigin CheckButtonLabelPropertyInfo = CheckButton
attrGet = getCheckButtonLabel
attrSet = setCheckButtonLabel
attrTransfer _ v = do
return v
attrConstruct = constructCheckButtonLabel
attrClear = clearCheckButtonLabel
#endif
getCheckButtonUseUnderline :: (MonadIO m, IsCheckButton o) => o -> m Bool
getCheckButtonUseUnderline :: forall (m :: * -> *) o. (MonadIO m, IsCheckButton o) => o -> m Bool
getCheckButtonUseUnderline o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"use-underline"
setCheckButtonUseUnderline :: (MonadIO m, IsCheckButton o) => o -> Bool -> m ()
setCheckButtonUseUnderline :: forall (m :: * -> *) o.
(MonadIO m, IsCheckButton o) =>
o -> Bool -> m ()
setCheckButtonUseUnderline o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-underline" Bool
val
constructCheckButtonUseUnderline :: (IsCheckButton o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCheckButtonUseUnderline :: forall o (m :: * -> *).
(IsCheckButton o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCheckButtonUseUnderline Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-underline" Bool
val
#if defined(ENABLE_OVERLOADING)
data CheckButtonUseUnderlinePropertyInfo
instance AttrInfo CheckButtonUseUnderlinePropertyInfo where
type AttrAllowedOps CheckButtonUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckButtonUseUnderlinePropertyInfo = IsCheckButton
type AttrSetTypeConstraint CheckButtonUseUnderlinePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CheckButtonUseUnderlinePropertyInfo = (~) Bool
type AttrTransferType CheckButtonUseUnderlinePropertyInfo = Bool
type AttrGetType CheckButtonUseUnderlinePropertyInfo = Bool
type AttrLabel CheckButtonUseUnderlinePropertyInfo = "use-underline"
type AttrOrigin CheckButtonUseUnderlinePropertyInfo = CheckButton
attrGet = getCheckButtonUseUnderline
attrSet = setCheckButtonUseUnderline
attrTransfer _ v = do
return v
attrConstruct = constructCheckButtonUseUnderline
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CheckButton
type instance O.AttributeList CheckButton = CheckButtonAttributeList
type CheckButtonAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("active", CheckButtonActivePropertyInfo), '("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), '("group", CheckButtonGroupPropertyInfo), '("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), '("inconsistent", CheckButtonInconsistentPropertyInfo), '("label", CheckButtonLabelPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useUnderline", CheckButtonUseUnderlinePropertyInfo), '("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)
checkButtonActive :: AttrLabelProxy "active"
checkButtonActive = AttrLabelProxy
checkButtonGroup :: AttrLabelProxy "group"
checkButtonGroup = AttrLabelProxy
checkButtonInconsistent :: AttrLabelProxy "inconsistent"
checkButtonInconsistent = AttrLabelProxy
checkButtonLabel :: AttrLabelProxy "label"
checkButtonLabel = AttrLabelProxy
checkButtonUseUnderline :: AttrLabelProxy "useUnderline"
checkButtonUseUnderline = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CheckButton = CheckButtonSignalList
type CheckButtonSignalList = ('[ '("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), '("toggled", CheckButtonToggledSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_check_button_new" gtk_check_button_new ::
IO (Ptr CheckButton)
checkButtonNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CheckButton
checkButtonNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CheckButton
checkButtonNew = IO CheckButton -> m CheckButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CheckButton -> m CheckButton)
-> IO CheckButton -> m CheckButton
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckButton
result <- IO (Ptr CheckButton)
gtk_check_button_new
Text -> Ptr CheckButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"checkButtonNew" Ptr CheckButton
result
CheckButton
result' <- ((ManagedPtr CheckButton -> CheckButton)
-> Ptr CheckButton -> IO CheckButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CheckButton -> CheckButton
CheckButton) Ptr CheckButton
result
CheckButton -> IO CheckButton
forall (m :: * -> *) a. Monad m => a -> m a
return CheckButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_check_button_new_with_label" gtk_check_button_new_with_label ::
CString ->
IO (Ptr CheckButton)
checkButtonNewWithLabel ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> m CheckButton
checkButtonNewWithLabel :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> m CheckButton
checkButtonNewWithLabel Maybe Text
label = IO CheckButton -> m CheckButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CheckButton -> m CheckButton)
-> IO CheckButton -> m CheckButton
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLabel'
Ptr CheckButton
result <- Ptr CChar -> IO (Ptr CheckButton)
gtk_check_button_new_with_label Ptr CChar
maybeLabel
Text -> Ptr CheckButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"checkButtonNewWithLabel" Ptr CheckButton
result
CheckButton
result' <- ((ManagedPtr CheckButton -> CheckButton)
-> Ptr CheckButton -> IO CheckButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CheckButton -> CheckButton
CheckButton) Ptr CheckButton
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLabel
CheckButton -> IO CheckButton
forall (m :: * -> *) a. Monad m => a -> m a
return CheckButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_check_button_new_with_mnemonic" gtk_check_button_new_with_mnemonic ::
CString ->
IO (Ptr CheckButton)
checkButtonNewWithMnemonic ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> m CheckButton
checkButtonNewWithMnemonic :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> m CheckButton
checkButtonNewWithMnemonic Maybe Text
label = IO CheckButton -> m CheckButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CheckButton -> m CheckButton)
-> IO CheckButton -> m CheckButton
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLabel'
Ptr CheckButton
result <- Ptr CChar -> IO (Ptr CheckButton)
gtk_check_button_new_with_mnemonic Ptr CChar
maybeLabel
Text -> Ptr CheckButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"checkButtonNewWithMnemonic" Ptr CheckButton
result
CheckButton
result' <- ((ManagedPtr CheckButton -> CheckButton)
-> Ptr CheckButton -> IO CheckButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CheckButton -> CheckButton
CheckButton) Ptr CheckButton
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLabel
CheckButton -> IO CheckButton
forall (m :: * -> *) a. Monad m => a -> m a
return CheckButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_check_button_get_active" gtk_check_button_get_active ::
Ptr CheckButton ->
IO CInt
checkButtonGetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> m Bool
checkButtonGetActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> m Bool
checkButtonGetActive a
self = 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 CheckButton
self' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr CheckButton -> IO CInt
gtk_check_button_get_active Ptr CheckButton
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CheckButtonGetActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonGetActiveMethodInfo a signature where
overloadedMethod = checkButtonGetActive
instance O.OverloadedMethodInfo CheckButtonGetActiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonGetActive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonGetActive"
}
#endif
foreign import ccall "gtk_check_button_get_inconsistent" gtk_check_button_get_inconsistent ::
Ptr CheckButton ->
IO CInt
checkButtonGetInconsistent ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> m Bool
checkButtonGetInconsistent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> m Bool
checkButtonGetInconsistent a
checkButton = 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 CheckButton
checkButton' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
checkButton
CInt
result <- Ptr CheckButton -> IO CInt
gtk_check_button_get_inconsistent Ptr CheckButton
checkButton'
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
checkButton
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CheckButtonGetInconsistentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonGetInconsistentMethodInfo a signature where
overloadedMethod = checkButtonGetInconsistent
instance O.OverloadedMethodInfo CheckButtonGetInconsistentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonGetInconsistent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonGetInconsistent"
}
#endif
foreign import ccall "gtk_check_button_get_label" gtk_check_button_get_label ::
Ptr CheckButton ->
IO CString
checkButtonGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> m (Maybe T.Text)
checkButtonGetLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> m (Maybe Text)
checkButtonGetLabel a
self = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckButton
self' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CChar
result <- Ptr CheckButton -> IO (Ptr CChar)
gtk_check_button_get_label Ptr CheckButton
self'
Maybe Text
maybeResult <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
result ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data CheckButtonGetLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonGetLabelMethodInfo a signature where
overloadedMethod = checkButtonGetLabel
instance O.OverloadedMethodInfo CheckButtonGetLabelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonGetLabel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonGetLabel"
}
#endif
foreign import ccall "gtk_check_button_get_use_underline" gtk_check_button_get_use_underline ::
Ptr CheckButton ->
IO CInt
checkButtonGetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> m Bool
checkButtonGetUseUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> m Bool
checkButtonGetUseUnderline a
self = 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 CheckButton
self' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr CheckButton -> IO CInt
gtk_check_button_get_use_underline Ptr CheckButton
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CheckButtonGetUseUnderlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonGetUseUnderlineMethodInfo a signature where
overloadedMethod = checkButtonGetUseUnderline
instance O.OverloadedMethodInfo CheckButtonGetUseUnderlineMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonGetUseUnderline",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonGetUseUnderline"
}
#endif
foreign import ccall "gtk_check_button_set_active" gtk_check_button_set_active ::
Ptr CheckButton ->
CInt ->
IO ()
checkButtonSetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> Bool
-> m ()
checkButtonSetActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> Bool -> m ()
checkButtonSetActive a
self Bool
setting = 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 CheckButton
self' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr CheckButton -> CInt -> IO ()
gtk_check_button_set_active Ptr CheckButton
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CheckButtonSetActiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonSetActiveMethodInfo a signature where
overloadedMethod = checkButtonSetActive
instance O.OverloadedMethodInfo CheckButtonSetActiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonSetActive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonSetActive"
}
#endif
foreign import ccall "gtk_check_button_set_group" gtk_check_button_set_group ::
Ptr CheckButton ->
Ptr CheckButton ->
IO ()
checkButtonSetGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a, IsCheckButton b) =>
a
-> Maybe (b)
-> m ()
checkButtonSetGroup :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCheckButton a, IsCheckButton b) =>
a -> Maybe b -> m ()
checkButtonSetGroup a
self Maybe b
group = 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 CheckButton
self' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CheckButton
maybeGroup <- case Maybe b
group of
Maybe b
Nothing -> Ptr CheckButton -> IO (Ptr CheckButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CheckButton
forall a. Ptr a
nullPtr
Just b
jGroup -> do
Ptr CheckButton
jGroup' <- b -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jGroup
Ptr CheckButton -> IO (Ptr CheckButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CheckButton
jGroup'
Ptr CheckButton -> Ptr CheckButton -> IO ()
gtk_check_button_set_group Ptr CheckButton
self' Ptr CheckButton
maybeGroup
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
group b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CheckButtonSetGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCheckButton a, IsCheckButton b) => O.OverloadedMethod CheckButtonSetGroupMethodInfo a signature where
overloadedMethod = checkButtonSetGroup
instance O.OverloadedMethodInfo CheckButtonSetGroupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonSetGroup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonSetGroup"
}
#endif
foreign import ccall "gtk_check_button_set_inconsistent" gtk_check_button_set_inconsistent ::
Ptr CheckButton ->
CInt ->
IO ()
checkButtonSetInconsistent ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> Bool
-> m ()
checkButtonSetInconsistent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> Bool -> m ()
checkButtonSetInconsistent a
checkButton Bool
inconsistent = 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 CheckButton
checkButton' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
checkButton
let inconsistent' :: CInt
inconsistent' = (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
inconsistent
Ptr CheckButton -> CInt -> IO ()
gtk_check_button_set_inconsistent Ptr CheckButton
checkButton' CInt
inconsistent'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
checkButton
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CheckButtonSetInconsistentMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonSetInconsistentMethodInfo a signature where
overloadedMethod = checkButtonSetInconsistent
instance O.OverloadedMethodInfo CheckButtonSetInconsistentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonSetInconsistent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonSetInconsistent"
}
#endif
foreign import ccall "gtk_check_button_set_label" gtk_check_button_set_label ::
Ptr CheckButton ->
CString ->
IO ()
checkButtonSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> Maybe (T.Text)
-> m ()
checkButtonSetLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> Maybe Text -> m ()
checkButtonSetLabel a
self Maybe Text
label = 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 CheckButton
self' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CChar
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLabel'
Ptr CheckButton -> Ptr CChar -> IO ()
gtk_check_button_set_label Ptr CheckButton
self' Ptr CChar
maybeLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLabel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CheckButtonSetLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonSetLabelMethodInfo a signature where
overloadedMethod = checkButtonSetLabel
instance O.OverloadedMethodInfo CheckButtonSetLabelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonSetLabel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonSetLabel"
}
#endif
foreign import ccall "gtk_check_button_set_use_underline" gtk_check_button_set_use_underline ::
Ptr CheckButton ->
CInt ->
IO ()
checkButtonSetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckButton a) =>
a
-> Bool
-> m ()
checkButtonSetUseUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCheckButton a) =>
a -> Bool -> m ()
checkButtonSetUseUnderline a
self Bool
setting = 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 CheckButton
self' <- a -> IO (Ptr CheckButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr CheckButton -> CInt -> IO ()
gtk_check_button_set_use_underline Ptr CheckButton
self' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CheckButtonSetUseUnderlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCheckButton a) => O.OverloadedMethod CheckButtonSetUseUnderlineMethodInfo a signature where
overloadedMethod = checkButtonSetUseUnderline
instance O.OverloadedMethodInfo CheckButtonSetUseUnderlineMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.CheckButton.checkButtonSetUseUnderline",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-CheckButton.html#v:checkButtonSetUseUnderline"
}
#endif