{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.RadioMenuItem
(
RadioMenuItem(..) ,
IsRadioMenuItem ,
toRadioMenuItem ,
noRadioMenuItem ,
#if defined(ENABLE_OVERLOADING)
ResolveRadioMenuItemMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RadioMenuItemGetGroupMethodInfo ,
#endif
radioMenuItemGetGroup ,
#if defined(ENABLE_OVERLOADING)
RadioMenuItemJoinGroupMethodInfo ,
#endif
radioMenuItemJoinGroup ,
radioMenuItemNew ,
radioMenuItemNewFromWidget ,
radioMenuItemNewWithLabel ,
radioMenuItemNewWithLabelFromWidget ,
radioMenuItemNewWithMnemonic ,
radioMenuItemNewWithMnemonicFromWidget ,
#if defined(ENABLE_OVERLOADING)
RadioMenuItemSetGroupMethodInfo ,
#endif
radioMenuItemSetGroup ,
#if defined(ENABLE_OVERLOADING)
RadioMenuItemGroupPropertyInfo ,
#endif
clearRadioMenuItemGroup ,
constructRadioMenuItemGroup ,
#if defined(ENABLE_OVERLOADING)
radioMenuItemGroup ,
#endif
setRadioMenuItemGroup ,
C_RadioMenuItemGroupChangedCallback ,
RadioMenuItemGroupChangedCallback ,
#if defined(ENABLE_OVERLOADING)
RadioMenuItemGroupChangedSignalInfo ,
#endif
afterRadioMenuItemGroupChanged ,
genClosure_RadioMenuItemGroupChanged ,
mk_RadioMenuItemGroupChangedCallback ,
noRadioMenuItemGroupChangedCallback ,
onRadioMenuItemGroupChanged ,
wrap_RadioMenuItemGroupChangedCallback ,
) 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.CheckMenuItem as Gtk.CheckMenuItem
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.MenuItem as Gtk.MenuItem
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype = (ManagedPtr RadioMenuItem)
deriving (RadioMenuItem -> RadioMenuItem -> Bool
(RadioMenuItem -> RadioMenuItem -> Bool)
-> (RadioMenuItem -> RadioMenuItem -> Bool) -> Eq RadioMenuItem
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RadioMenuItem -> RadioMenuItem -> Bool
$c/= :: RadioMenuItem -> RadioMenuItem -> Bool
== :: RadioMenuItem -> RadioMenuItem -> Bool
$c== :: RadioMenuItem -> RadioMenuItem -> Bool
Eq)
foreign import ccall "gtk_radio_menu_item_get_type"
:: IO GType
instance GObject RadioMenuItem where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_radio_menu_item_get_type
instance B.GValue.IsGValue RadioMenuItem where
toGValue :: RadioMenuItem -> IO GValue
toGValue o :: RadioMenuItem
o = do
GType
gtype <- IO GType
c_gtk_radio_menu_item_get_type
RadioMenuItem -> (Ptr RadioMenuItem -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RadioMenuItem
o (GType
-> (GValue -> Ptr RadioMenuItem -> IO ())
-> Ptr RadioMenuItem
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr RadioMenuItem -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO RadioMenuItem
fromGValue gv :: GValue
gv = do
Ptr RadioMenuItem
ptr <- GValue -> IO (Ptr RadioMenuItem)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr RadioMenuItem)
(ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem Ptr RadioMenuItem
ptr
class (GObject o, O.IsDescendantOf RadioMenuItem o) => o
instance (GObject o, O.IsDescendantOf RadioMenuItem o) => IsRadioMenuItem o
instance O.HasParentTypes RadioMenuItem
type instance O.ParentTypes RadioMenuItem = '[Gtk.CheckMenuItem.CheckMenuItem, Gtk.MenuItem.MenuItem, Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable]
toRadioMenuItem :: (MonadIO m, IsRadioMenuItem o) => o -> m RadioMenuItem
= IO RadioMenuItem -> m RadioMenuItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioMenuItem -> m RadioMenuItem)
-> (o -> IO RadioMenuItem) -> o -> m RadioMenuItem
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr RadioMenuItem -> RadioMenuItem)
-> o -> IO RadioMenuItem
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem
noRadioMenuItem :: Maybe RadioMenuItem
= Maybe RadioMenuItem
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRadioMenuItemMethod (t :: Symbol) (o :: *) :: * where
ResolveRadioMenuItemMethod "activate" o = Gtk.MenuItem.MenuItemActivateMethodInfo
ResolveRadioMenuItemMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveRadioMenuItemMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveRadioMenuItemMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveRadioMenuItemMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveRadioMenuItemMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveRadioMenuItemMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveRadioMenuItemMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveRadioMenuItemMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveRadioMenuItemMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveRadioMenuItemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRadioMenuItemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRadioMenuItemMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveRadioMenuItemMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveRadioMenuItemMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveRadioMenuItemMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveRadioMenuItemMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveRadioMenuItemMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveRadioMenuItemMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveRadioMenuItemMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveRadioMenuItemMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveRadioMenuItemMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveRadioMenuItemMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveRadioMenuItemMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveRadioMenuItemMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveRadioMenuItemMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveRadioMenuItemMethod "deselect" o = Gtk.MenuItem.MenuItemDeselectMethodInfo
ResolveRadioMenuItemMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveRadioMenuItemMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveRadioMenuItemMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveRadioMenuItemMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveRadioMenuItemMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveRadioMenuItemMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveRadioMenuItemMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveRadioMenuItemMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveRadioMenuItemMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveRadioMenuItemMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveRadioMenuItemMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveRadioMenuItemMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveRadioMenuItemMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveRadioMenuItemMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveRadioMenuItemMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveRadioMenuItemMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveRadioMenuItemMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveRadioMenuItemMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveRadioMenuItemMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveRadioMenuItemMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveRadioMenuItemMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveRadioMenuItemMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveRadioMenuItemMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveRadioMenuItemMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveRadioMenuItemMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveRadioMenuItemMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveRadioMenuItemMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveRadioMenuItemMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveRadioMenuItemMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveRadioMenuItemMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveRadioMenuItemMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveRadioMenuItemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRadioMenuItemMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveRadioMenuItemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRadioMenuItemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRadioMenuItemMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveRadioMenuItemMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveRadioMenuItemMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveRadioMenuItemMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveRadioMenuItemMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveRadioMenuItemMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveRadioMenuItemMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveRadioMenuItemMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveRadioMenuItemMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveRadioMenuItemMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveRadioMenuItemMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveRadioMenuItemMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveRadioMenuItemMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveRadioMenuItemMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveRadioMenuItemMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveRadioMenuItemMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveRadioMenuItemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRadioMenuItemMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveRadioMenuItemMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveRadioMenuItemMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveRadioMenuItemMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveRadioMenuItemMethod "joinGroup" o = RadioMenuItemJoinGroupMethodInfo
ResolveRadioMenuItemMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveRadioMenuItemMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveRadioMenuItemMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveRadioMenuItemMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveRadioMenuItemMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveRadioMenuItemMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveRadioMenuItemMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveRadioMenuItemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRadioMenuItemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRadioMenuItemMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveRadioMenuItemMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveRadioMenuItemMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveRadioMenuItemMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveRadioMenuItemMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveRadioMenuItemMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveRadioMenuItemMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveRadioMenuItemMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveRadioMenuItemMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveRadioMenuItemMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveRadioMenuItemMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRadioMenuItemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRadioMenuItemMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveRadioMenuItemMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveRadioMenuItemMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveRadioMenuItemMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveRadioMenuItemMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveRadioMenuItemMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveRadioMenuItemMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveRadioMenuItemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRadioMenuItemMethod "select" o = Gtk.MenuItem.MenuItemSelectMethodInfo
ResolveRadioMenuItemMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveRadioMenuItemMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveRadioMenuItemMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveRadioMenuItemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRadioMenuItemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRadioMenuItemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRadioMenuItemMethod "toggleSizeAllocate" o = Gtk.MenuItem.MenuItemToggleSizeAllocateMethodInfo
ResolveRadioMenuItemMethod "toggleSizeRequest" o = Gtk.MenuItem.MenuItemToggleSizeRequestMethodInfo
ResolveRadioMenuItemMethod "toggled" o = Gtk.CheckMenuItem.CheckMenuItemToggledMethodInfo
ResolveRadioMenuItemMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveRadioMenuItemMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveRadioMenuItemMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveRadioMenuItemMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveRadioMenuItemMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveRadioMenuItemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRadioMenuItemMethod "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveRadioMenuItemMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveRadioMenuItemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRadioMenuItemMethod "getAccelPath" o = Gtk.MenuItem.MenuItemGetAccelPathMethodInfo
ResolveRadioMenuItemMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveRadioMenuItemMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveRadioMenuItemMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveRadioMenuItemMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveRadioMenuItemMethod "getActive" o = Gtk.CheckMenuItem.CheckMenuItemGetActiveMethodInfo
ResolveRadioMenuItemMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveRadioMenuItemMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveRadioMenuItemMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveRadioMenuItemMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveRadioMenuItemMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveRadioMenuItemMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveRadioMenuItemMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveRadioMenuItemMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveRadioMenuItemMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveRadioMenuItemMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveRadioMenuItemMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveRadioMenuItemMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveRadioMenuItemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRadioMenuItemMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveRadioMenuItemMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveRadioMenuItemMethod "getDrawAsRadio" o = Gtk.CheckMenuItem.CheckMenuItemGetDrawAsRadioMethodInfo
ResolveRadioMenuItemMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveRadioMenuItemMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveRadioMenuItemMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveRadioMenuItemMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveRadioMenuItemMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveRadioMenuItemMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveRadioMenuItemMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveRadioMenuItemMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveRadioMenuItemMethod "getGroup" o = RadioMenuItemGetGroupMethodInfo
ResolveRadioMenuItemMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveRadioMenuItemMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveRadioMenuItemMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveRadioMenuItemMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveRadioMenuItemMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveRadioMenuItemMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveRadioMenuItemMethod "getInconsistent" o = Gtk.CheckMenuItem.CheckMenuItemGetInconsistentMethodInfo
ResolveRadioMenuItemMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveRadioMenuItemMethod "getLabel" o = Gtk.MenuItem.MenuItemGetLabelMethodInfo
ResolveRadioMenuItemMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveRadioMenuItemMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveRadioMenuItemMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveRadioMenuItemMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveRadioMenuItemMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveRadioMenuItemMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveRadioMenuItemMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveRadioMenuItemMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveRadioMenuItemMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveRadioMenuItemMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveRadioMenuItemMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveRadioMenuItemMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveRadioMenuItemMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveRadioMenuItemMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveRadioMenuItemMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveRadioMenuItemMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveRadioMenuItemMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveRadioMenuItemMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveRadioMenuItemMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveRadioMenuItemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRadioMenuItemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRadioMenuItemMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveRadioMenuItemMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveRadioMenuItemMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveRadioMenuItemMethod "getReserveIndicator" o = Gtk.MenuItem.MenuItemGetReserveIndicatorMethodInfo
ResolveRadioMenuItemMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveRadioMenuItemMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveRadioMenuItemMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveRadioMenuItemMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveRadioMenuItemMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveRadioMenuItemMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveRadioMenuItemMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveRadioMenuItemMethod "getSubmenu" o = Gtk.MenuItem.MenuItemGetSubmenuMethodInfo
ResolveRadioMenuItemMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveRadioMenuItemMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveRadioMenuItemMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveRadioMenuItemMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveRadioMenuItemMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveRadioMenuItemMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveRadioMenuItemMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveRadioMenuItemMethod "getUseUnderline" o = Gtk.MenuItem.MenuItemGetUseUnderlineMethodInfo
ResolveRadioMenuItemMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveRadioMenuItemMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveRadioMenuItemMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveRadioMenuItemMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveRadioMenuItemMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveRadioMenuItemMethod "setAccelPath" o = Gtk.MenuItem.MenuItemSetAccelPathMethodInfo
ResolveRadioMenuItemMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveRadioMenuItemMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveRadioMenuItemMethod "setActive" o = Gtk.CheckMenuItem.CheckMenuItemSetActiveMethodInfo
ResolveRadioMenuItemMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveRadioMenuItemMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveRadioMenuItemMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveRadioMenuItemMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveRadioMenuItemMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveRadioMenuItemMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveRadioMenuItemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRadioMenuItemMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRadioMenuItemMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveRadioMenuItemMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveRadioMenuItemMethod "setDrawAsRadio" o = Gtk.CheckMenuItem.CheckMenuItemSetDrawAsRadioMethodInfo
ResolveRadioMenuItemMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveRadioMenuItemMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveRadioMenuItemMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveRadioMenuItemMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveRadioMenuItemMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveRadioMenuItemMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveRadioMenuItemMethod "setGroup" o = RadioMenuItemSetGroupMethodInfo
ResolveRadioMenuItemMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveRadioMenuItemMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveRadioMenuItemMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveRadioMenuItemMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveRadioMenuItemMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveRadioMenuItemMethod "setInconsistent" o = Gtk.CheckMenuItem.CheckMenuItemSetInconsistentMethodInfo
ResolveRadioMenuItemMethod "setLabel" o = Gtk.MenuItem.MenuItemSetLabelMethodInfo
ResolveRadioMenuItemMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveRadioMenuItemMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveRadioMenuItemMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveRadioMenuItemMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveRadioMenuItemMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveRadioMenuItemMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveRadioMenuItemMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveRadioMenuItemMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveRadioMenuItemMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveRadioMenuItemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRadioMenuItemMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveRadioMenuItemMethod "setReserveIndicator" o = Gtk.MenuItem.MenuItemSetReserveIndicatorMethodInfo
ResolveRadioMenuItemMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveRadioMenuItemMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveRadioMenuItemMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveRadioMenuItemMethod "setSubmenu" o = Gtk.MenuItem.MenuItemSetSubmenuMethodInfo
ResolveRadioMenuItemMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveRadioMenuItemMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveRadioMenuItemMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveRadioMenuItemMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveRadioMenuItemMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveRadioMenuItemMethod "setUseUnderline" o = Gtk.MenuItem.MenuItemSetUseUnderlineMethodInfo
ResolveRadioMenuItemMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveRadioMenuItemMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveRadioMenuItemMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveRadioMenuItemMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveRadioMenuItemMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRadioMenuItemMethod t RadioMenuItem, O.MethodInfo info RadioMenuItem p) => OL.IsLabel t (RadioMenuItem -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type =
IO ()
noRadioMenuItemGroupChangedCallback :: Maybe RadioMenuItemGroupChangedCallback
= Maybe (IO ())
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_RadioMenuItemGroupChangedCallback -> IO (FunPtr C_RadioMenuItemGroupChangedCallback)
genClosure_RadioMenuItemGroupChanged :: MonadIO m => RadioMenuItemGroupChangedCallback -> m (GClosure C_RadioMenuItemGroupChangedCallback)
cb :: IO ()
cb = IO (GClosure C_RadioMenuItemGroupChangedCallback)
-> m (GClosure C_RadioMenuItemGroupChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_RadioMenuItemGroupChangedCallback)
-> m (GClosure C_RadioMenuItemGroupChangedCallback))
-> IO (GClosure C_RadioMenuItemGroupChangedCallback)
-> m (GClosure C_RadioMenuItemGroupChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RadioMenuItemGroupChangedCallback
cb' = IO () -> C_RadioMenuItemGroupChangedCallback
wrap_RadioMenuItemGroupChangedCallback IO ()
cb
C_RadioMenuItemGroupChangedCallback
-> IO (FunPtr C_RadioMenuItemGroupChangedCallback)
mk_RadioMenuItemGroupChangedCallback C_RadioMenuItemGroupChangedCallback
cb' IO (FunPtr C_RadioMenuItemGroupChangedCallback)
-> (FunPtr C_RadioMenuItemGroupChangedCallback
-> IO (GClosure C_RadioMenuItemGroupChangedCallback))
-> IO (GClosure C_RadioMenuItemGroupChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_RadioMenuItemGroupChangedCallback
-> IO (GClosure C_RadioMenuItemGroupChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_RadioMenuItemGroupChangedCallback ::
RadioMenuItemGroupChangedCallback ->
C_RadioMenuItemGroupChangedCallback
_cb :: IO ()
_cb _ _ = do
IO ()
_cb
onRadioMenuItemGroupChanged :: (IsRadioMenuItem a, MonadIO m) => a -> RadioMenuItemGroupChangedCallback -> m SignalHandlerId
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_RadioMenuItemGroupChangedCallback
cb' = IO () -> C_RadioMenuItemGroupChangedCallback
wrap_RadioMenuItemGroupChangedCallback IO ()
cb
FunPtr C_RadioMenuItemGroupChangedCallback
cb'' <- C_RadioMenuItemGroupChangedCallback
-> IO (FunPtr C_RadioMenuItemGroupChangedCallback)
mk_RadioMenuItemGroupChangedCallback C_RadioMenuItemGroupChangedCallback
cb'
a
-> Text
-> FunPtr C_RadioMenuItemGroupChangedCallback
-> 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_RadioMenuItemGroupChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRadioMenuItemGroupChanged :: (IsRadioMenuItem a, MonadIO m) => a -> RadioMenuItemGroupChangedCallback -> m SignalHandlerId
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_RadioMenuItemGroupChangedCallback
cb' = IO () -> C_RadioMenuItemGroupChangedCallback
wrap_RadioMenuItemGroupChangedCallback IO ()
cb
FunPtr C_RadioMenuItemGroupChangedCallback
cb'' <- C_RadioMenuItemGroupChangedCallback
-> IO (FunPtr C_RadioMenuItemGroupChangedCallback)
mk_RadioMenuItemGroupChangedCallback C_RadioMenuItemGroupChangedCallback
cb'
a
-> Text
-> FunPtr C_RadioMenuItemGroupChangedCallback
-> 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_RadioMenuItemGroupChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RadioMenuItemGroupChangedSignalInfo
instance SignalInfo RadioMenuItemGroupChangedSignalInfo where
type HaskellCallbackType RadioMenuItemGroupChangedSignalInfo = RadioMenuItemGroupChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RadioMenuItemGroupChangedCallback cb
cb'' <- mk_RadioMenuItemGroupChangedCallback cb'
connectSignalFunPtr obj "group-changed" cb'' connectMode detail
#endif
setRadioMenuItemGroup :: (MonadIO m, IsRadioMenuItem o, IsRadioMenuItem a) => o -> a -> m ()
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)
constructRadioMenuItemGroup :: (IsRadioMenuItem o, IsRadioMenuItem a) => a -> IO (GValueConstruct o)
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)
clearRadioMenuItemGroup :: (MonadIO m, IsRadioMenuItem o) => o -> m ()
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 RadioMenuItem -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "group" (Maybe RadioMenuItem
forall a. Maybe a
Nothing :: Maybe RadioMenuItem)
#if defined(ENABLE_OVERLOADING)
data RadioMenuItemGroupPropertyInfo
instance AttrInfo RadioMenuItemGroupPropertyInfo where
type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint RadioMenuItemGroupPropertyInfo = IsRadioMenuItem
type AttrSetTypeConstraint RadioMenuItemGroupPropertyInfo = IsRadioMenuItem
type AttrTransferTypeConstraint RadioMenuItemGroupPropertyInfo = IsRadioMenuItem
type AttrTransferType RadioMenuItemGroupPropertyInfo = RadioMenuItem
type AttrGetType RadioMenuItemGroupPropertyInfo = ()
type AttrLabel RadioMenuItemGroupPropertyInfo = "group"
type AttrOrigin RadioMenuItemGroupPropertyInfo = RadioMenuItem
attrGet = undefined
attrSet = setRadioMenuItemGroup
attrTransfer _ v = do
unsafeCastTo RadioMenuItem v
attrConstruct = constructRadioMenuItemGroup
attrClear = clearRadioMenuItemGroup
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RadioMenuItem
type instance O.AttributeList RadioMenuItem = RadioMenuItemAttributeList
type RadioMenuItemAttributeList = ('[ '("accelPath", Gtk.MenuItem.MenuItemAccelPathPropertyInfo), '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("active", Gtk.CheckMenuItem.CheckMenuItemActivePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("drawAsRadio", Gtk.CheckMenuItem.CheckMenuItemDrawAsRadioPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("inconsistent", Gtk.CheckMenuItem.CheckMenuItemInconsistentPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("label", Gtk.MenuItem.MenuItemLabelPropertyInfo), '("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), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("submenu", Gtk.MenuItem.MenuItemSubmenuPropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useUnderline", Gtk.MenuItem.MenuItemUseUnderlinePropertyInfo), '("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)
radioMenuItemGroup :: AttrLabelProxy "group"
radioMenuItemGroup = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList RadioMenuItem = RadioMenuItemSignalList
type RadioMenuItemSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activate", Gtk.MenuItem.MenuItemActivateSignalInfo), '("activateItem", Gtk.MenuItem.MenuItemActivateItemSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("deselect", Gtk.MenuItem.MenuItemDeselectSignalInfo), '("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", RadioMenuItemGroupChangedSignalInfo), '("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), '("select", Gtk.MenuItem.MenuItemSelectSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", Gtk.MenuItem.MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", Gtk.MenuItem.MenuItemToggleSizeRequestSignalInfo), '("toggled", Gtk.CheckMenuItem.CheckMenuItemToggledSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_radio_menu_item_new" ::
Ptr (GSList (Ptr RadioMenuItem)) ->
IO (Ptr RadioMenuItem)
radioMenuItemNew ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a) =>
[a]
-> m RadioMenuItem
group :: [a]
group = IO RadioMenuItem -> m RadioMenuItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioMenuItem -> m RadioMenuItem)
-> IO RadioMenuItem -> m RadioMenuItem
forall a b. (a -> b) -> a -> b
$ do
[Ptr RadioMenuItem]
group' <- (a -> IO (Ptr RadioMenuItem)) -> [a] -> IO [Ptr RadioMenuItem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
group
Ptr (GSList (Ptr RadioMenuItem))
group'' <- [Ptr RadioMenuItem] -> IO (Ptr (GSList (Ptr RadioMenuItem)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioMenuItem]
group'
Ptr RadioMenuItem
result <- Ptr (GSList (Ptr RadioMenuItem)) -> IO (Ptr RadioMenuItem)
gtk_radio_menu_item_new Ptr (GSList (Ptr RadioMenuItem))
group''
Text -> Ptr RadioMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "radioMenuItemNew" Ptr RadioMenuItem
result
RadioMenuItem
result' <- ((ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem) Ptr RadioMenuItem
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 RadioMenuItem)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioMenuItem))
group''
RadioMenuItem -> IO RadioMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return RadioMenuItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_menu_item_new_from_widget" ::
Ptr RadioMenuItem ->
IO (Ptr RadioMenuItem)
radioMenuItemNewFromWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a) =>
Maybe (a)
-> m RadioMenuItem
group :: Maybe a
group = IO RadioMenuItem -> m RadioMenuItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioMenuItem -> m RadioMenuItem)
-> IO RadioMenuItem -> m RadioMenuItem
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioMenuItem
maybeGroup <- case Maybe a
group of
Nothing -> Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
forall a. Ptr a
nullPtr
Just jGroup :: a
jGroup -> do
Ptr RadioMenuItem
jGroup' <- a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jGroup
Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
jGroup'
Ptr RadioMenuItem
result <- Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
gtk_radio_menu_item_new_from_widget Ptr RadioMenuItem
maybeGroup
Text -> Ptr RadioMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "radioMenuItemNewFromWidget" Ptr RadioMenuItem
result
RadioMenuItem
result' <- ((ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem) Ptr RadioMenuItem
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
group a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
RadioMenuItem -> IO RadioMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return RadioMenuItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_menu_item_new_with_label" ::
Ptr (GSList (Ptr RadioMenuItem)) ->
CString ->
IO (Ptr RadioMenuItem)
radioMenuItemNewWithLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a) =>
[a]
-> T.Text
-> m RadioMenuItem
group :: [a]
group label :: Text
label = IO RadioMenuItem -> m RadioMenuItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioMenuItem -> m RadioMenuItem)
-> IO RadioMenuItem -> m RadioMenuItem
forall a b. (a -> b) -> a -> b
$ do
[Ptr RadioMenuItem]
group' <- (a -> IO (Ptr RadioMenuItem)) -> [a] -> IO [Ptr RadioMenuItem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
group
Ptr (GSList (Ptr RadioMenuItem))
group'' <- [Ptr RadioMenuItem] -> IO (Ptr (GSList (Ptr RadioMenuItem)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioMenuItem]
group'
CString
label' <- Text -> IO CString
textToCString Text
label
Ptr RadioMenuItem
result <- Ptr (GSList (Ptr RadioMenuItem))
-> CString -> IO (Ptr RadioMenuItem)
gtk_radio_menu_item_new_with_label Ptr (GSList (Ptr RadioMenuItem))
group'' CString
label'
Text -> Ptr RadioMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "radioMenuItemNewWithLabel" Ptr RadioMenuItem
result
RadioMenuItem
result' <- ((ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem) Ptr RadioMenuItem
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 RadioMenuItem)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioMenuItem))
group''
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
RadioMenuItem -> IO RadioMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return RadioMenuItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_menu_item_new_with_label_from_widget" ::
Ptr RadioMenuItem ->
CString ->
IO (Ptr RadioMenuItem)
radioMenuItemNewWithLabelFromWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a) =>
Maybe (a)
-> Maybe (T.Text)
-> m RadioMenuItem
group :: Maybe a
group label :: Maybe Text
label = IO RadioMenuItem -> m RadioMenuItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioMenuItem -> m RadioMenuItem)
-> IO RadioMenuItem -> m RadioMenuItem
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioMenuItem
maybeGroup <- case Maybe a
group of
Nothing -> Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
forall a. Ptr a
nullPtr
Just jGroup :: a
jGroup -> do
Ptr RadioMenuItem
jGroup' <- a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jGroup
Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
jGroup'
CString
maybeLabel <- case Maybe Text
label of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jLabel :: Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr RadioMenuItem
result <- Ptr RadioMenuItem -> CString -> IO (Ptr RadioMenuItem)
gtk_radio_menu_item_new_with_label_from_widget Ptr RadioMenuItem
maybeGroup CString
maybeLabel
Text -> Ptr RadioMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "radioMenuItemNewWithLabelFromWidget" Ptr RadioMenuItem
result
RadioMenuItem
result' <- ((ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem) Ptr RadioMenuItem
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
group a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
RadioMenuItem -> IO RadioMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return RadioMenuItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_menu_item_new_with_mnemonic" ::
Ptr (GSList (Ptr RadioMenuItem)) ->
CString ->
IO (Ptr RadioMenuItem)
radioMenuItemNewWithMnemonic ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a) =>
[a]
-> T.Text
-> m RadioMenuItem
group :: [a]
group label :: Text
label = IO RadioMenuItem -> m RadioMenuItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioMenuItem -> m RadioMenuItem)
-> IO RadioMenuItem -> m RadioMenuItem
forall a b. (a -> b) -> a -> b
$ do
[Ptr RadioMenuItem]
group' <- (a -> IO (Ptr RadioMenuItem)) -> [a] -> IO [Ptr RadioMenuItem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [a]
group
Ptr (GSList (Ptr RadioMenuItem))
group'' <- [Ptr RadioMenuItem] -> IO (Ptr (GSList (Ptr RadioMenuItem)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioMenuItem]
group'
CString
label' <- Text -> IO CString
textToCString Text
label
Ptr RadioMenuItem
result <- Ptr (GSList (Ptr RadioMenuItem))
-> CString -> IO (Ptr RadioMenuItem)
gtk_radio_menu_item_new_with_mnemonic Ptr (GSList (Ptr RadioMenuItem))
group'' CString
label'
Text -> Ptr RadioMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "radioMenuItemNewWithMnemonic" Ptr RadioMenuItem
result
RadioMenuItem
result' <- ((ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem) Ptr RadioMenuItem
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 RadioMenuItem)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioMenuItem))
group''
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
RadioMenuItem -> IO RadioMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return RadioMenuItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_menu_item_new_with_mnemonic_from_widget" ::
Ptr RadioMenuItem ->
CString ->
IO (Ptr RadioMenuItem)
radioMenuItemNewWithMnemonicFromWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a) =>
Maybe (a)
-> Maybe (T.Text)
-> m RadioMenuItem
group :: Maybe a
group label :: Maybe Text
label = IO RadioMenuItem -> m RadioMenuItem
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RadioMenuItem -> m RadioMenuItem)
-> IO RadioMenuItem -> m RadioMenuItem
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioMenuItem
maybeGroup <- case Maybe a
group of
Nothing -> Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
forall a. Ptr a
nullPtr
Just jGroup :: a
jGroup -> do
Ptr RadioMenuItem
jGroup' <- a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jGroup
Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
jGroup'
CString
maybeLabel <- case Maybe Text
label of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jLabel :: Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr RadioMenuItem
result <- Ptr RadioMenuItem -> CString -> IO (Ptr RadioMenuItem)
gtk_radio_menu_item_new_with_mnemonic_from_widget Ptr RadioMenuItem
maybeGroup CString
maybeLabel
Text -> Ptr RadioMenuItem -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "radioMenuItemNewWithMnemonicFromWidget" Ptr RadioMenuItem
result
RadioMenuItem
result' <- ((ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem) Ptr RadioMenuItem
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
group a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
RadioMenuItem -> IO RadioMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return RadioMenuItem
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_radio_menu_item_get_group" ::
Ptr RadioMenuItem ->
IO (Ptr (GSList (Ptr RadioMenuItem)))
radioMenuItemGetGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a) =>
a
-> m [RadioMenuItem]
radioMenuItem :: a
radioMenuItem = IO [RadioMenuItem] -> m [RadioMenuItem]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [RadioMenuItem] -> m [RadioMenuItem])
-> IO [RadioMenuItem] -> m [RadioMenuItem]
forall a b. (a -> b) -> a -> b
$ do
Ptr RadioMenuItem
radioMenuItem' <- a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
radioMenuItem
Ptr (GSList (Ptr RadioMenuItem))
result <- Ptr RadioMenuItem -> IO (Ptr (GSList (Ptr RadioMenuItem)))
gtk_radio_menu_item_get_group Ptr RadioMenuItem
radioMenuItem'
[Ptr RadioMenuItem]
result' <- Ptr (GSList (Ptr RadioMenuItem)) -> IO [Ptr RadioMenuItem]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr RadioMenuItem))
result
[RadioMenuItem]
result'' <- (Ptr RadioMenuItem -> IO RadioMenuItem)
-> [Ptr RadioMenuItem] -> IO [RadioMenuItem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr RadioMenuItem -> RadioMenuItem)
-> Ptr RadioMenuItem -> IO RadioMenuItem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr RadioMenuItem -> RadioMenuItem
RadioMenuItem) [Ptr RadioMenuItem]
result'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
radioMenuItem
[RadioMenuItem] -> IO [RadioMenuItem]
forall (m :: * -> *) a. Monad m => a -> m a
return [RadioMenuItem]
result''
#if defined(ENABLE_OVERLOADING)
data RadioMenuItemGetGroupMethodInfo
instance (signature ~ (m [RadioMenuItem]), MonadIO m, IsRadioMenuItem a) => O.MethodInfo RadioMenuItemGetGroupMethodInfo a signature where
overloadedMethod = radioMenuItemGetGroup
#endif
foreign import ccall "gtk_radio_menu_item_join_group" ::
Ptr RadioMenuItem ->
Ptr RadioMenuItem ->
IO ()
radioMenuItemJoinGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a, IsRadioMenuItem b) =>
a
-> Maybe (b)
-> m ()
radioMenuItem :: a
radioMenuItem 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 RadioMenuItem
radioMenuItem' <- a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
radioMenuItem
Ptr RadioMenuItem
maybeGroupSource <- case Maybe b
groupSource of
Nothing -> Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
forall a. Ptr a
nullPtr
Just jGroupSource :: b
jGroupSource -> do
Ptr RadioMenuItem
jGroupSource' <- b -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jGroupSource
Ptr RadioMenuItem -> IO (Ptr RadioMenuItem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RadioMenuItem
jGroupSource'
Ptr RadioMenuItem -> Ptr RadioMenuItem -> IO ()
gtk_radio_menu_item_join_group Ptr RadioMenuItem
radioMenuItem' Ptr RadioMenuItem
maybeGroupSource
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
radioMenuItem
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 RadioMenuItemJoinGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsRadioMenuItem a, IsRadioMenuItem b) => O.MethodInfo RadioMenuItemJoinGroupMethodInfo a signature where
overloadedMethod = radioMenuItemJoinGroup
#endif
foreign import ccall "gtk_radio_menu_item_set_group" ::
Ptr RadioMenuItem ->
Ptr (GSList (Ptr RadioMenuItem)) ->
IO ()
radioMenuItemSetGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsRadioMenuItem a, IsRadioMenuItem b) =>
a
-> [b]
-> m ()
radioMenuItem :: a
radioMenuItem 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 RadioMenuItem
radioMenuItem' <- a -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
radioMenuItem
[Ptr RadioMenuItem]
group' <- (b -> IO (Ptr RadioMenuItem)) -> [b] -> IO [Ptr RadioMenuItem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM b -> IO (Ptr RadioMenuItem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [b]
group
Ptr (GSList (Ptr RadioMenuItem))
group'' <- [Ptr RadioMenuItem] -> IO (Ptr (GSList (Ptr RadioMenuItem)))
forall a. [Ptr a] -> IO (Ptr (GSList (Ptr a)))
packGSList [Ptr RadioMenuItem]
group'
Ptr RadioMenuItem -> Ptr (GSList (Ptr RadioMenuItem)) -> IO ()
gtk_radio_menu_item_set_group Ptr RadioMenuItem
radioMenuItem' Ptr (GSList (Ptr RadioMenuItem))
group''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
radioMenuItem
(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 RadioMenuItem)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr RadioMenuItem))
group''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RadioMenuItemSetGroupMethodInfo
instance (signature ~ ([b] -> m ()), MonadIO m, IsRadioMenuItem a, IsRadioMenuItem b) => O.MethodInfo RadioMenuItemSetGroupMethodInfo a signature where
overloadedMethod = radioMenuItemSetGroup
#endif