{-# LANGUAGE 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 ,
noMenu ,
#if defined(ENABLE_OVERLOADING)
ResolveMenuMethod ,
#endif
#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 ,
menuNew ,
menuNewFromModel ,
#if defined(ENABLE_OVERLOADING)
MenuPlaceOnMonitorMethodInfo ,
#endif
menuPlaceOnMonitor ,
#if defined(ENABLE_OVERLOADING)
MenuPopdownMethodInfo ,
#endif
menuPopdown ,
#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)
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)
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 ,
C_MenuMoveScrollCallback ,
MenuMoveScrollCallback ,
#if defined(ENABLE_OVERLOADING)
MenuMoveScrollSignalInfo ,
#endif
afterMenuMoveScroll ,
genClosure_MenuMoveScroll ,
mk_MenuMoveScrollCallback ,
noMenuMoveScrollCallback ,
onMenuMoveScroll ,
wrap_MenuMoveScrollCallback ,
C_MenuPoppedUpCallback ,
MenuPoppedUpCallback ,
#if defined(ENABLE_OVERLOADING)
MenuPoppedUpSignalInfo ,
#endif
afterMenuPoppedUp ,
genClosure_MenuPoppedUp ,
mk_MenuPoppedUpCallback ,
noMenuPoppedUpCallback ,
onMenuPoppedUp ,
wrap_MenuPoppedUpCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.Monitor as Gdk.Monitor
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
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 = (ManagedPtr Menu)
deriving (Menu -> Menu -> Bool
(Menu -> Menu -> Bool) -> (Menu -> Menu -> Bool) -> Eq Menu
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)
foreign import ccall "gtk_menu_get_type"
:: IO GType
instance GObject Menu where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_menu_get_type
instance B.GValue.IsGValue Menu where
toGValue :: Menu -> IO GValue
toGValue o :: Menu
o = do
GType
gtype <- IO GType
c_gtk_menu_get_type
Menu -> (Ptr Menu -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Menu
o (GType -> (GValue -> Ptr Menu -> IO ()) -> Ptr Menu -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Menu -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Menu
fromGValue gv :: GValue
gv = do
Ptr Menu
ptr <- GValue -> IO (Ptr Menu)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Menu)
(ManagedPtr Menu -> Menu) -> Ptr Menu -> IO Menu
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
class (GObject o, O.IsDescendantOf Menu o) => o
instance (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 :: (MonadIO m, IsMenu o) => o -> m Menu
= IO Menu -> m Menu
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Menu -> m Menu) -> (o -> IO Menu) -> o -> m Menu
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Menu -> Menu) -> o -> IO Menu
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Menu -> Menu
Menu
noMenu :: Maybe Menu
= Maybe Menu
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveMenuMethod (t :: Symbol) (o :: *) :: * where
ResolveMenuMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveMenuMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveMenuMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
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 "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveMenuMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveMenuMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveMenuMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveMenuMethod "append" o = Gtk.MenuShell.MenuShellAppendMethodInfo
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 "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveMenuMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveMenuMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveMenuMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveMenuMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveMenuMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveMenuMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveMenuMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
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 "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 "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 "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveMenuMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveMenuMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveMenuMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
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 "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMenuMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMenuMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
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 "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveMenuMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
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 "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveMenuMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveMenuMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
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 "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveMenuMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveMenuMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMenuMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMenuMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveMenuMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveMenuMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveMenuMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveMenuMethod "placeOnMonitor" o = MenuPlaceOnMonitorMethodInfo
ResolveMenuMethod "popdown" o = MenuPopdownMethodInfo
ResolveMenuMethod "popupAtPointer" o = MenuPopupAtPointerMethodInfo
ResolveMenuMethod "popupAtRect" o = MenuPopupAtRectMethodInfo
ResolveMenuMethod "popupAtWidget" o = MenuPopupAtWidgetMethodInfo
ResolveMenuMethod "prepend" o = Gtk.MenuShell.MenuShellPrependMethodInfo
ResolveMenuMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveMenuMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveMenuMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
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 "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveMenuMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveMenuMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveMenuMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveMenuMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveMenuMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveMenuMethod "reorderChild" o = MenuReorderChildMethodInfo
ResolveMenuMethod "reposition" o = MenuRepositionMethodInfo
ResolveMenuMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveMenuMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMenuMethod "selectFirst" o = Gtk.MenuShell.MenuShellSelectFirstMethodInfo
ResolveMenuMethod "selectItem" o = Gtk.MenuShell.MenuShellSelectItemMethodInfo
ResolveMenuMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveMenuMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveMenuMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveMenuMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMenuMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
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 "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
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 "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveMenuMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveMenuMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveMenuMethod "getAttachWidget" o = MenuGetAttachWidgetMethodInfo
ResolveMenuMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveMenuMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveMenuMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveMenuMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveMenuMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveMenuMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveMenuMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMenuMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveMenuMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveMenuMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveMenuMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
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 "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveMenuMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveMenuMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveMenuMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveMenuMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveMenuMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveMenuMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveMenuMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveMenuMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveMenuMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveMenuMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveMenuMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveMenuMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveMenuMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveMenuMethod "getMonitor" o = MenuGetMonitorMethodInfo
ResolveMenuMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveMenuMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveMenuMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveMenuMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveMenuMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveMenuMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveMenuMethod "getParentShell" o = Gtk.MenuShell.MenuShellGetParentShellMethodInfo
ResolveMenuMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveMenuMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveMenuMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveMenuMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveMenuMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
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 "getReserveToggleSize" o = MenuGetReserveToggleSizeMethodInfo
ResolveMenuMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveMenuMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
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 "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveMenuMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveMenuMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveMenuMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveMenuMethod "getTakeFocus" o = Gtk.MenuShell.MenuShellGetTakeFocusMethodInfo
ResolveMenuMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
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 "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveMenuMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveMenuMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveMenuMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveMenuMethod "setAccelGroup" o = MenuSetAccelGroupMethodInfo
ResolveMenuMethod "setAccelPath" o = MenuSetAccelPathMethodInfo
ResolveMenuMethod "setActive" o = MenuSetActiveMethodInfo
ResolveMenuMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveMenuMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveMenuMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveMenuMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveMenuMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveMenuMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveMenuMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMenuMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMenuMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveMenuMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
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 "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveMenuMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveMenuMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveMenuMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveMenuMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveMenuMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveMenuMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveMenuMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveMenuMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveMenuMethod "setMonitor" o = MenuSetMonitorMethodInfo
ResolveMenuMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveMenuMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveMenuMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveMenuMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveMenuMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMenuMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveMenuMethod "setReserveToggleSize" o = MenuSetReserveToggleSizeMethodInfo
ResolveMenuMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveMenuMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveMenuMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveMenuMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveMenuMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveMenuMethod "setTakeFocus" o = Gtk.MenuShell.MenuShellSetTakeFocusMethodInfo
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 l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMenuMethod t Menu, O.MethodInfo 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
#endif
type =
Gtk.Enums.ScrollType
-> IO ()
noMenuMoveScrollCallback :: Maybe MenuMoveScrollCallback
= Maybe MenuMoveScrollCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuMoveScrollCallback -> IO (FunPtr C_MenuMoveScrollCallback)
genClosure_MenuMoveScroll :: MonadIO m => MenuMoveScrollCallback -> m (GClosure C_MenuMoveScrollCallback)
cb :: MenuMoveScrollCallback
cb = IO (GClosure C_MenuMoveScrollCallback)
-> m (GClosure C_MenuMoveScrollCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuMoveScrollCallback)
-> m (GClosure C_MenuMoveScrollCallback))
-> IO (GClosure C_MenuMoveScrollCallback)
-> m (GClosure C_MenuMoveScrollCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuMoveScrollCallback
cb' = MenuMoveScrollCallback -> C_MenuMoveScrollCallback
wrap_MenuMoveScrollCallback MenuMoveScrollCallback
cb
C_MenuMoveScrollCallback -> IO (FunPtr C_MenuMoveScrollCallback)
mk_MenuMoveScrollCallback C_MenuMoveScrollCallback
cb' IO (FunPtr C_MenuMoveScrollCallback)
-> (FunPtr C_MenuMoveScrollCallback
-> IO (GClosure C_MenuMoveScrollCallback))
-> IO (GClosure C_MenuMoveScrollCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuMoveScrollCallback
-> IO (GClosure C_MenuMoveScrollCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuMoveScrollCallback ::
MenuMoveScrollCallback ->
C_MenuMoveScrollCallback
_cb :: MenuMoveScrollCallback
_cb _ scrollType :: CUInt
scrollType _ = do
let scrollType' :: ScrollType
scrollType' = (Int -> ScrollType
forall a. Enum a => Int -> a
toEnum (Int -> ScrollType) -> (CUInt -> Int) -> CUInt -> ScrollType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
scrollType
MenuMoveScrollCallback
_cb ScrollType
scrollType'
onMenuMoveScroll :: (IsMenu a, MonadIO m) => a -> MenuMoveScrollCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuMoveScrollCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuMoveScrollCallback
cb' = MenuMoveScrollCallback -> C_MenuMoveScrollCallback
wrap_MenuMoveScrollCallback MenuMoveScrollCallback
cb
FunPtr C_MenuMoveScrollCallback
cb'' <- C_MenuMoveScrollCallback -> IO (FunPtr C_MenuMoveScrollCallback)
mk_MenuMoveScrollCallback C_MenuMoveScrollCallback
cb'
a
-> Text
-> FunPtr C_MenuMoveScrollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-scroll" FunPtr C_MenuMoveScrollCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuMoveScroll :: (IsMenu a, MonadIO m) => a -> MenuMoveScrollCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuMoveScrollCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuMoveScrollCallback
cb' = MenuMoveScrollCallback -> C_MenuMoveScrollCallback
wrap_MenuMoveScrollCallback MenuMoveScrollCallback
cb
FunPtr C_MenuMoveScrollCallback
cb'' <- C_MenuMoveScrollCallback -> IO (FunPtr C_MenuMoveScrollCallback)
mk_MenuMoveScrollCallback C_MenuMoveScrollCallback
cb'
a
-> Text
-> FunPtr C_MenuMoveScrollCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-scroll" FunPtr C_MenuMoveScrollCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
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
#endif
type =
Ptr ()
-> Ptr ()
-> Bool
-> Bool
-> IO ()
noMenuPoppedUpCallback :: Maybe MenuPoppedUpCallback
= Maybe MenuPoppedUpCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr () ->
Ptr () ->
CInt ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_MenuPoppedUpCallback -> IO (FunPtr C_MenuPoppedUpCallback)
genClosure_MenuPoppedUp :: MonadIO m => MenuPoppedUpCallback -> m (GClosure C_MenuPoppedUpCallback)
cb :: MenuPoppedUpCallback
cb = IO (GClosure C_MenuPoppedUpCallback)
-> m (GClosure C_MenuPoppedUpCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_MenuPoppedUpCallback)
-> m (GClosure C_MenuPoppedUpCallback))
-> IO (GClosure C_MenuPoppedUpCallback)
-> m (GClosure C_MenuPoppedUpCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuPoppedUpCallback
cb' = MenuPoppedUpCallback -> C_MenuPoppedUpCallback
wrap_MenuPoppedUpCallback MenuPoppedUpCallback
cb
C_MenuPoppedUpCallback -> IO (FunPtr C_MenuPoppedUpCallback)
mk_MenuPoppedUpCallback C_MenuPoppedUpCallback
cb' IO (FunPtr C_MenuPoppedUpCallback)
-> (FunPtr C_MenuPoppedUpCallback
-> IO (GClosure C_MenuPoppedUpCallback))
-> IO (GClosure C_MenuPoppedUpCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MenuPoppedUpCallback
-> IO (GClosure C_MenuPoppedUpCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_MenuPoppedUpCallback ::
MenuPoppedUpCallback ->
C_MenuPoppedUpCallback
_cb :: MenuPoppedUpCallback
_cb _ flippedRect :: Ptr ()
flippedRect finalRect :: Ptr ()
finalRect flippedX :: CInt
flippedX flippedY :: CInt
flippedY _ = do
let flippedX' :: Bool
flippedX' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
flippedX
let flippedY' :: Bool
flippedY' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
flippedY
MenuPoppedUpCallback
_cb Ptr ()
flippedRect Ptr ()
finalRect Bool
flippedX' Bool
flippedY'
onMenuPoppedUp :: (IsMenu a, MonadIO m) => a -> MenuPoppedUpCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuPoppedUpCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuPoppedUpCallback
cb' = MenuPoppedUpCallback -> C_MenuPoppedUpCallback
wrap_MenuPoppedUpCallback MenuPoppedUpCallback
cb
FunPtr C_MenuPoppedUpCallback
cb'' <- C_MenuPoppedUpCallback -> IO (FunPtr C_MenuPoppedUpCallback)
mk_MenuPoppedUpCallback C_MenuPoppedUpCallback
cb'
a
-> Text
-> FunPtr C_MenuPoppedUpCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "popped-up" FunPtr C_MenuPoppedUpCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterMenuPoppedUp :: (IsMenu a, MonadIO m) => a -> MenuPoppedUpCallback -> m SignalHandlerId
obj :: a
obj cb :: MenuPoppedUpCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MenuPoppedUpCallback
cb' = MenuPoppedUpCallback -> C_MenuPoppedUpCallback
wrap_MenuPoppedUpCallback MenuPoppedUpCallback
cb
FunPtr C_MenuPoppedUpCallback
cb'' <- C_MenuPoppedUpCallback -> IO (FunPtr C_MenuPoppedUpCallback)
mk_MenuPoppedUpCallback C_MenuPoppedUpCallback
cb'
a
-> Text
-> FunPtr C_MenuPoppedUpCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "popped-up" FunPtr C_MenuPoppedUpCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
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
#endif
getMenuAccelGroup :: (MonadIO m, IsMenu o) => o -> m Gtk.AccelGroup.AccelGroup
obj :: o
obj = IO AccelGroup -> m AccelGroup
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AccelGroup -> m AccelGroup) -> IO AccelGroup -> m AccelGroup
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe AccelGroup) -> IO AccelGroup
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getMenuAccelGroup" (IO (Maybe AccelGroup) -> IO AccelGroup)
-> IO (Maybe AccelGroup) -> IO AccelGroup
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr AccelGroup -> AccelGroup)
-> IO (Maybe AccelGroup)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "accel-group" ManagedPtr AccelGroup -> AccelGroup
Gtk.AccelGroup.AccelGroup
setMenuAccelGroup :: (MonadIO m, IsMenu o, Gtk.AccelGroup.IsAccelGroup a) => o -> a -> m ()
obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "accel-group" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructMenuAccelGroup :: (IsMenu o, Gtk.AccelGroup.IsAccelGroup a) => a -> IO (GValueConstruct o)
val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "accel-group" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearMenuAccelGroup :: (MonadIO m, IsMenu o) => o -> m ()
obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe AccelGroup -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "accel-group" (Maybe AccelGroup
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
#endif
getMenuAccelPath :: (MonadIO m, IsMenu o) => o -> m T.Text
obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getMenuAccelPath" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "accel-path"
setMenuAccelPath :: (MonadIO m, IsMenu o) => o -> T.Text -> m ()
obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "accel-path" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructMenuAccelPath :: (IsMenu o) => T.Text -> IO (GValueConstruct o)
val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "accel-path" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearMenuAccelPath :: (MonadIO m, IsMenu o) => o -> m ()
obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "accel-path" (Maybe Text
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
#endif
getMenuActive :: (MonadIO m, IsMenu o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "active"
setMenuActive :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "active" Int32
val
constructMenuActive :: (IsMenu o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#endif
getMenuAnchorHints :: (MonadIO m, IsMenu o) => o -> m [Gdk.Flags.AnchorHints]
obj :: o
obj = IO [AnchorHints] -> m [AnchorHints]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [AnchorHints] -> m [AnchorHints])
-> IO [AnchorHints] -> m [AnchorHints]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [AnchorHints]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj "anchor-hints"
setMenuAnchorHints :: (MonadIO m, IsMenu o) => o -> [Gdk.Flags.AnchorHints] -> m ()
obj :: o
obj val :: [AnchorHints]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> [AnchorHints] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj "anchor-hints" [AnchorHints]
val
constructMenuAnchorHints :: (IsMenu o) => [Gdk.Flags.AnchorHints] -> IO (GValueConstruct o)
val :: [AnchorHints]
val = String -> [AnchorHints] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags "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
#endif
getMenuAttachWidget :: (MonadIO m, IsMenu o) => o -> m Gtk.Widget.Widget
obj :: o
obj = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Widget) -> IO Widget
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getMenuAttachWidget" (IO (Maybe Widget) -> IO Widget) -> IO (Maybe Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "attach-widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setMenuAttachWidget :: (MonadIO m, IsMenu o, Gtk.Widget.IsWidget a) => o -> a -> m ()
obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "attach-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructMenuAttachWidget :: (IsMenu o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "attach-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearMenuAttachWidget :: (MonadIO m, IsMenu o) => o -> m ()
obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "attach-widget" (Maybe 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
#endif
getMenuMenuTypeHint :: (MonadIO m, IsMenu o) => o -> m Gdk.Enums.SurfaceTypeHint
obj :: o
obj = IO SurfaceTypeHint -> m SurfaceTypeHint
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SurfaceTypeHint -> m SurfaceTypeHint)
-> IO SurfaceTypeHint -> m SurfaceTypeHint
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SurfaceTypeHint
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "menu-type-hint"
setMenuMenuTypeHint :: (MonadIO m, IsMenu o) => o -> Gdk.Enums.SurfaceTypeHint -> m ()
obj :: o
obj val :: SurfaceTypeHint
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> SurfaceTypeHint -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "menu-type-hint" SurfaceTypeHint
val
constructMenuMenuTypeHint :: (IsMenu o) => Gdk.Enums.SurfaceTypeHint -> IO (GValueConstruct o)
val :: SurfaceTypeHint
val = String -> SurfaceTypeHint -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "menu-type-hint" SurfaceTypeHint
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.SurfaceTypeHint
type AttrTransferTypeConstraint MenuMenuTypeHintPropertyInfo = (~) Gdk.Enums.SurfaceTypeHint
type AttrTransferType MenuMenuTypeHintPropertyInfo = Gdk.Enums.SurfaceTypeHint
type AttrGetType MenuMenuTypeHintPropertyInfo = Gdk.Enums.SurfaceTypeHint
type AttrLabel MenuMenuTypeHintPropertyInfo = "menu-type-hint"
type AttrOrigin MenuMenuTypeHintPropertyInfo = Menu
attrGet = getMenuMenuTypeHint
attrSet = setMenuMenuTypeHint
attrTransfer _ v = do
return v
attrConstruct = constructMenuMenuTypeHint
attrClear = undefined
#endif
getMenuMonitor :: (MonadIO m, IsMenu o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "monitor"
setMenuMonitor :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "monitor" Int32
val
constructMenuMonitor :: (IsMenu o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#endif
getMenuRectAnchorDx :: (MonadIO m, IsMenu o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "rect-anchor-dx"
setMenuRectAnchorDx :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "rect-anchor-dx" Int32
val
constructMenuRectAnchorDx :: (IsMenu o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#endif
getMenuRectAnchorDy :: (MonadIO m, IsMenu o) => o -> m Int32
obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "rect-anchor-dy"
setMenuRectAnchorDy :: (MonadIO m, IsMenu o) => o -> Int32 -> m ()
obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "rect-anchor-dy" Int32
val
constructMenuRectAnchorDy :: (IsMenu o) => Int32 -> IO (GValueConstruct o)
val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#endif
getMenuReserveToggleSize :: (MonadIO m, IsMenu o) => o -> m Bool
obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "reserve-toggle-size"
setMenuReserveToggleSize :: (MonadIO m, IsMenu o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "reserve-toggle-size" Bool
val
constructMenuReserveToggleSize :: (IsMenu o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#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), '("attachWidget", MenuAttachWidgetPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("menuTypeHint", MenuMenuTypeHintPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("rectAnchorDx", MenuRectAnchorDxPropertyInfo), '("rectAnchorDy", MenuRectAnchorDyPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("takeFocus", Gtk.MenuShell.MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#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
#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), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("cancel", Gtk.MenuShell.MenuShellCancelSignalInfo), '("cycleFocus", Gtk.MenuShell.MenuShellCycleFocusSignalInfo), '("deactivate", Gtk.MenuShell.MenuShellDeactivateSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("insert", Gtk.MenuShell.MenuShellInsertSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveCurrent", Gtk.MenuShell.MenuShellMoveCurrentSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveScroll", MenuMoveScrollSignalInfo), '("moveSelected", Gtk.MenuShell.MenuShellMoveSelectedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("poppedUp", MenuPoppedUpSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("selectionDone", Gtk.MenuShell.MenuShellSelectionDoneSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_menu_new" ::
IO (Ptr Menu)
menuNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Menu
= IO Menu -> m Menu
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Menu -> m Menu) -> IO Menu -> m Menu
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
result <- IO (Ptr Menu)
gtk_menu_new
Text -> Ptr Menu -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuNew" Ptr Menu
result
Menu
result' <- ((ManagedPtr Menu -> Menu) -> Ptr Menu -> IO Menu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menu -> Menu
Menu) Ptr Menu
result
Menu -> IO Menu
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
model :: a
model = IO Menu -> m Menu
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Menu -> m Menu) -> IO Menu -> m Menu
forall a b. (a -> b) -> a -> b
$ do
Ptr MenuModel
model' <- a -> IO (Ptr MenuModel)
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'
Text -> Ptr Menu -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuNewFromModel" Ptr Menu
result
Menu
result' <- ((ManagedPtr Menu -> Menu) -> Ptr Menu -> IO Menu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menu -> Menu
Menu) Ptr Menu
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
Menu -> IO Menu
forall (m :: * -> *) a. Monad m => a -> m a
return Menu
result'
#if defined(ENABLE_OVERLOADING)
#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 ()
menu :: a
menu attachWidget :: b
attachWidget detacher :: Maybe MenuDetachFunc
detacher = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
attachWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
attachWidget
FunPtr C_MenuDetachFunc
maybeDetacher <- case Maybe MenuDetachFunc
detacher of
Nothing -> FunPtr C_MenuDetachFunc -> IO (FunPtr C_MenuDetachFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_MenuDetachFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jDetacher :: MenuDetachFunc
jDetacher -> do
Ptr (FunPtr C_MenuDetachFunc)
ptrdetacher <- IO (Ptr (FunPtr C_MenuDetachFunc))
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 (Ptr (FunPtr C_MenuDetachFunc)
-> Maybe (Ptr (FunPtr C_MenuDetachFunc))
forall a. a -> Maybe a
Just Ptr (FunPtr C_MenuDetachFunc)
ptrdetacher) MenuDetachFunc
jDetacher)
Ptr (FunPtr C_MenuDetachFunc) -> FunPtr C_MenuDetachFunc -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_MenuDetachFunc)
ptrdetacher FunPtr C_MenuDetachFunc
jDetacher'
FunPtr C_MenuDetachFunc -> IO (FunPtr C_MenuDetachFunc)
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
attachWidget
() -> IO ()
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.MethodInfo MenuAttachToWidgetMethodInfo a signature where
overloadedMethod = menuAttachToWidget
#endif
foreign import ccall "gtk_menu_detach" ::
Ptr Menu ->
IO ()
menuDetach ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m ()
menu :: a
menu = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> IO ()
gtk_menu_detach Ptr Menu
menu'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuDetachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuDetachMethodInfo a signature where
overloadedMethod = 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
menu :: a
menu = IO AccelGroup -> m AccelGroup
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AccelGroup -> m AccelGroup) -> IO AccelGroup -> m AccelGroup
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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'
Text -> Ptr AccelGroup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuGetAccelGroup" Ptr AccelGroup
result
AccelGroup
result' <- ((ManagedPtr AccelGroup -> AccelGroup)
-> Ptr AccelGroup -> IO AccelGroup
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
AccelGroup -> IO AccelGroup
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.MethodInfo MenuGetAccelGroupMethodInfo a signature where
overloadedMethod = 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
menu :: a
menu = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuGetAccelPath" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Text -> IO Text
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.MethodInfo MenuGetAccelPathMethodInfo a signature where
overloadedMethod = 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
menu :: a
menu = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuGetActive" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Widget -> IO Widget
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.MethodInfo MenuGetActiveMethodInfo a signature where
overloadedMethod = 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
menu :: a
menu = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "menuGetAttachWidget" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Widget -> IO Widget
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.MethodInfo MenuGetAttachWidgetMethodInfo a signature where
overloadedMethod = menuGetAttachWidget
#endif
foreign import ccall "gtk_menu_get_monitor" ::
Ptr Menu ->
IO Int32
menuGetMonitor ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m Int32
menu :: a
menu = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Int32 -> IO Int32
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.MethodInfo MenuGetMonitorMethodInfo a signature where
overloadedMethod = 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
menu :: a
menu = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Bool -> IO Bool
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.MethodInfo MenuGetReserveToggleSizeMethodInfo a signature where
overloadedMethod = menuGetReserveToggleSize
#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 ()
menu :: a
menu monitor :: b
monitor = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Monitor
monitor' <- b -> IO (Ptr 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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
monitor
() -> IO ()
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.MethodInfo MenuPlaceOnMonitorMethodInfo a signature where
overloadedMethod = menuPlaceOnMonitor
#endif
foreign import ccall "gtk_menu_popdown" ::
Ptr Menu ->
IO ()
menuPopdown ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m ()
menu :: a
menu = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> IO ()
gtk_menu_popdown Ptr Menu
menu'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopdownMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuPopdownMethodInfo a signature where
overloadedMethod = menuPopdown
#endif
foreign import ccall "gtk_menu_popup_at_pointer" ::
Ptr Menu ->
Ptr Gdk.Event.Event ->
IO ()
menuPopupAtPointer ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gdk.Event.IsEvent b) =>
a
-> Maybe (b)
-> m ()
menu :: a
menu triggerEvent :: Maybe b
triggerEvent = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Event
maybeTriggerEvent <- case Maybe b
triggerEvent of
Nothing -> Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
forall a. Ptr a
nullPtr
Just jTriggerEvent :: b
jTriggerEvent -> do
Ptr Event
jTriggerEvent' <- b -> IO (Ptr Event)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTriggerEvent
Ptr Event -> IO (Ptr Event)
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
triggerEvent b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuPopupAtPointerMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsMenu a, Gdk.Event.IsEvent b) => O.MethodInfo MenuPopupAtPointerMethodInfo a signature where
overloadedMethod = menuPopupAtPointer
#endif
foreign import ccall "gtk_menu_popup_at_rect" ::
Ptr Menu ->
Ptr Gdk.Surface.Surface ->
Ptr Gdk.Rectangle.Rectangle ->
CUInt ->
CUInt ->
Ptr Gdk.Event.Event ->
IO ()
menuPopupAtRect ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gdk.Surface.IsSurface b, Gdk.Event.IsEvent c) =>
a
-> b
-> Gdk.Rectangle.Rectangle
-> Gdk.Enums.Gravity
-> Gdk.Enums.Gravity
-> Maybe (c)
-> m ()
menu :: a
menu rectSurface :: b
rectSurface rect :: Rectangle
rect rectAnchor :: Gravity
rectAnchor menuAnchor :: Gravity
menuAnchor triggerEvent :: Maybe c
triggerEvent = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Surface
rectSurface' <- b -> IO (Ptr Surface)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
rectSurface
Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
let rectAnchor' :: CUInt
rectAnchor' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Gravity -> Int) -> Gravity -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Gravity -> Int
forall a. Enum a => a -> Int
fromEnum) Gravity
rectAnchor
let menuAnchor' :: CUInt
menuAnchor' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Gravity -> Int) -> Gravity -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Gravity -> Int
forall a. Enum a => a -> Int
fromEnum) Gravity
menuAnchor
Ptr Event
maybeTriggerEvent <- case Maybe c
triggerEvent of
Nothing -> Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
forall a. Ptr a
nullPtr
Just jTriggerEvent :: c
jTriggerEvent -> do
Ptr Event
jTriggerEvent' <- c -> IO (Ptr Event)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTriggerEvent
Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
jTriggerEvent'
Ptr Menu
-> Ptr Surface
-> Ptr Rectangle
-> CUInt
-> CUInt
-> Ptr Event
-> IO ()
gtk_menu_popup_at_rect Ptr Menu
menu' Ptr Surface
rectSurface' Ptr Rectangle
rect' CUInt
rectAnchor' CUInt
menuAnchor' Ptr Event
maybeTriggerEvent
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
rectSurface
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
triggerEvent c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
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 (c) -> m ()), MonadIO m, IsMenu a, Gdk.Surface.IsSurface b, Gdk.Event.IsEvent c) => O.MethodInfo MenuPopupAtRectMethodInfo a signature where
overloadedMethod = 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, Gdk.Event.IsEvent c) =>
a
-> b
-> Gdk.Enums.Gravity
-> Gdk.Enums.Gravity
-> Maybe (c)
-> m ()
menu :: a
menu widget :: b
widget widgetAnchor :: Gravity
widgetAnchor menuAnchor :: Gravity
menuAnchor triggerEvent :: Maybe c
triggerEvent = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let widgetAnchor' :: CUInt
widgetAnchor' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Gravity -> Int) -> Gravity -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Gravity -> Int
forall a. Enum a => a -> Int
fromEnum) Gravity
widgetAnchor
let menuAnchor' :: CUInt
menuAnchor' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Gravity -> Int) -> Gravity -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Gravity -> Int
forall a. Enum a => a -> Int
fromEnum) Gravity
menuAnchor
Ptr Event
maybeTriggerEvent <- case Maybe c
triggerEvent of
Nothing -> Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
forall a. Ptr a
nullPtr
Just jTriggerEvent :: c
jTriggerEvent -> do
Ptr Event
jTriggerEvent' <- c -> IO (Ptr Event)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jTriggerEvent
Ptr Event -> IO (Ptr Event)
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
triggerEvent c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
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 (c) -> m ()), MonadIO m, IsMenu a, Gtk.Widget.IsWidget b, Gdk.Event.IsEvent c) => O.MethodInfo MenuPopupAtWidgetMethodInfo a signature where
overloadedMethod = menuPopupAtWidget
#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 ()
menu :: a
menu child :: b
child position :: Int32
position = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Widget
child' <- b -> IO (Ptr Widget)
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
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.MethodInfo MenuReorderChildMethodInfo a signature where
overloadedMethod = menuReorderChild
#endif
foreign import ccall "gtk_menu_reposition" ::
Ptr Menu ->
IO ()
menuReposition ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> m ()
menu :: a
menu = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Menu -> IO ()
gtk_menu_reposition Ptr Menu
menu'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuRepositionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuRepositionMethodInfo a signature where
overloadedMethod = 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 ()
menu :: a
menu accelGroup :: Maybe b
accelGroup = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr AccelGroup
maybeAccelGroup <- case Maybe b
accelGroup of
Nothing -> Ptr AccelGroup -> IO (Ptr AccelGroup)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr AccelGroup
forall a. Ptr a
nullPtr
Just jAccelGroup :: b
jAccelGroup -> do
Ptr AccelGroup
jAccelGroup' <- b -> IO (Ptr AccelGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAccelGroup
Ptr AccelGroup -> IO (Ptr AccelGroup)
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
accelGroup b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
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.MethodInfo MenuSetAccelGroupMethodInfo a signature where
overloadedMethod = 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 ()
menu :: a
menu accelPath :: Maybe Text
accelPath = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
CString
maybeAccelPath <- case Maybe Text
accelPath of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jAccelPath :: Text
jAccelPath -> do
CString
jAccelPath' <- Text -> IO CString
textToCString Text
jAccelPath
CString -> IO CString
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeAccelPath
() -> IO ()
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.MethodInfo MenuSetAccelPathMethodInfo a signature where
overloadedMethod = menuSetAccelPath
#endif
foreign import ccall "gtk_menu_set_active" ::
Ptr Menu ->
Word32 ->
IO ()
menuSetActive ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Word32
-> m ()
menu :: a
menu index :: Word32
index = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetActiveMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuSetActiveMethodInfo a signature where
overloadedMethod = menuSetActive
#endif
foreign import ccall "gtk_menu_set_monitor" ::
Ptr Menu ->
Int32 ->
IO ()
menuSetMonitor ::
(B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>
a
-> Int32
-> m ()
menu :: a
menu monitorNum :: Int32
monitorNum = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr 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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetMonitorMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuSetMonitorMethodInfo a signature where
overloadedMethod = 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 ()
menu :: a
menu reserveToggleSize :: Bool
reserveToggleSize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- a -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
let reserveToggleSize' :: CInt
reserveToggleSize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
reserveToggleSize
Ptr Menu -> CInt -> IO ()
gtk_menu_set_reserve_toggle_size Ptr Menu
menu' CInt
reserveToggleSize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MenuSetReserveToggleSizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuSetReserveToggleSizeMethodInfo a signature where
overloadedMethod = menuSetReserveToggleSize
#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]
widget :: a
widget = IO [Widget] -> m [Widget]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Widget] -> m [Widget]) -> IO [Widget] -> m [Widget]
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr 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' <- Ptr (GList (Ptr Widget)) -> IO [Ptr Widget]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Widget))
result
[Widget]
result'' <- (Ptr Widget -> IO Widget) -> [Ptr Widget] -> IO [Widget]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
[Widget] -> IO [Widget]
forall (m :: * -> *) a. Monad m => a -> m a
return [Widget]
result''
#if defined(ENABLE_OVERLOADING)
#endif