{-# 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 ,
noRadioButton ,
#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.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 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.Objects.Bin as Gtk.Bin
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.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.ToggleButton as Gtk.ToggleButton
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype RadioButton = RadioButton (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)
foreign import ccall "gtk_radio_button_get_type"
c_gtk_radio_button_get_type :: IO GType
instance GObject RadioButton where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_radio_button_get_type
instance B.GValue.IsGValue RadioButton where
toGValue :: RadioButton -> IO GValue
toGValue o :: 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 gv :: 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 (GObject o, O.IsDescendantOf RadioButton o) => IsRadioButton o
instance (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.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable]
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr RadioButton -> RadioButton
RadioButton
noRadioButton :: Maybe RadioButton
noRadioButton :: Maybe RadioButton
noRadioButton = Maybe RadioButton
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRadioButtonMethod (t :: Symbol) (o :: *) :: * where
ResolveRadioButtonMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveRadioButtonMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveRadioButtonMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveRadioButtonMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveRadioButtonMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveRadioButtonMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveRadioButtonMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
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 "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveRadioButtonMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveRadioButtonMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveRadioButtonMethod "clicked" o = Gtk.Button.ButtonClickedMethodInfo
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 "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveRadioButtonMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveRadioButtonMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveRadioButtonMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveRadioButtonMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveRadioButtonMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveRadioButtonMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveRadioButtonMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveRadioButtonMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveRadioButtonMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveRadioButtonMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveRadioButtonMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveRadioButtonMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveRadioButtonMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveRadioButtonMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveRadioButtonMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveRadioButtonMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveRadioButtonMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveRadioButtonMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveRadioButtonMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveRadioButtonMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveRadioButtonMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveRadioButtonMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveRadioButtonMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveRadioButtonMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveRadioButtonMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveRadioButtonMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveRadioButtonMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveRadioButtonMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveRadioButtonMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveRadioButtonMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveRadioButtonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRadioButtonMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveRadioButtonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRadioButtonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRadioButtonMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveRadioButtonMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveRadioButtonMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveRadioButtonMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveRadioButtonMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveRadioButtonMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
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 "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveRadioButtonMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveRadioButtonMethod "joinGroup" o = RadioButtonJoinGroupMethodInfo
ResolveRadioButtonMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveRadioButtonMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveRadioButtonMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
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 "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveRadioButtonMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveRadioButtonMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveRadioButtonMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveRadioButtonMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveRadioButtonMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRadioButtonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRadioButtonMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveRadioButtonMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveRadioButtonMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveRadioButtonMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveRadioButtonMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveRadioButtonMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveRadioButtonMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveRadioButtonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
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 "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveRadioButtonMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveRadioButtonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRadioButtonMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveRadioButtonMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
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.Bin.BinGetChildMethodInfo
ResolveRadioButtonMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveRadioButtonMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveRadioButtonMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
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 "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveRadioButtonMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveRadioButtonMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
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 "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
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 "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveRadioButtonMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
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 "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveRadioButtonMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
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 "getRelief" o = Gtk.Button.ButtonGetReliefMethodInfo
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 "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveRadioButtonMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveRadioButtonMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveRadioButtonMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveRadioButtonMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveRadioButtonMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
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 "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
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 "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
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 "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveRadioButtonMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveRadioButtonMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveRadioButtonMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveRadioButtonMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveRadioButtonMethod "setGroup" o = RadioButtonSetGroupMethodInfo
ResolveRadioButtonMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveRadioButtonMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
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 "setRelief" o = Gtk.Button.ButtonSetReliefMethodInfo
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 "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveRadioButtonMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveRadioButtonMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveRadioButtonMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
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 cb :: 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 _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onRadioButtonGroupChanged :: (IsRadioButton a, MonadIO m) => a -> RadioButtonGroupChangedCallback -> m SignalHandlerId
onRadioButtonGroupChanged :: a -> IO () -> m SignalHandlerId
onRadioButtonGroupChanged obj :: a
obj cb :: 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 "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 obj :: a
obj cb :: 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 "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 obj :: o
obj val :: 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 "group" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructRadioButtonGroup :: (IsRadioButton o, IsRadioButton a) => a -> IO (GValueConstruct o)
constructRadioButtonGroup :: a -> IO (GValueConstruct o)
constructRadioButtonGroup val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "group" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearRadioButtonGroup :: (MonadIO m, IsRadioButton o) => o -> m ()
clearRadioButtonGroup :: o -> m ()
clearRadioButtonGroup obj :: 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 "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), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("drawIndicator", Gtk.CheckButton.CheckButtonDrawIndicatorPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("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), '("iconName", Gtk.Button.ButtonIconNamePropertyInfo), '("inconsistent", Gtk.CheckButton.CheckButtonInconsistentPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("label", Gtk.Button.ButtonLabelPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("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), '("relief", Gtk.Button.ButtonReliefPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("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 = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activate", Gtk.Button.ButtonActivateSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("clicked", Gtk.Button.ButtonClickedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("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), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("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 group :: [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 "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 radioGroupMember :: 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
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just jRadioGroupMember :: 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 "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 group :: [a]
group label :: 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 "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 radioGroupMember :: Maybe a
radioGroupMember label :: 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
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just jRadioGroupMember :: 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 "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 group :: [a]
group label :: 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 "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 radioGroupMember :: Maybe a
radioGroupMember label :: 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
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just jRadioGroupMember :: 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 "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 radioButton :: 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 radioButton :: a
radioButton groupSource :: 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
Nothing -> Ptr RadioButton -> IO (Ptr RadioButton)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioButton
forall a. Ptr a
nullPtr
Just jGroupSource :: 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 radioButton :: a
radioButton group :: [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