{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.MenuShell
(
MenuShell(..) ,
IsMenuShell ,
toMenuShell ,
#if defined(ENABLE_OVERLOADING)
ResolveMenuShellMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MenuShellActivateItemMethodInfo ,
#endif
menuShellActivateItem ,
#if defined(ENABLE_OVERLOADING)
MenuShellAppendMethodInfo ,
#endif
menuShellAppend ,
#if defined(ENABLE_OVERLOADING)
MenuShellBindModelMethodInfo ,
#endif
menuShellBindModel ,
#if defined(ENABLE_OVERLOADING)
MenuShellCancelMethodInfo ,
#endif
menuShellCancel ,
#if defined(ENABLE_OVERLOADING)
MenuShellDeactivateMethodInfo ,
#endif
menuShellDeactivate ,
#if defined(ENABLE_OVERLOADING)
MenuShellDeselectMethodInfo ,
#endif
menuShellDeselect ,
#if defined(ENABLE_OVERLOADING)
MenuShellGetParentShellMethodInfo ,
#endif
menuShellGetParentShell ,
#if defined(ENABLE_OVERLOADING)
MenuShellGetSelectedItemMethodInfo ,
#endif
menuShellGetSelectedItem ,
#if defined(ENABLE_OVERLOADING)
MenuShellGetTakeFocusMethodInfo ,
#endif
menuShellGetTakeFocus ,
#if defined(ENABLE_OVERLOADING)
MenuShellInsertMethodInfo ,
#endif
menuShellInsert ,
#if defined(ENABLE_OVERLOADING)
MenuShellPrependMethodInfo ,
#endif
menuShellPrepend ,
#if defined(ENABLE_OVERLOADING)
MenuShellSelectFirstMethodInfo ,
#endif
menuShellSelectFirst ,
#if defined(ENABLE_OVERLOADING)
MenuShellSelectItemMethodInfo ,
#endif
menuShellSelectItem ,
#if defined(ENABLE_OVERLOADING)
MenuShellSetTakeFocusMethodInfo ,
#endif
menuShellSetTakeFocus ,
#if defined(ENABLE_OVERLOADING)
MenuShellTakeFocusPropertyInfo ,
#endif
constructMenuShellTakeFocus ,
getMenuShellTakeFocus ,
#if defined(ENABLE_OVERLOADING)
menuShellTakeFocus ,
#endif
setMenuShellTakeFocus ,
MenuShellActivateCurrentCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellActivateCurrentSignalInfo ,
#endif
afterMenuShellActivateCurrent ,
onMenuShellActivateCurrent ,
MenuShellCancelCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellCancelSignalInfo ,
#endif
afterMenuShellCancel ,
onMenuShellCancel ,
MenuShellCycleFocusCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellCycleFocusSignalInfo ,
#endif
afterMenuShellCycleFocus ,
onMenuShellCycleFocus ,
MenuShellDeactivateCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellDeactivateSignalInfo ,
#endif
afterMenuShellDeactivate ,
onMenuShellDeactivate ,
MenuShellInsertCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellInsertSignalInfo ,
#endif
afterMenuShellInsert ,
onMenuShellInsert ,
MenuShellMoveCurrentCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellMoveCurrentSignalInfo ,
#endif
afterMenuShellMoveCurrent ,
onMenuShellMoveCurrent ,
MenuShellMoveSelectedCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellMoveSelectedSignalInfo ,
#endif
afterMenuShellMoveSelected ,
onMenuShellMoveSelected ,
MenuShellSelectionDoneCallback ,
#if defined(ENABLE_OVERLOADING)
MenuShellSelectionDoneSignalInfo ,
#endif
afterMenuShellSelectionDone ,
onMenuShellSelectionDone ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
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 = (SP.ManagedPtr MenuShell)
deriving (MenuShell -> MenuShell -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MenuShell -> MenuShell -> Bool
$c/= :: MenuShell -> MenuShell -> Bool
== :: MenuShell -> MenuShell -> Bool
$c== :: MenuShell -> MenuShell -> Bool
Eq)
instance SP.ManagedPtrNewtype MenuShell where
toManagedPtr :: MenuShell -> ManagedPtr MenuShell
toManagedPtr (MenuShell ManagedPtr MenuShell
p) = ManagedPtr MenuShell
p
foreign import ccall "gtk_menu_shell_get_type"
:: IO B.Types.GType
instance B.Types.TypedObject MenuShell where
glibType :: IO GType
glibType = IO GType
c_gtk_menu_shell_get_type
instance B.Types.GObject MenuShell
class (SP.GObject o, O.IsDescendantOf MenuShell o) => o
instance (SP.GObject o, O.IsDescendantOf MenuShell o) => IsMenuShell o
instance O.HasParentTypes MenuShell
type instance O.ParentTypes MenuShell = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toMenuShell :: (MIO.MonadIO m, IsMenuShell o) => o -> m MenuShell
= forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr MenuShell -> MenuShell
MenuShell
instance B.GValue.IsGValue (Maybe MenuShell) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_menu_shell_get_type
gvalueSet_ :: Ptr GValue -> Maybe MenuShell -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MenuShell
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr MenuShell)
gvalueSet_ Ptr GValue
gv (P.Just MenuShell
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MenuShell
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MenuShell)
gvalueGet_ Ptr GValue
gv = do
Ptr MenuShell
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr MenuShell)
if Ptr MenuShell
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr MenuShell -> MenuShell
MenuShell Ptr MenuShell
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMenuShellMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveMenuShellMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveMenuShellMethod "activateItem" o = MenuShellActivateItemMethodInfo
ResolveMenuShellMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveMenuShellMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveMenuShellMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveMenuShellMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveMenuShellMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveMenuShellMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveMenuShellMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveMenuShellMethod "append" o = MenuShellAppendMethodInfo
ResolveMenuShellMethod "bindModel" o = MenuShellBindModelMethodInfo
ResolveMenuShellMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMenuShellMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMenuShellMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveMenuShellMethod "cancel" o = MenuShellCancelMethodInfo
ResolveMenuShellMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveMenuShellMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveMenuShellMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveMenuShellMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveMenuShellMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveMenuShellMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveMenuShellMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveMenuShellMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveMenuShellMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveMenuShellMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveMenuShellMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveMenuShellMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveMenuShellMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveMenuShellMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveMenuShellMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveMenuShellMethod "deactivate" o = MenuShellDeactivateMethodInfo
ResolveMenuShellMethod "deselect" o = MenuShellDeselectMethodInfo
ResolveMenuShellMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveMenuShellMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveMenuShellMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveMenuShellMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveMenuShellMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveMenuShellMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveMenuShellMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveMenuShellMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveMenuShellMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveMenuShellMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveMenuShellMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveMenuShellMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveMenuShellMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveMenuShellMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveMenuShellMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveMenuShellMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveMenuShellMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveMenuShellMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveMenuShellMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveMenuShellMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveMenuShellMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveMenuShellMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveMenuShellMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveMenuShellMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveMenuShellMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveMenuShellMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveMenuShellMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveMenuShellMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveMenuShellMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveMenuShellMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveMenuShellMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveMenuShellMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveMenuShellMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveMenuShellMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveMenuShellMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveMenuShellMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveMenuShellMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMenuShellMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveMenuShellMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveMenuShellMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMenuShellMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMenuShellMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveMenuShellMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveMenuShellMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveMenuShellMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveMenuShellMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveMenuShellMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveMenuShellMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveMenuShellMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveMenuShellMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveMenuShellMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveMenuShellMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveMenuShellMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveMenuShellMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveMenuShellMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveMenuShellMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveMenuShellMethod "insert" o = MenuShellInsertMethodInfo
ResolveMenuShellMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveMenuShellMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveMenuShellMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveMenuShellMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveMenuShellMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveMenuShellMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMenuShellMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveMenuShellMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveMenuShellMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveMenuShellMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveMenuShellMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveMenuShellMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveMenuShellMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveMenuShellMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveMenuShellMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveMenuShellMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveMenuShellMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveMenuShellMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveMenuShellMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveMenuShellMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveMenuShellMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveMenuShellMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveMenuShellMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveMenuShellMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMenuShellMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMenuShellMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveMenuShellMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveMenuShellMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveMenuShellMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveMenuShellMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveMenuShellMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveMenuShellMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveMenuShellMethod "prepend" o = MenuShellPrependMethodInfo
ResolveMenuShellMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveMenuShellMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveMenuShellMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveMenuShellMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveMenuShellMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveMenuShellMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveMenuShellMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveMenuShellMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveMenuShellMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveMenuShellMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMenuShellMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMenuShellMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveMenuShellMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveMenuShellMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveMenuShellMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveMenuShellMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveMenuShellMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveMenuShellMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveMenuShellMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveMenuShellMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveMenuShellMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveMenuShellMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveMenuShellMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveMenuShellMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMenuShellMethod "selectFirst" o = MenuShellSelectFirstMethodInfo
ResolveMenuShellMethod "selectItem" o = MenuShellSelectItemMethodInfo
ResolveMenuShellMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveMenuShellMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveMenuShellMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveMenuShellMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveMenuShellMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveMenuShellMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveMenuShellMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveMenuShellMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveMenuShellMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveMenuShellMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMenuShellMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMenuShellMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveMenuShellMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveMenuShellMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveMenuShellMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMenuShellMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveMenuShellMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveMenuShellMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveMenuShellMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveMenuShellMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveMenuShellMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMenuShellMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveMenuShellMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveMenuShellMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveMenuShellMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMenuShellMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveMenuShellMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveMenuShellMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveMenuShellMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveMenuShellMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveMenuShellMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveMenuShellMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveMenuShellMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveMenuShellMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveMenuShellMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveMenuShellMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveMenuShellMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveMenuShellMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveMenuShellMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveMenuShellMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveMenuShellMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveMenuShellMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveMenuShellMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveMenuShellMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMenuShellMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveMenuShellMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveMenuShellMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveMenuShellMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveMenuShellMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveMenuShellMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveMenuShellMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveMenuShellMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveMenuShellMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveMenuShellMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveMenuShellMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveMenuShellMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveMenuShellMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveMenuShellMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveMenuShellMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveMenuShellMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveMenuShellMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveMenuShellMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveMenuShellMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveMenuShellMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveMenuShellMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveMenuShellMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveMenuShellMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveMenuShellMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveMenuShellMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveMenuShellMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveMenuShellMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveMenuShellMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveMenuShellMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveMenuShellMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveMenuShellMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveMenuShellMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveMenuShellMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveMenuShellMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveMenuShellMethod "getParentShell" o = MenuShellGetParentShellMethodInfo
ResolveMenuShellMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveMenuShellMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveMenuShellMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveMenuShellMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveMenuShellMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveMenuShellMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveMenuShellMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveMenuShellMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveMenuShellMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveMenuShellMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveMenuShellMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMenuShellMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMenuShellMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveMenuShellMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveMenuShellMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveMenuShellMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveMenuShellMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveMenuShellMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveMenuShellMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveMenuShellMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveMenuShellMethod "getSelectedItem" o = MenuShellGetSelectedItemMethodInfo
ResolveMenuShellMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveMenuShellMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveMenuShellMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveMenuShellMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveMenuShellMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveMenuShellMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveMenuShellMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveMenuShellMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveMenuShellMethod "getTakeFocus" o = MenuShellGetTakeFocusMethodInfo
ResolveMenuShellMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveMenuShellMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveMenuShellMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveMenuShellMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveMenuShellMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveMenuShellMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveMenuShellMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveMenuShellMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveMenuShellMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveMenuShellMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveMenuShellMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveMenuShellMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveMenuShellMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveMenuShellMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveMenuShellMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveMenuShellMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveMenuShellMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveMenuShellMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveMenuShellMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveMenuShellMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveMenuShellMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveMenuShellMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveMenuShellMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMenuShellMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMenuShellMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveMenuShellMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveMenuShellMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveMenuShellMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveMenuShellMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveMenuShellMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveMenuShellMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveMenuShellMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveMenuShellMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveMenuShellMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveMenuShellMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveMenuShellMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveMenuShellMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveMenuShellMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveMenuShellMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveMenuShellMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveMenuShellMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveMenuShellMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveMenuShellMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveMenuShellMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveMenuShellMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveMenuShellMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveMenuShellMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveMenuShellMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveMenuShellMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveMenuShellMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveMenuShellMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveMenuShellMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveMenuShellMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveMenuShellMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMenuShellMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveMenuShellMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveMenuShellMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveMenuShellMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveMenuShellMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveMenuShellMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveMenuShellMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveMenuShellMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveMenuShellMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveMenuShellMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveMenuShellMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveMenuShellMethod "setTakeFocus" o = MenuShellSetTakeFocusMethodInfo
ResolveMenuShellMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveMenuShellMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveMenuShellMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveMenuShellMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveMenuShellMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveMenuShellMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveMenuShellMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveMenuShellMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveMenuShellMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveMenuShellMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMenuShellMethod t MenuShell, O.OverloadedMethod info MenuShell p) => OL.IsLabel t (MenuShell -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveMenuShellMethod t MenuShell, O.OverloadedMethod info MenuShell p, R.HasField t MenuShell p) => R.HasField t MenuShell p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMenuShellMethod t MenuShell, O.OverloadedMethodInfo info MenuShell) => OL.IsLabel t (O.MethodProxy info MenuShell) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type =
Bool
-> IO ()
type =
Ptr MenuShell ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuShellActivateCurrentCallback -> IO (FunPtr C_MenuShellActivateCurrentCallback)
wrap_MenuShellActivateCurrentCallback ::
GObject a => (a -> MenuShellActivateCurrentCallback) ->
C_MenuShellActivateCurrentCallback
a -> MenuShellActivateCurrentCallback
gi'cb Ptr MenuShell
gi'selfPtr CInt
forceHide Ptr ()
_ = do
let forceHide' :: Bool
forceHide' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
forceHide
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> MenuShellActivateCurrentCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self) Bool
forceHide'
onMenuShellActivateCurrent :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellActivateCurrentCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellActivateCurrentCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellActivateCurrentCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellActivateCurrentCallback
cb
let wrapped' :: C_MenuShellActivateCurrentCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellActivateCurrentCallback)
-> C_MenuShellActivateCurrentCallback
wrap_MenuShellActivateCurrentCallback a -> MenuShellActivateCurrentCallback
wrapped
FunPtr C_MenuShellActivateCurrentCallback
wrapped'' <- C_MenuShellActivateCurrentCallback
-> IO (FunPtr C_MenuShellActivateCurrentCallback)
mk_MenuShellActivateCurrentCallback C_MenuShellActivateCurrentCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-current" FunPtr C_MenuShellActivateCurrentCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellActivateCurrent :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellActivateCurrentCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellActivateCurrentCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellActivateCurrentCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellActivateCurrentCallback
cb
let wrapped' :: C_MenuShellActivateCurrentCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellActivateCurrentCallback)
-> C_MenuShellActivateCurrentCallback
wrap_MenuShellActivateCurrentCallback a -> MenuShellActivateCurrentCallback
wrapped
FunPtr C_MenuShellActivateCurrentCallback
wrapped'' <- C_MenuShellActivateCurrentCallback
-> IO (FunPtr C_MenuShellActivateCurrentCallback)
mk_MenuShellActivateCurrentCallback C_MenuShellActivateCurrentCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-current" FunPtr C_MenuShellActivateCurrentCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellActivateCurrentSignalInfo
instance SignalInfo MenuShellActivateCurrentSignalInfo where
type HaskellCallbackType MenuShellActivateCurrentSignalInfo = MenuShellActivateCurrentCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellActivateCurrentCallback cb
cb'' <- mk_MenuShellActivateCurrentCallback cb'
connectSignalFunPtr obj "activate-current" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::activate-current"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:activateCurrent"})
#endif
type =
IO ()
type =
Ptr MenuShell ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuShellCancelCallback -> IO (FunPtr C_MenuShellCancelCallback)
wrap_MenuShellCancelCallback ::
GObject a => (a -> MenuShellCancelCallback) ->
C_MenuShellCancelCallback
a -> IO ()
gi'cb Ptr MenuShell
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self)
onMenuShellCancel :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellCancelCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_MenuShellCancelCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_MenuShellCancelCallback
wrap_MenuShellCancelCallback a -> IO ()
wrapped
FunPtr C_MenuShellCancelCallback
wrapped'' <- C_MenuShellCancelCallback -> IO (FunPtr C_MenuShellCancelCallback)
mk_MenuShellCancelCallback C_MenuShellCancelCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cancel" FunPtr C_MenuShellCancelCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellCancel :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellCancelCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_MenuShellCancelCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_MenuShellCancelCallback
wrap_MenuShellCancelCallback a -> IO ()
wrapped
FunPtr C_MenuShellCancelCallback
wrapped'' <- C_MenuShellCancelCallback -> IO (FunPtr C_MenuShellCancelCallback)
mk_MenuShellCancelCallback C_MenuShellCancelCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cancel" FunPtr C_MenuShellCancelCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellCancelSignalInfo
instance SignalInfo MenuShellCancelSignalInfo where
type HaskellCallbackType MenuShellCancelSignalInfo = MenuShellCancelCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellCancelCallback cb
cb'' <- mk_MenuShellCancelCallback cb'
connectSignalFunPtr obj "cancel" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::cancel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:cancel"})
#endif
type =
Gtk.Enums.DirectionType
-> IO ()
type =
Ptr MenuShell ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuShellCycleFocusCallback -> IO (FunPtr C_MenuShellCycleFocusCallback)
wrap_MenuShellCycleFocusCallback ::
GObject a => (a -> MenuShellCycleFocusCallback) ->
C_MenuShellCycleFocusCallback
a -> MenuShellCycleFocusCallback
gi'cb Ptr MenuShell
gi'selfPtr CUInt
direction Ptr ()
_ = do
let direction' :: DirectionType
direction' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
direction
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> MenuShellCycleFocusCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self) DirectionType
direction'
onMenuShellCycleFocus :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellCycleFocusCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellCycleFocusCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellCycleFocusCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellCycleFocusCallback
cb
let wrapped' :: C_MenuShellCycleFocusCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellCycleFocusCallback) -> C_MenuShellCycleFocusCallback
wrap_MenuShellCycleFocusCallback a -> MenuShellCycleFocusCallback
wrapped
FunPtr C_MenuShellCycleFocusCallback
wrapped'' <- C_MenuShellCycleFocusCallback
-> IO (FunPtr C_MenuShellCycleFocusCallback)
mk_MenuShellCycleFocusCallback C_MenuShellCycleFocusCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cycle-focus" FunPtr C_MenuShellCycleFocusCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellCycleFocus :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellCycleFocusCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellCycleFocusCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellCycleFocusCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellCycleFocusCallback
cb
let wrapped' :: C_MenuShellCycleFocusCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellCycleFocusCallback) -> C_MenuShellCycleFocusCallback
wrap_MenuShellCycleFocusCallback a -> MenuShellCycleFocusCallback
wrapped
FunPtr C_MenuShellCycleFocusCallback
wrapped'' <- C_MenuShellCycleFocusCallback
-> IO (FunPtr C_MenuShellCycleFocusCallback)
mk_MenuShellCycleFocusCallback C_MenuShellCycleFocusCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cycle-focus" FunPtr C_MenuShellCycleFocusCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellCycleFocusSignalInfo
instance SignalInfo MenuShellCycleFocusSignalInfo where
type HaskellCallbackType MenuShellCycleFocusSignalInfo = MenuShellCycleFocusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellCycleFocusCallback cb
cb'' <- mk_MenuShellCycleFocusCallback cb'
connectSignalFunPtr obj "cycle-focus" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::cycle-focus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:cycleFocus"})
#endif
type =
IO ()
type =
Ptr MenuShell ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuShellDeactivateCallback -> IO (FunPtr C_MenuShellDeactivateCallback)
wrap_MenuShellDeactivateCallback ::
GObject a => (a -> MenuShellDeactivateCallback) ->
C_MenuShellDeactivateCallback
a -> IO ()
gi'cb Ptr MenuShell
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self)
onMenuShellDeactivate :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellDeactivateCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_MenuShellCancelCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_MenuShellCancelCallback
wrap_MenuShellDeactivateCallback a -> IO ()
wrapped
FunPtr C_MenuShellCancelCallback
wrapped'' <- C_MenuShellCancelCallback -> IO (FunPtr C_MenuShellCancelCallback)
mk_MenuShellDeactivateCallback C_MenuShellCancelCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"deactivate" FunPtr C_MenuShellCancelCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellDeactivate :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellDeactivateCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_MenuShellCancelCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_MenuShellCancelCallback
wrap_MenuShellDeactivateCallback a -> IO ()
wrapped
FunPtr C_MenuShellCancelCallback
wrapped'' <- C_MenuShellCancelCallback -> IO (FunPtr C_MenuShellCancelCallback)
mk_MenuShellDeactivateCallback C_MenuShellCancelCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"deactivate" FunPtr C_MenuShellCancelCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellDeactivateSignalInfo
instance SignalInfo MenuShellDeactivateSignalInfo where
type HaskellCallbackType MenuShellDeactivateSignalInfo = MenuShellDeactivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellDeactivateCallback cb
cb'' <- mk_MenuShellDeactivateCallback cb'
connectSignalFunPtr obj "deactivate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::deactivate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:deactivate"})
#endif
type =
Gtk.Widget.Widget
-> Int32
-> IO ()
type =
Ptr MenuShell ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuShellInsertCallback -> IO (FunPtr C_MenuShellInsertCallback)
wrap_MenuShellInsertCallback ::
GObject a => (a -> MenuShellInsertCallback) ->
C_MenuShellInsertCallback
a -> MenuShellInsertCallback
gi'cb Ptr MenuShell
gi'selfPtr Ptr Widget
child Int32
position Ptr ()
_ = do
Widget
child' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
child
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> MenuShellInsertCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self) Widget
child' Int32
position
onMenuShellInsert :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellInsertCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellInsertCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellInsertCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellInsertCallback
cb
let wrapped' :: C_MenuShellInsertCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellInsertCallback) -> C_MenuShellInsertCallback
wrap_MenuShellInsertCallback a -> MenuShellInsertCallback
wrapped
FunPtr C_MenuShellInsertCallback
wrapped'' <- C_MenuShellInsertCallback -> IO (FunPtr C_MenuShellInsertCallback)
mk_MenuShellInsertCallback C_MenuShellInsertCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert" FunPtr C_MenuShellInsertCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellInsert :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellInsertCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellInsertCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellInsertCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellInsertCallback
cb
let wrapped' :: C_MenuShellInsertCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellInsertCallback) -> C_MenuShellInsertCallback
wrap_MenuShellInsertCallback a -> MenuShellInsertCallback
wrapped
FunPtr C_MenuShellInsertCallback
wrapped'' <- C_MenuShellInsertCallback -> IO (FunPtr C_MenuShellInsertCallback)
mk_MenuShellInsertCallback C_MenuShellInsertCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"insert" FunPtr C_MenuShellInsertCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellInsertSignalInfo
instance SignalInfo MenuShellInsertSignalInfo where
type HaskellCallbackType MenuShellInsertSignalInfo = MenuShellInsertCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellInsertCallback cb
cb'' <- mk_MenuShellInsertCallback cb'
connectSignalFunPtr obj "insert" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::insert"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:insert"})
#endif
type =
Gtk.Enums.MenuDirectionType
-> IO ()
type =
Ptr MenuShell ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuShellMoveCurrentCallback -> IO (FunPtr C_MenuShellMoveCurrentCallback)
wrap_MenuShellMoveCurrentCallback ::
GObject a => (a -> MenuShellMoveCurrentCallback) ->
C_MenuShellMoveCurrentCallback
a -> MenuShellMoveCurrentCallback
gi'cb Ptr MenuShell
gi'selfPtr CUInt
direction Ptr ()
_ = do
let direction' :: MenuDirectionType
direction' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
direction
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> MenuShellMoveCurrentCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self) MenuDirectionType
direction'
onMenuShellMoveCurrent :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellMoveCurrentCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellMoveCurrentCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellMoveCurrentCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellMoveCurrentCallback
cb
let wrapped' :: C_MenuShellCycleFocusCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellMoveCurrentCallback)
-> C_MenuShellCycleFocusCallback
wrap_MenuShellMoveCurrentCallback a -> MenuShellMoveCurrentCallback
wrapped
FunPtr C_MenuShellCycleFocusCallback
wrapped'' <- C_MenuShellCycleFocusCallback
-> IO (FunPtr C_MenuShellCycleFocusCallback)
mk_MenuShellMoveCurrentCallback C_MenuShellCycleFocusCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-current" FunPtr C_MenuShellCycleFocusCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellMoveCurrent :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellMoveCurrentCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellMoveCurrentCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellMoveCurrentCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellMoveCurrentCallback
cb
let wrapped' :: C_MenuShellCycleFocusCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellMoveCurrentCallback)
-> C_MenuShellCycleFocusCallback
wrap_MenuShellMoveCurrentCallback a -> MenuShellMoveCurrentCallback
wrapped
FunPtr C_MenuShellCycleFocusCallback
wrapped'' <- C_MenuShellCycleFocusCallback
-> IO (FunPtr C_MenuShellCycleFocusCallback)
mk_MenuShellMoveCurrentCallback C_MenuShellCycleFocusCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-current" FunPtr C_MenuShellCycleFocusCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellMoveCurrentSignalInfo
instance SignalInfo MenuShellMoveCurrentSignalInfo where
type HaskellCallbackType MenuShellMoveCurrentSignalInfo = MenuShellMoveCurrentCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellMoveCurrentCallback cb
cb'' <- mk_MenuShellMoveCurrentCallback cb'
connectSignalFunPtr obj "move-current" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::move-current"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:moveCurrent"})
#endif
type =
Int32
-> IO Bool
type =
Ptr MenuShell ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
:: C_MenuShellMoveSelectedCallback -> IO (FunPtr C_MenuShellMoveSelectedCallback)
wrap_MenuShellMoveSelectedCallback ::
GObject a => (a -> MenuShellMoveSelectedCallback) ->
C_MenuShellMoveSelectedCallback
a -> MenuShellMoveSelectedCallback
gi'cb Ptr MenuShell
gi'selfPtr Int32
distance Ptr ()
_ = do
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> MenuShellMoveSelectedCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self) Int32
distance
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onMenuShellMoveSelected :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellMoveSelectedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellMoveSelectedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellMoveSelectedCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellMoveSelectedCallback
cb
let wrapped' :: C_MenuShellMoveSelectedCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellMoveSelectedCallback)
-> C_MenuShellMoveSelectedCallback
wrap_MenuShellMoveSelectedCallback a -> MenuShellMoveSelectedCallback
wrapped
FunPtr C_MenuShellMoveSelectedCallback
wrapped'' <- C_MenuShellMoveSelectedCallback
-> IO (FunPtr C_MenuShellMoveSelectedCallback)
mk_MenuShellMoveSelectedCallback C_MenuShellMoveSelectedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-selected" FunPtr C_MenuShellMoveSelectedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellMoveSelected :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellMoveSelectedCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuShellMoveSelectedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuShellMoveSelectedCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuShellMoveSelectedCallback
cb
let wrapped' :: C_MenuShellMoveSelectedCallback
wrapped' = forall a.
GObject a =>
(a -> MenuShellMoveSelectedCallback)
-> C_MenuShellMoveSelectedCallback
wrap_MenuShellMoveSelectedCallback a -> MenuShellMoveSelectedCallback
wrapped
FunPtr C_MenuShellMoveSelectedCallback
wrapped'' <- C_MenuShellMoveSelectedCallback
-> IO (FunPtr C_MenuShellMoveSelectedCallback)
mk_MenuShellMoveSelectedCallback C_MenuShellMoveSelectedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-selected" FunPtr C_MenuShellMoveSelectedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellMoveSelectedSignalInfo
instance SignalInfo MenuShellMoveSelectedSignalInfo where
type HaskellCallbackType MenuShellMoveSelectedSignalInfo = MenuShellMoveSelectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellMoveSelectedCallback cb
cb'' <- mk_MenuShellMoveSelectedCallback cb'
connectSignalFunPtr obj "move-selected" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::move-selected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:moveSelected"})
#endif
type =
IO ()
type =
Ptr MenuShell ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuShellSelectionDoneCallback -> IO (FunPtr C_MenuShellSelectionDoneCallback)
wrap_MenuShellSelectionDoneCallback ::
GObject a => (a -> MenuShellSelectionDoneCallback) ->
C_MenuShellSelectionDoneCallback
a -> IO ()
gi'cb Ptr MenuShell
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr MenuShell
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \MenuShell
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce MenuShell
gi'self)
onMenuShellSelectionDone :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellSelectionDoneCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_MenuShellCancelCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_MenuShellCancelCallback
wrap_MenuShellSelectionDoneCallback a -> IO ()
wrapped
FunPtr C_MenuShellCancelCallback
wrapped'' <- C_MenuShellCancelCallback -> IO (FunPtr C_MenuShellCancelCallback)
mk_MenuShellSelectionDoneCallback C_MenuShellCancelCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selection-done" FunPtr C_MenuShellCancelCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuShellSelectionDone :: (IsMenuShell a, MonadIO m) => a -> ((?self :: a) => MenuShellSelectionDoneCallback) -> m SignalHandlerId
a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_MenuShellCancelCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_MenuShellCancelCallback
wrap_MenuShellSelectionDoneCallback a -> IO ()
wrapped
FunPtr C_MenuShellCancelCallback
wrapped'' <- C_MenuShellCancelCallback -> IO (FunPtr C_MenuShellCancelCallback)
mk_MenuShellSelectionDoneCallback C_MenuShellCancelCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selection-done" FunPtr C_MenuShellCancelCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuShellSelectionDoneSignalInfo
instance SignalInfo MenuShellSelectionDoneSignalInfo where
type HaskellCallbackType MenuShellSelectionDoneSignalInfo = MenuShellSelectionDoneCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuShellSelectionDoneCallback cb
cb'' <- mk_MenuShellSelectionDoneCallback cb'
connectSignalFunPtr obj "selection-done" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell::selection-done"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:signal:selectionDone"})
#endif
getMenuShellTakeFocus :: (MonadIO m, IsMenuShell o) => o -> m Bool
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"take-focus"
setMenuShellTakeFocus :: (MonadIO m, IsMenuShell o) => o -> Bool -> m ()
o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a.
GObject a =>
a -> String -> MenuShellActivateCurrentCallback
B.Properties.setObjectPropertyBool o
obj String
"take-focus" Bool
val
constructMenuShellTakeFocus :: (IsMenuShell o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"take-focus" Bool
val
#if defined(ENABLE_OVERLOADING)
data MenuShellTakeFocusPropertyInfo
instance AttrInfo MenuShellTakeFocusPropertyInfo where
type AttrAllowedOps MenuShellTakeFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuShellTakeFocusPropertyInfo = IsMenuShell
type AttrSetTypeConstraint MenuShellTakeFocusPropertyInfo = (~) Bool
type AttrTransferTypeConstraint MenuShellTakeFocusPropertyInfo = (~) Bool
type AttrTransferType MenuShellTakeFocusPropertyInfo = Bool
type AttrGetType MenuShellTakeFocusPropertyInfo = Bool
type AttrLabel MenuShellTakeFocusPropertyInfo = "take-focus"
type AttrOrigin MenuShellTakeFocusPropertyInfo = MenuShell
attrGet = getMenuShellTakeFocus
attrSet = setMenuShellTakeFocus
attrTransfer _ v = do
return v
attrConstruct = constructMenuShellTakeFocus
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.takeFocus"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#g:attr:takeFocus"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MenuShell
type instance O.AttributeList MenuShell = MenuShellAttributeList
type MenuShellAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("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), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
menuShellTakeFocus :: AttrLabelProxy "takeFocus"
menuShellTakeFocus = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList MenuShell = MenuShellSignalList
type MenuShellSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("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), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_menu_shell_activate_item" ::
Ptr MenuShell ->
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
menuShellActivateItem ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> m ()
a
menuShell b
menuItem Bool
forceDeactivate = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr Widget
menuItem' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
menuItem
let forceDeactivate' :: CInt
forceDeactivate' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
forceDeactivate
Ptr MenuShell -> Ptr Widget -> CInt -> IO ()
gtk_menu_shell_activate_item Ptr MenuShell
menuShell' Ptr Widget
menuItem' CInt
forceDeactivate'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
menuItem
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellActivateItemMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuShellActivateItemMethodInfo a signature where
overloadedMethod = menuShellActivateItem
instance O.OverloadedMethodInfo MenuShellActivateItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellActivateItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellActivateItem"
})
#endif
foreign import ccall "gtk_menu_shell_append" ::
Ptr MenuShell ->
Ptr Gtk.MenuItem.MenuItem ->
IO ()
menuShellAppend ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a, Gtk.MenuItem.IsMenuItem b) =>
a
-> b
-> m ()
a
menuShell b
child = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr MenuItem
child' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr MenuShell -> Ptr MenuItem -> IO ()
gtk_menu_shell_append Ptr MenuShell
menuShell' Ptr MenuItem
child'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellAppendMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsMenuShell a, Gtk.MenuItem.IsMenuItem b) => O.OverloadedMethod MenuShellAppendMethodInfo a signature where
overloadedMethod = menuShellAppend
instance O.OverloadedMethodInfo MenuShellAppendMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellAppend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellAppend"
})
#endif
foreign import ccall "gtk_menu_shell_bind_model" ::
Ptr MenuShell ->
Ptr Gio.MenuModel.MenuModel ->
CString ->
CInt ->
IO ()
menuShellBindModel ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> Maybe (T.Text)
-> Bool
-> m ()
a
menuShell Maybe b
model Maybe Text
actionNamespace Bool
withSeparators = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr MenuModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr MenuModel
jModel' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jModel'
Ptr CChar
maybeActionNamespace <- case Maybe Text
actionNamespace of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jActionNamespace -> do
Ptr CChar
jActionNamespace' <- Text -> IO (Ptr CChar)
textToCString Text
jActionNamespace
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jActionNamespace'
let withSeparators' :: CInt
withSeparators' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
withSeparators
Ptr MenuShell -> Ptr MenuModel -> Ptr CChar -> CInt -> IO ()
gtk_menu_shell_bind_model Ptr MenuShell
menuShell' Ptr MenuModel
maybeModel Ptr CChar
maybeActionNamespace CInt
withSeparators'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeActionNamespace
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellBindModelMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (T.Text) -> Bool -> m ()), MonadIO m, IsMenuShell a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod MenuShellBindModelMethodInfo a signature where
overloadedMethod = menuShellBindModel
instance O.OverloadedMethodInfo MenuShellBindModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellBindModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellBindModel"
})
#endif
foreign import ccall "gtk_menu_shell_cancel" ::
Ptr MenuShell ->
IO ()
menuShellCancel ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> m ()
a
menuShell = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr MenuShell -> IO ()
gtk_menu_shell_cancel Ptr MenuShell
menuShell'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellCancelMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellCancelMethodInfo a signature where
overloadedMethod = menuShellCancel
instance O.OverloadedMethodInfo MenuShellCancelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellCancel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellCancel"
})
#endif
foreign import ccall "gtk_menu_shell_deactivate" ::
Ptr MenuShell ->
IO ()
menuShellDeactivate ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> m ()
a
menuShell = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr MenuShell -> IO ()
gtk_menu_shell_deactivate Ptr MenuShell
menuShell'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellDeactivateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellDeactivateMethodInfo a signature where
overloadedMethod = menuShellDeactivate
instance O.OverloadedMethodInfo MenuShellDeactivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellDeactivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellDeactivate"
})
#endif
foreign import ccall "gtk_menu_shell_deselect" ::
Ptr MenuShell ->
IO ()
menuShellDeselect ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> m ()
a
menuShell = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr MenuShell -> IO ()
gtk_menu_shell_deselect Ptr MenuShell
menuShell'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellDeselectMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellDeselectMethodInfo a signature where
overloadedMethod = menuShellDeselect
instance O.OverloadedMethodInfo MenuShellDeselectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellDeselect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellDeselect"
})
#endif
foreign import ccall "gtk_menu_shell_get_parent_shell" ::
Ptr MenuShell ->
IO (Ptr Gtk.Widget.Widget)
menuShellGetParentShell ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> m Gtk.Widget.Widget
a
menuShell = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr Widget
result <- Ptr MenuShell -> IO (Ptr Widget)
gtk_menu_shell_get_parent_shell Ptr MenuShell
menuShell'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuShellGetParentShell" Ptr Widget
result
Widget
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data MenuShellGetParentShellMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellGetParentShellMethodInfo a signature where
overloadedMethod = menuShellGetParentShell
instance O.OverloadedMethodInfo MenuShellGetParentShellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellGetParentShell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellGetParentShell"
})
#endif
foreign import ccall "gtk_menu_shell_get_selected_item" ::
Ptr MenuShell ->
IO (Ptr Gtk.Widget.Widget)
menuShellGetSelectedItem ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> m Gtk.Widget.Widget
a
menuShell = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr Widget
result <- Ptr MenuShell -> IO (Ptr Widget)
gtk_menu_shell_get_selected_item Ptr MenuShell
menuShell'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuShellGetSelectedItem" Ptr Widget
result
Widget
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data MenuShellGetSelectedItemMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellGetSelectedItemMethodInfo a signature where
overloadedMethod = menuShellGetSelectedItem
instance O.OverloadedMethodInfo MenuShellGetSelectedItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellGetSelectedItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellGetSelectedItem"
})
#endif
foreign import ccall "gtk_menu_shell_get_take_focus" ::
Ptr MenuShell ->
IO CInt
menuShellGetTakeFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> m Bool
a
menuShell = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
CInt
result <- Ptr MenuShell -> IO CInt
gtk_menu_shell_get_take_focus Ptr MenuShell
menuShell'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuShellGetTakeFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellGetTakeFocusMethodInfo a signature where
overloadedMethod = menuShellGetTakeFocus
instance O.OverloadedMethodInfo MenuShellGetTakeFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellGetTakeFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellGetTakeFocus"
})
#endif
foreign import ccall "gtk_menu_shell_insert" ::
Ptr MenuShell ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO ()
menuShellInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ()
a
menuShell b
child Int32
position = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr Widget
child' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr MenuShell -> Ptr Widget -> Int32 -> IO ()
gtk_menu_shell_insert Ptr MenuShell
menuShell' Ptr Widget
child' Int32
position
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellInsertMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuShellInsertMethodInfo a signature where
overloadedMethod = menuShellInsert
instance O.OverloadedMethodInfo MenuShellInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellInsert"
})
#endif
foreign import ccall "gtk_menu_shell_prepend" ::
Ptr MenuShell ->
Ptr Gtk.Widget.Widget ->
IO ()
menuShellPrepend ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
a
menuShell b
child = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr Widget
child' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr MenuShell -> Ptr Widget -> IO ()
gtk_menu_shell_prepend Ptr MenuShell
menuShell' Ptr Widget
child'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellPrependMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuShellPrependMethodInfo a signature where
overloadedMethod = menuShellPrepend
instance O.OverloadedMethodInfo MenuShellPrependMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellPrepend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellPrepend"
})
#endif
foreign import ccall "gtk_menu_shell_select_first" ::
Ptr MenuShell ->
CInt ->
IO ()
menuShellSelectFirst ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> Bool
-> m ()
a
menuShell Bool
searchSensitive = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
let searchSensitive' :: CInt
searchSensitive' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
searchSensitive
Ptr MenuShell -> CInt -> IO ()
gtk_menu_shell_select_first Ptr MenuShell
menuShell' CInt
searchSensitive'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellSelectFirstMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellSelectFirstMethodInfo a signature where
overloadedMethod = menuShellSelectFirst
instance O.OverloadedMethodInfo MenuShellSelectFirstMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellSelectFirst",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellSelectFirst"
})
#endif
foreign import ccall "gtk_menu_shell_select_item" ::
Ptr MenuShell ->
Ptr Gtk.Widget.Widget ->
IO ()
menuShellSelectItem ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
a
menuShell b
menuItem = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
Ptr Widget
menuItem' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
menuItem
Ptr MenuShell -> Ptr Widget -> IO ()
gtk_menu_shell_select_item Ptr MenuShell
menuShell' Ptr Widget
menuItem'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
menuItem
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellSelectItemMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsMenuShell a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuShellSelectItemMethodInfo a signature where
overloadedMethod = menuShellSelectItem
instance O.OverloadedMethodInfo MenuShellSelectItemMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellSelectItem",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellSelectItem"
})
#endif
foreign import ccall "gtk_menu_shell_set_take_focus" ::
Ptr MenuShell ->
CInt ->
IO ()
menuShellSetTakeFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsMenuShell a) =>
a
-> Bool
-> m ()
a
menuShell Bool
takeFocus = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuShell
menuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menuShell
let takeFocus' :: CInt
takeFocus' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
takeFocus
Ptr MenuShell -> CInt -> IO ()
gtk_menu_shell_set_take_focus Ptr MenuShell
menuShell' CInt
takeFocus'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menuShell
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuShellSetTakeFocusMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMenuShell a) => O.OverloadedMethod MenuShellSetTakeFocusMethodInfo a signature where
overloadedMethod = menuShellSetTakeFocus
instance O.OverloadedMethodInfo MenuShellSetTakeFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.MenuShell.menuShellSetTakeFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-MenuShell.html#v:menuShellSetTakeFocus"
})
#endif