{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Wnck.Objects.Pager
(
Pager(..) ,
IsPager ,
toPager ,
#if defined(ENABLE_OVERLOADING)
ResolvePagerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PagerGetWrapOnScrollMethodInfo ,
#endif
pagerGetWrapOnScroll ,
pagerNew ,
pagerNewWithHandle ,
#if defined(ENABLE_OVERLOADING)
PagerSetDisplayModeMethodInfo ,
#endif
pagerSetDisplayMode ,
#if defined(ENABLE_OVERLOADING)
PagerSetNRowsMethodInfo ,
#endif
pagerSetNRows ,
#if defined(ENABLE_OVERLOADING)
PagerSetOrientationMethodInfo ,
#endif
pagerSetOrientation ,
#if defined(ENABLE_OVERLOADING)
PagerSetScrollModeMethodInfo ,
#endif
pagerSetScrollMode ,
#if defined(ENABLE_OVERLOADING)
PagerSetShadowTypeMethodInfo ,
#endif
pagerSetShadowType ,
#if defined(ENABLE_OVERLOADING)
PagerSetShowAllMethodInfo ,
#endif
pagerSetShowAll ,
#if defined(ENABLE_OVERLOADING)
PagerSetWrapOnScrollMethodInfo ,
#endif
pagerSetWrapOnScroll ,
#if defined(ENABLE_OVERLOADING)
PagerHandlePropertyInfo ,
#endif
constructPagerHandle ,
getPagerHandle ,
#if defined(ENABLE_OVERLOADING)
pagerHandle ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Wnck.Enums as Wnck.Enums
import {-# SOURCE #-} qualified GI.Wnck.Objects.Handle as Wnck.Handle
newtype = (SP.ManagedPtr Pager)
deriving (Pager -> Pager -> Bool
(Pager -> Pager -> Bool) -> (Pager -> Pager -> Bool) -> Eq Pager
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Pager -> Pager -> Bool
== :: Pager -> Pager -> Bool
$c/= :: Pager -> Pager -> Bool
/= :: Pager -> Pager -> Bool
Eq)
instance SP.ManagedPtrNewtype Pager where
toManagedPtr :: Pager -> ManagedPtr Pager
toManagedPtr (Pager ManagedPtr Pager
p) = ManagedPtr Pager
p
foreign import ccall "wnck_pager_get_type"
:: IO B.Types.GType
instance B.Types.TypedObject Pager where
glibType :: IO GType
glibType = IO GType
c_wnck_pager_get_type
instance B.Types.GObject Pager
class (SP.GObject o, O.IsDescendantOf Pager o) => o
instance (SP.GObject o, O.IsDescendantOf Pager o) => IsPager o
instance O.HasParentTypes Pager
type instance O.ParentTypes Pager = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toPager :: (MIO.MonadIO m, IsPager o) => o -> m Pager
= IO Pager -> m Pager
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Pager -> m Pager) -> (o -> IO Pager) -> o -> m Pager
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Pager -> Pager) -> o -> IO Pager
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Pager -> Pager
Pager
instance B.GValue.IsGValue (Maybe Pager) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_wnck_pager_get_type
gvalueSet_ :: Ptr GValue -> Maybe Pager -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Pager
P.Nothing = Ptr GValue -> Ptr Pager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Pager
forall a. Ptr a
FP.nullPtr :: FP.Ptr Pager)
gvalueSet_ Ptr GValue
gv (P.Just Pager
obj) = Pager -> (Ptr Pager -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Pager
obj (Ptr GValue -> Ptr Pager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Pager)
gvalueGet_ Ptr GValue
gv = do
Ptr Pager
ptr <- Ptr GValue -> IO (Ptr Pager)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Pager)
if Ptr Pager
ptr Ptr Pager -> Ptr Pager -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Pager
forall a. Ptr a
FP.nullPtr
then Pager -> Maybe Pager
forall a. a -> Maybe a
P.Just (Pager -> Maybe Pager) -> IO Pager -> IO (Maybe Pager)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Pager -> Pager) -> Ptr Pager -> IO Pager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Pager -> Pager
Pager Ptr Pager
ptr
else Maybe Pager -> IO (Maybe Pager)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pager
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePagerMethod (t :: Symbol) (o :: *) :: * where
ResolvePagerMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolvePagerMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolvePagerMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolvePagerMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolvePagerMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolvePagerMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolvePagerMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolvePagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePagerMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolvePagerMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolvePagerMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolvePagerMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolvePagerMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolvePagerMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolvePagerMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolvePagerMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolvePagerMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolvePagerMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolvePagerMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolvePagerMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolvePagerMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolvePagerMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolvePagerMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolvePagerMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolvePagerMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolvePagerMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolvePagerMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolvePagerMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolvePagerMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolvePagerMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolvePagerMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolvePagerMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolvePagerMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolvePagerMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolvePagerMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolvePagerMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolvePagerMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolvePagerMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolvePagerMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolvePagerMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolvePagerMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolvePagerMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolvePagerMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolvePagerMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolvePagerMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolvePagerMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolvePagerMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolvePagerMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolvePagerMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolvePagerMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolvePagerMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolvePagerMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolvePagerMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolvePagerMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolvePagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePagerMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolvePagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePagerMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolvePagerMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolvePagerMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolvePagerMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolvePagerMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolvePagerMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolvePagerMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolvePagerMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolvePagerMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolvePagerMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolvePagerMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolvePagerMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolvePagerMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolvePagerMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolvePagerMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolvePagerMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolvePagerMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolvePagerMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolvePagerMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolvePagerMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolvePagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePagerMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolvePagerMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolvePagerMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolvePagerMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolvePagerMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolvePagerMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolvePagerMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolvePagerMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolvePagerMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolvePagerMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolvePagerMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolvePagerMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolvePagerMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolvePagerMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolvePagerMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolvePagerMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolvePagerMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolvePagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePagerMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolvePagerMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolvePagerMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolvePagerMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolvePagerMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolvePagerMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolvePagerMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolvePagerMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolvePagerMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolvePagerMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolvePagerMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolvePagerMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolvePagerMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolvePagerMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolvePagerMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolvePagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePagerMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolvePagerMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolvePagerMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolvePagerMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolvePagerMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolvePagerMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolvePagerMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolvePagerMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolvePagerMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolvePagerMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolvePagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePagerMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolvePagerMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolvePagerMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolvePagerMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolvePagerMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolvePagerMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolvePagerMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolvePagerMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolvePagerMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolvePagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePagerMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolvePagerMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolvePagerMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolvePagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePagerMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolvePagerMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolvePagerMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolvePagerMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolvePagerMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolvePagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePagerMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolvePagerMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolvePagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePagerMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolvePagerMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolvePagerMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolvePagerMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolvePagerMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolvePagerMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolvePagerMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolvePagerMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolvePagerMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolvePagerMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolvePagerMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolvePagerMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolvePagerMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolvePagerMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolvePagerMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolvePagerMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolvePagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePagerMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolvePagerMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolvePagerMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolvePagerMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolvePagerMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolvePagerMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolvePagerMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolvePagerMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolvePagerMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolvePagerMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolvePagerMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolvePagerMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolvePagerMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolvePagerMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolvePagerMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolvePagerMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolvePagerMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolvePagerMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolvePagerMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolvePagerMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolvePagerMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolvePagerMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolvePagerMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolvePagerMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolvePagerMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolvePagerMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolvePagerMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolvePagerMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolvePagerMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolvePagerMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolvePagerMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolvePagerMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolvePagerMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolvePagerMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolvePagerMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolvePagerMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolvePagerMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolvePagerMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolvePagerMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolvePagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePagerMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolvePagerMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolvePagerMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolvePagerMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolvePagerMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolvePagerMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolvePagerMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolvePagerMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolvePagerMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolvePagerMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolvePagerMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolvePagerMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolvePagerMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolvePagerMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolvePagerMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolvePagerMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolvePagerMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolvePagerMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolvePagerMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolvePagerMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolvePagerMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolvePagerMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolvePagerMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolvePagerMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolvePagerMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolvePagerMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolvePagerMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolvePagerMethod "getWrapOnScroll" o = PagerGetWrapOnScrollMethodInfo
ResolvePagerMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolvePagerMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolvePagerMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolvePagerMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolvePagerMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolvePagerMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolvePagerMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolvePagerMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolvePagerMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolvePagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePagerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePagerMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolvePagerMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolvePagerMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolvePagerMethod "setDisplayMode" o = PagerSetDisplayModeMethodInfo
ResolvePagerMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolvePagerMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolvePagerMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolvePagerMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolvePagerMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolvePagerMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolvePagerMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolvePagerMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolvePagerMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolvePagerMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolvePagerMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolvePagerMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolvePagerMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolvePagerMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolvePagerMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolvePagerMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolvePagerMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolvePagerMethod "setNRows" o = PagerSetNRowsMethodInfo
ResolvePagerMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolvePagerMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolvePagerMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolvePagerMethod "setOrientation" o = PagerSetOrientationMethodInfo
ResolvePagerMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolvePagerMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolvePagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePagerMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolvePagerMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolvePagerMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolvePagerMethod "setScrollMode" o = PagerSetScrollModeMethodInfo
ResolvePagerMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolvePagerMethod "setShadowType" o = PagerSetShadowTypeMethodInfo
ResolvePagerMethod "setShowAll" o = PagerSetShowAllMethodInfo
ResolvePagerMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolvePagerMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolvePagerMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolvePagerMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolvePagerMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolvePagerMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolvePagerMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolvePagerMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolvePagerMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolvePagerMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolvePagerMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolvePagerMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolvePagerMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolvePagerMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolvePagerMethod "setWrapOnScroll" o = PagerSetWrapOnScrollMethodInfo
ResolvePagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePagerMethod t Pager, O.OverloadedMethod info Pager p) => OL.IsLabel t (Pager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePagerMethod t Pager, O.OverloadedMethod info Pager p, R.HasField t Pager p) => R.HasField t Pager p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePagerMethod t Pager, O.OverloadedMethodInfo info Pager) => OL.IsLabel t (O.MethodProxy info Pager) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getPagerHandle :: (MonadIO m, IsPager o) => o -> m (Maybe Wnck.Handle.Handle)
getPagerHandle :: forall (m :: * -> *) o.
(MonadIO m, IsPager o) =>
o -> m (Maybe Handle)
getPagerHandle o
obj = IO (Maybe Handle) -> m (Maybe Handle)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Handle) -> m (Maybe Handle))
-> IO (Maybe Handle) -> m (Maybe Handle)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Handle -> Handle) -> IO (Maybe Handle)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"handle" ManagedPtr Handle -> Handle
Wnck.Handle.Handle
constructPagerHandle :: (IsPager o, MIO.MonadIO m, Wnck.Handle.IsHandle a) => a -> m (GValueConstruct o)
constructPagerHandle :: forall o (m :: * -> *) a.
(IsPager o, MonadIO m, IsHandle a) =>
a -> m (GValueConstruct o)
constructPagerHandle a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"handle" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data PagerHandlePropertyInfo
instance AttrInfo PagerHandlePropertyInfo where
type AttrAllowedOps PagerHandlePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PagerHandlePropertyInfo = IsPager
type AttrSetTypeConstraint PagerHandlePropertyInfo = Wnck.Handle.IsHandle
type AttrTransferTypeConstraint PagerHandlePropertyInfo = Wnck.Handle.IsHandle
type AttrTransferType PagerHandlePropertyInfo = Wnck.Handle.Handle
type AttrGetType PagerHandlePropertyInfo = (Maybe Wnck.Handle.Handle)
type AttrLabel PagerHandlePropertyInfo = "handle"
type AttrOrigin PagerHandlePropertyInfo = Pager
attrGet = getPagerHandle
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Wnck.Handle.Handle v
attrConstruct = constructPagerHandle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.handle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#g:attr:handle"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Pager
type instance O.AttributeList Pager = PagerAttributeList
type PagerAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("handle", PagerHandlePropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
pagerHandle :: AttrLabelProxy "handle"
pagerHandle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Pager = PagerSignalList
type PagerSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "wnck_pager_new" ::
IO (Ptr Pager)
pagerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Pager
= IO Pager -> m Pager
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Pager -> m Pager) -> IO Pager -> m Pager
forall a b. (a -> b) -> a -> b
$ do
Ptr Pager
result <- IO (Ptr Pager)
wnck_pager_new
Text -> Ptr Pager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pagerNew" Ptr Pager
result
Pager
result' <- ((ManagedPtr Pager -> Pager) -> Ptr Pager -> IO Pager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pager -> Pager
Pager) Ptr Pager
result
Pager -> IO Pager
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Pager
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "wnck_pager_new_with_handle" wnck_pager_new_with_handle ::
Ptr Wnck.Handle.Handle ->
IO (Ptr Pager)
pagerNewWithHandle ::
(B.CallStack.HasCallStack, MonadIO m, Wnck.Handle.IsHandle a) =>
a
-> m Pager
pagerNewWithHandle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsHandle a) =>
a -> m Pager
pagerNewWithHandle a
handle = IO Pager -> m Pager
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Pager -> m Pager) -> IO Pager -> m Pager
forall a b. (a -> b) -> a -> b
$ do
Ptr Handle
handle' <- a -> IO (Ptr Handle)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
handle
Ptr Pager
result <- Ptr Handle -> IO (Ptr Pager)
wnck_pager_new_with_handle Ptr Handle
handle'
Text -> Ptr Pager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pagerNewWithHandle" Ptr Pager
result
Pager
result' <- ((ManagedPtr Pager -> Pager) -> Ptr Pager -> IO Pager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pager -> Pager
Pager) Ptr Pager
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
handle
Pager -> IO Pager
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Pager
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "wnck_pager_get_wrap_on_scroll" ::
Ptr Pager ->
IO CInt
pagerGetWrapOnScroll ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> m Bool
a
pager = IO Bool -> m Bool
forall a. IO a -> m a
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 Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
CInt
result <- Ptr Pager -> IO CInt
wnck_pager_get_wrap_on_scroll Ptr Pager
pager'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PagerGetWrapOnScrollMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPager a) => O.OverloadedMethod PagerGetWrapOnScrollMethodInfo a signature where
overloadedMethod = pagerGetWrapOnScroll
instance O.OverloadedMethodInfo PagerGetWrapOnScrollMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerGetWrapOnScroll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerGetWrapOnScroll"
})
#endif
foreign import ccall "wnck_pager_set_display_mode" ::
Ptr Pager ->
CUInt ->
IO ()
pagerSetDisplayMode ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> Wnck.Enums.PagerDisplayMode
-> m ()
a
pager PagerDisplayMode
mode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (PagerDisplayMode -> Int) -> PagerDisplayMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PagerDisplayMode -> Int
forall a. Enum a => a -> Int
fromEnum) PagerDisplayMode
mode
Ptr Pager -> CUInt -> IO ()
wnck_pager_set_display_mode Ptr Pager
pager' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PagerSetDisplayModeMethodInfo
instance (signature ~ (Wnck.Enums.PagerDisplayMode -> m ()), MonadIO m, IsPager a) => O.OverloadedMethod PagerSetDisplayModeMethodInfo a signature where
overloadedMethod = pagerSetDisplayMode
instance O.OverloadedMethodInfo PagerSetDisplayModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerSetDisplayMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerSetDisplayMode"
})
#endif
foreign import ccall "wnck_pager_set_n_rows" ::
Ptr Pager ->
Int32 ->
IO CInt
pagerSetNRows ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> Int32
-> m Bool
a
pager Int32
nRows = IO Bool -> m Bool
forall a. IO a -> m a
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 Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
CInt
result <- Ptr Pager -> Int32 -> IO CInt
wnck_pager_set_n_rows Ptr Pager
pager' Int32
nRows
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PagerSetNRowsMethodInfo
instance (signature ~ (Int32 -> m Bool), MonadIO m, IsPager a) => O.OverloadedMethod PagerSetNRowsMethodInfo a signature where
overloadedMethod = pagerSetNRows
instance O.OverloadedMethodInfo PagerSetNRowsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerSetNRows",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerSetNRows"
})
#endif
foreign import ccall "wnck_pager_set_orientation" ::
Ptr Pager ->
CUInt ->
IO CInt
pagerSetOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> Gtk.Enums.Orientation
-> m Bool
a
pager Orientation
orientation = IO Bool -> m Bool
forall a. IO a -> m a
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 Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
CInt
result <- Ptr Pager -> CUInt -> IO CInt
wnck_pager_set_orientation Ptr Pager
pager' CUInt
orientation'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PagerSetOrientationMethodInfo
instance (signature ~ (Gtk.Enums.Orientation -> m Bool), MonadIO m, IsPager a) => O.OverloadedMethod PagerSetOrientationMethodInfo a signature where
overloadedMethod = pagerSetOrientation
instance O.OverloadedMethodInfo PagerSetOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerSetOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerSetOrientation"
})
#endif
foreign import ccall "wnck_pager_set_scroll_mode" ::
Ptr Pager ->
CUInt ->
IO ()
pagerSetScrollMode ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> Wnck.Enums.PagerScrollMode
-> m ()
a
pager PagerScrollMode
scrollMode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
let scrollMode' :: CUInt
scrollMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (PagerScrollMode -> Int) -> PagerScrollMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PagerScrollMode -> Int
forall a. Enum a => a -> Int
fromEnum) PagerScrollMode
scrollMode
Ptr Pager -> CUInt -> IO ()
wnck_pager_set_scroll_mode Ptr Pager
pager' CUInt
scrollMode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PagerSetScrollModeMethodInfo
instance (signature ~ (Wnck.Enums.PagerScrollMode -> m ()), MonadIO m, IsPager a) => O.OverloadedMethod PagerSetScrollModeMethodInfo a signature where
overloadedMethod = pagerSetScrollMode
instance O.OverloadedMethodInfo PagerSetScrollModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerSetScrollMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerSetScrollMode"
})
#endif
foreign import ccall "wnck_pager_set_shadow_type" wnck_pager_set_shadow_type ::
Ptr Pager ->
CUInt ->
IO ()
pagerSetShadowType ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> Gtk.Enums.ShadowType
-> m ()
pagerSetShadowType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPager a) =>
a -> ShadowType -> m ()
pagerSetShadowType a
pager ShadowType
shadowType = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
let shadowType' :: CUInt
shadowType' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (ShadowType -> Int) -> ShadowType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ShadowType -> Int
forall a. Enum a => a -> Int
fromEnum) ShadowType
shadowType
Ptr Pager -> CUInt -> IO ()
wnck_pager_set_shadow_type Ptr Pager
pager' CUInt
shadowType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PagerSetShadowTypeMethodInfo
instance (signature ~ (Gtk.Enums.ShadowType -> m ()), MonadIO m, IsPager a) => O.OverloadedMethod PagerSetShadowTypeMethodInfo a signature where
overloadedMethod = pagerSetShadowType
instance O.OverloadedMethodInfo PagerSetShadowTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerSetShadowType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerSetShadowType"
})
#endif
foreign import ccall "wnck_pager_set_show_all" ::
Ptr Pager ->
CInt ->
IO ()
pagerSetShowAll ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> Bool
-> m ()
a
pager Bool
showAllWorkspaces = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
let showAllWorkspaces' :: CInt
showAllWorkspaces' = (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
showAllWorkspaces
Ptr Pager -> CInt -> IO ()
wnck_pager_set_show_all Ptr Pager
pager' CInt
showAllWorkspaces'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PagerSetShowAllMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPager a) => O.OverloadedMethod PagerSetShowAllMethodInfo a signature where
overloadedMethod = pagerSetShowAll
instance O.OverloadedMethodInfo PagerSetShowAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerSetShowAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerSetShowAll"
})
#endif
foreign import ccall "wnck_pager_set_wrap_on_scroll" ::
Ptr Pager ->
CInt ->
IO ()
pagerSetWrapOnScroll ::
(B.CallStack.HasCallStack, MonadIO m, IsPager a) =>
a
-> Bool
-> m ()
a
pager Bool
wrapOnScroll = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Pager
pager' <- a -> IO (Ptr Pager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pager
let wrapOnScroll' :: CInt
wrapOnScroll' = (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
wrapOnScroll
Ptr Pager -> CInt -> IO ()
wnck_pager_set_wrap_on_scroll Ptr Pager
pager' CInt
wrapOnScroll'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PagerSetWrapOnScrollMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPager a) => O.OverloadedMethod PagerSetWrapOnScrollMethodInfo a signature where
overloadedMethod = pagerSetWrapOnScroll
instance O.OverloadedMethodInfo PagerSetWrapOnScrollMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Wnck.Objects.Pager.pagerSetWrapOnScroll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-wnck-3.0.13/docs/GI-Wnck-Objects-Pager.html#v:pagerSetWrapOnScroll"
})
#endif