{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.Leaflet
(
Leaflet(..) ,
IsLeaflet ,
toLeaflet ,
#if defined(ENABLE_OVERLOADING)
ResolveLeafletMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletAppendMethodInfo ,
#endif
leafletAppend ,
#if defined(ENABLE_OVERLOADING)
LeafletGetAdjacentChildMethodInfo ,
#endif
leafletGetAdjacentChild ,
#if defined(ENABLE_OVERLOADING)
LeafletGetCanSwipeBackMethodInfo ,
#endif
leafletGetCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
LeafletGetCanSwipeForwardMethodInfo ,
#endif
leafletGetCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
LeafletGetCanUnfoldMethodInfo ,
#endif
leafletGetCanUnfold ,
#if defined(ENABLE_OVERLOADING)
LeafletGetChildByNameMethodInfo ,
#endif
leafletGetChildByName ,
#if defined(ENABLE_OVERLOADING)
LeafletGetChildTransitionDurationMethodInfo,
#endif
leafletGetChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletGetChildTransitionRunningMethodInfo,
#endif
leafletGetChildTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
LeafletGetFoldThresholdPolicyMethodInfo ,
#endif
leafletGetFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
LeafletGetFoldedMethodInfo ,
#endif
leafletGetFolded ,
#if defined(ENABLE_OVERLOADING)
LeafletGetHomogeneousMethodInfo ,
#endif
leafletGetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
LeafletGetModeTransitionDurationMethodInfo,
#endif
leafletGetModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletGetPageMethodInfo ,
#endif
leafletGetPage ,
#if defined(ENABLE_OVERLOADING)
LeafletGetPagesMethodInfo ,
#endif
leafletGetPages ,
#if defined(ENABLE_OVERLOADING)
LeafletGetTransitionTypeMethodInfo ,
#endif
leafletGetTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletGetVisibleChildMethodInfo ,
#endif
leafletGetVisibleChild ,
#if defined(ENABLE_OVERLOADING)
LeafletGetVisibleChildNameMethodInfo ,
#endif
leafletGetVisibleChildName ,
#if defined(ENABLE_OVERLOADING)
LeafletInsertChildAfterMethodInfo ,
#endif
leafletInsertChildAfter ,
#if defined(ENABLE_OVERLOADING)
LeafletNavigateMethodInfo ,
#endif
leafletNavigate ,
leafletNew ,
#if defined(ENABLE_OVERLOADING)
LeafletPrependMethodInfo ,
#endif
leafletPrepend ,
#if defined(ENABLE_OVERLOADING)
LeafletRemoveMethodInfo ,
#endif
leafletRemove ,
#if defined(ENABLE_OVERLOADING)
LeafletReorderChildAfterMethodInfo ,
#endif
leafletReorderChildAfter ,
#if defined(ENABLE_OVERLOADING)
LeafletSetCanSwipeBackMethodInfo ,
#endif
leafletSetCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
LeafletSetCanSwipeForwardMethodInfo ,
#endif
leafletSetCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
LeafletSetCanUnfoldMethodInfo ,
#endif
leafletSetCanUnfold ,
#if defined(ENABLE_OVERLOADING)
LeafletSetChildTransitionDurationMethodInfo,
#endif
leafletSetChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletSetFoldThresholdPolicyMethodInfo ,
#endif
leafletSetFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
LeafletSetHomogeneousMethodInfo ,
#endif
leafletSetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
LeafletSetModeTransitionDurationMethodInfo,
#endif
leafletSetModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletSetTransitionTypeMethodInfo ,
#endif
leafletSetTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletSetVisibleChildMethodInfo ,
#endif
leafletSetVisibleChild ,
#if defined(ENABLE_OVERLOADING)
LeafletSetVisibleChildNameMethodInfo ,
#endif
leafletSetVisibleChildName ,
#if defined(ENABLE_OVERLOADING)
LeafletCanSwipeBackPropertyInfo ,
#endif
constructLeafletCanSwipeBack ,
getLeafletCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
leafletCanSwipeBack ,
#endif
setLeafletCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
LeafletCanSwipeForwardPropertyInfo ,
#endif
constructLeafletCanSwipeForward ,
getLeafletCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
leafletCanSwipeForward ,
#endif
setLeafletCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
LeafletCanUnfoldPropertyInfo ,
#endif
constructLeafletCanUnfold ,
getLeafletCanUnfold ,
#if defined(ENABLE_OVERLOADING)
leafletCanUnfold ,
#endif
setLeafletCanUnfold ,
#if defined(ENABLE_OVERLOADING)
LeafletChildTransitionDurationPropertyInfo,
#endif
constructLeafletChildTransitionDuration ,
getLeafletChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
leafletChildTransitionDuration ,
#endif
setLeafletChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletChildTransitionRunningPropertyInfo,
#endif
getLeafletChildTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
leafletChildTransitionRunning ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletFoldThresholdPolicyPropertyInfo ,
#endif
constructLeafletFoldThresholdPolicy ,
getLeafletFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
leafletFoldThresholdPolicy ,
#endif
setLeafletFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
LeafletFoldedPropertyInfo ,
#endif
getLeafletFolded ,
#if defined(ENABLE_OVERLOADING)
leafletFolded ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletHomogeneousPropertyInfo ,
#endif
constructLeafletHomogeneous ,
getLeafletHomogeneous ,
#if defined(ENABLE_OVERLOADING)
leafletHomogeneous ,
#endif
setLeafletHomogeneous ,
#if defined(ENABLE_OVERLOADING)
LeafletModeTransitionDurationPropertyInfo,
#endif
constructLeafletModeTransitionDuration ,
getLeafletModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
leafletModeTransitionDuration ,
#endif
setLeafletModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletPagesPropertyInfo ,
#endif
getLeafletPages ,
#if defined(ENABLE_OVERLOADING)
leafletPages ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletTransitionTypePropertyInfo ,
#endif
constructLeafletTransitionType ,
getLeafletTransitionType ,
#if defined(ENABLE_OVERLOADING)
leafletTransitionType ,
#endif
setLeafletTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletVisibleChildPropertyInfo ,
#endif
constructLeafletVisibleChild ,
getLeafletVisibleChild ,
#if defined(ENABLE_OVERLOADING)
leafletVisibleChild ,
#endif
setLeafletVisibleChild ,
#if defined(ENABLE_OVERLOADING)
LeafletVisibleChildNamePropertyInfo ,
#endif
constructLeafletVisibleChildName ,
getLeafletVisibleChildName ,
#if defined(ENABLE_OVERLOADING)
leafletVisibleChildName ,
#endif
setLeafletVisibleChildName ,
) 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.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.Enums as Adw.Enums
import {-# SOURCE #-} qualified GI.Adw.Interfaces.Swipeable as Adw.Swipeable
import {-# SOURCE #-} qualified GI.Adw.Objects.LeafletPage as Adw.LeafletPage
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.Interfaces.SelectionModel as Gtk.SelectionModel
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Leaflet = Leaflet (SP.ManagedPtr Leaflet)
deriving (Leaflet -> Leaflet -> Bool
(Leaflet -> Leaflet -> Bool)
-> (Leaflet -> Leaflet -> Bool) -> Eq Leaflet
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Leaflet -> Leaflet -> Bool
$c/= :: Leaflet -> Leaflet -> Bool
== :: Leaflet -> Leaflet -> Bool
$c== :: Leaflet -> Leaflet -> Bool
Eq)
instance SP.ManagedPtrNewtype Leaflet where
toManagedPtr :: Leaflet -> ManagedPtr Leaflet
toManagedPtr (Leaflet ManagedPtr Leaflet
p) = ManagedPtr Leaflet
p
foreign import ccall "adw_leaflet_get_type"
c_adw_leaflet_get_type :: IO B.Types.GType
instance B.Types.TypedObject Leaflet where
glibType :: IO GType
glibType = IO GType
c_adw_leaflet_get_type
instance B.Types.GObject Leaflet
class (SP.GObject o, O.IsDescendantOf Leaflet o) => IsLeaflet o
instance (SP.GObject o, O.IsDescendantOf Leaflet o) => IsLeaflet o
instance O.HasParentTypes Leaflet
type instance O.ParentTypes Leaflet = '[Gtk.Widget.Widget, GObject.Object.Object, Adw.Swipeable.Swipeable, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toLeaflet :: (MIO.MonadIO m, IsLeaflet o) => o -> m Leaflet
toLeaflet :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Leaflet
toLeaflet = IO Leaflet -> m Leaflet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Leaflet -> m Leaflet) -> (o -> IO Leaflet) -> o -> m Leaflet
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Leaflet -> Leaflet) -> o -> IO Leaflet
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Leaflet -> Leaflet
Leaflet
instance B.GValue.IsGValue (Maybe Leaflet) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_leaflet_get_type
gvalueSet_ :: Ptr GValue -> Maybe Leaflet -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Leaflet
P.Nothing = Ptr GValue -> Ptr Leaflet -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Leaflet
forall a. Ptr a
FP.nullPtr :: FP.Ptr Leaflet)
gvalueSet_ Ptr GValue
gv (P.Just Leaflet
obj) = Leaflet -> (Ptr Leaflet -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Leaflet
obj (Ptr GValue -> Ptr Leaflet -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Leaflet)
gvalueGet_ Ptr GValue
gv = do
Ptr Leaflet
ptr <- Ptr GValue -> IO (Ptr Leaflet)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Leaflet)
if Ptr Leaflet
ptr Ptr Leaflet -> Ptr Leaflet -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Leaflet
forall a. Ptr a
FP.nullPtr
then Leaflet -> Maybe Leaflet
forall a. a -> Maybe a
P.Just (Leaflet -> Maybe Leaflet) -> IO Leaflet -> IO (Maybe Leaflet)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Leaflet -> Leaflet) -> Ptr Leaflet -> IO Leaflet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Leaflet -> Leaflet
Leaflet Ptr Leaflet
ptr
else Maybe Leaflet -> IO (Maybe Leaflet)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Leaflet
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveLeafletMethod (t :: Symbol) (o :: *) :: * where
ResolveLeafletMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveLeafletMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveLeafletMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveLeafletMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveLeafletMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveLeafletMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveLeafletMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveLeafletMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveLeafletMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveLeafletMethod "append" o = LeafletAppendMethodInfo
ResolveLeafletMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveLeafletMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveLeafletMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveLeafletMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveLeafletMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveLeafletMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveLeafletMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveLeafletMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveLeafletMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveLeafletMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveLeafletMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveLeafletMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveLeafletMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveLeafletMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveLeafletMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveLeafletMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveLeafletMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveLeafletMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveLeafletMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveLeafletMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveLeafletMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveLeafletMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveLeafletMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveLeafletMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveLeafletMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveLeafletMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveLeafletMethod "insertChildAfter" o = LeafletInsertChildAfterMethodInfo
ResolveLeafletMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveLeafletMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveLeafletMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveLeafletMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveLeafletMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveLeafletMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveLeafletMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveLeafletMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveLeafletMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveLeafletMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveLeafletMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveLeafletMethod "navigate" o = LeafletNavigateMethodInfo
ResolveLeafletMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveLeafletMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveLeafletMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveLeafletMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveLeafletMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveLeafletMethod "prepend" o = LeafletPrependMethodInfo
ResolveLeafletMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveLeafletMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveLeafletMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveLeafletMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveLeafletMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveLeafletMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveLeafletMethod "remove" o = LeafletRemoveMethodInfo
ResolveLeafletMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveLeafletMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveLeafletMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveLeafletMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveLeafletMethod "reorderChildAfter" o = LeafletReorderChildAfterMethodInfo
ResolveLeafletMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveLeafletMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveLeafletMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveLeafletMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveLeafletMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveLeafletMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveLeafletMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveLeafletMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveLeafletMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveLeafletMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveLeafletMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveLeafletMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveLeafletMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveLeafletMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveLeafletMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveLeafletMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveLeafletMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveLeafletMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveLeafletMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveLeafletMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveLeafletMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveLeafletMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveLeafletMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveLeafletMethod "getAdjacentChild" o = LeafletGetAdjacentChildMethodInfo
ResolveLeafletMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveLeafletMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveLeafletMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveLeafletMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveLeafletMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveLeafletMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveLeafletMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveLeafletMethod "getCanSwipeBack" o = LeafletGetCanSwipeBackMethodInfo
ResolveLeafletMethod "getCanSwipeForward" o = LeafletGetCanSwipeForwardMethodInfo
ResolveLeafletMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveLeafletMethod "getCanUnfold" o = LeafletGetCanUnfoldMethodInfo
ResolveLeafletMethod "getCancelProgress" o = Adw.Swipeable.SwipeableGetCancelProgressMethodInfo
ResolveLeafletMethod "getChildByName" o = LeafletGetChildByNameMethodInfo
ResolveLeafletMethod "getChildTransitionDuration" o = LeafletGetChildTransitionDurationMethodInfo
ResolveLeafletMethod "getChildTransitionRunning" o = LeafletGetChildTransitionRunningMethodInfo
ResolveLeafletMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveLeafletMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveLeafletMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveLeafletMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveLeafletMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveLeafletMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveLeafletMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveLeafletMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveLeafletMethod "getDistance" o = Adw.Swipeable.SwipeableGetDistanceMethodInfo
ResolveLeafletMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveLeafletMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveLeafletMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveLeafletMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveLeafletMethod "getFoldThresholdPolicy" o = LeafletGetFoldThresholdPolicyMethodInfo
ResolveLeafletMethod "getFolded" o = LeafletGetFoldedMethodInfo
ResolveLeafletMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveLeafletMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveLeafletMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveLeafletMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveLeafletMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveLeafletMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveLeafletMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveLeafletMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveLeafletMethod "getHomogeneous" o = LeafletGetHomogeneousMethodInfo
ResolveLeafletMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveLeafletMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveLeafletMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveLeafletMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveLeafletMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveLeafletMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveLeafletMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveLeafletMethod "getModeTransitionDuration" o = LeafletGetModeTransitionDurationMethodInfo
ResolveLeafletMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveLeafletMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveLeafletMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveLeafletMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveLeafletMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveLeafletMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveLeafletMethod "getPage" o = LeafletGetPageMethodInfo
ResolveLeafletMethod "getPages" o = LeafletGetPagesMethodInfo
ResolveLeafletMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveLeafletMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveLeafletMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveLeafletMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveLeafletMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveLeafletMethod "getProgress" o = Adw.Swipeable.SwipeableGetProgressMethodInfo
ResolveLeafletMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveLeafletMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveLeafletMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveLeafletMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveLeafletMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveLeafletMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveLeafletMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveLeafletMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveLeafletMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveLeafletMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveLeafletMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveLeafletMethod "getSnapPoints" o = Adw.Swipeable.SwipeableGetSnapPointsMethodInfo
ResolveLeafletMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveLeafletMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveLeafletMethod "getSwipeArea" o = Adw.Swipeable.SwipeableGetSwipeAreaMethodInfo
ResolveLeafletMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveLeafletMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveLeafletMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveLeafletMethod "getTransitionType" o = LeafletGetTransitionTypeMethodInfo
ResolveLeafletMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveLeafletMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveLeafletMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveLeafletMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveLeafletMethod "getVisibleChild" o = LeafletGetVisibleChildMethodInfo
ResolveLeafletMethod "getVisibleChildName" o = LeafletGetVisibleChildNameMethodInfo
ResolveLeafletMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveLeafletMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveLeafletMethod "setCanSwipeBack" o = LeafletSetCanSwipeBackMethodInfo
ResolveLeafletMethod "setCanSwipeForward" o = LeafletSetCanSwipeForwardMethodInfo
ResolveLeafletMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveLeafletMethod "setCanUnfold" o = LeafletSetCanUnfoldMethodInfo
ResolveLeafletMethod "setChildTransitionDuration" o = LeafletSetChildTransitionDurationMethodInfo
ResolveLeafletMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveLeafletMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveLeafletMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveLeafletMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveLeafletMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveLeafletMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveLeafletMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveLeafletMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveLeafletMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveLeafletMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveLeafletMethod "setFoldThresholdPolicy" o = LeafletSetFoldThresholdPolicyMethodInfo
ResolveLeafletMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveLeafletMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveLeafletMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveLeafletMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveLeafletMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveLeafletMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveLeafletMethod "setHomogeneous" o = LeafletSetHomogeneousMethodInfo
ResolveLeafletMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveLeafletMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveLeafletMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveLeafletMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveLeafletMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveLeafletMethod "setModeTransitionDuration" o = LeafletSetModeTransitionDurationMethodInfo
ResolveLeafletMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveLeafletMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveLeafletMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveLeafletMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveLeafletMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveLeafletMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveLeafletMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveLeafletMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveLeafletMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveLeafletMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveLeafletMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveLeafletMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveLeafletMethod "setTransitionType" o = LeafletSetTransitionTypeMethodInfo
ResolveLeafletMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveLeafletMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveLeafletMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveLeafletMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveLeafletMethod "setVisibleChild" o = LeafletSetVisibleChildMethodInfo
ResolveLeafletMethod "setVisibleChildName" o = LeafletSetVisibleChildNameMethodInfo
ResolveLeafletMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveLeafletMethod t Leaflet, O.OverloadedMethod info Leaflet p) => OL.IsLabel t (Leaflet -> 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 ~ ResolveLeafletMethod t Leaflet, O.OverloadedMethod info Leaflet p, R.HasField t Leaflet p) => R.HasField t Leaflet p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveLeafletMethod t Leaflet, O.OverloadedMethodInfo info Leaflet) => OL.IsLabel t (O.MethodProxy info Leaflet) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getLeafletCanSwipeBack :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeBack :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeBack o
obj = IO Bool -> m Bool
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
"can-swipe-back"
setLeafletCanSwipeBack :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletCanSwipeBack :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletCanSwipeBack o
obj Bool
val = IO () -> m ()
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
"can-swipe-back" Bool
val
constructLeafletCanSwipeBack :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletCanSwipeBack :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletCanSwipeBack Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"can-swipe-back" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletCanSwipeBackPropertyInfo
instance AttrInfo LeafletCanSwipeBackPropertyInfo where
type AttrAllowedOps LeafletCanSwipeBackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletCanSwipeBackPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletCanSwipeBackPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletCanSwipeBackPropertyInfo = (~) Bool
type AttrTransferType LeafletCanSwipeBackPropertyInfo = Bool
type AttrGetType LeafletCanSwipeBackPropertyInfo = Bool
type AttrLabel LeafletCanSwipeBackPropertyInfo = "can-swipe-back"
type AttrOrigin LeafletCanSwipeBackPropertyInfo = Leaflet
attrGet = getLeafletCanSwipeBack
attrSet = setLeafletCanSwipeBack
attrTransfer _ v = do
return v
attrConstruct = constructLeafletCanSwipeBack
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.canSwipeBack"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:canSwipeBack"
})
#endif
getLeafletCanSwipeForward :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeForward :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeForward o
obj = IO Bool -> m Bool
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
"can-swipe-forward"
setLeafletCanSwipeForward :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletCanSwipeForward :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletCanSwipeForward o
obj Bool
val = IO () -> m ()
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
"can-swipe-forward" Bool
val
constructLeafletCanSwipeForward :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletCanSwipeForward :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletCanSwipeForward Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"can-swipe-forward" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletCanSwipeForwardPropertyInfo
instance AttrInfo LeafletCanSwipeForwardPropertyInfo where
type AttrAllowedOps LeafletCanSwipeForwardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletCanSwipeForwardPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletCanSwipeForwardPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletCanSwipeForwardPropertyInfo = (~) Bool
type AttrTransferType LeafletCanSwipeForwardPropertyInfo = Bool
type AttrGetType LeafletCanSwipeForwardPropertyInfo = Bool
type AttrLabel LeafletCanSwipeForwardPropertyInfo = "can-swipe-forward"
type AttrOrigin LeafletCanSwipeForwardPropertyInfo = Leaflet
attrGet = getLeafletCanSwipeForward
attrSet = setLeafletCanSwipeForward
attrTransfer _ v = do
return v
attrConstruct = constructLeafletCanSwipeForward
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.canSwipeForward"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:canSwipeForward"
})
#endif
getLeafletCanUnfold :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanUnfold :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanUnfold o
obj = IO Bool -> m Bool
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
"can-unfold"
setLeafletCanUnfold :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletCanUnfold :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletCanUnfold o
obj Bool
val = IO () -> m ()
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
"can-unfold" Bool
val
constructLeafletCanUnfold :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletCanUnfold :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletCanUnfold Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"can-unfold" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletCanUnfoldPropertyInfo
instance AttrInfo LeafletCanUnfoldPropertyInfo where
type AttrAllowedOps LeafletCanUnfoldPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletCanUnfoldPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletCanUnfoldPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletCanUnfoldPropertyInfo = (~) Bool
type AttrTransferType LeafletCanUnfoldPropertyInfo = Bool
type AttrGetType LeafletCanUnfoldPropertyInfo = Bool
type AttrLabel LeafletCanUnfoldPropertyInfo = "can-unfold"
type AttrOrigin LeafletCanUnfoldPropertyInfo = Leaflet
attrGet = getLeafletCanUnfold
attrSet = setLeafletCanUnfold
attrTransfer _ v = do
return v
attrConstruct = constructLeafletCanUnfold
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.canUnfold"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:canUnfold"
})
#endif
getLeafletChildTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletChildTransitionDuration :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletChildTransitionDuration o
obj = IO Word32 -> m Word32
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
"child-transition-duration"
setLeafletChildTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> Word32 -> m ()
setLeafletChildTransitionDuration :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Word32 -> m ()
setLeafletChildTransitionDuration o
obj Word32
val = IO () -> m ()
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"child-transition-duration" Word32
val
constructLeafletChildTransitionDuration :: (IsLeaflet o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructLeafletChildTransitionDuration :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructLeafletChildTransitionDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"child-transition-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data LeafletChildTransitionDurationPropertyInfo
instance AttrInfo LeafletChildTransitionDurationPropertyInfo where
type AttrAllowedOps LeafletChildTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletChildTransitionDurationPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletChildTransitionDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint LeafletChildTransitionDurationPropertyInfo = (~) Word32
type AttrTransferType LeafletChildTransitionDurationPropertyInfo = Word32
type AttrGetType LeafletChildTransitionDurationPropertyInfo = Word32
type AttrLabel LeafletChildTransitionDurationPropertyInfo = "child-transition-duration"
type AttrOrigin LeafletChildTransitionDurationPropertyInfo = Leaflet
attrGet = getLeafletChildTransitionDuration
attrSet = setLeafletChildTransitionDuration
attrTransfer _ v = do
return v
attrConstruct = constructLeafletChildTransitionDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.childTransitionDuration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:childTransitionDuration"
})
#endif
getLeafletChildTransitionRunning :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletChildTransitionRunning :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletChildTransitionRunning o
obj = IO Bool -> m Bool
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
"child-transition-running"
#if defined(ENABLE_OVERLOADING)
data LeafletChildTransitionRunningPropertyInfo
instance AttrInfo LeafletChildTransitionRunningPropertyInfo where
type AttrAllowedOps LeafletChildTransitionRunningPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint LeafletChildTransitionRunningPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletChildTransitionRunningPropertyInfo = (~) ()
type AttrTransferTypeConstraint LeafletChildTransitionRunningPropertyInfo = (~) ()
type AttrTransferType LeafletChildTransitionRunningPropertyInfo = ()
type AttrGetType LeafletChildTransitionRunningPropertyInfo = Bool
type AttrLabel LeafletChildTransitionRunningPropertyInfo = "child-transition-running"
type AttrOrigin LeafletChildTransitionRunningPropertyInfo = Leaflet
attrGet = getLeafletChildTransitionRunning
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.childTransitionRunning"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:childTransitionRunning"
})
#endif
getLeafletFoldThresholdPolicy :: (MonadIO m, IsLeaflet o) => o -> m Adw.Enums.FoldThresholdPolicy
getLeafletFoldThresholdPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m FoldThresholdPolicy
getLeafletFoldThresholdPolicy o
obj = IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FoldThresholdPolicy -> m FoldThresholdPolicy)
-> IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a b. (a -> b) -> a -> b
$ o -> String -> IO FoldThresholdPolicy
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"fold-threshold-policy"
setLeafletFoldThresholdPolicy :: (MonadIO m, IsLeaflet o) => o -> Adw.Enums.FoldThresholdPolicy -> m ()
setLeafletFoldThresholdPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> FoldThresholdPolicy -> m ()
setLeafletFoldThresholdPolicy o
obj FoldThresholdPolicy
val = IO () -> m ()
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 -> FoldThresholdPolicy -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"fold-threshold-policy" FoldThresholdPolicy
val
constructLeafletFoldThresholdPolicy :: (IsLeaflet o, MIO.MonadIO m) => Adw.Enums.FoldThresholdPolicy -> m (GValueConstruct o)
constructLeafletFoldThresholdPolicy :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
FoldThresholdPolicy -> m (GValueConstruct o)
constructLeafletFoldThresholdPolicy FoldThresholdPolicy
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> FoldThresholdPolicy -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"fold-threshold-policy" FoldThresholdPolicy
val
#if defined(ENABLE_OVERLOADING)
data LeafletFoldThresholdPolicyPropertyInfo
instance AttrInfo LeafletFoldThresholdPolicyPropertyInfo where
type AttrAllowedOps LeafletFoldThresholdPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletFoldThresholdPolicyPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletFoldThresholdPolicyPropertyInfo = (~) Adw.Enums.FoldThresholdPolicy
type AttrTransferTypeConstraint LeafletFoldThresholdPolicyPropertyInfo = (~) Adw.Enums.FoldThresholdPolicy
type AttrTransferType LeafletFoldThresholdPolicyPropertyInfo = Adw.Enums.FoldThresholdPolicy
type AttrGetType LeafletFoldThresholdPolicyPropertyInfo = Adw.Enums.FoldThresholdPolicy
type AttrLabel LeafletFoldThresholdPolicyPropertyInfo = "fold-threshold-policy"
type AttrOrigin LeafletFoldThresholdPolicyPropertyInfo = Leaflet
attrGet = getLeafletFoldThresholdPolicy
attrSet = setLeafletFoldThresholdPolicy
attrTransfer _ v = do
return v
attrConstruct = constructLeafletFoldThresholdPolicy
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.foldThresholdPolicy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:foldThresholdPolicy"
})
#endif
getLeafletFolded :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletFolded :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletFolded o
obj = IO Bool -> m Bool
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
"folded"
#if defined(ENABLE_OVERLOADING)
data LeafletFoldedPropertyInfo
instance AttrInfo LeafletFoldedPropertyInfo where
type AttrAllowedOps LeafletFoldedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint LeafletFoldedPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletFoldedPropertyInfo = (~) ()
type AttrTransferTypeConstraint LeafletFoldedPropertyInfo = (~) ()
type AttrTransferType LeafletFoldedPropertyInfo = ()
type AttrGetType LeafletFoldedPropertyInfo = Bool
type AttrLabel LeafletFoldedPropertyInfo = "folded"
type AttrOrigin LeafletFoldedPropertyInfo = Leaflet
attrGet = getLeafletFolded
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.folded"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:folded"
})
#endif
getLeafletHomogeneous :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletHomogeneous o
obj = IO Bool -> m Bool
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
"homogeneous"
setLeafletHomogeneous :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletHomogeneous :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletHomogeneous o
obj Bool
val = IO () -> m ()
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
"homogeneous" Bool
val
constructLeafletHomogeneous :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletHomogeneous :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletHomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletHomogeneousPropertyInfo
instance AttrInfo LeafletHomogeneousPropertyInfo where
type AttrAllowedOps LeafletHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletHomogeneousPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletHomogeneousPropertyInfo = (~) Bool
type AttrTransferType LeafletHomogeneousPropertyInfo = Bool
type AttrGetType LeafletHomogeneousPropertyInfo = Bool
type AttrLabel LeafletHomogeneousPropertyInfo = "homogeneous"
type AttrOrigin LeafletHomogeneousPropertyInfo = Leaflet
attrGet = getLeafletHomogeneous
attrSet = setLeafletHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructLeafletHomogeneous
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.homogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:homogeneous"
})
#endif
getLeafletModeTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletModeTransitionDuration :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletModeTransitionDuration o
obj = IO Word32 -> m Word32
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
"mode-transition-duration"
setLeafletModeTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> Word32 -> m ()
setLeafletModeTransitionDuration :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Word32 -> m ()
setLeafletModeTransitionDuration o
obj Word32
val = IO () -> m ()
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"mode-transition-duration" Word32
val
constructLeafletModeTransitionDuration :: (IsLeaflet o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructLeafletModeTransitionDuration :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructLeafletModeTransitionDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"mode-transition-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data LeafletModeTransitionDurationPropertyInfo
instance AttrInfo LeafletModeTransitionDurationPropertyInfo where
type AttrAllowedOps LeafletModeTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletModeTransitionDurationPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletModeTransitionDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint LeafletModeTransitionDurationPropertyInfo = (~) Word32
type AttrTransferType LeafletModeTransitionDurationPropertyInfo = Word32
type AttrGetType LeafletModeTransitionDurationPropertyInfo = Word32
type AttrLabel LeafletModeTransitionDurationPropertyInfo = "mode-transition-duration"
type AttrOrigin LeafletModeTransitionDurationPropertyInfo = Leaflet
attrGet = getLeafletModeTransitionDuration
attrSet = setLeafletModeTransitionDuration
attrTransfer _ v = do
return v
attrConstruct = constructLeafletModeTransitionDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.modeTransitionDuration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:modeTransitionDuration"
})
#endif
getLeafletPages :: (MonadIO m, IsLeaflet o) => o -> m (Maybe Gtk.SelectionModel.SelectionModel)
getLeafletPages :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m (Maybe SelectionModel)
getLeafletPages o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe SelectionModel) -> m (Maybe SelectionModel))
-> IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SelectionModel -> SelectionModel)
-> IO (Maybe SelectionModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"pages" ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel
#if defined(ENABLE_OVERLOADING)
data LeafletPagesPropertyInfo
instance AttrInfo LeafletPagesPropertyInfo where
type AttrAllowedOps LeafletPagesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint LeafletPagesPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletPagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint LeafletPagesPropertyInfo = (~) ()
type AttrTransferType LeafletPagesPropertyInfo = ()
type AttrGetType LeafletPagesPropertyInfo = (Maybe Gtk.SelectionModel.SelectionModel)
type AttrLabel LeafletPagesPropertyInfo = "pages"
type AttrOrigin LeafletPagesPropertyInfo = Leaflet
attrGet = getLeafletPages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.pages"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:pages"
})
#endif
getLeafletTransitionType :: (MonadIO m, IsLeaflet o) => o -> m Adw.Enums.LeafletTransitionType
getLeafletTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m LeafletTransitionType
getLeafletTransitionType o
obj = IO LeafletTransitionType -> m LeafletTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO LeafletTransitionType -> m LeafletTransitionType)
-> IO LeafletTransitionType -> m LeafletTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO LeafletTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"transition-type"
setLeafletTransitionType :: (MonadIO m, IsLeaflet o) => o -> Adw.Enums.LeafletTransitionType -> m ()
setLeafletTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> LeafletTransitionType -> m ()
setLeafletTransitionType o
obj LeafletTransitionType
val = IO () -> m ()
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 -> LeafletTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"transition-type" LeafletTransitionType
val
constructLeafletTransitionType :: (IsLeaflet o, MIO.MonadIO m) => Adw.Enums.LeafletTransitionType -> m (GValueConstruct o)
constructLeafletTransitionType :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
LeafletTransitionType -> m (GValueConstruct o)
constructLeafletTransitionType LeafletTransitionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> LeafletTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"transition-type" LeafletTransitionType
val
#if defined(ENABLE_OVERLOADING)
data LeafletTransitionTypePropertyInfo
instance AttrInfo LeafletTransitionTypePropertyInfo where
type AttrAllowedOps LeafletTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletTransitionTypePropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletTransitionTypePropertyInfo = (~) Adw.Enums.LeafletTransitionType
type AttrTransferTypeConstraint LeafletTransitionTypePropertyInfo = (~) Adw.Enums.LeafletTransitionType
type AttrTransferType LeafletTransitionTypePropertyInfo = Adw.Enums.LeafletTransitionType
type AttrGetType LeafletTransitionTypePropertyInfo = Adw.Enums.LeafletTransitionType
type AttrLabel LeafletTransitionTypePropertyInfo = "transition-type"
type AttrOrigin LeafletTransitionTypePropertyInfo = Leaflet
attrGet = getLeafletTransitionType
attrSet = setLeafletTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructLeafletTransitionType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.transitionType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:transitionType"
})
#endif
getLeafletVisibleChild :: (MonadIO m, IsLeaflet o) => o -> m (Maybe Gtk.Widget.Widget)
getLeafletVisibleChild :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m (Maybe Widget)
getLeafletVisibleChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"visible-child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setLeafletVisibleChild :: (MonadIO m, IsLeaflet o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setLeafletVisibleChild :: forall (m :: * -> *) o a.
(MonadIO m, IsLeaflet o, IsWidget a) =>
o -> a -> m ()
setLeafletVisibleChild o
obj a
val = IO () -> m ()
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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"visible-child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructLeafletVisibleChild :: (IsLeaflet o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructLeafletVisibleChild :: forall o (m :: * -> *) a.
(IsLeaflet o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructLeafletVisibleChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"visible-child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data LeafletVisibleChildPropertyInfo
instance AttrInfo LeafletVisibleChildPropertyInfo where
type AttrAllowedOps LeafletVisibleChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletVisibleChildPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletVisibleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint LeafletVisibleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType LeafletVisibleChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType LeafletVisibleChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel LeafletVisibleChildPropertyInfo = "visible-child"
type AttrOrigin LeafletVisibleChildPropertyInfo = Leaflet
attrGet = getLeafletVisibleChild
attrSet = setLeafletVisibleChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructLeafletVisibleChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.visibleChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:visibleChild"
})
#endif
getLeafletVisibleChildName :: (MonadIO m, IsLeaflet o) => o -> m (Maybe T.Text)
getLeafletVisibleChildName :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m (Maybe Text)
getLeafletVisibleChildName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"visible-child-name"
setLeafletVisibleChildName :: (MonadIO m, IsLeaflet o) => o -> T.Text -> m ()
setLeafletVisibleChildName :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Text -> m ()
setLeafletVisibleChildName o
obj Text
val = IO () -> m ()
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLeafletVisibleChildName :: (IsLeaflet o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructLeafletVisibleChildName :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructLeafletVisibleChildName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data LeafletVisibleChildNamePropertyInfo
instance AttrInfo LeafletVisibleChildNamePropertyInfo where
type AttrAllowedOps LeafletVisibleChildNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletVisibleChildNamePropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletVisibleChildNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LeafletVisibleChildNamePropertyInfo = (~) T.Text
type AttrTransferType LeafletVisibleChildNamePropertyInfo = T.Text
type AttrGetType LeafletVisibleChildNamePropertyInfo = (Maybe T.Text)
type AttrLabel LeafletVisibleChildNamePropertyInfo = "visible-child-name"
type AttrOrigin LeafletVisibleChildNamePropertyInfo = Leaflet
attrGet = getLeafletVisibleChildName
attrSet = setLeafletVisibleChildName
attrTransfer _ v = do
return v
attrConstruct = constructLeafletVisibleChildName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.visibleChildName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#g:attr:visibleChildName"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Leaflet
type instance O.AttributeList Leaflet = LeafletAttributeList
type LeafletAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canSwipeBack", LeafletCanSwipeBackPropertyInfo), '("canSwipeForward", LeafletCanSwipeForwardPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("canUnfold", LeafletCanUnfoldPropertyInfo), '("childTransitionDuration", LeafletChildTransitionDurationPropertyInfo), '("childTransitionRunning", LeafletChildTransitionRunningPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("foldThresholdPolicy", LeafletFoldThresholdPolicyPropertyInfo), '("folded", LeafletFoldedPropertyInfo), '("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), '("homogeneous", LeafletHomogeneousPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("modeTransitionDuration", LeafletModeTransitionDurationPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("pages", LeafletPagesPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transitionType", LeafletTransitionTypePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("visibleChild", LeafletVisibleChildPropertyInfo), '("visibleChildName", LeafletVisibleChildNamePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
leafletCanSwipeBack :: AttrLabelProxy "canSwipeBack"
leafletCanSwipeBack = AttrLabelProxy
leafletCanSwipeForward :: AttrLabelProxy "canSwipeForward"
leafletCanSwipeForward = AttrLabelProxy
leafletCanUnfold :: AttrLabelProxy "canUnfold"
leafletCanUnfold = AttrLabelProxy
leafletChildTransitionDuration :: AttrLabelProxy "childTransitionDuration"
leafletChildTransitionDuration = AttrLabelProxy
leafletChildTransitionRunning :: AttrLabelProxy "childTransitionRunning"
leafletChildTransitionRunning = AttrLabelProxy
leafletFoldThresholdPolicy :: AttrLabelProxy "foldThresholdPolicy"
leafletFoldThresholdPolicy = AttrLabelProxy
leafletFolded :: AttrLabelProxy "folded"
leafletFolded = AttrLabelProxy
leafletHomogeneous :: AttrLabelProxy "homogeneous"
leafletHomogeneous = AttrLabelProxy
leafletModeTransitionDuration :: AttrLabelProxy "modeTransitionDuration"
leafletModeTransitionDuration = AttrLabelProxy
leafletPages :: AttrLabelProxy "pages"
leafletPages = AttrLabelProxy
leafletTransitionType :: AttrLabelProxy "transitionType"
leafletTransitionType = AttrLabelProxy
leafletVisibleChild :: AttrLabelProxy "visibleChild"
leafletVisibleChild = AttrLabelProxy
leafletVisibleChildName :: AttrLabelProxy "visibleChildName"
leafletVisibleChildName = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Leaflet = LeafletSignalList
type LeafletSignalList = ('[ '("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), '("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_leaflet_new" adw_leaflet_new ::
IO (Ptr Leaflet)
leafletNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Leaflet
leafletNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Leaflet
leafletNew = IO Leaflet -> m Leaflet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Leaflet -> m Leaflet) -> IO Leaflet -> m Leaflet
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
result <- IO (Ptr Leaflet)
adw_leaflet_new
Text -> Ptr Leaflet -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletNew" Ptr Leaflet
result
Leaflet
result' <- ((ManagedPtr Leaflet -> Leaflet) -> Ptr Leaflet -> IO Leaflet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Leaflet -> Leaflet
Leaflet) Ptr Leaflet
result
Leaflet -> IO Leaflet
forall (m :: * -> *) a. Monad m => a -> m a
return Leaflet
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_leaflet_append" adw_leaflet_append ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.LeafletPage.LeafletPage)
leafletAppend ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.LeafletPage.LeafletPage
leafletAppend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b) =>
a -> b -> m LeafletPage
leafletAppend a
self b
child = IO LeafletPage -> m LeafletPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletPage -> m LeafletPage)
-> IO LeafletPage -> m LeafletPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
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 LeafletPage
result <- Ptr Leaflet -> Ptr Widget -> IO (Ptr LeafletPage)
adw_leaflet_append Ptr Leaflet
self' Ptr Widget
child'
Text -> Ptr LeafletPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletAppend" Ptr LeafletPage
result
LeafletPage
result' <- ((ManagedPtr LeafletPage -> LeafletPage)
-> Ptr LeafletPage -> IO LeafletPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LeafletPage -> LeafletPage
Adw.LeafletPage.LeafletPage) Ptr LeafletPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
LeafletPage -> IO LeafletPage
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletPage
result'
#if defined(ENABLE_OVERLOADING)
data LeafletAppendMethodInfo
instance (signature ~ (b -> m Adw.LeafletPage.LeafletPage), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) => O.OverloadedMethod LeafletAppendMethodInfo a signature where
overloadedMethod = leafletAppend
instance O.OverloadedMethodInfo LeafletAppendMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletAppend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletAppend"
})
#endif
foreign import ccall "adw_leaflet_get_adjacent_child" adw_leaflet_get_adjacent_child ::
Ptr Leaflet ->
CUInt ->
IO (Ptr Gtk.Widget.Widget)
leafletGetAdjacentChild ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Adw.Enums.NavigationDirection
-> m (Maybe Gtk.Widget.Widget)
leafletGetAdjacentChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> NavigationDirection -> m (Maybe Widget)
leafletGetAdjacentChild a
self NavigationDirection
direction = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let direction' :: CUInt
direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (NavigationDirection -> Int) -> NavigationDirection -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. NavigationDirection -> Int
forall a. Enum a => a -> Int
fromEnum) NavigationDirection
direction
Ptr Widget
result <- Ptr Leaflet -> CUInt -> IO (Ptr Widget)
adw_leaflet_get_adjacent_child Ptr Leaflet
self' CUInt
direction'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
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'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data LeafletGetAdjacentChildMethodInfo
instance (signature ~ (Adw.Enums.NavigationDirection -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetAdjacentChildMethodInfo a signature where
overloadedMethod = leafletGetAdjacentChild
instance O.OverloadedMethodInfo LeafletGetAdjacentChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetAdjacentChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetAdjacentChild"
})
#endif
foreign import ccall "adw_leaflet_get_can_swipe_back" adw_leaflet_get_can_swipe_back ::
Ptr Leaflet ->
IO CInt
leafletGetCanSwipeBack ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetCanSwipeBack :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetCanSwipeBack a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
adw_leaflet_get_can_swipe_back Ptr Leaflet
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetCanSwipeBackMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetCanSwipeBackMethodInfo a signature where
overloadedMethod = leafletGetCanSwipeBack
instance O.OverloadedMethodInfo LeafletGetCanSwipeBackMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetCanSwipeBack",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetCanSwipeBack"
})
#endif
foreign import ccall "adw_leaflet_get_can_swipe_forward" adw_leaflet_get_can_swipe_forward ::
Ptr Leaflet ->
IO CInt
leafletGetCanSwipeForward ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetCanSwipeForward :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetCanSwipeForward a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
adw_leaflet_get_can_swipe_forward Ptr Leaflet
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetCanSwipeForwardMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetCanSwipeForwardMethodInfo a signature where
overloadedMethod = leafletGetCanSwipeForward
instance O.OverloadedMethodInfo LeafletGetCanSwipeForwardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetCanSwipeForward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetCanSwipeForward"
})
#endif
foreign import ccall "adw_leaflet_get_can_unfold" adw_leaflet_get_can_unfold ::
Ptr Leaflet ->
IO CInt
leafletGetCanUnfold ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetCanUnfold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetCanUnfold a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
adw_leaflet_get_can_unfold Ptr Leaflet
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetCanUnfoldMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetCanUnfoldMethodInfo a signature where
overloadedMethod = leafletGetCanUnfold
instance O.OverloadedMethodInfo LeafletGetCanUnfoldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetCanUnfold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetCanUnfold"
})
#endif
foreign import ccall "adw_leaflet_get_child_by_name" adw_leaflet_get_child_by_name ::
Ptr Leaflet ->
CString ->
IO (Ptr Gtk.Widget.Widget)
leafletGetChildByName ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> T.Text
-> m (Maybe Gtk.Widget.Widget)
leafletGetChildByName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Text -> m (Maybe Widget)
leafletGetChildByName a
self Text
name = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Widget
result <- Ptr Leaflet -> CString -> IO (Ptr Widget)
adw_leaflet_get_child_by_name Ptr Leaflet
self' CString
name'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
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'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data LeafletGetChildByNameMethodInfo
instance (signature ~ (T.Text -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetChildByNameMethodInfo a signature where
overloadedMethod = leafletGetChildByName
instance O.OverloadedMethodInfo LeafletGetChildByNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetChildByName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetChildByName"
})
#endif
foreign import ccall "adw_leaflet_get_child_transition_duration" adw_leaflet_get_child_transition_duration ::
Ptr Leaflet ->
IO Word32
leafletGetChildTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Word32
leafletGetChildTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Word32
leafletGetChildTransitionDuration a
self = IO Word32 -> m Word32
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 Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Leaflet -> IO Word32
adw_leaflet_get_child_transition_duration Ptr Leaflet
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data LeafletGetChildTransitionDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetChildTransitionDurationMethodInfo a signature where
overloadedMethod = leafletGetChildTransitionDuration
instance O.OverloadedMethodInfo LeafletGetChildTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetChildTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetChildTransitionDuration"
})
#endif
foreign import ccall "adw_leaflet_get_child_transition_running" adw_leaflet_get_child_transition_running ::
Ptr Leaflet ->
IO CInt
leafletGetChildTransitionRunning ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetChildTransitionRunning :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetChildTransitionRunning a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
adw_leaflet_get_child_transition_running Ptr Leaflet
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetChildTransitionRunningMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetChildTransitionRunningMethodInfo a signature where
overloadedMethod = leafletGetChildTransitionRunning
instance O.OverloadedMethodInfo LeafletGetChildTransitionRunningMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetChildTransitionRunning",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetChildTransitionRunning"
})
#endif
foreign import ccall "adw_leaflet_get_fold_threshold_policy" adw_leaflet_get_fold_threshold_policy ::
Ptr Leaflet ->
IO CUInt
leafletGetFoldThresholdPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Adw.Enums.FoldThresholdPolicy
leafletGetFoldThresholdPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m FoldThresholdPolicy
leafletGetFoldThresholdPolicy a
self = IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FoldThresholdPolicy -> m FoldThresholdPolicy)
-> IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Leaflet -> IO CUInt
adw_leaflet_get_fold_threshold_policy Ptr Leaflet
self'
let result' :: FoldThresholdPolicy
result' = (Int -> FoldThresholdPolicy
forall a. Enum a => Int -> a
toEnum (Int -> FoldThresholdPolicy)
-> (CUInt -> Int) -> CUInt -> FoldThresholdPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
FoldThresholdPolicy -> IO FoldThresholdPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return FoldThresholdPolicy
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetFoldThresholdPolicyMethodInfo
instance (signature ~ (m Adw.Enums.FoldThresholdPolicy), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetFoldThresholdPolicyMethodInfo a signature where
overloadedMethod = leafletGetFoldThresholdPolicy
instance O.OverloadedMethodInfo LeafletGetFoldThresholdPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetFoldThresholdPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetFoldThresholdPolicy"
})
#endif
foreign import ccall "adw_leaflet_get_folded" adw_leaflet_get_folded ::
Ptr Leaflet ->
IO CInt
leafletGetFolded ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetFolded :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetFolded a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
adw_leaflet_get_folded Ptr Leaflet
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetFoldedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetFoldedMethodInfo a signature where
overloadedMethod = leafletGetFolded
instance O.OverloadedMethodInfo LeafletGetFoldedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetFolded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetFolded"
})
#endif
foreign import ccall "adw_leaflet_get_homogeneous" adw_leaflet_get_homogeneous ::
Ptr Leaflet ->
IO CInt
leafletGetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetHomogeneous a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
adw_leaflet_get_homogeneous Ptr Leaflet
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetHomogeneousMethodInfo a signature where
overloadedMethod = leafletGetHomogeneous
instance O.OverloadedMethodInfo LeafletGetHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetHomogeneous"
})
#endif
foreign import ccall "adw_leaflet_get_mode_transition_duration" adw_leaflet_get_mode_transition_duration ::
Ptr Leaflet ->
IO Word32
leafletGetModeTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Word32
leafletGetModeTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Word32
leafletGetModeTransitionDuration a
self = IO Word32 -> m Word32
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 Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Leaflet -> IO Word32
adw_leaflet_get_mode_transition_duration Ptr Leaflet
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data LeafletGetModeTransitionDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetModeTransitionDurationMethodInfo a signature where
overloadedMethod = leafletGetModeTransitionDuration
instance O.OverloadedMethodInfo LeafletGetModeTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetModeTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetModeTransitionDuration"
})
#endif
foreign import ccall "adw_leaflet_get_page" adw_leaflet_get_page ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.LeafletPage.LeafletPage)
leafletGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.LeafletPage.LeafletPage
leafletGetPage :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b) =>
a -> b -> m LeafletPage
leafletGetPage a
self b
child = IO LeafletPage -> m LeafletPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletPage -> m LeafletPage)
-> IO LeafletPage -> m LeafletPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
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 LeafletPage
result <- Ptr Leaflet -> Ptr Widget -> IO (Ptr LeafletPage)
adw_leaflet_get_page Ptr Leaflet
self' Ptr Widget
child'
Text -> Ptr LeafletPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletGetPage" Ptr LeafletPage
result
LeafletPage
result' <- ((ManagedPtr LeafletPage -> LeafletPage)
-> Ptr LeafletPage -> IO LeafletPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LeafletPage -> LeafletPage
Adw.LeafletPage.LeafletPage) Ptr LeafletPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
LeafletPage -> IO LeafletPage
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletPage
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetPageMethodInfo
instance (signature ~ (b -> m Adw.LeafletPage.LeafletPage), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) => O.OverloadedMethod LeafletGetPageMethodInfo a signature where
overloadedMethod = leafletGetPage
instance O.OverloadedMethodInfo LeafletGetPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetPage"
})
#endif
foreign import ccall "adw_leaflet_get_pages" adw_leaflet_get_pages ::
Ptr Leaflet ->
IO (Ptr Gtk.SelectionModel.SelectionModel)
leafletGetPages ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Gtk.SelectionModel.SelectionModel
leafletGetPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m SelectionModel
leafletGetPages a
self = IO SelectionModel -> m SelectionModel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionModel -> m SelectionModel)
-> IO SelectionModel -> m SelectionModel
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
result <- Ptr Leaflet -> IO (Ptr SelectionModel)
adw_leaflet_get_pages Ptr Leaflet
self'
Text -> Ptr SelectionModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletGetPages" Ptr SelectionModel
result
SelectionModel
result' <- ((ManagedPtr SelectionModel -> SelectionModel)
-> Ptr SelectionModel -> IO SelectionModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel) Ptr SelectionModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
SelectionModel -> IO SelectionModel
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionModel
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetPagesMethodInfo
instance (signature ~ (m Gtk.SelectionModel.SelectionModel), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetPagesMethodInfo a signature where
overloadedMethod = leafletGetPages
instance O.OverloadedMethodInfo LeafletGetPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetPages"
})
#endif
foreign import ccall "adw_leaflet_get_transition_type" adw_leaflet_get_transition_type ::
Ptr Leaflet ->
IO CUInt
leafletGetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Adw.Enums.LeafletTransitionType
leafletGetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m LeafletTransitionType
leafletGetTransitionType a
self = IO LeafletTransitionType -> m LeafletTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletTransitionType -> m LeafletTransitionType)
-> IO LeafletTransitionType -> m LeafletTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Leaflet -> IO CUInt
adw_leaflet_get_transition_type Ptr Leaflet
self'
let result' :: LeafletTransitionType
result' = (Int -> LeafletTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> LeafletTransitionType)
-> (CUInt -> Int) -> CUInt -> LeafletTransitionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
LeafletTransitionType -> IO LeafletTransitionType
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetTransitionTypeMethodInfo
instance (signature ~ (m Adw.Enums.LeafletTransitionType), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetTransitionTypeMethodInfo a signature where
overloadedMethod = leafletGetTransitionType
instance O.OverloadedMethodInfo LeafletGetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetTransitionType"
})
#endif
foreign import ccall "adw_leaflet_get_visible_child" adw_leaflet_get_visible_child ::
Ptr Leaflet ->
IO (Ptr Gtk.Widget.Widget)
leafletGetVisibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m (Maybe Gtk.Widget.Widget)
leafletGetVisibleChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m (Maybe Widget)
leafletGetVisibleChild a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Leaflet -> IO (Ptr Widget)
adw_leaflet_get_visible_child Ptr Leaflet
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
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'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data LeafletGetVisibleChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetVisibleChildMethodInfo a signature where
overloadedMethod = leafletGetVisibleChild
instance O.OverloadedMethodInfo LeafletGetVisibleChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetVisibleChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetVisibleChild"
})
#endif
foreign import ccall "adw_leaflet_get_visible_child_name" adw_leaflet_get_visible_child_name ::
Ptr Leaflet ->
IO CString
leafletGetVisibleChildName ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m (Maybe T.Text)
leafletGetVisibleChildName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m (Maybe Text)
leafletGetVisibleChildName a
self = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Leaflet -> IO CString
adw_leaflet_get_visible_child_name Ptr Leaflet
self'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data LeafletGetVisibleChildNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetVisibleChildNameMethodInfo a signature where
overloadedMethod = leafletGetVisibleChildName
instance O.OverloadedMethodInfo LeafletGetVisibleChildNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletGetVisibleChildName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletGetVisibleChildName"
})
#endif
foreign import ccall "adw_leaflet_insert_child_after" adw_leaflet_insert_child_after ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.LeafletPage.LeafletPage)
leafletInsertChildAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> m Adw.LeafletPage.LeafletPage
leafletInsertChildAfter :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> m LeafletPage
leafletInsertChildAfter a
self b
child Maybe c
sibling = IO LeafletPage -> m LeafletPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletPage -> m LeafletPage)
-> IO LeafletPage -> m LeafletPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
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 Widget
maybeSibling <- case Maybe c
sibling of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jSibling -> do
Ptr Widget
jSibling' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jSibling
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jSibling'
Ptr LeafletPage
result <- Ptr Leaflet -> Ptr Widget -> Ptr Widget -> IO (Ptr LeafletPage)
adw_leaflet_insert_child_after Ptr Leaflet
self' Ptr Widget
child' Ptr Widget
maybeSibling
Text -> Ptr LeafletPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletInsertChildAfter" Ptr LeafletPage
result
LeafletPage
result' <- ((ManagedPtr LeafletPage -> LeafletPage)
-> Ptr LeafletPage -> IO LeafletPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LeafletPage -> LeafletPage
Adw.LeafletPage.LeafletPage) Ptr LeafletPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
sibling c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
LeafletPage -> IO LeafletPage
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletPage
result'
#if defined(ENABLE_OVERLOADING)
data LeafletInsertChildAfterMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Adw.LeafletPage.LeafletPage), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.OverloadedMethod LeafletInsertChildAfterMethodInfo a signature where
overloadedMethod = leafletInsertChildAfter
instance O.OverloadedMethodInfo LeafletInsertChildAfterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletInsertChildAfter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletInsertChildAfter"
})
#endif
foreign import ccall "adw_leaflet_navigate" adw_leaflet_navigate ::
Ptr Leaflet ->
CUInt ->
IO CInt
leafletNavigate ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Adw.Enums.NavigationDirection
-> m Bool
leafletNavigate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> NavigationDirection -> m Bool
leafletNavigate a
self NavigationDirection
direction = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let direction' :: CUInt
direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (NavigationDirection -> Int) -> NavigationDirection -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. NavigationDirection -> Int
forall a. Enum a => a -> Int
fromEnum) NavigationDirection
direction
CInt
result <- Ptr Leaflet -> CUInt -> IO CInt
adw_leaflet_navigate Ptr Leaflet
self' CUInt
direction'
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletNavigateMethodInfo
instance (signature ~ (Adw.Enums.NavigationDirection -> m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletNavigateMethodInfo a signature where
overloadedMethod = leafletNavigate
instance O.OverloadedMethodInfo LeafletNavigateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletNavigate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletNavigate"
})
#endif
foreign import ccall "adw_leaflet_prepend" adw_leaflet_prepend ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Adw.LeafletPage.LeafletPage)
leafletPrepend ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Adw.LeafletPage.LeafletPage
leafletPrepend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b) =>
a -> b -> m LeafletPage
leafletPrepend a
self b
child = IO LeafletPage -> m LeafletPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletPage -> m LeafletPage)
-> IO LeafletPage -> m LeafletPage
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
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 LeafletPage
result <- Ptr Leaflet -> Ptr Widget -> IO (Ptr LeafletPage)
adw_leaflet_prepend Ptr Leaflet
self' Ptr Widget
child'
Text -> Ptr LeafletPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletPrepend" Ptr LeafletPage
result
LeafletPage
result' <- ((ManagedPtr LeafletPage -> LeafletPage)
-> Ptr LeafletPage -> IO LeafletPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr LeafletPage -> LeafletPage
Adw.LeafletPage.LeafletPage) Ptr LeafletPage
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
LeafletPage -> IO LeafletPage
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletPage
result'
#if defined(ENABLE_OVERLOADING)
data LeafletPrependMethodInfo
instance (signature ~ (b -> m Adw.LeafletPage.LeafletPage), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) => O.OverloadedMethod LeafletPrependMethodInfo a signature where
overloadedMethod = leafletPrepend
instance O.OverloadedMethodInfo LeafletPrependMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletPrepend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletPrepend"
})
#endif
foreign import ccall "adw_leaflet_remove" adw_leaflet_remove ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
IO ()
leafletRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
leafletRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b) =>
a -> b -> m ()
leafletRemove a
self b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
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 Leaflet -> Ptr Widget -> IO ()
adw_leaflet_remove Ptr Leaflet
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) => O.OverloadedMethod LeafletRemoveMethodInfo a signature where
overloadedMethod = leafletRemove
instance O.OverloadedMethodInfo LeafletRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletRemove"
})
#endif
foreign import ccall "adw_leaflet_reorder_child_after" adw_leaflet_reorder_child_after ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
IO ()
leafletReorderChildAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> m ()
leafletReorderChildAfter :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> m ()
leafletReorderChildAfter a
self b
child Maybe c
sibling = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
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 Widget
maybeSibling <- case Maybe c
sibling of
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just c
jSibling -> do
Ptr Widget
jSibling' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jSibling
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jSibling'
Ptr Leaflet -> Ptr Widget -> Ptr Widget -> IO ()
adw_leaflet_reorder_child_after Ptr Leaflet
self' Ptr Widget
child' Ptr Widget
maybeSibling
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
sibling c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletReorderChildAfterMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.OverloadedMethod LeafletReorderChildAfterMethodInfo a signature where
overloadedMethod = leafletReorderChildAfter
instance O.OverloadedMethodInfo LeafletReorderChildAfterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletReorderChildAfter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletReorderChildAfter"
})
#endif
foreign import ccall "adw_leaflet_set_can_swipe_back" adw_leaflet_set_can_swipe_back ::
Ptr Leaflet ->
CInt ->
IO ()
leafletSetCanSwipeBack ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Bool
-> m ()
leafletSetCanSwipeBack :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Bool -> m ()
leafletSetCanSwipeBack a
self Bool
canSwipeBack = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let canSwipeBack' :: CInt
canSwipeBack' = (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
canSwipeBack
Ptr Leaflet -> CInt -> IO ()
adw_leaflet_set_can_swipe_back Ptr Leaflet
self' CInt
canSwipeBack'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetCanSwipeBackMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetCanSwipeBackMethodInfo a signature where
overloadedMethod = leafletSetCanSwipeBack
instance O.OverloadedMethodInfo LeafletSetCanSwipeBackMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetCanSwipeBack",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetCanSwipeBack"
})
#endif
foreign import ccall "adw_leaflet_set_can_swipe_forward" adw_leaflet_set_can_swipe_forward ::
Ptr Leaflet ->
CInt ->
IO ()
leafletSetCanSwipeForward ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Bool
-> m ()
leafletSetCanSwipeForward :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Bool -> m ()
leafletSetCanSwipeForward a
self Bool
canSwipeForward = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let canSwipeForward' :: CInt
canSwipeForward' = (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
canSwipeForward
Ptr Leaflet -> CInt -> IO ()
adw_leaflet_set_can_swipe_forward Ptr Leaflet
self' CInt
canSwipeForward'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetCanSwipeForwardMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetCanSwipeForwardMethodInfo a signature where
overloadedMethod = leafletSetCanSwipeForward
instance O.OverloadedMethodInfo LeafletSetCanSwipeForwardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetCanSwipeForward",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetCanSwipeForward"
})
#endif
foreign import ccall "adw_leaflet_set_can_unfold" adw_leaflet_set_can_unfold ::
Ptr Leaflet ->
CInt ->
IO ()
leafletSetCanUnfold ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Bool
-> m ()
leafletSetCanUnfold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Bool -> m ()
leafletSetCanUnfold a
self Bool
canUnfold = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let canUnfold' :: CInt
canUnfold' = (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
canUnfold
Ptr Leaflet -> CInt -> IO ()
adw_leaflet_set_can_unfold Ptr Leaflet
self' CInt
canUnfold'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetCanUnfoldMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetCanUnfoldMethodInfo a signature where
overloadedMethod = leafletSetCanUnfold
instance O.OverloadedMethodInfo LeafletSetCanUnfoldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetCanUnfold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetCanUnfold"
})
#endif
foreign import ccall "adw_leaflet_set_child_transition_duration" adw_leaflet_set_child_transition_duration ::
Ptr Leaflet ->
Word32 ->
IO ()
leafletSetChildTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Word32
-> m ()
leafletSetChildTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Word32 -> m ()
leafletSetChildTransitionDuration a
self Word32
duration = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Leaflet -> Word32 -> IO ()
adw_leaflet_set_child_transition_duration Ptr Leaflet
self' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetChildTransitionDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetChildTransitionDurationMethodInfo a signature where
overloadedMethod = leafletSetChildTransitionDuration
instance O.OverloadedMethodInfo LeafletSetChildTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetChildTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetChildTransitionDuration"
})
#endif
foreign import ccall "adw_leaflet_set_fold_threshold_policy" adw_leaflet_set_fold_threshold_policy ::
Ptr Leaflet ->
CUInt ->
IO ()
leafletSetFoldThresholdPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Adw.Enums.FoldThresholdPolicy
-> m ()
leafletSetFoldThresholdPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> FoldThresholdPolicy -> m ()
leafletSetFoldThresholdPolicy a
self FoldThresholdPolicy
policy = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let policy' :: CUInt
policy' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (FoldThresholdPolicy -> Int) -> FoldThresholdPolicy -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FoldThresholdPolicy -> Int
forall a. Enum a => a -> Int
fromEnum) FoldThresholdPolicy
policy
Ptr Leaflet -> CUInt -> IO ()
adw_leaflet_set_fold_threshold_policy Ptr Leaflet
self' CUInt
policy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetFoldThresholdPolicyMethodInfo
instance (signature ~ (Adw.Enums.FoldThresholdPolicy -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetFoldThresholdPolicyMethodInfo a signature where
overloadedMethod = leafletSetFoldThresholdPolicy
instance O.OverloadedMethodInfo LeafletSetFoldThresholdPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetFoldThresholdPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetFoldThresholdPolicy"
})
#endif
foreign import ccall "adw_leaflet_set_homogeneous" adw_leaflet_set_homogeneous ::
Ptr Leaflet ->
CInt ->
IO ()
leafletSetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Bool
-> m ()
leafletSetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Bool -> m ()
leafletSetHomogeneous a
self Bool
homogeneous = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let homogeneous' :: CInt
homogeneous' = (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
homogeneous
Ptr Leaflet -> CInt -> IO ()
adw_leaflet_set_homogeneous Ptr Leaflet
self' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetHomogeneousMethodInfo a signature where
overloadedMethod = leafletSetHomogeneous
instance O.OverloadedMethodInfo LeafletSetHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetHomogeneous"
})
#endif
foreign import ccall "adw_leaflet_set_mode_transition_duration" adw_leaflet_set_mode_transition_duration ::
Ptr Leaflet ->
Word32 ->
IO ()
leafletSetModeTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Word32
-> m ()
leafletSetModeTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Word32 -> m ()
leafletSetModeTransitionDuration a
self Word32
duration = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Leaflet -> Word32 -> IO ()
adw_leaflet_set_mode_transition_duration Ptr Leaflet
self' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetModeTransitionDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetModeTransitionDurationMethodInfo a signature where
overloadedMethod = leafletSetModeTransitionDuration
instance O.OverloadedMethodInfo LeafletSetModeTransitionDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetModeTransitionDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetModeTransitionDuration"
})
#endif
foreign import ccall "adw_leaflet_set_transition_type" adw_leaflet_set_transition_type ::
Ptr Leaflet ->
CUInt ->
IO ()
leafletSetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Adw.Enums.LeafletTransitionType
-> m ()
leafletSetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> LeafletTransitionType -> m ()
leafletSetTransitionType a
self LeafletTransitionType
transition = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (LeafletTransitionType -> Int) -> LeafletTransitionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LeafletTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) LeafletTransitionType
transition
Ptr Leaflet -> CUInt -> IO ()
adw_leaflet_set_transition_type Ptr Leaflet
self' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetTransitionTypeMethodInfo
instance (signature ~ (Adw.Enums.LeafletTransitionType -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetTransitionTypeMethodInfo a signature where
overloadedMethod = leafletSetTransitionType
instance O.OverloadedMethodInfo LeafletSetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetTransitionType"
})
#endif
foreign import ccall "adw_leaflet_set_visible_child" adw_leaflet_set_visible_child ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
IO ()
leafletSetVisibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
leafletSetVisibleChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b) =>
a -> b -> m ()
leafletSetVisibleChild a
self b
visibleChild = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
visibleChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
visibleChild
Ptr Leaflet -> Ptr Widget -> IO ()
adw_leaflet_set_visible_child Ptr Leaflet
self' Ptr Widget
visibleChild'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
visibleChild
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetVisibleChildMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) => O.OverloadedMethod LeafletSetVisibleChildMethodInfo a signature where
overloadedMethod = leafletSetVisibleChild
instance O.OverloadedMethodInfo LeafletSetVisibleChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetVisibleChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetVisibleChild"
})
#endif
foreign import ccall "adw_leaflet_set_visible_child_name" adw_leaflet_set_visible_child_name ::
Ptr Leaflet ->
CString ->
IO ()
leafletSetVisibleChildName ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> T.Text
-> m ()
leafletSetVisibleChildName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Text -> m ()
leafletSetVisibleChildName a
self Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Leaflet -> CString -> IO ()
adw_leaflet_set_visible_child_name Ptr Leaflet
self' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetVisibleChildNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetVisibleChildNameMethodInfo a signature where
overloadedMethod = leafletSetVisibleChildName
instance O.OverloadedMethodInfo LeafletSetVisibleChildNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Leaflet.leafletSetVisibleChildName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.1/docs/GI-Adw-Objects-Leaflet.html#v:leafletSetVisibleChildName"
})
#endif