{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.RadioButton
(
RadioButton(..) ,
IsRadioButton ,
toRadioButton ,
#if defined(ENABLE_OVERLOADING)
ResolveRadioButtonMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RadioButtonGetGroupMethodInfo ,
#endif
radioButtonGetGroup ,
#if defined(ENABLE_OVERLOADING)
RadioButtonJoinGroupMethodInfo ,
#endif
radioButtonJoinGroup ,
radioButtonNew ,
radioButtonNewFromWidget ,
radioButtonNewWithLabel ,
radioButtonNewWithLabelFromWidget ,
radioButtonNewWithMnemonic ,
radioButtonNewWithMnemonicFromWidget ,
#if defined(ENABLE_OVERLOADING)
RadioButtonSetGroupMethodInfo ,
#endif
radioButtonSetGroup ,
#if defined(ENABLE_OVERLOADING)
RadioButtonGroupPropertyInfo ,
#endif
clearRadioButtonGroup ,
constructRadioButtonGroup ,
#if defined(ENABLE_OVERLOADING)
radioButtonGroup ,
#endif
setRadioButtonGroup ,
C_RadioButtonGroupChangedCallback ,
RadioButtonGroupChangedCallback ,
#if defined(ENABLE_OVERLOADING)
RadioButtonGroupChangedSignalInfo ,
#endif
afterRadioButtonGroupChanged ,
genClosure_RadioButtonGroupChanged ,
mk_RadioButtonGroupChangedCallback ,
noRadioButtonGroupChangedCallback ,
onRadioButtonGroupChanged ,
wrap_RadioButtonGroupChangedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# 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.Button as Gtk.Button
import {-# SOURCE #-} qualified GI.Gtk.Objects.CheckButton as Gtk.CheckButton
import {-# SOURCE #-} qualified GI.Gtk.Objects.ToggleButton as Gtk.ToggleButton
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype RadioButton = RadioButton (SP.ManagedPtr RadioButton)
deriving (RadioButton -> RadioButton -> Bool
(RadioButton -> RadioButton -> Bool)
-> (RadioButton -> RadioButton -> Bool) -> Eq RadioButton
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RadioButton -> RadioButton -> Bool
$c/= :: RadioButton -> RadioButton -> Bool
== :: RadioButton -> RadioButton -> Bool
$c== :: RadioButton -> RadioButton -> Bool
Eq)
instance SP.ManagedPtrNewtype RadioButton where
toManagedPtr :: RadioButton -> ManagedPtr RadioButton
toManagedPtr (RadioButton ManagedPtr RadioButton
p) = ManagedPtr RadioButton
p
foreign import ccall "gtk_radio_button_get_type"
c_gtk_radio_button_get_type :: IO B.Types.GType
instance B.Types.TypedObject RadioButton where
glibType :: IO GType
glibType = IO GType
c_gtk_radio_button_get_type
instance B.Types.GObject RadioButton
instance B.GValue.IsGValue RadioButton where
toGValue :: RadioButton -> IO GValue
toGValue RadioButton
o = do
GType
gtype <- IO GType
c_gtk_radio_button_get_type
RadioButton -> (Ptr RadioButton -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RadioButton
o (GType
-> (GValue -> Ptr RadioButton -> IO ())
-> Ptr RadioButton
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr RadioButton -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO RadioButton
fromGValue GValue
gv = do
Ptr RadioButton
ptr <- GValue -> IO (Ptr RadioButton)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr RadioButton)
(ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr RadioButton -> RadioButton
RadioButton Ptr RadioButton
ptr
class (SP.GObject o, O.IsDescendantOf RadioButton o) => IsRadioButton o
instance (SP.GObject o, O.IsDescendantOf RadioButton o) => IsRadioButton o
instance O.HasParentTypes RadioButton
type instance O.ParentTypes RadioButton = '[Gtk.CheckButton.CheckButton, Gtk.ToggleButton.ToggleButton, Gtk.Button.Button, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toRadioButton :: (MonadIO m, IsRadioButton o) => o -> m RadioButton
toRadioButton :: o -> m RadioButton
toRadioButton = IO RadioButton -> m RadioButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioButton -> m RadioButton)
-> (o -> IO RadioButton) -> o -> m RadioButton
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr RadioButton -> RadioButton) -> o -> IO RadioButton
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr RadioButton -> RadioButton
RadioButton
#if defined(ENABLE_OVERLOADING)
type family ResolveRadioButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveRadioButtonMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveRadioButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveRadioButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveRadioButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveRadioButtonMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveRadioButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveRadioButtonMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveRadioButtonMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveRadioButtonMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveRadioButtonMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveRadioButtonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRadioButtonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRadioButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveRadioButtonMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveRadioButtonMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveRadioButtonMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveRadioButtonMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveRadioButtonMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveRadioButtonMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveRadioButtonMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveRadioButtonMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveRadioButtonMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveRadioButtonMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveRadioButtonMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveRadioButtonMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveRadioButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveRadioButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveRadioButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRadioButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRadioButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRadioButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveRadioButtonMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveRadioButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveRadioButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveRadioButtonMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveRadioButtonMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveRadioButtonMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveRadioButtonMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveRadioButtonMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveRadioButtonMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveRadioButtonMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveRadioButtonMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveRadioButtonMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveRadioButtonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRadioButtonMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveRadioButtonMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveRadioButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveRadioButtonMethod "joinGroup" o = RadioButtonJoinGroupMethodInfo
ResolveRadioButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveRadioButtonMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveRadioButtonMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveRadioButtonMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveRadioButtonMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveRadioButtonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRadioButtonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRadioButtonMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveRadioButtonMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveRadioButtonMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveRadioButtonMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveRadioButtonMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveRadioButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveRadioButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveRadioButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveRadioButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRadioButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRadioButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveRadioButtonMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveRadioButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveRadioButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveRadioButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRadioButtonMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveRadioButtonMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveRadioButtonMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveRadioButtonMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveRadioButtonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRadioButtonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRadioButtonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRadioButtonMethod "toggled" o = Gtk.ToggleButton.ToggleButtonToggledMethodInfo
ResolveRadioButtonMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveRadioButtonMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveRadioButtonMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveRadioButtonMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveRadioButtonMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveRadioButtonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRadioButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveRadioButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRadioButtonMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveRadioButtonMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveRadioButtonMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveRadioButtonMethod "getActive" o = Gtk.ToggleButton.ToggleButtonGetActiveMethodInfo
ResolveRadioButtonMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveRadioButtonMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveRadioButtonMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveRadioButtonMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveRadioButtonMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveRadioButtonMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveRadioButtonMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveRadioButtonMethod "getChild" o = Gtk.Button.ButtonGetChildMethodInfo
ResolveRadioButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveRadioButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveRadioButtonMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveRadioButtonMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveRadioButtonMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveRadioButtonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRadioButtonMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveRadioButtonMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveRadioButtonMethod "getDrawIndicator" o = Gtk.CheckButton.CheckButtonGetDrawIndicatorMethodInfo
ResolveRadioButtonMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveRadioButtonMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveRadioButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveRadioButtonMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveRadioButtonMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveRadioButtonMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveRadioButtonMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveRadioButtonMethod "getGroup" o = RadioButtonGetGroupMethodInfo
ResolveRadioButtonMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveRadioButtonMethod "getHasFrame" o = Gtk.Button.ButtonGetHasFrameMethodInfo
ResolveRadioButtonMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveRadioButtonMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveRadioButtonMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveRadioButtonMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveRadioButtonMethod "getIconName" o = Gtk.Button.ButtonGetIconNameMethodInfo
ResolveRadioButtonMethod "getInconsistent" o = Gtk.CheckButton.CheckButtonGetInconsistentMethodInfo
ResolveRadioButtonMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveRadioButtonMethod "getLabel" o = Gtk.Button.ButtonGetLabelMethodInfo
ResolveRadioButtonMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveRadioButtonMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveRadioButtonMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveRadioButtonMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveRadioButtonMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveRadioButtonMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveRadioButtonMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveRadioButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveRadioButtonMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveRadioButtonMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveRadioButtonMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveRadioButtonMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveRadioButtonMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveRadioButtonMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveRadioButtonMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveRadioButtonMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveRadioButtonMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveRadioButtonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRadioButtonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRadioButtonMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveRadioButtonMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveRadioButtonMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveRadioButtonMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveRadioButtonMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveRadioButtonMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveRadioButtonMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveRadioButtonMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveRadioButtonMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveRadioButtonMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveRadioButtonMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveRadioButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveRadioButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveRadioButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveRadioButtonMethod "getUseUnderline" o = Gtk.Button.ButtonGetUseUnderlineMethodInfo
ResolveRadioButtonMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveRadioButtonMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveRadioButtonMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveRadioButtonMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveRadioButtonMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveRadioButtonMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveRadioButtonMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveRadioButtonMethod "setActive" o = Gtk.ToggleButton.ToggleButtonSetActiveMethodInfo
ResolveRadioButtonMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveRadioButtonMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveRadioButtonMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveRadioButtonMethod "setChild" o = Gtk.Button.ButtonSetChildMethodInfo
ResolveRadioButtonMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveRadioButtonMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveRadioButtonMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveRadioButtonMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveRadioButtonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRadioButtonMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRadioButtonMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveRadioButtonMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveRadioButtonMethod "setDrawIndicator" o = Gtk.CheckButton.CheckButtonSetDrawIndicatorMethodInfo
ResolveRadioButtonMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveRadioButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveRadioButtonMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveRadioButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveRadioButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveRadioButtonMethod "setGroup" o = RadioButtonSetGroupMethodInfo
ResolveRadioButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveRadioButtonMethod "setHasFrame" o = Gtk.Button.ButtonSetHasFrameMethodInfo
ResolveRadioButtonMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveRadioButtonMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveRadioButtonMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveRadioButtonMethod "setIconName" o = Gtk.Button.ButtonSetIconNameMethodInfo
ResolveRadioButtonMethod "setInconsistent" o = Gtk.CheckButton.CheckButtonSetInconsistentMethodInfo
ResolveRadioButtonMethod "setLabel" o = Gtk.Button.ButtonSetLabelMethodInfo
ResolveRadioButtonMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveRadioButtonMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveRadioButtonMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveRadioButtonMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveRadioButtonMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveRadioButtonMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveRadioButtonMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveRadioButtonMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveRadioButtonMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveRadioButtonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRadioButtonMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveRadioButtonMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveRadioButtonMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveRadioButtonMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveRadioButtonMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveRadioButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveRadioButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveRadioButtonMethod "setUseUnderline" o = Gtk.Button.ButtonSetUseUnderlineMethodInfo
ResolveRadioButtonMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveRadioButtonMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveRadioButtonMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveRadioButtonMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveRadioButtonMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRadioButtonMethod t RadioButton, O.MethodInfo info RadioButton p) => OL.IsLabel t (RadioButton -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type RadioButtonGroupChangedCallback =
IO ()
noRadioButtonGroupChangedCallback :: Maybe RadioButtonGroupChangedCallback
noRadioButtonGroupChangedCallback :: Maybe (IO ())
noRadioButtonGroupChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_RadioButtonGroupChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RadioButtonGroupChangedCallback :: C_RadioButtonGroupChangedCallback -> IO (FunPtr C_RadioButtonGroupChangedCallback)
genClosure_RadioButtonGroupChanged :: MonadIO m => RadioButtonGroupChangedCallback -> m (GClosure C_RadioButtonGroupChangedCallback)
genClosure_RadioButtonGroupChanged :: IO () -> m (GClosure C_RadioButtonGroupChangedCallback)
genClosure_RadioButtonGroupChanged IO ()
cb = IO (GClosure C_RadioButtonGroupChangedCallback)
-> m (GClosure C_RadioButtonGroupChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_RadioButtonGroupChangedCallback)
-> m (GClosure C_RadioButtonGroupChangedCallback))
-> IO (GClosure C_RadioButtonGroupChangedCallback)
-> m (GClosure C_RadioButtonGroupChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RadioButtonGroupChangedCallback
cb' = IO () -> C_RadioButtonGroupChangedCallback
wrap_RadioButtonGroupChangedCallback IO ()
cb
C_RadioButtonGroupChangedCallback
-> IO (FunPtr C_RadioButtonGroupChangedCallback)
mk_RadioButtonGroupChangedCallback C_RadioButtonGroupChangedCallback
cb' IO (FunPtr C_RadioButtonGroupChangedCallback)
-> (FunPtr C_RadioButtonGroupChangedCallback
-> IO (GClosure C_RadioButtonGroupChangedCallback))
-> IO (GClosure C_RadioButtonGroupChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_RadioButtonGroupChangedCallback
-> IO (GClosure C_RadioButtonGroupChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_RadioButtonGroupChangedCallback ::
RadioButtonGroupChangedCallback ->
C_RadioButtonGroupChangedCallback
wrap_RadioButtonGroupChangedCallback :: IO () -> C_RadioButtonGroupChangedCallback
wrap_RadioButtonGroupChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onRadioButtonGroupChanged :: (IsRadioButton a, MonadIO m) => a -> RadioButtonGroupChangedCallback -> m SignalHandlerId
onRadioButtonGroupChanged :: a -> IO () -> m SignalHandlerId
onRadioButtonGroupChanged 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_RadioButtonGroupChangedCallback
cb' = IO () -> C_RadioButtonGroupChangedCallback
wrap_RadioButtonGroupChangedCallback IO ()
cb
FunPtr C_RadioButtonGroupChangedCallback
cb'' <- C_RadioButtonGroupChangedCallback
-> IO (FunPtr C_RadioButtonGroupChangedCallback)
mk_RadioButtonGroupChangedCallback C_RadioButtonGroupChangedCallback
cb'
a
-> Text
-> FunPtr C_RadioButtonGroupChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"group-changed" FunPtr C_RadioButtonGroupChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRadioButtonGroupChanged :: (IsRadioButton a, MonadIO m) => a -> RadioButtonGroupChangedCallback -> m SignalHandlerId
afterRadioButtonGroupChanged :: a -> IO () -> m SignalHandlerId
afterRadioButtonGroupChanged 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_RadioButtonGroupChangedCallback
cb' = IO () -> C_RadioButtonGroupChangedCallback
wrap_RadioButtonGroupChangedCallback IO ()
cb
FunPtr C_RadioButtonGroupChangedCallback
cb'' <- C_RadioButtonGroupChangedCallback
-> IO (FunPtr C_RadioButtonGroupChangedCallback)
mk_RadioButtonGroupChangedCallback C_RadioButtonGroupChangedCallback
cb'
a
-> Text
-> FunPtr C_RadioButtonGroupChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"group-changed" FunPtr C_RadioButtonGroupChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RadioButtonGroupChangedSignalInfo
instance SignalInfo RadioButtonGroupChangedSignalInfo where
type HaskellCallbackType RadioButtonGroupChangedSignalInfo = RadioButtonGroupChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RadioButtonGroupChangedCallback cb
cb'' <- mk_RadioButtonGroupChangedCallback cb'
connectSignalFunPtr obj "group-changed" cb'' connectMode detail
#endif
setRadioButtonGroup :: (MonadIO m, IsRadioButton o, IsRadioButton a) => o -> a -> m ()
setRadioButtonGroup :: o -> a -> m ()
setRadioButtonGroup o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe 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)
constructRadioButtonGroup :: (IsRadioButton o, MIO.MonadIO m, IsRadioButton a) => a -> m (GValueConstruct o)
constructRadioButtonGroup :: a -> m (GValueConstruct o)
constructRadioButtonGroup 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
$ 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)
clearRadioButtonGroup :: (MonadIO m, IsRadioButton o) => o -> m ()
clearRadioButtonGroup :: o -> m ()
clearRadioButtonGroup 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 RadioButton -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"group" (Maybe RadioButton
forall a. Maybe a
Nothing :: Maybe RadioButton)
#if defined(ENABLE_OVERLOADING)
data RadioButtonGroupPropertyInfo
instance AttrInfo RadioButtonGroupPropertyInfo where
type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint RadioButtonGroupPropertyInfo = IsRadioButton
type AttrSetTypeConstraint RadioButtonGroupPropertyInfo = IsRadioButton
type AttrTransferTypeConstraint RadioButtonGroupPropertyInfo = IsRadioButton
type AttrTransferType RadioButtonGroupPropertyInfo = RadioButton
type AttrGetType RadioButtonGroupPropertyInfo = ()
type AttrLabel RadioButtonGroupPropertyInfo = "group"
type AttrOrigin RadioButtonGroupPropertyInfo = RadioButton
attrGet = undefined
attrSet = setRadioButtonGroup
attrTransfer _ v = do
unsafeCastTo RadioButton v
attrConstruct = constructRadioButtonGroup
attrClear = clearRadioButtonGroup
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RadioButton
type instance O.AttributeList RadioButton = RadioButtonAttributeList
type RadioButtonAttributeList = ('[ '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("active", Gtk.ToggleButton.ToggleButtonActivePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", Gtk.Button.ButtonChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("drawIndicator", Gtk.CheckButton.CheckButtonDrawIndicatorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasFrame", Gtk.Button.ButtonHasFramePropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("iconName", Gtk.Button.ButtonIconNamePropertyInfo), '("inconsistent", Gtk.CheckButton.CheckButtonInconsistentPropertyInfo), '("label", Gtk.Button.ButtonLabelPropertyInfo), '("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", Gtk.Button.ButtonUseUnderlinePropertyInfo), '("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)
radioButtonGroup :: AttrLabelProxy "group"
radioButtonGroup = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList RadioButton = RadioButtonSignalList
type RadioButtonSignalList = ('[ '("activate", Gtk.Button.ButtonActivateSignalInfo), '("clicked", Gtk.Button.ButtonClickedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("groupChanged", RadioButtonGroupChangedSignalInfo), '("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", Gtk.ToggleButton.ToggleButtonToggledSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_radio_button_new" gtk_radio_button_new ::
Ptr (GSList (Ptr RadioButton)) ->
IO (Ptr RadioButton)
radioButtonNew ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a) =>
[a]
-> m RadioButton
radioButtonNew :: [a] -> m RadioButton
radioButtonNew [a]
group = IO RadioButton -> m RadioButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioButton -> m RadioButton)
-> IO RadioButton -> m RadioButton
forall a b. (a -> b) -> a -> b
$ do
[Ptr RadioButton]
group' <- (a -> IO (Ptr RadioButton)) -> [a] -> IO [Ptr RadioButton]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
group
Ptr (GSList (Ptr RadioButton))
group'' <- [Ptr RadioButton] -> IO (Ptr (GSList (Ptr RadioButton)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioButton]
group'
Ptr RadioButton
result <- Ptr (GSList (Ptr RadioButton)) -> IO (Ptr RadioButton)
gtk_radio_button_new Ptr (GSList (Ptr RadioButton))
group''
Text -> Ptr RadioButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"radioButtonNew" Ptr RadioButton
result
RadioButton
result' <- ((ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioButton -> RadioButton
RadioButton) Ptr RadioButton
result
(a -> IO ()) -> [a] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [a]
group
Ptr (GSList (Ptr RadioButton)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioButton))
group''
RadioButton -> IO RadioButton
forall (m :: * -> *) a. Monad m => a -> m a
return RadioButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_button_new_from_widget" gtk_radio_button_new_from_widget ::
Ptr RadioButton ->
IO (Ptr RadioButton)
radioButtonNewFromWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a) =>
Maybe (a)
-> m RadioButton
radioButtonNewFromWidget :: Maybe a -> m RadioButton
radioButtonNewFromWidget Maybe a
radioGroupMember = IO RadioButton -> m RadioButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioButton -> m RadioButton)
-> IO RadioButton -> m RadioButton
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioButton
maybeRadioGroupMember <- case Maybe a
radioGroupMember of
Maybe a
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just a
jRadioGroupMember -> do
Ptr RadioButton
jRadioGroupMember' <- a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jRadioGroupMember
Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
jRadioGroupMember'
Ptr RadioButton
result <- Ptr RadioButton -> IO (Ptr RadioButton)
gtk_radio_button_new_from_widget Ptr RadioButton
maybeRadioGroupMember
Text -> Ptr RadioButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"radioButtonNewFromWidget" Ptr RadioButton
result
RadioButton
result' <- ((ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioButton -> RadioButton
RadioButton) Ptr RadioButton
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
radioGroupMember a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
RadioButton -> IO RadioButton
forall (m :: * -> *) a. Monad m => a -> m a
return RadioButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_button_new_with_label" gtk_radio_button_new_with_label ::
Ptr (GSList (Ptr RadioButton)) ->
CString ->
IO (Ptr RadioButton)
radioButtonNewWithLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a) =>
[a]
-> T.Text
-> m RadioButton
radioButtonNewWithLabel :: [a] -> Text -> m RadioButton
radioButtonNewWithLabel [a]
group Text
label = IO RadioButton -> m RadioButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioButton -> m RadioButton)
-> IO RadioButton -> m RadioButton
forall a b. (a -> b) -> a -> b
$ do
[Ptr RadioButton]
group' <- (a -> IO (Ptr RadioButton)) -> [a] -> IO [Ptr RadioButton]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
group
Ptr (GSList (Ptr RadioButton))
group'' <- [Ptr RadioButton] -> IO (Ptr (GSList (Ptr RadioButton)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioButton]
group'
CString
label' <- Text -> IO CString
textToCString Text
label
Ptr RadioButton
result <- Ptr (GSList (Ptr RadioButton)) -> CString -> IO (Ptr RadioButton)
gtk_radio_button_new_with_label Ptr (GSList (Ptr RadioButton))
group'' CString
label'
Text -> Ptr RadioButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"radioButtonNewWithLabel" Ptr RadioButton
result
RadioButton
result' <- ((ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioButton -> RadioButton
RadioButton) Ptr RadioButton
result
(a -> IO ()) -> [a] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [a]
group
Ptr (GSList (Ptr RadioButton)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioButton))
group''
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
RadioButton -> IO RadioButton
forall (m :: * -> *) a. Monad m => a -> m a
return RadioButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_button_new_with_label_from_widget" gtk_radio_button_new_with_label_from_widget ::
Ptr RadioButton ->
CString ->
IO (Ptr RadioButton)
radioButtonNewWithLabelFromWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a) =>
Maybe (a)
-> T.Text
-> m RadioButton
radioButtonNewWithLabelFromWidget :: Maybe a -> Text -> m RadioButton
radioButtonNewWithLabelFromWidget Maybe a
radioGroupMember Text
label = IO RadioButton -> m RadioButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioButton -> m RadioButton)
-> IO RadioButton -> m RadioButton
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioButton
maybeRadioGroupMember <- case Maybe a
radioGroupMember of
Maybe a
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just a
jRadioGroupMember -> do
Ptr RadioButton
jRadioGroupMember' <- a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jRadioGroupMember
Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
jRadioGroupMember'
CString
label' <- Text -> IO CString
textToCString Text
label
Ptr RadioButton
result <- Ptr RadioButton -> CString -> IO (Ptr RadioButton)
gtk_radio_button_new_with_label_from_widget Ptr RadioButton
maybeRadioGroupMember CString
label'
Text -> Ptr RadioButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"radioButtonNewWithLabelFromWidget" Ptr RadioButton
result
RadioButton
result' <- ((ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioButton -> RadioButton
RadioButton) Ptr RadioButton
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
radioGroupMember a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
RadioButton -> IO RadioButton
forall (m :: * -> *) a. Monad m => a -> m a
return RadioButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_button_new_with_mnemonic" gtk_radio_button_new_with_mnemonic ::
Ptr (GSList (Ptr RadioButton)) ->
CString ->
IO (Ptr RadioButton)
radioButtonNewWithMnemonic ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a) =>
[a]
-> T.Text
-> m RadioButton
radioButtonNewWithMnemonic :: [a] -> Text -> m RadioButton
radioButtonNewWithMnemonic [a]
group Text
label = IO RadioButton -> m RadioButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioButton -> m RadioButton)
-> IO RadioButton -> m RadioButton
forall a b. (a -> b) -> a -> b
$ do
[Ptr RadioButton]
group' <- (a -> IO (Ptr RadioButton)) -> [a] -> IO [Ptr RadioButton]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
group
Ptr (GSList (Ptr RadioButton))
group'' <- [Ptr RadioButton] -> IO (Ptr (GSList (Ptr RadioButton)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioButton]
group'
CString
label' <- Text -> IO CString
textToCString Text
label
Ptr RadioButton
result <- Ptr (GSList (Ptr RadioButton)) -> CString -> IO (Ptr RadioButton)
gtk_radio_button_new_with_mnemonic Ptr (GSList (Ptr RadioButton))
group'' CString
label'
Text -> Ptr RadioButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"radioButtonNewWithMnemonic" Ptr RadioButton
result
RadioButton
result' <- ((ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioButton -> RadioButton
RadioButton) Ptr RadioButton
result
(a -> IO ()) -> [a] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [a]
group
Ptr (GSList (Ptr RadioButton)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioButton))
group''
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
RadioButton -> IO RadioButton
forall (m :: * -> *) a. Monad m => a -> m a
return RadioButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_button_new_with_mnemonic_from_widget" gtk_radio_button_new_with_mnemonic_from_widget ::
Ptr RadioButton ->
CString ->
IO (Ptr RadioButton)
radioButtonNewWithMnemonicFromWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a) =>
Maybe (a)
-> T.Text
-> m RadioButton
radioButtonNewWithMnemonicFromWidget :: Maybe a -> Text -> m RadioButton
radioButtonNewWithMnemonicFromWidget Maybe a
radioGroupMember Text
label = IO RadioButton -> m RadioButton
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioButton -> m RadioButton)
-> IO RadioButton -> m RadioButton
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioButton
maybeRadioGroupMember <- case Maybe a
radioGroupMember of
Maybe a
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just a
jRadioGroupMember -> do
Ptr RadioButton
jRadioGroupMember' <- a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jRadioGroupMember
Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
jRadioGroupMember'
CString
label' <- Text -> IO CString
textToCString Text
label
Ptr RadioButton
result <- Ptr RadioButton -> CString -> IO (Ptr RadioButton)
gtk_radio_button_new_with_mnemonic_from_widget Ptr RadioButton
maybeRadioGroupMember CString
label'
Text -> Ptr RadioButton -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"radioButtonNewWithMnemonicFromWidget" Ptr RadioButton
result
RadioButton
result' <- ((ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioButton -> RadioButton
RadioButton) Ptr RadioButton
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
radioGroupMember a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
RadioButton -> IO RadioButton
forall (m :: * -> *) a. Monad m => a -> m a
return RadioButton
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_button_get_group" gtk_radio_button_get_group ::
Ptr RadioButton ->
IO (Ptr (GSList (Ptr RadioButton)))
radioButtonGetGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a) =>
a
-> m [RadioButton]
radioButtonGetGroup :: a -> m [RadioButton]
radioButtonGetGroup a
radioButton = IO [RadioButton] -> m [RadioButton]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [RadioButton] -> m [RadioButton])
-> IO [RadioButton] -> m [RadioButton]
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioButton
radioButton' <- a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
radioButton
Ptr (GSList (Ptr RadioButton))
result <- Ptr RadioButton -> IO (Ptr (GSList (Ptr RadioButton)))
gtk_radio_button_get_group Ptr RadioButton
radioButton'
[Ptr RadioButton]
result' <- Ptr (GSList (Ptr RadioButton)) -> IO [Ptr RadioButton]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr RadioButton))
result
[RadioButton]
result'' <- (Ptr RadioButton -> IO RadioButton)
-> [Ptr RadioButton] -> IO [RadioButton]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr RadioButton -> RadioButton)
-> Ptr RadioButton -> IO RadioButton
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioButton -> RadioButton
RadioButton) [Ptr RadioButton]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
radioButton
[RadioButton] -> IO [RadioButton]
forall (m :: * -> *) a. Monad m => a -> m a
return [RadioButton]
result''
#if defined(ENABLE_OVERLOADING)
data RadioButtonGetGroupMethodInfo
instance (signature ~ (m [RadioButton]), MonadIO m, IsRadioButton a) => O.MethodInfo RadioButtonGetGroupMethodInfo a signature where
overloadedMethod = radioButtonGetGroup
#endif
foreign import ccall "gtk_radio_button_join_group" gtk_radio_button_join_group ::
Ptr RadioButton ->
Ptr RadioButton ->
IO ()
radioButtonJoinGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a, IsRadioButton b) =>
a
-> Maybe (b)
-> m ()
radioButtonJoinGroup :: a -> Maybe b -> m ()
radioButtonJoinGroup a
radioButton Maybe b
groupSource = 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 RadioButton
radioButton' <- a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
radioButton
Ptr RadioButton
maybeGroupSource <- case Maybe b
groupSource of
Maybe b
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just b
jGroupSource -> do
Ptr RadioButton
jGroupSource' <- b -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jGroupSource
Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
jGroupSource'
Ptr RadioButton -> Ptr RadioButton -> IO ()
gtk_radio_button_join_group Ptr RadioButton
radioButton' Ptr RadioButton
maybeGroupSource
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
radioButton
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
groupSource b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RadioButtonJoinGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsRadioButton a, IsRadioButton b) => O.MethodInfo RadioButtonJoinGroupMethodInfo a signature where
overloadedMethod = radioButtonJoinGroup
#endif
foreign import ccall "gtk_radio_button_set_group" gtk_radio_button_set_group ::
Ptr RadioButton ->
Ptr (GSList (Ptr RadioButton)) ->
IO ()
radioButtonSetGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioButton a, IsRadioButton b) =>
a
-> [b]
-> m ()
radioButtonSetGroup :: a -> [b] -> m ()
radioButtonSetGroup a
radioButton [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 RadioButton
radioButton' <- a -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
radioButton
[Ptr RadioButton]
group' <- (b -> IO (Ptr RadioButton)) -> [b] -> IO [Ptr RadioButton]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM b -> IO (Ptr RadioButton)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [b]
group
Ptr (GSList (Ptr RadioButton))
group'' <- [Ptr RadioButton] -> IO (Ptr (GSList (Ptr RadioButton)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioButton]
group'
Ptr RadioButton -> Ptr (GSList (Ptr RadioButton)) -> IO ()
gtk_radio_button_set_group Ptr RadioButton
radioButton' Ptr (GSList (Ptr RadioButton))
group''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
radioButton
(b -> IO ()) -> [b] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [b]
group
Ptr (GSList (Ptr RadioButton)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioButton))
group''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RadioButtonSetGroupMethodInfo
instance (signature ~ ([b] -> m ()), MonadIO m, IsRadioButton a, IsRadioButton b) => O.MethodInfo RadioButtonSetGroupMethodInfo a signature where
overloadedMethod = radioButtonSetGroup
#endif