{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.Carousel
(
Carousel(..) ,
IsCarousel ,
toCarousel ,
#if defined(ENABLE_OVERLOADING)
ResolveCarouselMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CarouselAppendMethodInfo ,
#endif
carouselAppend ,
#if defined(ENABLE_OVERLOADING)
CarouselGetAllowLongSwipesMethodInfo ,
#endif
carouselGetAllowLongSwipes ,
#if defined(ENABLE_OVERLOADING)
CarouselGetAllowMouseDragMethodInfo ,
#endif
carouselGetAllowMouseDrag ,
#if defined(ENABLE_OVERLOADING)
CarouselGetAllowScrollWheelMethodInfo ,
#endif
carouselGetAllowScrollWheel ,
#if defined(ENABLE_OVERLOADING)
CarouselGetInteractiveMethodInfo ,
#endif
carouselGetInteractive ,
#if defined(ENABLE_OVERLOADING)
CarouselGetNPagesMethodInfo ,
#endif
carouselGetNPages ,
#if defined(ENABLE_OVERLOADING)
CarouselGetNthPageMethodInfo ,
#endif
carouselGetNthPage ,
#if defined(ENABLE_OVERLOADING)
CarouselGetPositionMethodInfo ,
#endif
carouselGetPosition ,
#if defined(ENABLE_OVERLOADING)
CarouselGetRevealDurationMethodInfo ,
#endif
carouselGetRevealDuration ,
#if defined(ENABLE_OVERLOADING)
CarouselGetScrollParamsMethodInfo ,
#endif
carouselGetScrollParams ,
#if defined(ENABLE_OVERLOADING)
CarouselGetSpacingMethodInfo ,
#endif
carouselGetSpacing ,
#if defined(ENABLE_OVERLOADING)
CarouselInsertMethodInfo ,
#endif
carouselInsert ,
carouselNew ,
#if defined(ENABLE_OVERLOADING)
CarouselPrependMethodInfo ,
#endif
carouselPrepend ,
#if defined(ENABLE_OVERLOADING)
CarouselRemoveMethodInfo ,
#endif
carouselRemove ,
#if defined(ENABLE_OVERLOADING)
CarouselReorderMethodInfo ,
#endif
carouselReorder ,
#if defined(ENABLE_OVERLOADING)
CarouselScrollToMethodInfo ,
#endif
carouselScrollTo ,
#if defined(ENABLE_OVERLOADING)
CarouselSetAllowLongSwipesMethodInfo ,
#endif
carouselSetAllowLongSwipes ,
#if defined(ENABLE_OVERLOADING)
CarouselSetAllowMouseDragMethodInfo ,
#endif
carouselSetAllowMouseDrag ,
#if defined(ENABLE_OVERLOADING)
CarouselSetAllowScrollWheelMethodInfo ,
#endif
carouselSetAllowScrollWheel ,
#if defined(ENABLE_OVERLOADING)
CarouselSetInteractiveMethodInfo ,
#endif
carouselSetInteractive ,
#if defined(ENABLE_OVERLOADING)
CarouselSetRevealDurationMethodInfo ,
#endif
carouselSetRevealDuration ,
#if defined(ENABLE_OVERLOADING)
CarouselSetScrollParamsMethodInfo ,
#endif
carouselSetScrollParams ,
#if defined(ENABLE_OVERLOADING)
CarouselSetSpacingMethodInfo ,
#endif
carouselSetSpacing ,
#if defined(ENABLE_OVERLOADING)
CarouselAllowLongSwipesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselAllowLongSwipes ,
#endif
constructCarouselAllowLongSwipes ,
getCarouselAllowLongSwipes ,
setCarouselAllowLongSwipes ,
#if defined(ENABLE_OVERLOADING)
CarouselAllowMouseDragPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselAllowMouseDrag ,
#endif
constructCarouselAllowMouseDrag ,
getCarouselAllowMouseDrag ,
setCarouselAllowMouseDrag ,
#if defined(ENABLE_OVERLOADING)
CarouselAllowScrollWheelPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselAllowScrollWheel ,
#endif
constructCarouselAllowScrollWheel ,
getCarouselAllowScrollWheel ,
setCarouselAllowScrollWheel ,
#if defined(ENABLE_OVERLOADING)
CarouselInteractivePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselInteractive ,
#endif
constructCarouselInteractive ,
getCarouselInteractive ,
setCarouselInteractive ,
#if defined(ENABLE_OVERLOADING)
CarouselNPagesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselNPages ,
#endif
getCarouselNPages ,
#if defined(ENABLE_OVERLOADING)
CarouselPositionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselPosition ,
#endif
getCarouselPosition ,
#if defined(ENABLE_OVERLOADING)
CarouselRevealDurationPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselRevealDuration ,
#endif
constructCarouselRevealDuration ,
getCarouselRevealDuration ,
setCarouselRevealDuration ,
#if defined(ENABLE_OVERLOADING)
CarouselScrollParamsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselScrollParams ,
#endif
constructCarouselScrollParams ,
getCarouselScrollParams ,
setCarouselScrollParams ,
#if defined(ENABLE_OVERLOADING)
CarouselSpacingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
carouselSpacing ,
#endif
constructCarouselSpacing ,
getCarouselSpacing ,
setCarouselSpacing ,
CarouselPageChangedCallback ,
#if defined(ENABLE_OVERLOADING)
CarouselPageChangedSignalInfo ,
#endif
afterCarouselPageChanged ,
onCarouselPageChanged ,
) 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 {-# SOURCE #-} qualified GI.Adw.Interfaces.Swipeable as Adw.Swipeable
import {-# SOURCE #-} qualified GI.Adw.Structs.SpringParams as Adw.SpringParams
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Carousel = Carousel (SP.ManagedPtr Carousel)
deriving (Carousel -> Carousel -> Bool
(Carousel -> Carousel -> Bool)
-> (Carousel -> Carousel -> Bool) -> Eq Carousel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Carousel -> Carousel -> Bool
== :: Carousel -> Carousel -> Bool
$c/= :: Carousel -> Carousel -> Bool
/= :: Carousel -> Carousel -> Bool
Eq)
instance SP.ManagedPtrNewtype Carousel where
toManagedPtr :: Carousel -> ManagedPtr Carousel
toManagedPtr (Carousel ManagedPtr Carousel
p) = ManagedPtr Carousel
p
foreign import ccall "adw_carousel_get_type"
c_adw_carousel_get_type :: IO B.Types.GType
instance B.Types.TypedObject Carousel where
glibType :: IO GType
glibType = IO GType
c_adw_carousel_get_type
instance B.Types.GObject Carousel
class (SP.GObject o, O.IsDescendantOf Carousel o) => IsCarousel o
instance (SP.GObject o, O.IsDescendantOf Carousel o) => IsCarousel o
instance O.HasParentTypes Carousel
type instance O.ParentTypes Carousel = '[Gtk.Widget.Widget, GObject.Object.Object, Adw.Swipeable.Swipeable, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toCarousel :: (MIO.MonadIO m, IsCarousel o) => o -> m Carousel
toCarousel :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> m Carousel
toCarousel = IO Carousel -> m Carousel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Carousel -> m Carousel)
-> (o -> IO Carousel) -> o -> m Carousel
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Carousel -> Carousel) -> o -> IO Carousel
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Carousel -> Carousel
Carousel
instance B.GValue.IsGValue (Maybe Carousel) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_carousel_get_type
gvalueSet_ :: Ptr GValue -> Maybe Carousel -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Carousel
P.Nothing = Ptr GValue -> Ptr Carousel -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Carousel
forall a. Ptr a
FP.nullPtr :: FP.Ptr Carousel)
gvalueSet_ Ptr GValue
gv (P.Just Carousel
obj) = Carousel -> (Ptr Carousel -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Carousel
obj (Ptr GValue -> Ptr Carousel -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Carousel)
gvalueGet_ Ptr GValue
gv = do
Ptr Carousel
ptr <- Ptr GValue -> IO (Ptr Carousel)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Carousel)
if Ptr Carousel
ptr Ptr Carousel -> Ptr Carousel -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Carousel
forall a. Ptr a
FP.nullPtr
then Carousel -> Maybe Carousel
forall a. a -> Maybe a
P.Just (Carousel -> Maybe Carousel) -> IO Carousel -> IO (Maybe Carousel)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Carousel -> Carousel) -> Ptr Carousel -> IO Carousel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Carousel -> Carousel
Carousel Ptr Carousel
ptr
else Maybe Carousel -> IO (Maybe Carousel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Carousel
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCarouselMethod (t :: Symbol) (o :: *) :: * where
ResolveCarouselMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveCarouselMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveCarouselMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveCarouselMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveCarouselMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveCarouselMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveCarouselMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveCarouselMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveCarouselMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveCarouselMethod "append" o = CarouselAppendMethodInfo
ResolveCarouselMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCarouselMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCarouselMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveCarouselMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveCarouselMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveCarouselMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveCarouselMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveCarouselMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveCarouselMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveCarouselMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveCarouselMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveCarouselMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveCarouselMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveCarouselMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCarouselMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCarouselMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCarouselMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveCarouselMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveCarouselMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveCarouselMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveCarouselMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveCarouselMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveCarouselMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveCarouselMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveCarouselMethod "insert" o = CarouselInsertMethodInfo
ResolveCarouselMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveCarouselMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveCarouselMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveCarouselMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveCarouselMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveCarouselMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCarouselMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveCarouselMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveCarouselMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveCarouselMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveCarouselMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveCarouselMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveCarouselMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveCarouselMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveCarouselMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCarouselMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCarouselMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveCarouselMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveCarouselMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveCarouselMethod "prepend" o = CarouselPrependMethodInfo
ResolveCarouselMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveCarouselMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveCarouselMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveCarouselMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveCarouselMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCarouselMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCarouselMethod "remove" o = CarouselRemoveMethodInfo
ResolveCarouselMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveCarouselMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveCarouselMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveCarouselMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveCarouselMethod "reorder" o = CarouselReorderMethodInfo
ResolveCarouselMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveCarouselMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveCarouselMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveCarouselMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCarouselMethod "scrollTo" o = CarouselScrollToMethodInfo
ResolveCarouselMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveCarouselMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveCarouselMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveCarouselMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveCarouselMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCarouselMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCarouselMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCarouselMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveCarouselMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveCarouselMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveCarouselMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveCarouselMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveCarouselMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCarouselMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveCarouselMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveCarouselMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveCarouselMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveCarouselMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCarouselMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveCarouselMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveCarouselMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveCarouselMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveCarouselMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveCarouselMethod "getAllowLongSwipes" o = CarouselGetAllowLongSwipesMethodInfo
ResolveCarouselMethod "getAllowMouseDrag" o = CarouselGetAllowMouseDragMethodInfo
ResolveCarouselMethod "getAllowScrollWheel" o = CarouselGetAllowScrollWheelMethodInfo
ResolveCarouselMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveCarouselMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveCarouselMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveCarouselMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveCarouselMethod "getCancelProgress" o = Adw.Swipeable.SwipeableGetCancelProgressMethodInfo
ResolveCarouselMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveCarouselMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveCarouselMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveCarouselMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveCarouselMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveCarouselMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCarouselMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveCarouselMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveCarouselMethod "getDistance" o = Adw.Swipeable.SwipeableGetDistanceMethodInfo
ResolveCarouselMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveCarouselMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveCarouselMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveCarouselMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveCarouselMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveCarouselMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveCarouselMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveCarouselMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveCarouselMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveCarouselMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveCarouselMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveCarouselMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveCarouselMethod "getInteractive" o = CarouselGetInteractiveMethodInfo
ResolveCarouselMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveCarouselMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveCarouselMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveCarouselMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveCarouselMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveCarouselMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveCarouselMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveCarouselMethod "getNPages" o = CarouselGetNPagesMethodInfo
ResolveCarouselMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveCarouselMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveCarouselMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveCarouselMethod "getNthPage" o = CarouselGetNthPageMethodInfo
ResolveCarouselMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveCarouselMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveCarouselMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveCarouselMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveCarouselMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveCarouselMethod "getPosition" o = CarouselGetPositionMethodInfo
ResolveCarouselMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveCarouselMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveCarouselMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveCarouselMethod "getProgress" o = Adw.Swipeable.SwipeableGetProgressMethodInfo
ResolveCarouselMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCarouselMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCarouselMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveCarouselMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveCarouselMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveCarouselMethod "getRevealDuration" o = CarouselGetRevealDurationMethodInfo
ResolveCarouselMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveCarouselMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveCarouselMethod "getScrollParams" o = CarouselGetScrollParamsMethodInfo
ResolveCarouselMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveCarouselMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveCarouselMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveCarouselMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveCarouselMethod "getSnapPoints" o = Adw.Swipeable.SwipeableGetSnapPointsMethodInfo
ResolveCarouselMethod "getSpacing" o = CarouselGetSpacingMethodInfo
ResolveCarouselMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveCarouselMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveCarouselMethod "getSwipeArea" o = Adw.Swipeable.SwipeableGetSwipeAreaMethodInfo
ResolveCarouselMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveCarouselMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveCarouselMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveCarouselMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveCarouselMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveCarouselMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveCarouselMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveCarouselMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveCarouselMethod "setAllowLongSwipes" o = CarouselSetAllowLongSwipesMethodInfo
ResolveCarouselMethod "setAllowMouseDrag" o = CarouselSetAllowMouseDragMethodInfo
ResolveCarouselMethod "setAllowScrollWheel" o = CarouselSetAllowScrollWheelMethodInfo
ResolveCarouselMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveCarouselMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveCarouselMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveCarouselMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveCarouselMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveCarouselMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveCarouselMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCarouselMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCarouselMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveCarouselMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveCarouselMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveCarouselMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveCarouselMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveCarouselMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveCarouselMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveCarouselMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveCarouselMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveCarouselMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveCarouselMethod "setInteractive" o = CarouselSetInteractiveMethodInfo
ResolveCarouselMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveCarouselMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveCarouselMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveCarouselMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveCarouselMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveCarouselMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveCarouselMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveCarouselMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveCarouselMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveCarouselMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveCarouselMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCarouselMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveCarouselMethod "setRevealDuration" o = CarouselSetRevealDurationMethodInfo
ResolveCarouselMethod "setScrollParams" o = CarouselSetScrollParamsMethodInfo
ResolveCarouselMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveCarouselMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveCarouselMethod "setSpacing" o = CarouselSetSpacingMethodInfo
ResolveCarouselMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveCarouselMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveCarouselMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveCarouselMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveCarouselMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveCarouselMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveCarouselMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveCarouselMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCarouselMethod t Carousel, O.OverloadedMethod info Carousel p) => OL.IsLabel t (Carousel -> 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 ~ ResolveCarouselMethod t Carousel, O.OverloadedMethod info Carousel p, R.HasField t Carousel p) => R.HasField t Carousel p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCarouselMethod t Carousel, O.OverloadedMethodInfo info Carousel) => OL.IsLabel t (O.MethodProxy info Carousel) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type CarouselPageChangedCallback =
Word32
-> IO ()
type C_CarouselPageChangedCallback =
Ptr Carousel ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_CarouselPageChangedCallback :: C_CarouselPageChangedCallback -> IO (FunPtr C_CarouselPageChangedCallback)
wrap_CarouselPageChangedCallback ::
GObject a => (a -> CarouselPageChangedCallback) ->
C_CarouselPageChangedCallback
wrap_CarouselPageChangedCallback :: forall a.
GObject a =>
(a -> CarouselPageChangedCallback) -> C_CarouselPageChangedCallback
wrap_CarouselPageChangedCallback a -> CarouselPageChangedCallback
gi'cb Ptr Carousel
gi'selfPtr Word32
index Ptr ()
_ = do
Ptr Carousel -> (Carousel -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Carousel
gi'selfPtr ((Carousel -> IO ()) -> IO ()) -> (Carousel -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Carousel
gi'self -> a -> CarouselPageChangedCallback
gi'cb (Carousel -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Carousel
gi'self) Word32
index
onCarouselPageChanged :: (IsCarousel a, MonadIO m) => a -> ((?self :: a) => CarouselPageChangedCallback) -> m SignalHandlerId
onCarouselPageChanged :: forall a (m :: * -> *).
(IsCarousel a, MonadIO m) =>
a
-> ((?self::a) => CarouselPageChangedCallback) -> m SignalHandlerId
onCarouselPageChanged a
obj (?self::a) => CarouselPageChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> CarouselPageChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CarouselPageChangedCallback
CarouselPageChangedCallback
cb
let wrapped' :: C_CarouselPageChangedCallback
wrapped' = (a -> CarouselPageChangedCallback) -> C_CarouselPageChangedCallback
forall a.
GObject a =>
(a -> CarouselPageChangedCallback) -> C_CarouselPageChangedCallback
wrap_CarouselPageChangedCallback a -> CarouselPageChangedCallback
wrapped
FunPtr C_CarouselPageChangedCallback
wrapped'' <- C_CarouselPageChangedCallback
-> IO (FunPtr C_CarouselPageChangedCallback)
mk_CarouselPageChangedCallback C_CarouselPageChangedCallback
wrapped'
a
-> Text
-> FunPtr C_CarouselPageChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-changed" FunPtr C_CarouselPageChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterCarouselPageChanged :: (IsCarousel a, MonadIO m) => a -> ((?self :: a) => CarouselPageChangedCallback) -> m SignalHandlerId
afterCarouselPageChanged :: forall a (m :: * -> *).
(IsCarousel a, MonadIO m) =>
a
-> ((?self::a) => CarouselPageChangedCallback) -> m SignalHandlerId
afterCarouselPageChanged a
obj (?self::a) => CarouselPageChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> CarouselPageChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => CarouselPageChangedCallback
CarouselPageChangedCallback
cb
let wrapped' :: C_CarouselPageChangedCallback
wrapped' = (a -> CarouselPageChangedCallback) -> C_CarouselPageChangedCallback
forall a.
GObject a =>
(a -> CarouselPageChangedCallback) -> C_CarouselPageChangedCallback
wrap_CarouselPageChangedCallback a -> CarouselPageChangedCallback
wrapped
FunPtr C_CarouselPageChangedCallback
wrapped'' <- C_CarouselPageChangedCallback
-> IO (FunPtr C_CarouselPageChangedCallback)
mk_CarouselPageChangedCallback C_CarouselPageChangedCallback
wrapped'
a
-> Text
-> FunPtr C_CarouselPageChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"page-changed" FunPtr C_CarouselPageChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data CarouselPageChangedSignalInfo
instance SignalInfo CarouselPageChangedSignalInfo where
type HaskellCallbackType CarouselPageChangedSignalInfo = CarouselPageChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_CarouselPageChangedCallback cb
cb'' <- mk_CarouselPageChangedCallback cb'
connectSignalFunPtr obj "page-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel::page-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:signal:pageChanged"})
#endif
getCarouselAllowLongSwipes :: (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselAllowLongSwipes :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselAllowLongSwipes o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-long-swipes"
setCarouselAllowLongSwipes :: (MonadIO m, IsCarousel o) => o -> Bool -> m ()
setCarouselAllowLongSwipes :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> Bool -> m ()
setCarouselAllowLongSwipes o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-long-swipes" Bool
val
constructCarouselAllowLongSwipes :: (IsCarousel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCarouselAllowLongSwipes :: forall o (m :: * -> *).
(IsCarousel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCarouselAllowLongSwipes Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-long-swipes" Bool
val
#if defined(ENABLE_OVERLOADING)
data CarouselAllowLongSwipesPropertyInfo
instance AttrInfo CarouselAllowLongSwipesPropertyInfo where
type AttrAllowedOps CarouselAllowLongSwipesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CarouselAllowLongSwipesPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselAllowLongSwipesPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CarouselAllowLongSwipesPropertyInfo = (~) Bool
type AttrTransferType CarouselAllowLongSwipesPropertyInfo = Bool
type AttrGetType CarouselAllowLongSwipesPropertyInfo = Bool
type AttrLabel CarouselAllowLongSwipesPropertyInfo = "allow-long-swipes"
type AttrOrigin CarouselAllowLongSwipesPropertyInfo = Carousel
attrGet = getCarouselAllowLongSwipes
attrSet = setCarouselAllowLongSwipes
attrTransfer _ v = do
return v
attrConstruct = constructCarouselAllowLongSwipes
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.allowLongSwipes"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:allowLongSwipes"
})
#endif
getCarouselAllowMouseDrag :: (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselAllowMouseDrag :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselAllowMouseDrag o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-mouse-drag"
setCarouselAllowMouseDrag :: (MonadIO m, IsCarousel o) => o -> Bool -> m ()
setCarouselAllowMouseDrag :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> Bool -> m ()
setCarouselAllowMouseDrag o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-mouse-drag" Bool
val
constructCarouselAllowMouseDrag :: (IsCarousel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCarouselAllowMouseDrag :: forall o (m :: * -> *).
(IsCarousel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCarouselAllowMouseDrag Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-mouse-drag" Bool
val
#if defined(ENABLE_OVERLOADING)
data CarouselAllowMouseDragPropertyInfo
instance AttrInfo CarouselAllowMouseDragPropertyInfo where
type AttrAllowedOps CarouselAllowMouseDragPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CarouselAllowMouseDragPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselAllowMouseDragPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CarouselAllowMouseDragPropertyInfo = (~) Bool
type AttrTransferType CarouselAllowMouseDragPropertyInfo = Bool
type AttrGetType CarouselAllowMouseDragPropertyInfo = Bool
type AttrLabel CarouselAllowMouseDragPropertyInfo = "allow-mouse-drag"
type AttrOrigin CarouselAllowMouseDragPropertyInfo = Carousel
attrGet = getCarouselAllowMouseDrag
attrSet = setCarouselAllowMouseDrag
attrTransfer _ v = do
return v
attrConstruct = constructCarouselAllowMouseDrag
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.allowMouseDrag"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:allowMouseDrag"
})
#endif
getCarouselAllowScrollWheel :: (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselAllowScrollWheel :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselAllowScrollWheel o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-scroll-wheel"
setCarouselAllowScrollWheel :: (MonadIO m, IsCarousel o) => o -> Bool -> m ()
setCarouselAllowScrollWheel :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> Bool -> m ()
setCarouselAllowScrollWheel o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-scroll-wheel" Bool
val
constructCarouselAllowScrollWheel :: (IsCarousel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCarouselAllowScrollWheel :: forall o (m :: * -> *).
(IsCarousel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCarouselAllowScrollWheel Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-scroll-wheel" Bool
val
#if defined(ENABLE_OVERLOADING)
data CarouselAllowScrollWheelPropertyInfo
instance AttrInfo CarouselAllowScrollWheelPropertyInfo where
type AttrAllowedOps CarouselAllowScrollWheelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CarouselAllowScrollWheelPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselAllowScrollWheelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CarouselAllowScrollWheelPropertyInfo = (~) Bool
type AttrTransferType CarouselAllowScrollWheelPropertyInfo = Bool
type AttrGetType CarouselAllowScrollWheelPropertyInfo = Bool
type AttrLabel CarouselAllowScrollWheelPropertyInfo = "allow-scroll-wheel"
type AttrOrigin CarouselAllowScrollWheelPropertyInfo = Carousel
attrGet = getCarouselAllowScrollWheel
attrSet = setCarouselAllowScrollWheel
attrTransfer _ v = do
return v
attrConstruct = constructCarouselAllowScrollWheel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.allowScrollWheel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:allowScrollWheel"
})
#endif
getCarouselInteractive :: (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselInteractive :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Bool
getCarouselInteractive o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"interactive"
setCarouselInteractive :: (MonadIO m, IsCarousel o) => o -> Bool -> m ()
setCarouselInteractive :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> Bool -> m ()
setCarouselInteractive o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"interactive" Bool
val
constructCarouselInteractive :: (IsCarousel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCarouselInteractive :: forall o (m :: * -> *).
(IsCarousel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCarouselInteractive Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"interactive" Bool
val
#if defined(ENABLE_OVERLOADING)
data CarouselInteractivePropertyInfo
instance AttrInfo CarouselInteractivePropertyInfo where
type AttrAllowedOps CarouselInteractivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CarouselInteractivePropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselInteractivePropertyInfo = (~) Bool
type AttrTransferTypeConstraint CarouselInteractivePropertyInfo = (~) Bool
type AttrTransferType CarouselInteractivePropertyInfo = Bool
type AttrGetType CarouselInteractivePropertyInfo = Bool
type AttrLabel CarouselInteractivePropertyInfo = "interactive"
type AttrOrigin CarouselInteractivePropertyInfo = Carousel
attrGet = getCarouselInteractive
attrSet = setCarouselInteractive
attrTransfer _ v = do
return v
attrConstruct = constructCarouselInteractive
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.interactive"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:interactive"
})
#endif
getCarouselNPages :: (MonadIO m, IsCarousel o) => o -> m Word32
getCarouselNPages :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Word32
getCarouselNPages o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"n-pages"
#if defined(ENABLE_OVERLOADING)
data CarouselNPagesPropertyInfo
instance AttrInfo CarouselNPagesPropertyInfo where
type AttrAllowedOps CarouselNPagesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint CarouselNPagesPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselNPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint CarouselNPagesPropertyInfo = (~) ()
type AttrTransferType CarouselNPagesPropertyInfo = ()
type AttrGetType CarouselNPagesPropertyInfo = Word32
type AttrLabel CarouselNPagesPropertyInfo = "n-pages"
type AttrOrigin CarouselNPagesPropertyInfo = Carousel
attrGet = getCarouselNPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.nPages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:nPages"
})
#endif
getCarouselPosition :: (MonadIO m, IsCarousel o) => o -> m Double
getCarouselPosition :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Double
getCarouselPosition o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"position"
#if defined(ENABLE_OVERLOADING)
data CarouselPositionPropertyInfo
instance AttrInfo CarouselPositionPropertyInfo where
type AttrAllowedOps CarouselPositionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint CarouselPositionPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselPositionPropertyInfo = (~) ()
type AttrTransferTypeConstraint CarouselPositionPropertyInfo = (~) ()
type AttrTransferType CarouselPositionPropertyInfo = ()
type AttrGetType CarouselPositionPropertyInfo = Double
type AttrLabel CarouselPositionPropertyInfo = "position"
type AttrOrigin CarouselPositionPropertyInfo = Carousel
attrGet = getCarouselPosition
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.position"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:position"
})
#endif
getCarouselRevealDuration :: (MonadIO m, IsCarousel o) => o -> m Word32
getCarouselRevealDuration :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Word32
getCarouselRevealDuration o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"reveal-duration"
setCarouselRevealDuration :: (MonadIO m, IsCarousel o) => o -> Word32 -> m ()
setCarouselRevealDuration :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> Word32 -> m ()
setCarouselRevealDuration o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> CarouselPageChangedCallback
forall a. GObject a => a -> String -> CarouselPageChangedCallback
B.Properties.setObjectPropertyUInt32 o
obj String
"reveal-duration" Word32
val
constructCarouselRevealDuration :: (IsCarousel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCarouselRevealDuration :: forall o (m :: * -> *).
(IsCarousel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCarouselRevealDuration Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"reveal-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data CarouselRevealDurationPropertyInfo
instance AttrInfo CarouselRevealDurationPropertyInfo where
type AttrAllowedOps CarouselRevealDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CarouselRevealDurationPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselRevealDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CarouselRevealDurationPropertyInfo = (~) Word32
type AttrTransferType CarouselRevealDurationPropertyInfo = Word32
type AttrGetType CarouselRevealDurationPropertyInfo = Word32
type AttrLabel CarouselRevealDurationPropertyInfo = "reveal-duration"
type AttrOrigin CarouselRevealDurationPropertyInfo = Carousel
attrGet = getCarouselRevealDuration
attrSet = setCarouselRevealDuration
attrTransfer _ v = do
return v
attrConstruct = constructCarouselRevealDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.revealDuration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:revealDuration"
})
#endif
getCarouselScrollParams :: (MonadIO m, IsCarousel o) => o -> m (Maybe Adw.SpringParams.SpringParams)
getCarouselScrollParams :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> m (Maybe SpringParams)
getCarouselScrollParams o
obj = IO (Maybe SpringParams) -> m (Maybe SpringParams)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe SpringParams) -> m (Maybe SpringParams))
-> IO (Maybe SpringParams) -> m (Maybe SpringParams)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SpringParams -> SpringParams)
-> IO (Maybe SpringParams)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"scroll-params" ManagedPtr SpringParams -> SpringParams
Adw.SpringParams.SpringParams
setCarouselScrollParams :: (MonadIO m, IsCarousel o) => o -> Adw.SpringParams.SpringParams -> m ()
setCarouselScrollParams :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> SpringParams -> m ()
setCarouselScrollParams o
obj SpringParams
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe SpringParams -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"scroll-params" (SpringParams -> Maybe SpringParams
forall a. a -> Maybe a
Just SpringParams
val)
constructCarouselScrollParams :: (IsCarousel o, MIO.MonadIO m) => Adw.SpringParams.SpringParams -> m (GValueConstruct o)
constructCarouselScrollParams :: forall o (m :: * -> *).
(IsCarousel o, MonadIO m) =>
SpringParams -> m (GValueConstruct o)
constructCarouselScrollParams SpringParams
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 SpringParams -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"scroll-params" (SpringParams -> Maybe SpringParams
forall a. a -> Maybe a
P.Just SpringParams
val)
#if defined(ENABLE_OVERLOADING)
data CarouselScrollParamsPropertyInfo
instance AttrInfo CarouselScrollParamsPropertyInfo where
type AttrAllowedOps CarouselScrollParamsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CarouselScrollParamsPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselScrollParamsPropertyInfo = (~) Adw.SpringParams.SpringParams
type AttrTransferTypeConstraint CarouselScrollParamsPropertyInfo = (~) Adw.SpringParams.SpringParams
type AttrTransferType CarouselScrollParamsPropertyInfo = Adw.SpringParams.SpringParams
type AttrGetType CarouselScrollParamsPropertyInfo = (Maybe Adw.SpringParams.SpringParams)
type AttrLabel CarouselScrollParamsPropertyInfo = "scroll-params"
type AttrOrigin CarouselScrollParamsPropertyInfo = Carousel
attrGet = getCarouselScrollParams
attrSet = setCarouselScrollParams
attrTransfer _ v = do
return v
attrConstruct = constructCarouselScrollParams
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.scrollParams"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:scrollParams"
})
#endif
getCarouselSpacing :: (MonadIO m, IsCarousel o) => o -> m Word32
getCarouselSpacing :: forall (m :: * -> *) o. (MonadIO m, IsCarousel o) => o -> m Word32
getCarouselSpacing o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"spacing"
setCarouselSpacing :: (MonadIO m, IsCarousel o) => o -> Word32 -> m ()
setCarouselSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsCarousel o) =>
o -> Word32 -> m ()
setCarouselSpacing o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> CarouselPageChangedCallback
forall a. GObject a => a -> String -> CarouselPageChangedCallback
B.Properties.setObjectPropertyUInt32 o
obj String
"spacing" Word32
val
constructCarouselSpacing :: (IsCarousel o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCarouselSpacing :: forall o (m :: * -> *).
(IsCarousel o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructCarouselSpacing Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"spacing" Word32
val
#if defined(ENABLE_OVERLOADING)
data CarouselSpacingPropertyInfo
instance AttrInfo CarouselSpacingPropertyInfo where
type AttrAllowedOps CarouselSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CarouselSpacingPropertyInfo = IsCarousel
type AttrSetTypeConstraint CarouselSpacingPropertyInfo = (~) Word32
type AttrTransferTypeConstraint CarouselSpacingPropertyInfo = (~) Word32
type AttrTransferType CarouselSpacingPropertyInfo = Word32
type AttrGetType CarouselSpacingPropertyInfo = Word32
type AttrLabel CarouselSpacingPropertyInfo = "spacing"
type AttrOrigin CarouselSpacingPropertyInfo = Carousel
attrGet = getCarouselSpacing
attrSet = setCarouselSpacing
attrTransfer _ v = do
return v
attrConstruct = constructCarouselSpacing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.spacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#g:attr:spacing"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Carousel
type instance O.AttributeList Carousel = CarouselAttributeList
type CarouselAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("allowLongSwipes", CarouselAllowLongSwipesPropertyInfo), '("allowMouseDrag", CarouselAllowMouseDragPropertyInfo), '("allowScrollWheel", CarouselAllowScrollWheelPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("interactive", CarouselInteractivePropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("nPages", CarouselNPagesPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("position", CarouselPositionPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("revealDuration", CarouselRevealDurationPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("scrollParams", CarouselScrollParamsPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("spacing", CarouselSpacingPropertyInfo), '("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)
carouselAllowLongSwipes :: AttrLabelProxy "allowLongSwipes"
carouselAllowLongSwipes = AttrLabelProxy
carouselAllowMouseDrag :: AttrLabelProxy "allowMouseDrag"
carouselAllowMouseDrag = AttrLabelProxy
carouselAllowScrollWheel :: AttrLabelProxy "allowScrollWheel"
carouselAllowScrollWheel = AttrLabelProxy
carouselInteractive :: AttrLabelProxy "interactive"
carouselInteractive = AttrLabelProxy
carouselNPages :: AttrLabelProxy "nPages"
carouselNPages = AttrLabelProxy
carouselPosition :: AttrLabelProxy "position"
carouselPosition = AttrLabelProxy
carouselRevealDuration :: AttrLabelProxy "revealDuration"
carouselRevealDuration = AttrLabelProxy
carouselScrollParams :: AttrLabelProxy "scrollParams"
carouselScrollParams = AttrLabelProxy
carouselSpacing :: AttrLabelProxy "spacing"
carouselSpacing = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Carousel = CarouselSignalList
type CarouselSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pageChanged", CarouselPageChangedSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "adw_carousel_new" adw_carousel_new ::
IO (Ptr Carousel)
carouselNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Carousel
carouselNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Carousel
carouselNew = IO Carousel -> m Carousel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Carousel -> m Carousel) -> IO Carousel -> m Carousel
forall a b. (a -> b) -> a -> b
$ do
Ptr Carousel
result <- IO (Ptr Carousel)
adw_carousel_new
Text -> Ptr Carousel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"carouselNew" Ptr Carousel
result
Carousel
result' <- ((ManagedPtr Carousel -> Carousel) -> Ptr Carousel -> IO Carousel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Carousel -> Carousel
Carousel) Ptr Carousel
result
Carousel -> IO Carousel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Carousel
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_carousel_append" adw_carousel_append ::
Ptr Carousel ->
Ptr Gtk.Widget.Widget ->
IO ()
carouselAppend ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
carouselAppend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCarousel a, IsWidget b) =>
a -> b -> m ()
carouselAppend a
self b
child = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Carousel -> Ptr Widget -> IO ()
adw_carousel_append Ptr Carousel
self' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselAppendMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CarouselAppendMethodInfo a signature where
overloadedMethod = carouselAppend
instance O.OverloadedMethodInfo CarouselAppendMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselAppend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselAppend"
})
#endif
foreign import ccall "adw_carousel_get_allow_long_swipes" adw_carousel_get_allow_long_swipes ::
Ptr Carousel ->
IO CInt
carouselGetAllowLongSwipes ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Bool
carouselGetAllowLongSwipes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Bool
carouselGetAllowLongSwipes a
self = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Carousel -> IO CInt
adw_carousel_get_allow_long_swipes Ptr Carousel
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CarouselGetAllowLongSwipesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetAllowLongSwipesMethodInfo a signature where
overloadedMethod = carouselGetAllowLongSwipes
instance O.OverloadedMethodInfo CarouselGetAllowLongSwipesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetAllowLongSwipes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetAllowLongSwipes"
})
#endif
foreign import ccall "adw_carousel_get_allow_mouse_drag" adw_carousel_get_allow_mouse_drag ::
Ptr Carousel ->
IO CInt
carouselGetAllowMouseDrag ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Bool
carouselGetAllowMouseDrag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Bool
carouselGetAllowMouseDrag a
self = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Carousel -> IO CInt
adw_carousel_get_allow_mouse_drag Ptr Carousel
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CarouselGetAllowMouseDragMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetAllowMouseDragMethodInfo a signature where
overloadedMethod = carouselGetAllowMouseDrag
instance O.OverloadedMethodInfo CarouselGetAllowMouseDragMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetAllowMouseDrag",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetAllowMouseDrag"
})
#endif
foreign import ccall "adw_carousel_get_allow_scroll_wheel" adw_carousel_get_allow_scroll_wheel ::
Ptr Carousel ->
IO CInt
carouselGetAllowScrollWheel ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Bool
carouselGetAllowScrollWheel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Bool
carouselGetAllowScrollWheel a
self = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Carousel -> IO CInt
adw_carousel_get_allow_scroll_wheel Ptr Carousel
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CarouselGetAllowScrollWheelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetAllowScrollWheelMethodInfo a signature where
overloadedMethod = carouselGetAllowScrollWheel
instance O.OverloadedMethodInfo CarouselGetAllowScrollWheelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetAllowScrollWheel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetAllowScrollWheel"
})
#endif
foreign import ccall "adw_carousel_get_interactive" adw_carousel_get_interactive ::
Ptr Carousel ->
IO CInt
carouselGetInteractive ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Bool
carouselGetInteractive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Bool
carouselGetInteractive a
self = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Carousel -> IO CInt
adw_carousel_get_interactive Ptr Carousel
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CarouselGetInteractiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetInteractiveMethodInfo a signature where
overloadedMethod = carouselGetInteractive
instance O.OverloadedMethodInfo CarouselGetInteractiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetInteractive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetInteractive"
})
#endif
foreign import ccall "adw_carousel_get_n_pages" adw_carousel_get_n_pages ::
Ptr Carousel ->
IO Word32
carouselGetNPages ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Word32
carouselGetNPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Word32
carouselGetNPages a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Carousel -> IO Word32
adw_carousel_get_n_pages Ptr Carousel
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data CarouselGetNPagesMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetNPagesMethodInfo a signature where
overloadedMethod = carouselGetNPages
instance O.OverloadedMethodInfo CarouselGetNPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetNPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetNPages"
})
#endif
foreign import ccall "adw_carousel_get_nth_page" adw_carousel_get_nth_page ::
Ptr Carousel ->
Word32 ->
IO (Ptr Gtk.Widget.Widget)
carouselGetNthPage ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Word32
-> m Gtk.Widget.Widget
carouselGetNthPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> Word32 -> m Widget
carouselGetNthPage a
self Word32
n = IO Widget -> m Widget
forall a. IO a -> m a
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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Carousel -> Word32 -> IO (Ptr Widget)
adw_carousel_get_nth_page Ptr Carousel
self' Word32
n
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"carouselGetNthPage" 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
self
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data CarouselGetNthPageMethodInfo
instance (signature ~ (Word32 -> m Gtk.Widget.Widget), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetNthPageMethodInfo a signature where
overloadedMethod = carouselGetNthPage
instance O.OverloadedMethodInfo CarouselGetNthPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetNthPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetNthPage"
})
#endif
foreign import ccall "adw_carousel_get_position" adw_carousel_get_position ::
Ptr Carousel ->
IO CDouble
carouselGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Double
carouselGetPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Double
carouselGetPosition a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr Carousel -> IO CDouble
adw_carousel_get_position Ptr Carousel
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data CarouselGetPositionMethodInfo
instance (signature ~ (m Double), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetPositionMethodInfo a signature where
overloadedMethod = carouselGetPosition
instance O.OverloadedMethodInfo CarouselGetPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetPosition"
})
#endif
foreign import ccall "adw_carousel_get_reveal_duration" adw_carousel_get_reveal_duration ::
Ptr Carousel ->
IO Word32
carouselGetRevealDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Word32
carouselGetRevealDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Word32
carouselGetRevealDuration a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Carousel -> IO Word32
adw_carousel_get_reveal_duration Ptr Carousel
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data CarouselGetRevealDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetRevealDurationMethodInfo a signature where
overloadedMethod = carouselGetRevealDuration
instance O.OverloadedMethodInfo CarouselGetRevealDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetRevealDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetRevealDuration"
})
#endif
foreign import ccall "adw_carousel_get_scroll_params" adw_carousel_get_scroll_params ::
Ptr Carousel ->
IO (Ptr Adw.SpringParams.SpringParams)
carouselGetScrollParams ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Adw.SpringParams.SpringParams
carouselGetScrollParams :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m SpringParams
carouselGetScrollParams a
self = IO SpringParams -> m SpringParams
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SpringParams -> m SpringParams)
-> IO SpringParams -> m SpringParams
forall a b. (a -> b) -> a -> b
$ do
Ptr Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SpringParams
result <- Ptr Carousel -> IO (Ptr SpringParams)
adw_carousel_get_scroll_params Ptr Carousel
self'
Text -> Ptr SpringParams -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"carouselGetScrollParams" Ptr SpringParams
result
SpringParams
result' <- ((ManagedPtr SpringParams -> SpringParams)
-> Ptr SpringParams -> IO SpringParams
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SpringParams -> SpringParams
Adw.SpringParams.SpringParams) Ptr SpringParams
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
SpringParams -> IO SpringParams
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SpringParams
result'
#if defined(ENABLE_OVERLOADING)
data CarouselGetScrollParamsMethodInfo
instance (signature ~ (m Adw.SpringParams.SpringParams), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetScrollParamsMethodInfo a signature where
overloadedMethod = carouselGetScrollParams
instance O.OverloadedMethodInfo CarouselGetScrollParamsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetScrollParams",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetScrollParams"
})
#endif
foreign import ccall "adw_carousel_get_spacing" adw_carousel_get_spacing ::
Ptr Carousel ->
IO Word32
carouselGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> m Word32
carouselGetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> m Word32
carouselGetSpacing a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Carousel -> IO Word32
adw_carousel_get_spacing Ptr Carousel
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data CarouselGetSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselGetSpacingMethodInfo a signature where
overloadedMethod = carouselGetSpacing
instance O.OverloadedMethodInfo CarouselGetSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselGetSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselGetSpacing"
})
#endif
foreign import ccall "adw_carousel_insert" adw_carousel_insert ::
Ptr Carousel ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO ()
carouselInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ()
carouselInsert :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCarousel a, IsWidget b) =>
a -> b -> Int32 -> m ()
carouselInsert a
self b
child Int32
position = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Carousel -> Ptr Widget -> Int32 -> IO ()
adw_carousel_insert Ptr Carousel
self' Ptr Widget
child' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselInsertMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CarouselInsertMethodInfo a signature where
overloadedMethod = carouselInsert
instance O.OverloadedMethodInfo CarouselInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselInsert"
})
#endif
foreign import ccall "adw_carousel_prepend" adw_carousel_prepend ::
Ptr Carousel ->
Ptr Gtk.Widget.Widget ->
IO ()
carouselPrepend ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
carouselPrepend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCarousel a, IsWidget b) =>
a -> b -> m ()
carouselPrepend a
self b
child = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Carousel -> Ptr Widget -> IO ()
adw_carousel_prepend Ptr Carousel
self' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselPrependMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CarouselPrependMethodInfo a signature where
overloadedMethod = carouselPrepend
instance O.OverloadedMethodInfo CarouselPrependMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselPrepend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselPrepend"
})
#endif
foreign import ccall "adw_carousel_remove" adw_carousel_remove ::
Ptr Carousel ->
Ptr Gtk.Widget.Widget ->
IO ()
carouselRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
carouselRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCarousel a, IsWidget b) =>
a -> b -> m ()
carouselRemove a
self b
child = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Carousel -> Ptr Widget -> IO ()
adw_carousel_remove Ptr Carousel
self' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CarouselRemoveMethodInfo a signature where
overloadedMethod = carouselRemove
instance O.OverloadedMethodInfo CarouselRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselRemove"
})
#endif
foreign import ccall "adw_carousel_reorder" adw_carousel_reorder ::
Ptr Carousel ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO ()
carouselReorder ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ()
carouselReorder :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCarousel a, IsWidget b) =>
a -> b -> Int32 -> m ()
carouselReorder a
self b
child Int32
position = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Carousel -> Ptr Widget -> Int32 -> IO ()
adw_carousel_reorder Ptr Carousel
self' Ptr Widget
child' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselReorderMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CarouselReorderMethodInfo a signature where
overloadedMethod = carouselReorder
instance O.OverloadedMethodInfo CarouselReorderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselReorder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselReorder"
})
#endif
foreign import ccall "adw_carousel_scroll_to" adw_carousel_scroll_to ::
Ptr Carousel ->
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
carouselScrollTo ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> m ()
carouselScrollTo :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCarousel a, IsWidget b) =>
a -> b -> Bool -> m ()
carouselScrollTo a
self b
widget Bool
animate = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let animate' :: CInt
animate' = (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
animate
Ptr Carousel -> Ptr Widget -> CInt -> IO ()
adw_carousel_scroll_to Ptr Carousel
self' Ptr Widget
widget' CInt
animate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselScrollToMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsCarousel a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CarouselScrollToMethodInfo a signature where
overloadedMethod = carouselScrollTo
instance O.OverloadedMethodInfo CarouselScrollToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselScrollTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselScrollTo"
})
#endif
foreign import ccall "adw_carousel_set_allow_long_swipes" adw_carousel_set_allow_long_swipes ::
Ptr Carousel ->
CInt ->
IO ()
carouselSetAllowLongSwipes ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Bool
-> m ()
carouselSetAllowLongSwipes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> Bool -> m ()
carouselSetAllowLongSwipes a
self Bool
allowLongSwipes = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let allowLongSwipes' :: CInt
allowLongSwipes' = (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
allowLongSwipes
Ptr Carousel -> CInt -> IO ()
adw_carousel_set_allow_long_swipes Ptr Carousel
self' CInt
allowLongSwipes'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselSetAllowLongSwipesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselSetAllowLongSwipesMethodInfo a signature where
overloadedMethod = carouselSetAllowLongSwipes
instance O.OverloadedMethodInfo CarouselSetAllowLongSwipesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselSetAllowLongSwipes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselSetAllowLongSwipes"
})
#endif
foreign import ccall "adw_carousel_set_allow_mouse_drag" adw_carousel_set_allow_mouse_drag ::
Ptr Carousel ->
CInt ->
IO ()
carouselSetAllowMouseDrag ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Bool
-> m ()
carouselSetAllowMouseDrag :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> Bool -> m ()
carouselSetAllowMouseDrag a
self Bool
allowMouseDrag = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let allowMouseDrag' :: CInt
allowMouseDrag' = (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
allowMouseDrag
Ptr Carousel -> CInt -> IO ()
adw_carousel_set_allow_mouse_drag Ptr Carousel
self' CInt
allowMouseDrag'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselSetAllowMouseDragMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselSetAllowMouseDragMethodInfo a signature where
overloadedMethod = carouselSetAllowMouseDrag
instance O.OverloadedMethodInfo CarouselSetAllowMouseDragMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselSetAllowMouseDrag",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselSetAllowMouseDrag"
})
#endif
foreign import ccall "adw_carousel_set_allow_scroll_wheel" adw_carousel_set_allow_scroll_wheel ::
Ptr Carousel ->
CInt ->
IO ()
carouselSetAllowScrollWheel ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Bool
-> m ()
carouselSetAllowScrollWheel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> Bool -> m ()
carouselSetAllowScrollWheel a
self Bool
allowScrollWheel = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let allowScrollWheel' :: CInt
allowScrollWheel' = (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
allowScrollWheel
Ptr Carousel -> CInt -> IO ()
adw_carousel_set_allow_scroll_wheel Ptr Carousel
self' CInt
allowScrollWheel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselSetAllowScrollWheelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselSetAllowScrollWheelMethodInfo a signature where
overloadedMethod = carouselSetAllowScrollWheel
instance O.OverloadedMethodInfo CarouselSetAllowScrollWheelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselSetAllowScrollWheel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselSetAllowScrollWheel"
})
#endif
foreign import ccall "adw_carousel_set_interactive" adw_carousel_set_interactive ::
Ptr Carousel ->
CInt ->
IO ()
carouselSetInteractive ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Bool
-> m ()
carouselSetInteractive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> Bool -> m ()
carouselSetInteractive a
self Bool
interactive = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let interactive' :: CInt
interactive' = (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
interactive
Ptr Carousel -> CInt -> IO ()
adw_carousel_set_interactive Ptr Carousel
self' CInt
interactive'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselSetInteractiveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselSetInteractiveMethodInfo a signature where
overloadedMethod = carouselSetInteractive
instance O.OverloadedMethodInfo CarouselSetInteractiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselSetInteractive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselSetInteractive"
})
#endif
foreign import ccall "adw_carousel_set_reveal_duration" adw_carousel_set_reveal_duration ::
Ptr Carousel ->
Word32 ->
IO ()
carouselSetRevealDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Word32
-> m ()
carouselSetRevealDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> Word32 -> m ()
carouselSetRevealDuration a
self Word32
revealDuration = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Carousel -> CarouselPageChangedCallback
adw_carousel_set_reveal_duration Ptr Carousel
self' Word32
revealDuration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselSetRevealDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselSetRevealDurationMethodInfo a signature where
overloadedMethod = carouselSetRevealDuration
instance O.OverloadedMethodInfo CarouselSetRevealDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselSetRevealDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselSetRevealDuration"
})
#endif
foreign import ccall "adw_carousel_set_scroll_params" adw_carousel_set_scroll_params ::
Ptr Carousel ->
Ptr Adw.SpringParams.SpringParams ->
IO ()
carouselSetScrollParams ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Adw.SpringParams.SpringParams
-> m ()
carouselSetScrollParams :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> SpringParams -> m ()
carouselSetScrollParams a
self SpringParams
params = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SpringParams
params' <- SpringParams -> IO (Ptr SpringParams)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SpringParams
params
Ptr Carousel -> Ptr SpringParams -> IO ()
adw_carousel_set_scroll_params Ptr Carousel
self' Ptr SpringParams
params'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
SpringParams -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SpringParams
params
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselSetScrollParamsMethodInfo
instance (signature ~ (Adw.SpringParams.SpringParams -> m ()), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselSetScrollParamsMethodInfo a signature where
overloadedMethod = carouselSetScrollParams
instance O.OverloadedMethodInfo CarouselSetScrollParamsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselSetScrollParams",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselSetScrollParams"
})
#endif
foreign import ccall "adw_carousel_set_spacing" adw_carousel_set_spacing ::
Ptr Carousel ->
Word32 ->
IO ()
carouselSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsCarousel a) =>
a
-> Word32
-> m ()
carouselSetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCarousel a) =>
a -> Word32 -> m ()
carouselSetSpacing a
self Word32
spacing = 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 Carousel
self' <- a -> IO (Ptr Carousel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Carousel -> CarouselPageChangedCallback
adw_carousel_set_spacing Ptr Carousel
self' Word32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CarouselSetSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCarousel a) => O.OverloadedMethod CarouselSetSpacingMethodInfo a signature where
overloadedMethod = carouselSetSpacing
instance O.OverloadedMethodInfo CarouselSetSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Carousel.carouselSetSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.3/docs/GI-Adw-Objects-Carousel.html#v:carouselSetSpacing"
})
#endif