{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Menu
(
Menu(..) ,
IsMenu ,
toMenu ,
#if defined(ENABLE_OVERLOADING)
ResolveMenuMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MenuAttachMethodInfo ,
#endif
menuAttach ,
#if defined(ENABLE_OVERLOADING)
MenuAttachToWidgetMethodInfo ,
#endif
menuAttachToWidget ,
#if defined(ENABLE_OVERLOADING)
MenuDetachMethodInfo ,
#endif
menuDetach ,
#if defined(ENABLE_OVERLOADING)
MenuGetAccelGroupMethodInfo ,
#endif
menuGetAccelGroup ,
#if defined(ENABLE_OVERLOADING)
MenuGetAccelPathMethodInfo ,
#endif
menuGetAccelPath ,
#if defined(ENABLE_OVERLOADING)
MenuGetActiveMethodInfo ,
#endif
menuGetActive ,
#if defined(ENABLE_OVERLOADING)
MenuGetAttachWidgetMethodInfo ,
#endif
menuGetAttachWidget ,
menuGetForAttachWidget ,
#if defined(ENABLE_OVERLOADING)
MenuGetMonitorMethodInfo ,
#endif
menuGetMonitor ,
#if defined(ENABLE_OVERLOADING)
MenuGetReserveToggleSizeMethodInfo ,
#endif
menuGetReserveToggleSize ,
#if defined(ENABLE_OVERLOADING)
MenuGetTearoffStateMethodInfo ,
#endif
menuGetTearoffState ,
#if defined(ENABLE_OVERLOADING)
MenuGetTitleMethodInfo ,
#endif
menuGetTitle ,
menuNew ,
menuNewFromModel ,
#if defined(ENABLE_OVERLOADING)
MenuPlaceOnMonitorMethodInfo ,
#endif
menuPlaceOnMonitor ,
#if defined(ENABLE_OVERLOADING)
MenuPopdownMethodInfo ,
#endif
menuPopdown ,
#if defined(ENABLE_OVERLOADING)
MenuPopupMethodInfo ,
#endif
menuPopup ,
#if defined(ENABLE_OVERLOADING)
MenuPopupAtPointerMethodInfo ,
#endif
menuPopupAtPointer ,
#if defined(ENABLE_OVERLOADING)
MenuPopupAtRectMethodInfo ,
#endif
menuPopupAtRect ,
#if defined(ENABLE_OVERLOADING)
MenuPopupAtWidgetMethodInfo ,
#endif
menuPopupAtWidget ,
#if defined(ENABLE_OVERLOADING)
MenuPopupForDeviceMethodInfo ,
#endif
menuPopupForDevice ,
#if defined(ENABLE_OVERLOADING)
MenuReorderChildMethodInfo ,
#endif
menuReorderChild ,
#if defined(ENABLE_OVERLOADING)
MenuRepositionMethodInfo ,
#endif
menuReposition ,
#if defined(ENABLE_OVERLOADING)
MenuSetAccelGroupMethodInfo ,
#endif
menuSetAccelGroup ,
#if defined(ENABLE_OVERLOADING)
MenuSetAccelPathMethodInfo ,
#endif
menuSetAccelPath ,
#if defined(ENABLE_OVERLOADING)
MenuSetActiveMethodInfo ,
#endif
menuSetActive ,
#if defined(ENABLE_OVERLOADING)
MenuSetMonitorMethodInfo ,
#endif
menuSetMonitor ,
#if defined(ENABLE_OVERLOADING)
MenuSetReserveToggleSizeMethodInfo ,
#endif
menuSetReserveToggleSize ,
#if defined(ENABLE_OVERLOADING)
MenuSetScreenMethodInfo ,
#endif
menuSetScreen ,
#if defined(ENABLE_OVERLOADING)
MenuSetTearoffStateMethodInfo ,
#endif
menuSetTearoffState ,
#if defined(ENABLE_OVERLOADING)
MenuSetTitleMethodInfo ,
#endif
menuSetTitle ,
#if defined(ENABLE_OVERLOADING)
MenuAccelGroupPropertyInfo ,
#endif
clearMenuAccelGroup ,
constructMenuAccelGroup ,
getMenuAccelGroup ,
#if defined(ENABLE_OVERLOADING)
menuAccelGroup ,
#endif
setMenuAccelGroup ,
#if defined(ENABLE_OVERLOADING)
MenuAccelPathPropertyInfo ,
#endif
clearMenuAccelPath ,
constructMenuAccelPath ,
getMenuAccelPath ,
#if defined(ENABLE_OVERLOADING)
menuAccelPath ,
#endif
setMenuAccelPath ,
#if defined(ENABLE_OVERLOADING)
MenuActivePropertyInfo ,
#endif
constructMenuActive ,
getMenuActive ,
#if defined(ENABLE_OVERLOADING)
menuActive ,
#endif
setMenuActive ,
#if defined(ENABLE_OVERLOADING)
MenuAnchorHintsPropertyInfo ,
#endif
constructMenuAnchorHints ,
getMenuAnchorHints ,
#if defined(ENABLE_OVERLOADING)
menuAnchorHints ,
#endif
setMenuAnchorHints ,
#if defined(ENABLE_OVERLOADING)
MenuAttachWidgetPropertyInfo ,
#endif
clearMenuAttachWidget ,
constructMenuAttachWidget ,
getMenuAttachWidget ,
#if defined(ENABLE_OVERLOADING)
menuAttachWidget ,
#endif
setMenuAttachWidget ,
#if defined(ENABLE_OVERLOADING)
MenuMenuTypeHintPropertyInfo ,
#endif
constructMenuMenuTypeHint ,
getMenuMenuTypeHint ,
#if defined(ENABLE_OVERLOADING)
menuMenuTypeHint ,
#endif
setMenuMenuTypeHint ,
#if defined(ENABLE_OVERLOADING)
MenuMonitorPropertyInfo ,
#endif
constructMenuMonitor ,
getMenuMonitor ,
#if defined(ENABLE_OVERLOADING)
menuMonitor ,
#endif
setMenuMonitor ,
#if defined(ENABLE_OVERLOADING)
MenuRectAnchorDxPropertyInfo ,
#endif
constructMenuRectAnchorDx ,
getMenuRectAnchorDx ,
#if defined(ENABLE_OVERLOADING)
menuRectAnchorDx ,
#endif
setMenuRectAnchorDx ,
#if defined(ENABLE_OVERLOADING)
MenuRectAnchorDyPropertyInfo ,
#endif
constructMenuRectAnchorDy ,
getMenuRectAnchorDy ,
#if defined(ENABLE_OVERLOADING)
menuRectAnchorDy ,
#endif
setMenuRectAnchorDy ,
#if defined(ENABLE_OVERLOADING)
MenuReserveToggleSizePropertyInfo ,
#endif
constructMenuReserveToggleSize ,
getMenuReserveToggleSize ,
#if defined(ENABLE_OVERLOADING)
menuReserveToggleSize ,
#endif
setMenuReserveToggleSize ,
#if defined(ENABLE_OVERLOADING)
MenuTearoffStatePropertyInfo ,
#endif
constructMenuTearoffState ,
getMenuTearoffState ,
#if defined(ENABLE_OVERLOADING)
menuTearoffState ,
#endif
setMenuTearoffState ,
#if defined(ENABLE_OVERLOADING)
MenuTearoffTitlePropertyInfo ,
#endif
clearMenuTearoffTitle ,
constructMenuTearoffTitle ,
getMenuTearoffTitle ,
#if defined(ENABLE_OVERLOADING)
menuTearoffTitle ,
#endif
setMenuTearoffTitle ,
MenuMoveScrollCallback ,
#if defined(ENABLE_OVERLOADING)
MenuMoveScrollSignalInfo ,
#endif
afterMenuMoveScroll ,
onMenuMoveScroll ,
MenuPoppedUpCallback ,
#if defined(ENABLE_OVERLOADING)
MenuPoppedUpSignalInfo ,
#endif
afterMenuPoppedUp ,
onMenuPoppedUp ,
) 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.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Monitor as Gdk.Monitor
import qualified GI.Gdk.Objects.Screen as Gdk.Screen
import qualified GI.Gdk.Objects.Window as Gdk.Window
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
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.AccelGroup as Gtk.AccelGroup
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.MenuShell as Gtk.MenuShell
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype = (SP.ManagedPtr Menu)
deriving (Menu -> Menu -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Menu -> Menu -> Bool
$c/= :: Menu -> Menu -> Bool
== :: Menu -> Menu -> Bool
$c== :: Menu -> Menu -> Bool
Eq)
instance SP.ManagedPtrNewtype Menu where
toManagedPtr :: Menu -> ManagedPtr Menu
toManagedPtr (Menu ManagedPtr Menu
p) = ManagedPtr Menu
p
foreign import ccall "gtk_menu_get_type"
:: IO B.Types.GType
instance B.Types.TypedObject Menu where
glibType :: IO GType
glibType = IO GType
c_gtk_menu_get_type
instance B.Types.GObject Menu
class (SP.GObject o, O.IsDescendantOf Menu o) => o
instance (SP.GObject o, O.IsDescendantOf Menu o) => IsMenu o
instance O.HasParentTypes Menu
type instance O.ParentTypes Menu = '[Gtk.MenuShell.MenuShell, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toMenu :: (MIO.MonadIO m, IsMenu o) => o -> m Menu
= 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 Menu -> Menu
Menu
instance B.GValue.IsGValue (Maybe Menu) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_menu_get_type
gvalueSet_ :: Ptr GValue -> Maybe Menu -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Menu
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 Menu)
gvalueSet_ Ptr GValue
gv (P.Just Menu
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Menu
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Menu)
gvalueGet_ Ptr GValue
gv = do
Ptr Menu
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Menu)
if Ptr Menu
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 Menu -> Menu
Menu Ptr Menu
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMenuMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveMenuMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveMenuMethod "activateItem" o = Gtk.MenuShell.MenuShellActivateItemMethodInfo
ResolveMenuMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveMenuMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveMenuMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveMenuMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveMenuMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveMenuMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveMenuMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveMenuMethod "append" o = Gtk.MenuShell.MenuShellAppendMethodInfo
ResolveMenuMethod "attach" o = MenuAttachMethodInfo
ResolveMenuMethod "attachToWidget" o = MenuAttachToWidgetMethodInfo
ResolveMenuMethod "bindModel" o = Gtk.MenuShell.MenuShellBindModelMethodInfo
ResolveMenuMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMenuMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMenuMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveMenuMethod "cancel" o = Gtk.MenuShell.MenuShellCancelMethodInfo
ResolveMenuMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveMenuMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveMenuMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveMenuMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveMenuMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveMenuMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveMenuMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveMenuMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveMenuMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveMenuMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveMenuMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveMenuMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveMenuMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveMenuMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveMenuMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveMenuMethod "deactivate" o = Gtk.MenuShell.MenuShellDeactivateMethodInfo
ResolveMenuMethod "deselect" o = Gtk.MenuShell.MenuShellDeselectMethodInfo
ResolveMenuMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveMenuMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveMenuMethod "detach" o = MenuDetachMethodInfo
ResolveMenuMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveMenuMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveMenuMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveMenuMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveMenuMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveMenuMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveMenuMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveMenuMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveMenuMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveMenuMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveMenuMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveMenuMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveMenuMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveMenuMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveMenuMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveMenuMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveMenuMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveMenuMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveMenuMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveMenuMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveMenuMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveMenuMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveMenuMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveMenuMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveMenuMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveMenuMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveMenuMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveMenuMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveMenuMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveMenuMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveMenuMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveMenuMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveMenuMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveMenuMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveMenuMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMenuMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveMenuMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveMenuMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMenuMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMenuMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveMenuMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveMenuMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveMenuMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveMenuMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveMenuMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveMenuMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveMenuMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveMenuMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveMenuMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveMenuMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveMenuMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveMenuMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveMenuMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveMenuMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveMenuMethod "insert" o = Gtk.MenuShell.MenuShellInsertMethodInfo
ResolveMenuMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveMenuMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveMenuMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveMenuMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveMenuMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveMenuMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMenuMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveMenuMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveMenuMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveMenuMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveMenuMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveMenuMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveMenuMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveMenuMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveMenuMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveMenuMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveMenuMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveMenuMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveMenuMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveMenuMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveMenuMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveMenuMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveMenuMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveMenuMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMenuMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMenuMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveMenuMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveMenuMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveMenuMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveMenuMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveMenuMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveMenuMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveMenuMethod "placeOnMonitor" o = MenuPlaceOnMonitorMethodInfo
ResolveMenuMethod "popdown" o = MenuPopdownMethodInfo
ResolveMenuMethod "popup" o = MenuPopupMethodInfo
ResolveMenuMethod "popupAtPointer" o = MenuPopupAtPointerMethodInfo
ResolveMenuMethod "popupAtRect" o = MenuPopupAtRectMethodInfo
ResolveMenuMethod "popupAtWidget" o = MenuPopupAtWidgetMethodInfo
ResolveMenuMethod "popupForDevice" o = MenuPopupForDeviceMethodInfo
ResolveMenuMethod "prepend" o = Gtk.MenuShell.MenuShellPrependMethodInfo
ResolveMenuMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveMenuMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveMenuMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveMenuMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveMenuMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveMenuMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveMenuMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveMenuMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveMenuMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveMenuMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMenuMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMenuMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveMenuMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveMenuMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveMenuMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveMenuMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveMenuMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveMenuMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveMenuMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveMenuMethod "reorderChild" o = MenuReorderChildMethodInfo
ResolveMenuMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveMenuMethod "reposition" o = MenuRepositionMethodInfo
ResolveMenuMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveMenuMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveMenuMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveMenuMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMenuMethod "selectFirst" o = Gtk.MenuShell.MenuShellSelectFirstMethodInfo
ResolveMenuMethod "selectItem" o = Gtk.MenuShell.MenuShellSelectItemMethodInfo
ResolveMenuMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveMenuMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveMenuMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveMenuMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveMenuMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveMenuMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveMenuMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveMenuMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveMenuMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveMenuMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMenuMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMenuMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveMenuMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveMenuMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveMenuMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMenuMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveMenuMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveMenuMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveMenuMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveMenuMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveMenuMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMenuMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveMenuMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveMenuMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveMenuMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMenuMethod "getAccelGroup" o = MenuGetAccelGroupMethodInfo
ResolveMenuMethod "getAccelPath" o = MenuGetAccelPathMethodInfo
ResolveMenuMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveMenuMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveMenuMethod "getActive" o = MenuGetActiveMethodInfo
ResolveMenuMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveMenuMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveMenuMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveMenuMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveMenuMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveMenuMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveMenuMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveMenuMethod "getAttachWidget" o = MenuGetAttachWidgetMethodInfo
ResolveMenuMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveMenuMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveMenuMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveMenuMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveMenuMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveMenuMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveMenuMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveMenuMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveMenuMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveMenuMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMenuMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveMenuMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveMenuMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveMenuMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveMenuMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveMenuMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveMenuMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveMenuMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveMenuMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveMenuMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveMenuMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveMenuMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveMenuMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveMenuMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveMenuMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveMenuMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveMenuMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveMenuMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveMenuMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveMenuMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveMenuMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveMenuMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveMenuMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveMenuMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveMenuMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveMenuMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveMenuMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveMenuMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveMenuMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveMenuMethod "getMonitor" o = MenuGetMonitorMethodInfo
ResolveMenuMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveMenuMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveMenuMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveMenuMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveMenuMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveMenuMethod "getParentShell" o = Gtk.MenuShell.MenuShellGetParentShellMethodInfo
ResolveMenuMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveMenuMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveMenuMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveMenuMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveMenuMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveMenuMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveMenuMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveMenuMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveMenuMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveMenuMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveMenuMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMenuMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMenuMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveMenuMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveMenuMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveMenuMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveMenuMethod "getReserveToggleSize" o = MenuGetReserveToggleSizeMethodInfo
ResolveMenuMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveMenuMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveMenuMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveMenuMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveMenuMethod "getSelectedItem" o = Gtk.MenuShell.MenuShellGetSelectedItemMethodInfo
ResolveMenuMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveMenuMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveMenuMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveMenuMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveMenuMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveMenuMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveMenuMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveMenuMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveMenuMethod "getTakeFocus" o = Gtk.MenuShell.MenuShellGetTakeFocusMethodInfo
ResolveMenuMethod "getTearoffState" o = MenuGetTearoffStateMethodInfo
ResolveMenuMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveMenuMethod "getTitle" o = MenuGetTitleMethodInfo
ResolveMenuMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveMenuMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveMenuMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveMenuMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveMenuMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveMenuMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveMenuMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveMenuMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveMenuMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveMenuMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveMenuMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveMenuMethod "setAccelGroup" o = MenuSetAccelGroupMethodInfo
ResolveMenuMethod "setAccelPath" o = MenuSetAccelPathMethodInfo
ResolveMenuMethod "setActive" o = MenuSetActiveMethodInfo
ResolveMenuMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveMenuMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveMenuMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveMenuMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveMenuMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveMenuMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveMenuMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveMenuMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveMenuMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveMenuMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMenuMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMenuMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveMenuMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveMenuMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveMenuMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveMenuMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveMenuMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveMenuMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveMenuMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveMenuMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveMenuMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveMenuMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveMenuMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveMenuMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveMenuMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveMenuMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveMenuMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveMenuMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveMenuMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveMenuMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveMenuMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveMenuMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveMenuMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveMenuMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveMenuMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveMenuMethod "setMonitor" o = MenuSetMonitorMethodInfo
ResolveMenuMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveMenuMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveMenuMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveMenuMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveMenuMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveMenuMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMenuMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveMenuMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveMenuMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveMenuMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveMenuMethod "setReserveToggleSize" o = MenuSetReserveToggleSizeMethodInfo
ResolveMenuMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveMenuMethod "setScreen" o = MenuSetScreenMethodInfo
ResolveMenuMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveMenuMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveMenuMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveMenuMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveMenuMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveMenuMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveMenuMethod "setTakeFocus" o = Gtk.MenuShell.MenuShellSetTakeFocusMethodInfo
ResolveMenuMethod "setTearoffState" o = MenuSetTearoffStateMethodInfo
ResolveMenuMethod "setTitle" o = MenuSetTitleMethodInfo
ResolveMenuMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveMenuMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveMenuMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveMenuMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveMenuMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveMenuMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveMenuMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveMenuMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveMenuMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveMenuMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMenuMethod t Menu, O.OverloadedMethod info Menu p) => OL.IsLabel t (Menu -> 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 ~ ResolveMenuMethod t Menu, O.OverloadedMethod info Menu p, R.HasField t Menu p) => R.HasField t Menu p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMenuMethod t Menu, O.OverloadedMethodInfo info Menu) => OL.IsLabel t (O.MethodProxy info Menu) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type =
Gtk.Enums.ScrollType
-> IO ()
type =
Ptr Menu ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuMoveScrollCallback -> IO (FunPtr C_MenuMoveScrollCallback)
wrap_MenuMoveScrollCallback ::
GObject a => (a -> MenuMoveScrollCallback) ->
C_MenuMoveScrollCallback
a -> MenuMoveScrollCallback
gi'cb Ptr Menu
gi'selfPtr CUInt
scrollType Ptr ()
_ = do
let scrollType' :: ScrollType
scrollType' = (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
scrollType
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menu
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Menu
gi'self -> a -> MenuMoveScrollCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Menu
gi'self) ScrollType
scrollType'
onMenuMoveScroll :: (IsMenu a, MonadIO m) => a -> ((?self :: a) => MenuMoveScrollCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuMoveScrollCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuMoveScrollCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuMoveScrollCallback
cb
let wrapped' :: C_MenuMoveScrollCallback
wrapped' = forall a.
GObject a =>
(a -> MenuMoveScrollCallback) -> C_MenuMoveScrollCallback
wrap_MenuMoveScrollCallback a -> MenuMoveScrollCallback
wrapped
FunPtr C_MenuMoveScrollCallback
wrapped'' <- C_MenuMoveScrollCallback -> IO (FunPtr C_MenuMoveScrollCallback)
mk_MenuMoveScrollCallback C_MenuMoveScrollCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-scroll" FunPtr C_MenuMoveScrollCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuMoveScroll :: (IsMenu a, MonadIO m) => a -> ((?self :: a) => MenuMoveScrollCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuMoveScrollCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuMoveScrollCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuMoveScrollCallback
cb
let wrapped' :: C_MenuMoveScrollCallback
wrapped' = forall a.
GObject a =>
(a -> MenuMoveScrollCallback) -> C_MenuMoveScrollCallback
wrap_MenuMoveScrollCallback a -> MenuMoveScrollCallback
wrapped
FunPtr C_MenuMoveScrollCallback
wrapped'' <- C_MenuMoveScrollCallback -> IO (FunPtr C_MenuMoveScrollCallback)
mk_MenuMoveScrollCallback C_MenuMoveScrollCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-scroll" FunPtr C_MenuMoveScrollCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuMoveScrollSignalInfo
instance SignalInfo MenuMoveScrollSignalInfo where
type HaskellCallbackType MenuMoveScrollSignalInfo = MenuMoveScrollCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuMoveScrollCallback cb
cb'' <- mk_MenuMoveScrollCallback cb'
connectSignalFunPtr obj "move-scroll" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu::move-scroll"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:signal:moveScroll"})
#endif
type =
Ptr ()
-> Ptr ()
-> Bool
-> Bool
-> IO ()
type =
Ptr Menu ->
Ptr () ->
Ptr () ->
CInt ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuPoppedUpCallback -> IO (FunPtr C_MenuPoppedUpCallback)
wrap_MenuPoppedUpCallback ::
GObject a => (a -> MenuPoppedUpCallback) ->
C_MenuPoppedUpCallback
a -> MenuPoppedUpCallback
gi'cb Ptr Menu
gi'selfPtr Ptr ()
flippedRect Ptr ()
finalRect CInt
flippedX CInt
flippedY Ptr ()
_ = do
let flippedX' :: Bool
flippedX' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
flippedX
let flippedY' :: Bool
flippedY' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
flippedY
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Menu
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \Menu
gi'self -> a -> MenuPoppedUpCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce Menu
gi'self) Ptr ()
flippedRect Ptr ()
finalRect Bool
flippedX' Bool
flippedY'
onMenuPoppedUp :: (IsMenu a, MonadIO m) => a -> ((?self :: a) => MenuPoppedUpCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuPoppedUpCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuPoppedUpCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuPoppedUpCallback
cb
let wrapped' :: C_MenuPoppedUpCallback
wrapped' = forall a.
GObject a =>
(a -> MenuPoppedUpCallback) -> C_MenuPoppedUpCallback
wrap_MenuPoppedUpCallback a -> MenuPoppedUpCallback
wrapped
FunPtr C_MenuPoppedUpCallback
wrapped'' <- C_MenuPoppedUpCallback -> IO (FunPtr C_MenuPoppedUpCallback)
mk_MenuPoppedUpCallback C_MenuPoppedUpCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popped-up" FunPtr C_MenuPoppedUpCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterMenuPoppedUp :: (IsMenu a, MonadIO m) => a -> ((?self :: a) => MenuPoppedUpCallback) -> m SignalHandlerId
a
obj (?self::a) => MenuPoppedUpCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> MenuPoppedUpCallback
wrapped a
self = let ?self = a
self in (?self::a) => MenuPoppedUpCallback
cb
let wrapped' :: C_MenuPoppedUpCallback
wrapped' = forall a.
GObject a =>
(a -> MenuPoppedUpCallback) -> C_MenuPoppedUpCallback
wrap_MenuPoppedUpCallback a -> MenuPoppedUpCallback
wrapped
FunPtr C_MenuPoppedUpCallback
wrapped'' <- C_MenuPoppedUpCallback -> IO (FunPtr C_MenuPoppedUpCallback)
mk_MenuPoppedUpCallback C_MenuPoppedUpCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popped-up" FunPtr C_MenuPoppedUpCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data MenuPoppedUpSignalInfo
instance SignalInfo MenuPoppedUpSignalInfo where
type HaskellCallbackType MenuPoppedUpSignalInfo = MenuPoppedUpCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MenuPoppedUpCallback cb
cb'' <- mk_MenuPoppedUpCallback cb'
connectSignalFunPtr obj "popped-up" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu::popped-up"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:signal:poppedUp"})
#endif
getMenuAccelGroup :: (MonadIO m, IsMenu o) => o -> m Gtk.AccelGroup.AccelGroup
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getMenuAccelGroup" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"accel-group" ManagedPtr AccelGroup -> AccelGroup
Gtk.AccelGroup.AccelGroup
setMenuAccelGroup :: (MonadIO m, IsMenu o, Gtk.AccelGroup.IsAccelGroup a) => o -> a -> m ()
o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"accel-group" (forall a. a -> Maybe a
Just a
val)
constructMenuAccelGroup :: (IsMenu o, MIO.MonadIO m, Gtk.AccelGroup.IsAccelGroup a) => a -> m (GValueConstruct o)
a
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 a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"accel-group" (forall a. a -> Maybe a
P.Just a
val)
clearMenuAccelGroup :: (MonadIO m, IsMenu o) => o -> m ()
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"accel-group" (forall a. Maybe a
Nothing :: Maybe Gtk.AccelGroup.AccelGroup)
#if defined(ENABLE_OVERLOADING)
data MenuAccelGroupPropertyInfo
instance AttrInfo MenuAccelGroupPropertyInfo where
type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MenuAccelGroupPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuAccelGroupPropertyInfo = Gtk.AccelGroup.IsAccelGroup
type AttrTransferTypeConstraint MenuAccelGroupPropertyInfo = Gtk.AccelGroup.IsAccelGroup
type AttrTransferType MenuAccelGroupPropertyInfo = Gtk.AccelGroup.AccelGroup
type AttrGetType MenuAccelGroupPropertyInfo = Gtk.AccelGroup.AccelGroup
type AttrLabel MenuAccelGroupPropertyInfo = "accel-group"
type AttrOrigin MenuAccelGroupPropertyInfo = Menu
attrGet = getMenuAccelGroup
attrSet = setMenuAccelGroup
attrTransfer _ v = do
unsafeCastTo Gtk.AccelGroup.AccelGroup v
attrConstruct = constructMenuAccelGroup
attrClear = clearMenuAccelGroup
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.accelGroup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:accelGroup"
})
#endif
getMenuAccelPath :: (MonadIO m, IsMenu o) => o -> m T.Text
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getMenuAccelPath" forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"accel-path"
setMenuAccelPath :: (MonadIO m, IsMenu o) => o -> T.Text -> m ()
o
obj Text
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 -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"accel-path" (forall a. a -> Maybe a
Just Text
val)
constructMenuAccelPath :: (IsMenu o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
Text
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 -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"accel-path" (forall a. a -> Maybe a
P.Just Text
val)
clearMenuAccelPath :: (MonadIO m, IsMenu o) => o -> m ()
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"accel-path" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data MenuAccelPathPropertyInfo
instance AttrInfo MenuAccelPathPropertyInfo where
type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MenuAccelPathPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text
type AttrTransferType MenuAccelPathPropertyInfo = T.Text
type AttrGetType MenuAccelPathPropertyInfo = T.Text
type AttrLabel MenuAccelPathPropertyInfo = "accel-path"
type AttrOrigin MenuAccelPathPropertyInfo = Menu
attrGet = getMenuAccelPath
attrSet = setMenuAccelPath
attrTransfer _ v = do
return v
attrConstruct = constructMenuAccelPath
attrClear = clearMenuAccelPath
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.accelPath"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:accelPath"
})
#endif
getMenuActive :: (MonadIO m, IsMenu o) => o -> m Int32
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 Int32
B.Properties.getObjectPropertyInt32 o
obj String
"active"
setMenuActive :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
o
obj Int32
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 -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"active" Int32
val
constructMenuActive :: (IsMenu o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
Int32
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 -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"active" Int32
val
#if defined(ENABLE_OVERLOADING)
data MenuActivePropertyInfo
instance AttrInfo MenuActivePropertyInfo where
type AttrAllowedOps MenuActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuActivePropertyInfo = IsMenu
type AttrSetTypeConstraint MenuActivePropertyInfo = (~) Int32
type AttrTransferTypeConstraint MenuActivePropertyInfo = (~) Int32
type AttrTransferType MenuActivePropertyInfo = Int32
type AttrGetType MenuActivePropertyInfo = Int32
type AttrLabel MenuActivePropertyInfo = "active"
type AttrOrigin MenuActivePropertyInfo = Menu
attrGet = getMenuActive
attrSet = setMenuActive
attrTransfer _ v = do
return v
attrConstruct = constructMenuActive
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.active"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:active"
})
#endif
getMenuAnchorHints :: (MonadIO m, IsMenu o) => o -> m [Gdk.Flags.AnchorHints]
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"anchor-hints"
setMenuAnchorHints :: (MonadIO m, IsMenu o) => o -> [Gdk.Flags.AnchorHints] -> m ()
o
obj [AnchorHints]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"anchor-hints" [AnchorHints]
val
constructMenuAnchorHints :: (IsMenu o, MIO.MonadIO m) => [Gdk.Flags.AnchorHints] -> m (GValueConstruct o)
[AnchorHints]
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 a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"anchor-hints" [AnchorHints]
val
#if defined(ENABLE_OVERLOADING)
data MenuAnchorHintsPropertyInfo
instance AttrInfo MenuAnchorHintsPropertyInfo where
type AttrAllowedOps MenuAnchorHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuAnchorHintsPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuAnchorHintsPropertyInfo = (~) [Gdk.Flags.AnchorHints]
type AttrTransferTypeConstraint MenuAnchorHintsPropertyInfo = (~) [Gdk.Flags.AnchorHints]
type AttrTransferType MenuAnchorHintsPropertyInfo = [Gdk.Flags.AnchorHints]
type AttrGetType MenuAnchorHintsPropertyInfo = [Gdk.Flags.AnchorHints]
type AttrLabel MenuAnchorHintsPropertyInfo = "anchor-hints"
type AttrOrigin MenuAnchorHintsPropertyInfo = Menu
attrGet = getMenuAnchorHints
attrSet = setMenuAnchorHints
attrTransfer _ v = do
return v
attrConstruct = constructMenuAnchorHints
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.anchorHints"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:anchorHints"
})
#endif
getMenuAttachWidget :: (MonadIO m, IsMenu o) => o -> m Gtk.Widget.Widget
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getMenuAttachWidget" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"attach-widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setMenuAttachWidget :: (MonadIO m, IsMenu o, Gtk.Widget.IsWidget a) => o -> a -> m ()
o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"attach-widget" (forall a. a -> Maybe a
Just a
val)
constructMenuAttachWidget :: (IsMenu o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
a
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 a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"attach-widget" (forall a. a -> Maybe a
P.Just a
val)
clearMenuAttachWidget :: (MonadIO m, IsMenu o) => o -> m ()
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"attach-widget" (forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data MenuAttachWidgetPropertyInfo
instance AttrInfo MenuAttachWidgetPropertyInfo where
type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MenuAttachWidgetPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuAttachWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint MenuAttachWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType MenuAttachWidgetPropertyInfo = Gtk.Widget.Widget
type AttrGetType MenuAttachWidgetPropertyInfo = Gtk.Widget.Widget
type AttrLabel MenuAttachWidgetPropertyInfo = "attach-widget"
type AttrOrigin MenuAttachWidgetPropertyInfo = Menu
attrGet = getMenuAttachWidget
attrSet = setMenuAttachWidget
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructMenuAttachWidget
attrClear = clearMenuAttachWidget
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.attachWidget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:attachWidget"
})
#endif
getMenuMenuTypeHint :: (MonadIO m, IsMenu o) => o -> m Gdk.Enums.WindowTypeHint
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"menu-type-hint"
setMenuMenuTypeHint :: (MonadIO m, IsMenu o) => o -> Gdk.Enums.WindowTypeHint -> m ()
o
obj WindowTypeHint
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"menu-type-hint" WindowTypeHint
val
constructMenuMenuTypeHint :: (IsMenu o, MIO.MonadIO m) => Gdk.Enums.WindowTypeHint -> m (GValueConstruct o)
WindowTypeHint
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 a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"menu-type-hint" WindowTypeHint
val
#if defined(ENABLE_OVERLOADING)
data MenuMenuTypeHintPropertyInfo
instance AttrInfo MenuMenuTypeHintPropertyInfo where
type AttrAllowedOps MenuMenuTypeHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuMenuTypeHintPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuMenuTypeHintPropertyInfo = (~) Gdk.Enums.WindowTypeHint
type AttrTransferTypeConstraint MenuMenuTypeHintPropertyInfo = (~) Gdk.Enums.WindowTypeHint
type AttrTransferType MenuMenuTypeHintPropertyInfo = Gdk.Enums.WindowTypeHint
type AttrGetType MenuMenuTypeHintPropertyInfo = Gdk.Enums.WindowTypeHint
type AttrLabel MenuMenuTypeHintPropertyInfo = "menu-type-hint"
type AttrOrigin MenuMenuTypeHintPropertyInfo = Menu
attrGet = getMenuMenuTypeHint
attrSet = setMenuMenuTypeHint
attrTransfer _ v = do
return v
attrConstruct = constructMenuMenuTypeHint
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuTypeHint"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:menuTypeHint"
})
#endif
getMenuMonitor :: (MonadIO m, IsMenu o) => o -> m Int32
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 Int32
B.Properties.getObjectPropertyInt32 o
obj String
"monitor"
setMenuMonitor :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
o
obj Int32
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 -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"monitor" Int32
val
constructMenuMonitor :: (IsMenu o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
Int32
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 -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"monitor" Int32
val
#if defined(ENABLE_OVERLOADING)
data MenuMonitorPropertyInfo
instance AttrInfo MenuMonitorPropertyInfo where
type AttrAllowedOps MenuMonitorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuMonitorPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuMonitorPropertyInfo = (~) Int32
type AttrTransferTypeConstraint MenuMonitorPropertyInfo = (~) Int32
type AttrTransferType MenuMonitorPropertyInfo = Int32
type AttrGetType MenuMonitorPropertyInfo = Int32
type AttrLabel MenuMonitorPropertyInfo = "monitor"
type AttrOrigin MenuMonitorPropertyInfo = Menu
attrGet = getMenuMonitor
attrSet = setMenuMonitor
attrTransfer _ v = do
return v
attrConstruct = constructMenuMonitor
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.monitor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:monitor"
})
#endif
getMenuRectAnchorDx :: (MonadIO m, IsMenu o) => o -> m Int32
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 Int32
B.Properties.getObjectPropertyInt32 o
obj String
"rect-anchor-dx"
setMenuRectAnchorDx :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
o
obj Int32
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 -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"rect-anchor-dx" Int32
val
constructMenuRectAnchorDx :: (IsMenu o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
Int32
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 -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"rect-anchor-dx" Int32
val
#if defined(ENABLE_OVERLOADING)
data MenuRectAnchorDxPropertyInfo
instance AttrInfo MenuRectAnchorDxPropertyInfo where
type AttrAllowedOps MenuRectAnchorDxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuRectAnchorDxPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuRectAnchorDxPropertyInfo = (~) Int32
type AttrTransferTypeConstraint MenuRectAnchorDxPropertyInfo = (~) Int32
type AttrTransferType MenuRectAnchorDxPropertyInfo = Int32
type AttrGetType MenuRectAnchorDxPropertyInfo = Int32
type AttrLabel MenuRectAnchorDxPropertyInfo = "rect-anchor-dx"
type AttrOrigin MenuRectAnchorDxPropertyInfo = Menu
attrGet = getMenuRectAnchorDx
attrSet = setMenuRectAnchorDx
attrTransfer _ v = do
return v
attrConstruct = constructMenuRectAnchorDx
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.rectAnchorDx"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:rectAnchorDx"
})
#endif
getMenuRectAnchorDy :: (MonadIO m, IsMenu o) => o -> m Int32
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 Int32
B.Properties.getObjectPropertyInt32 o
obj String
"rect-anchor-dy"
setMenuRectAnchorDy :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
o
obj Int32
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 -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"rect-anchor-dy" Int32
val
constructMenuRectAnchorDy :: (IsMenu o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
Int32
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 -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"rect-anchor-dy" Int32
val
#if defined(ENABLE_OVERLOADING)
data MenuRectAnchorDyPropertyInfo
instance AttrInfo MenuRectAnchorDyPropertyInfo where
type AttrAllowedOps MenuRectAnchorDyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuRectAnchorDyPropertyInfo = IsMenu
type AttrSetTypeConstraint MenuRectAnchorDyPropertyInfo = (~) Int32
type AttrTransferTypeConstraint MenuRectAnchorDyPropertyInfo = (~) Int32
type AttrTransferType MenuRectAnchorDyPropertyInfo = Int32
type AttrGetType MenuRectAnchorDyPropertyInfo = Int32
type AttrLabel MenuRectAnchorDyPropertyInfo = "rect-anchor-dy"
type AttrOrigin MenuRectAnchorDyPropertyInfo = Menu
attrGet = getMenuRectAnchorDy
attrSet = setMenuRectAnchorDy
attrTransfer _ v = do
return v
attrConstruct = constructMenuRectAnchorDy
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.rectAnchorDy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:rectAnchorDy"
})
#endif
getMenuReserveToggleSize :: (MonadIO m, IsMenu 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
"reserve-toggle-size"
setMenuReserveToggleSize :: (MonadIO m, IsMenu 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 -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"reserve-toggle-size" Bool
val
constructMenuReserveToggleSize :: (IsMenu 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
"reserve-toggle-size" Bool
val
#if defined(ENABLE_OVERLOADING)
data MenuReserveToggleSizePropertyInfo
instance AttrInfo MenuReserveToggleSizePropertyInfo where
type AttrAllowedOps MenuReserveToggleSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuReserveToggleSizePropertyInfo = IsMenu
type AttrSetTypeConstraint MenuReserveToggleSizePropertyInfo = (~) Bool
type AttrTransferTypeConstraint MenuReserveToggleSizePropertyInfo = (~) Bool
type AttrTransferType MenuReserveToggleSizePropertyInfo = Bool
type AttrGetType MenuReserveToggleSizePropertyInfo = Bool
type AttrLabel MenuReserveToggleSizePropertyInfo = "reserve-toggle-size"
type AttrOrigin MenuReserveToggleSizePropertyInfo = Menu
attrGet = getMenuReserveToggleSize
attrSet = setMenuReserveToggleSize
attrTransfer _ v = do
return v
attrConstruct = constructMenuReserveToggleSize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.reserveToggleSize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:reserveToggleSize"
})
#endif
getMenuTearoffState :: (MonadIO m, IsMenu 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
"tearoff-state"
setMenuTearoffState :: (MonadIO m, IsMenu 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 -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"tearoff-state" Bool
val
constructMenuTearoffState :: (IsMenu 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
"tearoff-state" Bool
val
#if defined(ENABLE_OVERLOADING)
data MenuTearoffStatePropertyInfo
instance AttrInfo MenuTearoffStatePropertyInfo where
type AttrAllowedOps MenuTearoffStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint MenuTearoffStatePropertyInfo = IsMenu
type AttrSetTypeConstraint MenuTearoffStatePropertyInfo = (~) Bool
type AttrTransferTypeConstraint MenuTearoffStatePropertyInfo = (~) Bool
type AttrTransferType MenuTearoffStatePropertyInfo = Bool
type AttrGetType MenuTearoffStatePropertyInfo = Bool
type AttrLabel MenuTearoffStatePropertyInfo = "tearoff-state"
type AttrOrigin MenuTearoffStatePropertyInfo = Menu
attrGet = getMenuTearoffState
attrSet = setMenuTearoffState
attrTransfer _ v = do
return v
attrConstruct = constructMenuTearoffState
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.tearoffState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:tearoffState"
})
#endif
getMenuTearoffTitle :: (MonadIO m, IsMenu o) => o -> m (Maybe T.Text)
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 (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"tearoff-title"
setMenuTearoffTitle :: (MonadIO m, IsMenu o) => o -> T.Text -> m ()
o
obj Text
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 -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tearoff-title" (forall a. a -> Maybe a
Just Text
val)
constructMenuTearoffTitle :: (IsMenu o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
Text
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 -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"tearoff-title" (forall a. a -> Maybe a
P.Just Text
val)
clearMenuTearoffTitle :: (MonadIO m, IsMenu o) => o -> m ()
o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tearoff-title" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data MenuTearoffTitlePropertyInfo
instance AttrInfo MenuTearoffTitlePropertyInfo where
type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint MenuTearoffTitlePropertyInfo = IsMenu
type AttrSetTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text
type AttrTransferType MenuTearoffTitlePropertyInfo = T.Text
type AttrGetType MenuTearoffTitlePropertyInfo = (Maybe T.Text)
type AttrLabel MenuTearoffTitlePropertyInfo = "tearoff-title"
type AttrOrigin MenuTearoffTitlePropertyInfo = Menu
attrGet = getMenuTearoffTitle
attrSet = setMenuTearoffTitle
attrTransfer _ v = do
return v
attrConstruct = constructMenuTearoffTitle
attrClear = clearMenuTearoffTitle
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.tearoffTitle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#g:attr:tearoffTitle"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Menu
type instance O.AttributeList Menu = MenuAttributeList
type MenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("anchorHints", MenuAnchorHintsPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("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), '("menuTypeHint", MenuMenuTypeHintPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("rectAnchorDx", MenuRectAnchorDxPropertyInfo), '("rectAnchorDy", MenuRectAnchorDyPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("takeFocus", Gtk.MenuShell.MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("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)
menuAccelGroup :: AttrLabelProxy "accelGroup"
menuAccelGroup = AttrLabelProxy
menuAccelPath :: AttrLabelProxy "accelPath"
menuAccelPath = AttrLabelProxy
menuActive :: AttrLabelProxy "active"
menuActive = AttrLabelProxy
menuAnchorHints :: AttrLabelProxy "anchorHints"
menuAnchorHints = AttrLabelProxy
menuAttachWidget :: AttrLabelProxy "attachWidget"
menuAttachWidget = AttrLabelProxy
menuMenuTypeHint :: AttrLabelProxy "menuTypeHint"
menuMenuTypeHint = AttrLabelProxy
menuMonitor :: AttrLabelProxy "monitor"
menuMonitor = AttrLabelProxy
menuRectAnchorDx :: AttrLabelProxy "rectAnchorDx"
menuRectAnchorDx = AttrLabelProxy
menuRectAnchorDy :: AttrLabelProxy "rectAnchorDy"
menuRectAnchorDy = AttrLabelProxy
menuReserveToggleSize :: AttrLabelProxy "reserveToggleSize"
menuReserveToggleSize = AttrLabelProxy
menuTearoffState :: AttrLabelProxy "tearoffState"
menuTearoffState = AttrLabelProxy
menuTearoffTitle :: AttrLabelProxy "tearoffTitle"
menuTearoffTitle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Menu = MenuSignalList
type MenuSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", Gtk.MenuShell.MenuShellActivateCurrentSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("cancel", Gtk.MenuShell.MenuShellCancelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("cycleFocus", Gtk.MenuShell.MenuShellCycleFocusSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deactivate", Gtk.MenuShell.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", Gtk.MenuShell.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", Gtk.MenuShell.MenuShellMoveCurrentSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveScroll", MenuMoveScrollSignalInfo), '("moveSelected", Gtk.MenuShell.MenuShellMoveSelectedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("poppedUp", MenuPoppedUpSignalInfo), '("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", Gtk.MenuShell.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_new" ::
IO (Ptr Menu)
menuNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Menu
= forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
result <- IO (Ptr Menu)
gtk_menu_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuNew" Ptr Menu
result
Menu
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menu -> Menu
Menu) Ptr Menu
result
forall (m :: * -> *) a. Monad m => a -> m a
return Menu
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_menu_new_from_model" ::
Ptr Gio.MenuModel.MenuModel ->
IO (Ptr Menu)
menuNewFromModel ::
(B.CallStack.HasCallStack, MonadIO m, Gio.MenuModel.IsMenuModel a) =>
a
-> m Menu
a
model = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr MenuModel
model' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr Menu
result <- Ptr MenuModel -> IO (Ptr Menu)
gtk_menu_new_from_model Ptr MenuModel
model'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuNewFromModel" Ptr Menu
result
Menu
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menu -> Menu
Menu) Ptr Menu
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
forall (m :: * -> *) a. Monad m => a -> m a
return Menu
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_menu_attach" ::
Ptr Menu ->
Ptr Gtk.Widget.Widget ->
Word32 ->
Word32 ->
Word32 ->
Word32 ->
IO ()
menuAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Word32
-> Word32
-> Word32
-> Word32
-> m ()
a
menu b
child Word32
leftAttach Word32
rightAttach Word32
topAttach Word32
bottomAttach = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
child' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Menu
-> Ptr Widget -> Word32 -> Word32 -> Word32 -> Word32 -> IO ()
gtk_menu_attach Ptr Menu
menu' Ptr Widget
child' Word32
leftAttach Word32
rightAttach Word32
topAttach Word32
bottomAttach
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuAttachMethodInfo
instance (signature ~ (b -> Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuAttachMethodInfo a signature where
overloadedMethod = menuAttach
instance O.OverloadedMethodInfo MenuAttachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuAttach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuAttach"
})
#endif
foreign import ccall "gtk_menu_attach_to_widget" ::
Ptr Menu ->
Ptr Gtk.Widget.Widget ->
FunPtr Gtk.Callbacks.C_MenuDetachFunc ->
IO ()
menuAttachToWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Maybe (Gtk.Callbacks.MenuDetachFunc)
-> m ()
a
menu b
attachWidget Maybe MenuDetachFunc
detacher = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
attachWidget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
attachWidget
FunPtr C_MenuDetachFunc
maybeDetacher <- case Maybe MenuDetachFunc
detacher of
Maybe MenuDetachFunc
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return (forall a b. Ptr a -> FunPtr b
castPtrToFunPtr forall a. Ptr a
nullPtr)
Just MenuDetachFunc
jDetacher -> do
Ptr (FunPtr C_MenuDetachFunc)
ptrdetacher <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gtk.Callbacks.C_MenuDetachFunc))
FunPtr C_MenuDetachFunc
jDetacher' <- C_MenuDetachFunc -> IO (FunPtr C_MenuDetachFunc)
Gtk.Callbacks.mk_MenuDetachFunc (Maybe (Ptr (FunPtr C_MenuDetachFunc))
-> MenuDetachFunc -> C_MenuDetachFunc
Gtk.Callbacks.wrap_MenuDetachFunc (forall a. a -> Maybe a
Just Ptr (FunPtr C_MenuDetachFunc)
ptrdetacher) MenuDetachFunc
jDetacher)
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_MenuDetachFunc)
ptrdetacher FunPtr C_MenuDetachFunc
jDetacher'
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_MenuDetachFunc
jDetacher'
Ptr Menu -> Ptr Widget -> FunPtr C_MenuDetachFunc -> IO ()
gtk_menu_attach_to_widget Ptr Menu
menu' Ptr Widget
attachWidget' FunPtr C_MenuDetachFunc
maybeDetacher
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
attachWidget
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuAttachToWidgetMethodInfo
instance (signature ~ (b -> Maybe (Gtk.Callbacks.MenuDetachFunc) -> m ()), MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuAttachToWidgetMethodInfo a signature where
overloadedMethod = menuAttachToWidget
instance O.OverloadedMethodInfo MenuAttachToWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuAttachToWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuAttachToWidget"
})
#endif
foreign import ccall "gtk_menu_detach" ::
Ptr Menu ->
IO ()
menuDetach ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m ()
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> IO ()
gtk_menu_detach Ptr Menu
menu'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuDetachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuDetachMethodInfo a signature where
overloadedMethod = menuDetach
instance O.OverloadedMethodInfo MenuDetachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuDetach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuDetach"
})
#endif
foreign import ccall "gtk_menu_get_accel_group" ::
Ptr Menu ->
IO (Ptr Gtk.AccelGroup.AccelGroup)
menuGetAccelGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m Gtk.AccelGroup.AccelGroup
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr AccelGroup
result <- Ptr Menu -> IO (Ptr AccelGroup)
gtk_menu_get_accel_group Ptr Menu
menu'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuGetAccelGroup" Ptr AccelGroup
result
AccelGroup
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr AccelGroup -> AccelGroup
Gtk.AccelGroup.AccelGroup) Ptr AccelGroup
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return AccelGroup
result'
#if defined(ENABLE_OVERLOADING)
data MenuGetAccelGroupMethodInfo
instance (signature ~ (m Gtk.AccelGroup.AccelGroup), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetAccelGroupMethodInfo a signature where
overloadedMethod = menuGetAccelGroup
instance O.OverloadedMethodInfo MenuGetAccelGroupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetAccelGroup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetAccelGroup"
})
#endif
foreign import ccall "gtk_menu_get_accel_path" ::
Ptr Menu ->
IO CString
menuGetAccelPath ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m T.Text
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
CString
result <- Ptr Menu -> IO CString
gtk_menu_get_accel_path Ptr Menu
menu'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuGetAccelPath" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data MenuGetAccelPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetAccelPathMethodInfo a signature where
overloadedMethod = menuGetAccelPath
instance O.OverloadedMethodInfo MenuGetAccelPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetAccelPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetAccelPath"
})
#endif
foreign import ccall "gtk_menu_get_active" ::
Ptr Menu ->
IO (Ptr Gtk.Widget.Widget)
menuGetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m Gtk.Widget.Widget
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
result <- Ptr Menu -> IO (Ptr Widget)
gtk_menu_get_active Ptr Menu
menu'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuGetActive" 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
menu
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data MenuGetActiveMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetActiveMethodInfo a signature where
overloadedMethod = menuGetActive
instance O.OverloadedMethodInfo MenuGetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetActive"
})
#endif
foreign import ccall "gtk_menu_get_attach_widget" ::
Ptr Menu ->
IO (Ptr Gtk.Widget.Widget)
menuGetAttachWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m Gtk.Widget.Widget
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
result <- Ptr Menu -> IO (Ptr Widget)
gtk_menu_get_attach_widget Ptr Menu
menu'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuGetAttachWidget" 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
menu
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data MenuGetAttachWidgetMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetAttachWidgetMethodInfo a signature where
overloadedMethod = menuGetAttachWidget
instance O.OverloadedMethodInfo MenuGetAttachWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetAttachWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetAttachWidget"
})
#endif
foreign import ccall "gtk_menu_get_monitor" ::
Ptr Menu ->
IO Int32
menuGetMonitor ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m Int32
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Int32
result <- Ptr Menu -> IO Int32
gtk_menu_get_monitor Ptr Menu
menu'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data MenuGetMonitorMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetMonitorMethodInfo a signature where
overloadedMethod = menuGetMonitor
instance O.OverloadedMethodInfo MenuGetMonitorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetMonitor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetMonitor"
})
#endif
foreign import ccall "gtk_menu_get_reserve_toggle_size" ::
Ptr Menu ->
IO CInt
menuGetReserveToggleSize ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m Bool
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
CInt
result <- Ptr Menu -> IO CInt
gtk_menu_get_reserve_toggle_size Ptr Menu
menu'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuGetReserveToggleSizeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetReserveToggleSizeMethodInfo a signature where
overloadedMethod = menuGetReserveToggleSize
instance O.OverloadedMethodInfo MenuGetReserveToggleSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetReserveToggleSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetReserveToggleSize"
})
#endif
foreign import ccall "gtk_menu_get_tearoff_state" ::
Ptr Menu ->
IO CInt
{-# DEPRECATED menuGetTearoffState ["(Since version 3.10)"] #-}
menuGetTearoffState ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m Bool
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
CInt
result <- Ptr Menu -> IO CInt
gtk_menu_get_tearoff_state Ptr Menu
menu'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data MenuGetTearoffStateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetTearoffStateMethodInfo a signature where
overloadedMethod = menuGetTearoffState
instance O.OverloadedMethodInfo MenuGetTearoffStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetTearoffState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetTearoffState"
})
#endif
foreign import ccall "gtk_menu_get_title" ::
Ptr Menu ->
IO CString
{-# DEPRECATED menuGetTitle ["(Since version 3.10)"] #-}
menuGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m T.Text
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
CString
result <- Ptr Menu -> IO CString
gtk_menu_get_title Ptr Menu
menu'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"menuGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data MenuGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsMenu a) => O.OverloadedMethod MenuGetTitleMethodInfo a signature where
overloadedMethod = menuGetTitle
instance O.OverloadedMethodInfo MenuGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuGetTitle"
})
#endif
foreign import ccall "gtk_menu_place_on_monitor" ::
Ptr Menu ->
Ptr Gdk.Monitor.Monitor ->
IO ()
menuPlaceOnMonitor ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gdk.Monitor.IsMonitor b) =>
a
-> b
-> m ()
a
menu b
monitor = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Monitor
monitor' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
monitor
Ptr Menu -> Ptr Monitor -> IO ()
gtk_menu_place_on_monitor Ptr Menu
menu' Ptr Monitor
monitor'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
monitor
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPlaceOnMonitorMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsMenu a, Gdk.Monitor.IsMonitor b) => O.OverloadedMethod MenuPlaceOnMonitorMethodInfo a signature where
overloadedMethod = menuPlaceOnMonitor
instance O.OverloadedMethodInfo MenuPlaceOnMonitorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuPlaceOnMonitor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuPlaceOnMonitor"
})
#endif
foreign import ccall "gtk_menu_popdown" ::
Ptr Menu ->
IO ()
menuPopdown ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m ()
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> IO ()
gtk_menu_popdown Ptr Menu
menu'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopdownMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuPopdownMethodInfo a signature where
overloadedMethod = menuPopdown
instance O.OverloadedMethodInfo MenuPopdownMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuPopdown",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuPopdown"
})
#endif
foreign import ccall "gtk_menu_popup" ::
Ptr Menu ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
FunPtr Gtk.Callbacks.C_MenuPositionFunc ->
Ptr () ->
Word32 ->
Word32 ->
IO ()
{-# DEPRECATED menuPopup ["(Since version 3.22)","Please use 'GI.Gtk.Objects.Menu.menuPopupAtWidget',"," 'GI.Gtk.Objects.Menu.menuPopupAtPointer'. or 'GI.Gtk.Objects.Menu.menuPopupAtRect' instead"] #-}
menuPopup ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> Maybe (b)
-> Maybe (c)
-> Maybe (Gtk.Callbacks.MenuPositionFunc)
-> Word32
-> Word32
-> m ()
a
menu Maybe b
parentMenuShell Maybe c
parentMenuItem Maybe MenuPositionFunc
func Word32
button Word32
activateTime = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
maybeParentMenuShell <- case Maybe b
parentMenuShell of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jParentMenuShell -> do
Ptr Widget
jParentMenuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jParentMenuShell
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jParentMenuShell'
Ptr Widget
maybeParentMenuItem <- case Maybe c
parentMenuItem of
Maybe c
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just c
jParentMenuItem -> do
Ptr Widget
jParentMenuItem' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jParentMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jParentMenuItem'
FunPtr C_MenuPositionFunc
maybeFunc <- case Maybe MenuPositionFunc
func of
Maybe MenuPositionFunc
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return (forall a b. Ptr a -> FunPtr b
castPtrToFunPtr forall a. Ptr a
nullPtr)
Just MenuPositionFunc
jFunc -> do
Ptr (FunPtr C_MenuPositionFunc)
ptrfunc <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Gtk.Callbacks.C_MenuPositionFunc))
FunPtr C_MenuPositionFunc
jFunc' <- C_MenuPositionFunc -> IO (FunPtr C_MenuPositionFunc)
Gtk.Callbacks.mk_MenuPositionFunc (Maybe (Ptr (FunPtr C_MenuPositionFunc))
-> MenuPositionFunc_WithClosures -> C_MenuPositionFunc
Gtk.Callbacks.wrap_MenuPositionFunc (forall a. a -> Maybe a
Just Ptr (FunPtr C_MenuPositionFunc)
ptrfunc) (MenuPositionFunc -> MenuPositionFunc_WithClosures
Gtk.Callbacks.drop_closures_MenuPositionFunc MenuPositionFunc
jFunc))
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_MenuPositionFunc)
ptrfunc FunPtr C_MenuPositionFunc
jFunc'
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_MenuPositionFunc
jFunc'
let data_ :: Ptr a
data_ = forall a. Ptr a
nullPtr
Ptr Menu
-> Ptr Widget
-> Ptr Widget
-> FunPtr C_MenuPositionFunc
-> Ptr ()
-> Word32
-> Word32
-> IO ()
gtk_menu_popup Ptr Menu
menu' Ptr Widget
maybeParentMenuShell Ptr Widget
maybeParentMenuItem FunPtr C_MenuPositionFunc
maybeFunc forall a. Ptr a
data_ Word32
button Word32
activateTime
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
parentMenuShell forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
parentMenuItem forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopupMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (Gtk.Callbacks.MenuPositionFunc) -> Word32 -> Word32 -> m ()), MonadIO m, IsMenu a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.OverloadedMethod MenuPopupMethodInfo a signature where
overloadedMethod = menuPopup
instance O.OverloadedMethodInfo MenuPopupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuPopup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuPopup"
})
#endif
foreign import ccall "gtk_menu_popup_at_pointer" ::
Ptr Menu ->
Ptr Gdk.Event.Event ->
IO ()
menuPopupAtPointer ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Maybe (Gdk.Event.Event)
-> m ()
a
menu Maybe Event
triggerEvent = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Event
maybeTriggerEvent <- case Maybe Event
triggerEvent of
Maybe Event
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Event
jTriggerEvent -> do
Ptr Event
jTriggerEvent' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
jTriggerEvent
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
jTriggerEvent'
Ptr Menu -> Ptr Event -> IO ()
gtk_menu_popup_at_pointer Ptr Menu
menu' Ptr Event
maybeTriggerEvent
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Event
triggerEvent forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopupAtPointerMethodInfo
instance (signature ~ (Maybe (Gdk.Event.Event) -> m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuPopupAtPointerMethodInfo a signature where
overloadedMethod = menuPopupAtPointer
instance O.OverloadedMethodInfo MenuPopupAtPointerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuPopupAtPointer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuPopupAtPointer"
})
#endif
foreign import ccall "gtk_menu_popup_at_rect" ::
Ptr Menu ->
Ptr Gdk.Window.Window ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
CUInt ->
Ptr Gdk.Event.Event ->
IO ()
menuPopupAtRect ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gdk.Window.IsWindow b) =>
a
-> b
-> Gdk.Rectangle.Rectangle
-> Gdk.Enums.Gravity
-> Gdk.Enums.Gravity
-> Maybe (Gdk.Event.Event)
-> m ()
a
menu b
rectWindow Rectangle
rect Gravity
rectAnchor Gravity
menuAnchor Maybe Event
triggerEvent = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Window
rectWindow' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
rectWindow
Ptr Rectangle
rect' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
let rectAnchor' :: CUInt
rectAnchor' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Gravity
rectAnchor
let menuAnchor' :: CUInt
menuAnchor' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Gravity
menuAnchor
Ptr Event
maybeTriggerEvent <- case Maybe Event
triggerEvent of
Maybe Event
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Event
jTriggerEvent -> do
Ptr Event
jTriggerEvent' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
jTriggerEvent
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
jTriggerEvent'
Ptr Menu
-> Ptr Window
-> Ptr Rectangle
-> CUInt
-> CUInt
-> Ptr Event
-> IO ()
gtk_menu_popup_at_rect Ptr Menu
menu' Ptr Window
rectWindow' Ptr Rectangle
rect' CUInt
rectAnchor' CUInt
menuAnchor' Ptr Event
maybeTriggerEvent
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
rectWindow
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Event
triggerEvent forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopupAtRectMethodInfo
instance (signature ~ (b -> Gdk.Rectangle.Rectangle -> Gdk.Enums.Gravity -> Gdk.Enums.Gravity -> Maybe (Gdk.Event.Event) -> m ()), MonadIO m, IsMenu a, Gdk.Window.IsWindow b) => O.OverloadedMethod MenuPopupAtRectMethodInfo a signature where
overloadedMethod = menuPopupAtRect
instance O.OverloadedMethodInfo MenuPopupAtRectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuPopupAtRect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuPopupAtRect"
})
#endif
foreign import ccall "gtk_menu_popup_at_widget" ::
Ptr Menu ->
Ptr Gtk.Widget.Widget ->
CUInt ->
CUInt ->
Ptr Gdk.Event.Event ->
IO ()
menuPopupAtWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Gdk.Enums.Gravity
-> Gdk.Enums.Gravity
-> Maybe (Gdk.Event.Event)
-> m ()
a
menu b
widget Gravity
widgetAnchor Gravity
menuAnchor Maybe Event
triggerEvent = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let widgetAnchor' :: CUInt
widgetAnchor' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Gravity
widgetAnchor
let menuAnchor' :: CUInt
menuAnchor' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Gravity
menuAnchor
Ptr Event
maybeTriggerEvent <- case Maybe Event
triggerEvent of
Maybe Event
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Event
jTriggerEvent -> do
Ptr Event
jTriggerEvent' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
jTriggerEvent
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
jTriggerEvent'
Ptr Menu -> Ptr Widget -> CUInt -> CUInt -> Ptr Event -> IO ()
gtk_menu_popup_at_widget Ptr Menu
menu' Ptr Widget
widget' CUInt
widgetAnchor' CUInt
menuAnchor' Ptr Event
maybeTriggerEvent
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Event
triggerEvent forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopupAtWidgetMethodInfo
instance (signature ~ (b -> Gdk.Enums.Gravity -> Gdk.Enums.Gravity -> Maybe (Gdk.Event.Event) -> m ()), MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuPopupAtWidgetMethodInfo a signature where
overloadedMethod = menuPopupAtWidget
instance O.OverloadedMethodInfo MenuPopupAtWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuPopupAtWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuPopupAtWidget"
})
#endif
foreign import ccall "gtk_menu_popup_for_device" ::
Ptr Menu ->
Ptr Gdk.Device.Device ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
FunPtr Gtk.Callbacks.C_MenuPositionFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Word32 ->
Word32 ->
IO ()
{-# DEPRECATED menuPopupForDevice ["(Since version 3.22)","Please use 'GI.Gtk.Objects.Menu.menuPopupAtWidget',"," 'GI.Gtk.Objects.Menu.menuPopupAtPointer'. or 'GI.Gtk.Objects.Menu.menuPopupAtRect' instead"] #-}
menuPopupForDevice ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gdk.Device.IsDevice b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) =>
a
-> Maybe (b)
-> Maybe (c)
-> Maybe (d)
-> Maybe (Gtk.Callbacks.MenuPositionFunc)
-> Word32
-> Word32
-> m ()
a
menu Maybe b
device Maybe c
parentMenuShell Maybe d
parentMenuItem Maybe MenuPositionFunc
func Word32
button Word32
activateTime = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Device
maybeDevice <- case Maybe b
device of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jDevice -> do
Ptr Device
jDevice' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jDevice
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
jDevice'
Ptr Widget
maybeParentMenuShell <- case Maybe c
parentMenuShell of
Maybe c
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just c
jParentMenuShell -> do
Ptr Widget
jParentMenuShell' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jParentMenuShell
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jParentMenuShell'
Ptr Widget
maybeParentMenuItem <- case Maybe d
parentMenuItem of
Maybe d
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just d
jParentMenuItem -> do
Ptr Widget
jParentMenuItem' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jParentMenuItem
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jParentMenuItem'
FunPtr C_MenuPositionFunc
maybeFunc <- case Maybe MenuPositionFunc
func of
Maybe MenuPositionFunc
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return (forall a b. Ptr a -> FunPtr b
castPtrToFunPtr forall a. Ptr a
nullPtr)
Just MenuPositionFunc
jFunc -> do
FunPtr C_MenuPositionFunc
jFunc' <- C_MenuPositionFunc -> IO (FunPtr C_MenuPositionFunc)
Gtk.Callbacks.mk_MenuPositionFunc (Maybe (Ptr (FunPtr C_MenuPositionFunc))
-> MenuPositionFunc_WithClosures -> C_MenuPositionFunc
Gtk.Callbacks.wrap_MenuPositionFunc forall a. Maybe a
Nothing (MenuPositionFunc -> MenuPositionFunc_WithClosures
Gtk.Callbacks.drop_closures_MenuPositionFunc MenuPositionFunc
jFunc))
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_MenuPositionFunc
jFunc'
let data_ :: Ptr ()
data_ = forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_MenuPositionFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr Menu
-> Ptr Device
-> Ptr Widget
-> Ptr Widget
-> FunPtr C_MenuPositionFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> Word32
-> Word32
-> IO ()
gtk_menu_popup_for_device Ptr Menu
menu' Ptr Device
maybeDevice Ptr Widget
maybeParentMenuShell Ptr Widget
maybeParentMenuItem FunPtr C_MenuPositionFunc
maybeFunc Ptr ()
data_ forall a. FunPtr (Ptr a -> IO ())
destroy Word32
button Word32
activateTime
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
device forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
parentMenuShell forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
parentMenuItem forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopupForDeviceMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (c) -> Maybe (d) -> Maybe (Gtk.Callbacks.MenuPositionFunc) -> Word32 -> Word32 -> m ()), MonadIO m, IsMenu a, Gdk.Device.IsDevice b, Gtk.Widget.IsWidget c, Gtk.Widget.IsWidget d) => O.OverloadedMethod MenuPopupForDeviceMethodInfo a signature where
overloadedMethod = menuPopupForDevice
instance O.OverloadedMethodInfo MenuPopupForDeviceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuPopupForDevice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuPopupForDevice"
})
#endif
foreign import ccall "gtk_menu_reorder_child" ::
Ptr Menu ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO ()
menuReorderChild ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ()
a
menu b
child Int32
position = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
child' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Menu -> Ptr Widget -> Int32 -> IO ()
gtk_menu_reorder_child Ptr Menu
menu' Ptr Widget
child' Int32
position
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuReorderChildMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsMenu a, Gtk.Widget.IsWidget b) => O.OverloadedMethod MenuReorderChildMethodInfo a signature where
overloadedMethod = menuReorderChild
instance O.OverloadedMethodInfo MenuReorderChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuReorderChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuReorderChild"
})
#endif
foreign import ccall "gtk_menu_reposition" ::
Ptr Menu ->
IO ()
menuReposition ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m ()
a
menu = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> IO ()
gtk_menu_reposition Ptr Menu
menu'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuRepositionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuRepositionMethodInfo a signature where
overloadedMethod = menuReposition
instance O.OverloadedMethodInfo MenuRepositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuReposition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuReposition"
})
#endif
foreign import ccall "gtk_menu_set_accel_group" ::
Ptr Menu ->
Ptr Gtk.AccelGroup.AccelGroup ->
IO ()
menuSetAccelGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gtk.AccelGroup.IsAccelGroup b) =>
a
-> Maybe (b)
-> m ()
a
menu Maybe b
accelGroup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr AccelGroup
maybeAccelGroup <- case Maybe b
accelGroup of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jAccelGroup -> do
Ptr AccelGroup
jAccelGroup' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAccelGroup
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AccelGroup
jAccelGroup'
Ptr Menu -> Ptr AccelGroup -> IO ()
gtk_menu_set_accel_group Ptr Menu
menu' Ptr AccelGroup
maybeAccelGroup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
accelGroup forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetAccelGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsMenu a, Gtk.AccelGroup.IsAccelGroup b) => O.OverloadedMethod MenuSetAccelGroupMethodInfo a signature where
overloadedMethod = menuSetAccelGroup
instance O.OverloadedMethodInfo MenuSetAccelGroupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetAccelGroup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetAccelGroup"
})
#endif
foreign import ccall "gtk_menu_set_accel_path" ::
Ptr Menu ->
CString ->
IO ()
menuSetAccelPath ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Maybe (T.Text)
-> m ()
a
menu Maybe Text
accelPath = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
CString
maybeAccelPath <- case Maybe Text
accelPath of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jAccelPath -> do
CString
jAccelPath' <- Text -> IO CString
textToCString Text
jAccelPath
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jAccelPath'
Ptr Menu -> CString -> IO ()
gtk_menu_set_accel_path Ptr Menu
menu' CString
maybeAccelPath
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. Ptr a -> IO ()
freeMem CString
maybeAccelPath
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetAccelPathMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuSetAccelPathMethodInfo a signature where
overloadedMethod = menuSetAccelPath
instance O.OverloadedMethodInfo MenuSetAccelPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetAccelPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetAccelPath"
})
#endif
foreign import ccall "gtk_menu_set_active" ::
Ptr Menu ->
Word32 ->
IO ()
menuSetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Word32
-> m ()
a
menu Word32
index = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> Word32 -> IO ()
gtk_menu_set_active Ptr Menu
menu' Word32
index
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetActiveMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuSetActiveMethodInfo a signature where
overloadedMethod = menuSetActive
instance O.OverloadedMethodInfo MenuSetActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetActive"
})
#endif
foreign import ccall "gtk_menu_set_monitor" ::
Ptr Menu ->
Int32 ->
IO ()
menuSetMonitor ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Int32
-> m ()
a
menu Int32
monitorNum = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> Int32 -> IO ()
gtk_menu_set_monitor Ptr Menu
menu' Int32
monitorNum
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetMonitorMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuSetMonitorMethodInfo a signature where
overloadedMethod = menuSetMonitor
instance O.OverloadedMethodInfo MenuSetMonitorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetMonitor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetMonitor"
})
#endif
foreign import ccall "gtk_menu_set_reserve_toggle_size" ::
Ptr Menu ->
CInt ->
IO ()
menuSetReserveToggleSize ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Bool
-> m ()
a
menu Bool
reserveToggleSize = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
let reserveToggleSize' :: CInt
reserveToggleSize' = (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
reserveToggleSize
Ptr Menu -> CInt -> IO ()
gtk_menu_set_reserve_toggle_size Ptr Menu
menu' CInt
reserveToggleSize'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetReserveToggleSizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuSetReserveToggleSizeMethodInfo a signature where
overloadedMethod = menuSetReserveToggleSize
instance O.OverloadedMethodInfo MenuSetReserveToggleSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetReserveToggleSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetReserveToggleSize"
})
#endif
foreign import ccall "gtk_menu_set_screen" ::
Ptr Menu ->
Ptr Gdk.Screen.Screen ->
IO ()
menuSetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gdk.Screen.IsScreen b) =>
a
-> Maybe (b)
-> m ()
a
menu Maybe b
screen = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Screen
maybeScreen <- case Maybe b
screen of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jScreen -> do
Ptr Screen
jScreen' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jScreen
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Screen
jScreen'
Ptr Menu -> Ptr Screen -> IO ()
gtk_menu_set_screen Ptr Menu
menu' Ptr Screen
maybeScreen
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
screen forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetScreenMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsMenu a, Gdk.Screen.IsScreen b) => O.OverloadedMethod MenuSetScreenMethodInfo a signature where
overloadedMethod = menuSetScreen
instance O.OverloadedMethodInfo MenuSetScreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetScreen"
})
#endif
foreign import ccall "gtk_menu_set_tearoff_state" ::
Ptr Menu ->
CInt ->
IO ()
{-# DEPRECATED menuSetTearoffState ["(Since version 3.10)"] #-}
menuSetTearoffState ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Bool
-> m ()
a
menu Bool
tornOff = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
let tornOff' :: CInt
tornOff' = (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
tornOff
Ptr Menu -> CInt -> IO ()
gtk_menu_set_tearoff_state Ptr Menu
menu' CInt
tornOff'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetTearoffStateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuSetTearoffStateMethodInfo a signature where
overloadedMethod = menuSetTearoffState
instance O.OverloadedMethodInfo MenuSetTearoffStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetTearoffState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetTearoffState"
})
#endif
foreign import ccall "gtk_menu_set_title" ::
Ptr Menu ->
CString ->
IO ()
{-# DEPRECATED menuSetTitle ["(Since version 3.10)"] #-}
menuSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Maybe (T.Text)
-> m ()
a
menu Maybe Text
title = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
CString
maybeTitle <- case Maybe Text
title of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jTitle -> do
CString
jTitle' <- Text -> IO CString
textToCString Text
jTitle
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTitle'
Ptr Menu -> CString -> IO ()
gtk_menu_set_title Ptr Menu
menu' CString
maybeTitle
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. Ptr a -> IO ()
freeMem CString
maybeTitle
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetTitleMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsMenu a) => O.OverloadedMethod MenuSetTitleMethodInfo a signature where
overloadedMethod = menuSetTitle
instance O.OverloadedMethodInfo MenuSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Menu.menuSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-Menu.html#v:menuSetTitle"
})
#endif
foreign import ccall "gtk_menu_get_for_attach_widget" ::
Ptr Gtk.Widget.Widget ->
IO (Ptr (GList (Ptr Gtk.Widget.Widget)))
menuGetForAttachWidget ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
a
-> m [Gtk.Widget.Widget]
a
widget = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
Ptr (GList (Ptr Widget))
result <- Ptr Widget -> IO (Ptr (GList (Ptr Widget)))
gtk_menu_get_for_attach_widget Ptr Widget
widget'
[Ptr Widget]
result' <- forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Widget))
result
[Widget]
result'' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (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
widget
forall (m :: * -> *) a. Monad m => a -> m a
return [Widget]
result''
#if defined(ENABLE_OVERLOADING)
#endif