{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.Flap
(
Flap(..) ,
IsFlap ,
toFlap ,
#if defined(ENABLE_OVERLOADING)
ResolveFlapMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FlapGetContentMethodInfo ,
#endif
flapGetContent ,
#if defined(ENABLE_OVERLOADING)
FlapGetFlapMethodInfo ,
#endif
flapGetFlap ,
#if defined(ENABLE_OVERLOADING)
FlapGetFlapPositionMethodInfo ,
#endif
flapGetFlapPosition ,
#if defined(ENABLE_OVERLOADING)
FlapGetFoldDurationMethodInfo ,
#endif
flapGetFoldDuration ,
#if defined(ENABLE_OVERLOADING)
FlapGetFoldPolicyMethodInfo ,
#endif
flapGetFoldPolicy ,
#if defined(ENABLE_OVERLOADING)
FlapGetFoldThresholdPolicyMethodInfo ,
#endif
flapGetFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
FlapGetFoldedMethodInfo ,
#endif
flapGetFolded ,
#if defined(ENABLE_OVERLOADING)
FlapGetLockedMethodInfo ,
#endif
flapGetLocked ,
#if defined(ENABLE_OVERLOADING)
FlapGetModalMethodInfo ,
#endif
flapGetModal ,
#if defined(ENABLE_OVERLOADING)
FlapGetRevealFlapMethodInfo ,
#endif
flapGetRevealFlap ,
#if defined(ENABLE_OVERLOADING)
FlapGetRevealParamsMethodInfo ,
#endif
flapGetRevealParams ,
#if defined(ENABLE_OVERLOADING)
FlapGetRevealProgressMethodInfo ,
#endif
flapGetRevealProgress ,
#if defined(ENABLE_OVERLOADING)
FlapGetSeparatorMethodInfo ,
#endif
flapGetSeparator ,
#if defined(ENABLE_OVERLOADING)
FlapGetSwipeToCloseMethodInfo ,
#endif
flapGetSwipeToClose ,
#if defined(ENABLE_OVERLOADING)
FlapGetSwipeToOpenMethodInfo ,
#endif
flapGetSwipeToOpen ,
#if defined(ENABLE_OVERLOADING)
FlapGetTransitionTypeMethodInfo ,
#endif
flapGetTransitionType ,
flapNew ,
#if defined(ENABLE_OVERLOADING)
FlapSetContentMethodInfo ,
#endif
flapSetContent ,
#if defined(ENABLE_OVERLOADING)
FlapSetFlapMethodInfo ,
#endif
flapSetFlap ,
#if defined(ENABLE_OVERLOADING)
FlapSetFlapPositionMethodInfo ,
#endif
flapSetFlapPosition ,
#if defined(ENABLE_OVERLOADING)
FlapSetFoldDurationMethodInfo ,
#endif
flapSetFoldDuration ,
#if defined(ENABLE_OVERLOADING)
FlapSetFoldPolicyMethodInfo ,
#endif
flapSetFoldPolicy ,
#if defined(ENABLE_OVERLOADING)
FlapSetFoldThresholdPolicyMethodInfo ,
#endif
flapSetFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
FlapSetLockedMethodInfo ,
#endif
flapSetLocked ,
#if defined(ENABLE_OVERLOADING)
FlapSetModalMethodInfo ,
#endif
flapSetModal ,
#if defined(ENABLE_OVERLOADING)
FlapSetRevealFlapMethodInfo ,
#endif
flapSetRevealFlap ,
#if defined(ENABLE_OVERLOADING)
FlapSetRevealParamsMethodInfo ,
#endif
flapSetRevealParams ,
#if defined(ENABLE_OVERLOADING)
FlapSetSeparatorMethodInfo ,
#endif
flapSetSeparator ,
#if defined(ENABLE_OVERLOADING)
FlapSetSwipeToCloseMethodInfo ,
#endif
flapSetSwipeToClose ,
#if defined(ENABLE_OVERLOADING)
FlapSetSwipeToOpenMethodInfo ,
#endif
flapSetSwipeToOpen ,
#if defined(ENABLE_OVERLOADING)
FlapSetTransitionTypeMethodInfo ,
#endif
flapSetTransitionType ,
#if defined(ENABLE_OVERLOADING)
FlapContentPropertyInfo ,
#endif
clearFlapContent ,
constructFlapContent ,
#if defined(ENABLE_OVERLOADING)
flapContent ,
#endif
getFlapContent ,
setFlapContent ,
#if defined(ENABLE_OVERLOADING)
FlapFlapPropertyInfo ,
#endif
clearFlapFlap ,
constructFlapFlap ,
#if defined(ENABLE_OVERLOADING)
flapFlap ,
#endif
getFlapFlap ,
setFlapFlap ,
#if defined(ENABLE_OVERLOADING)
FlapFlapPositionPropertyInfo ,
#endif
constructFlapFlapPosition ,
#if defined(ENABLE_OVERLOADING)
flapFlapPosition ,
#endif
getFlapFlapPosition ,
setFlapFlapPosition ,
#if defined(ENABLE_OVERLOADING)
FlapFoldDurationPropertyInfo ,
#endif
constructFlapFoldDuration ,
#if defined(ENABLE_OVERLOADING)
flapFoldDuration ,
#endif
getFlapFoldDuration ,
setFlapFoldDuration ,
#if defined(ENABLE_OVERLOADING)
FlapFoldPolicyPropertyInfo ,
#endif
constructFlapFoldPolicy ,
#if defined(ENABLE_OVERLOADING)
flapFoldPolicy ,
#endif
getFlapFoldPolicy ,
setFlapFoldPolicy ,
#if defined(ENABLE_OVERLOADING)
FlapFoldThresholdPolicyPropertyInfo ,
#endif
constructFlapFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
flapFoldThresholdPolicy ,
#endif
getFlapFoldThresholdPolicy ,
setFlapFoldThresholdPolicy ,
#if defined(ENABLE_OVERLOADING)
FlapFoldedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
flapFolded ,
#endif
getFlapFolded ,
#if defined(ENABLE_OVERLOADING)
FlapLockedPropertyInfo ,
#endif
constructFlapLocked ,
#if defined(ENABLE_OVERLOADING)
flapLocked ,
#endif
getFlapLocked ,
setFlapLocked ,
#if defined(ENABLE_OVERLOADING)
FlapModalPropertyInfo ,
#endif
constructFlapModal ,
#if defined(ENABLE_OVERLOADING)
flapModal ,
#endif
getFlapModal ,
setFlapModal ,
#if defined(ENABLE_OVERLOADING)
FlapRevealFlapPropertyInfo ,
#endif
constructFlapRevealFlap ,
#if defined(ENABLE_OVERLOADING)
flapRevealFlap ,
#endif
getFlapRevealFlap ,
setFlapRevealFlap ,
#if defined(ENABLE_OVERLOADING)
FlapRevealParamsPropertyInfo ,
#endif
constructFlapRevealParams ,
#if defined(ENABLE_OVERLOADING)
flapRevealParams ,
#endif
getFlapRevealParams ,
setFlapRevealParams ,
#if defined(ENABLE_OVERLOADING)
FlapRevealProgressPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
flapRevealProgress ,
#endif
getFlapRevealProgress ,
#if defined(ENABLE_OVERLOADING)
FlapSeparatorPropertyInfo ,
#endif
clearFlapSeparator ,
constructFlapSeparator ,
#if defined(ENABLE_OVERLOADING)
flapSeparator ,
#endif
getFlapSeparator ,
setFlapSeparator ,
#if defined(ENABLE_OVERLOADING)
FlapSwipeToClosePropertyInfo ,
#endif
constructFlapSwipeToClose ,
#if defined(ENABLE_OVERLOADING)
flapSwipeToClose ,
#endif
getFlapSwipeToClose ,
setFlapSwipeToClose ,
#if defined(ENABLE_OVERLOADING)
FlapSwipeToOpenPropertyInfo ,
#endif
constructFlapSwipeToOpen ,
#if defined(ENABLE_OVERLOADING)
flapSwipeToOpen ,
#endif
getFlapSwipeToOpen ,
setFlapSwipeToOpen ,
#if defined(ENABLE_OVERLOADING)
FlapTransitionTypePropertyInfo ,
#endif
constructFlapTransitionType ,
#if defined(ENABLE_OVERLOADING)
flapTransitionType ,
#endif
getFlapTransitionType ,
setFlapTransitionType ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Adw.Enums as Adw.Enums
import {-# SOURCE #-} qualified GI.Adw.Interfaces.Swipeable as Adw.Swipeable
import {-# SOURCE #-} qualified GI.Adw.Structs.SpringParams as Adw.SpringParams
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Flap = Flap (SP.ManagedPtr Flap)
deriving (Flap -> Flap -> Bool
(Flap -> Flap -> Bool) -> (Flap -> Flap -> Bool) -> Eq Flap
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Flap -> Flap -> Bool
== :: Flap -> Flap -> Bool
$c/= :: Flap -> Flap -> Bool
/= :: Flap -> Flap -> Bool
Eq)
instance SP.ManagedPtrNewtype Flap where
toManagedPtr :: Flap -> ManagedPtr Flap
toManagedPtr (Flap ManagedPtr Flap
p) = ManagedPtr Flap
p
foreign import ccall "adw_flap_get_type"
c_adw_flap_get_type :: IO B.Types.GType
instance B.Types.TypedObject Flap where
glibType :: IO GType
glibType = IO GType
c_adw_flap_get_type
instance B.Types.GObject Flap
class (SP.GObject o, O.IsDescendantOf Flap o) => IsFlap o
instance (SP.GObject o, O.IsDescendantOf Flap o) => IsFlap o
instance O.HasParentTypes Flap
type instance O.ParentTypes Flap = '[Gtk.Widget.Widget, GObject.Object.Object, Adw.Swipeable.Swipeable, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toFlap :: (MIO.MonadIO m, IsFlap o) => o -> m Flap
toFlap :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Flap
toFlap = IO Flap -> m Flap
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Flap -> m Flap) -> (o -> IO Flap) -> o -> m Flap
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Flap -> Flap) -> o -> IO Flap
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Flap -> Flap
Flap
instance B.GValue.IsGValue (Maybe Flap) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_flap_get_type
gvalueSet_ :: Ptr GValue -> Maybe Flap -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Flap
P.Nothing = Ptr GValue -> Ptr Flap -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Flap
forall a. Ptr a
FP.nullPtr :: FP.Ptr Flap)
gvalueSet_ Ptr GValue
gv (P.Just Flap
obj) = Flap -> (Ptr Flap -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Flap
obj (Ptr GValue -> Ptr Flap -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Flap)
gvalueGet_ Ptr GValue
gv = do
Ptr Flap
ptr <- Ptr GValue -> IO (Ptr Flap)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Flap)
if Ptr Flap
ptr Ptr Flap -> Ptr Flap -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Flap
forall a. Ptr a
FP.nullPtr
then Flap -> Maybe Flap
forall a. a -> Maybe a
P.Just (Flap -> Maybe Flap) -> IO Flap -> IO (Maybe Flap)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Flap -> Flap) -> Ptr Flap -> IO Flap
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Flap -> Flap
Flap Ptr Flap
ptr
else Maybe Flap -> IO (Maybe Flap)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Flap
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFlapMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveFlapMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveFlapMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveFlapMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveFlapMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveFlapMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveFlapMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveFlapMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveFlapMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveFlapMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveFlapMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFlapMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFlapMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveFlapMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveFlapMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveFlapMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveFlapMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveFlapMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveFlapMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveFlapMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveFlapMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveFlapMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveFlapMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveFlapMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFlapMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFlapMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFlapMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveFlapMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveFlapMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveFlapMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveFlapMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveFlapMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveFlapMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveFlapMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveFlapMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveFlapMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveFlapMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveFlapMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveFlapMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveFlapMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFlapMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveFlapMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveFlapMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveFlapMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveFlapMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveFlapMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveFlapMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveFlapMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveFlapMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFlapMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFlapMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveFlapMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveFlapMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveFlapMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveFlapMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveFlapMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveFlapMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveFlapMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFlapMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFlapMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveFlapMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveFlapMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveFlapMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveFlapMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveFlapMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveFlapMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveFlapMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFlapMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveFlapMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveFlapMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveFlapMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveFlapMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFlapMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFlapMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFlapMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveFlapMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveFlapMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveFlapMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveFlapMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveFlapMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFlapMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveFlapMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveFlapMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveFlapMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveFlapMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveFlapMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFlapMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveFlapMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveFlapMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveFlapMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveFlapMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveFlapMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveFlapMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveFlapMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveFlapMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveFlapMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveFlapMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveFlapMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveFlapMethod "getCancelProgress" o = Adw.Swipeable.SwipeableGetCancelProgressMethodInfo
ResolveFlapMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveFlapMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveFlapMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveFlapMethod "getContent" o = FlapGetContentMethodInfo
ResolveFlapMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveFlapMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveFlapMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveFlapMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFlapMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveFlapMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveFlapMethod "getDistance" o = Adw.Swipeable.SwipeableGetDistanceMethodInfo
ResolveFlapMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveFlapMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveFlapMethod "getFlap" o = FlapGetFlapMethodInfo
ResolveFlapMethod "getFlapPosition" o = FlapGetFlapPositionMethodInfo
ResolveFlapMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveFlapMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveFlapMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveFlapMethod "getFoldDuration" o = FlapGetFoldDurationMethodInfo
ResolveFlapMethod "getFoldPolicy" o = FlapGetFoldPolicyMethodInfo
ResolveFlapMethod "getFoldThresholdPolicy" o = FlapGetFoldThresholdPolicyMethodInfo
ResolveFlapMethod "getFolded" o = FlapGetFoldedMethodInfo
ResolveFlapMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveFlapMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveFlapMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveFlapMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveFlapMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveFlapMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveFlapMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveFlapMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveFlapMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveFlapMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveFlapMethod "getLocked" o = FlapGetLockedMethodInfo
ResolveFlapMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveFlapMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveFlapMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveFlapMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveFlapMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveFlapMethod "getModal" o = FlapGetModalMethodInfo
ResolveFlapMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveFlapMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveFlapMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveFlapMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveFlapMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveFlapMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveFlapMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveFlapMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveFlapMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveFlapMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveFlapMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveFlapMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveFlapMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveFlapMethod "getProgress" o = Adw.Swipeable.SwipeableGetProgressMethodInfo
ResolveFlapMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFlapMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFlapMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveFlapMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveFlapMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveFlapMethod "getRevealFlap" o = FlapGetRevealFlapMethodInfo
ResolveFlapMethod "getRevealParams" o = FlapGetRevealParamsMethodInfo
ResolveFlapMethod "getRevealProgress" o = FlapGetRevealProgressMethodInfo
ResolveFlapMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveFlapMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveFlapMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveFlapMethod "getSeparator" o = FlapGetSeparatorMethodInfo
ResolveFlapMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveFlapMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveFlapMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveFlapMethod "getSnapPoints" o = Adw.Swipeable.SwipeableGetSnapPointsMethodInfo
ResolveFlapMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveFlapMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveFlapMethod "getSwipeArea" o = Adw.Swipeable.SwipeableGetSwipeAreaMethodInfo
ResolveFlapMethod "getSwipeToClose" o = FlapGetSwipeToCloseMethodInfo
ResolveFlapMethod "getSwipeToOpen" o = FlapGetSwipeToOpenMethodInfo
ResolveFlapMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveFlapMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveFlapMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveFlapMethod "getTransitionType" o = FlapGetTransitionTypeMethodInfo
ResolveFlapMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveFlapMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveFlapMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveFlapMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveFlapMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveFlapMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveFlapMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveFlapMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveFlapMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveFlapMethod "setContent" o = FlapSetContentMethodInfo
ResolveFlapMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveFlapMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveFlapMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveFlapMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFlapMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFlapMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveFlapMethod "setFlap" o = FlapSetFlapMethodInfo
ResolveFlapMethod "setFlapPosition" o = FlapSetFlapPositionMethodInfo
ResolveFlapMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveFlapMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveFlapMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveFlapMethod "setFoldDuration" o = FlapSetFoldDurationMethodInfo
ResolveFlapMethod "setFoldPolicy" o = FlapSetFoldPolicyMethodInfo
ResolveFlapMethod "setFoldThresholdPolicy" o = FlapSetFoldThresholdPolicyMethodInfo
ResolveFlapMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveFlapMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveFlapMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveFlapMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveFlapMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveFlapMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveFlapMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveFlapMethod "setLocked" o = FlapSetLockedMethodInfo
ResolveFlapMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveFlapMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveFlapMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveFlapMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveFlapMethod "setModal" o = FlapSetModalMethodInfo
ResolveFlapMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveFlapMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveFlapMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveFlapMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveFlapMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveFlapMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFlapMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveFlapMethod "setRevealFlap" o = FlapSetRevealFlapMethodInfo
ResolveFlapMethod "setRevealParams" o = FlapSetRevealParamsMethodInfo
ResolveFlapMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveFlapMethod "setSeparator" o = FlapSetSeparatorMethodInfo
ResolveFlapMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveFlapMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveFlapMethod "setSwipeToClose" o = FlapSetSwipeToCloseMethodInfo
ResolveFlapMethod "setSwipeToOpen" o = FlapSetSwipeToOpenMethodInfo
ResolveFlapMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveFlapMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveFlapMethod "setTransitionType" o = FlapSetTransitionTypeMethodInfo
ResolveFlapMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveFlapMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveFlapMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveFlapMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveFlapMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFlapMethod t Flap, O.OverloadedMethod info Flap p) => OL.IsLabel t (Flap -> 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 ~ ResolveFlapMethod t Flap, O.OverloadedMethod info Flap p, R.HasField t Flap p) => R.HasField t Flap p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFlapMethod t Flap, O.OverloadedMethodInfo info Flap) => OL.IsLabel t (O.MethodProxy info Flap) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getFlapContent :: (MonadIO m, IsFlap o) => o -> m (Maybe Gtk.Widget.Widget)
getFlapContent :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> m (Maybe Widget)
getFlapContent o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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
"content" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setFlapContent :: (MonadIO m, IsFlap o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setFlapContent :: forall (m :: * -> *) o a.
(MonadIO m, IsFlap o, IsWidget a) =>
o -> a -> m ()
setFlapContent o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"content" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructFlapContent :: (IsFlap o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructFlapContent :: forall o (m :: * -> *) a.
(IsFlap o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructFlapContent a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"content" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearFlapContent :: (MonadIO m, IsFlap o) => o -> m ()
clearFlapContent :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m ()
clearFlapContent o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"content" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data FlapContentPropertyInfo
instance AttrInfo FlapContentPropertyInfo where
type AttrAllowedOps FlapContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint FlapContentPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapContentPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint FlapContentPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType FlapContentPropertyInfo = Gtk.Widget.Widget
type AttrGetType FlapContentPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel FlapContentPropertyInfo = "content"
type AttrOrigin FlapContentPropertyInfo = Flap
attrGet = getFlapContent
attrSet = setFlapContent
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructFlapContent
attrClear = clearFlapContent
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.content"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:content"
})
#endif
getFlapFlap :: (MonadIO m, IsFlap o) => o -> m (Maybe Gtk.Widget.Widget)
getFlapFlap :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> m (Maybe Widget)
getFlapFlap o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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
"flap" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setFlapFlap :: (MonadIO m, IsFlap o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setFlapFlap :: forall (m :: * -> *) o a.
(MonadIO m, IsFlap o, IsWidget a) =>
o -> a -> m ()
setFlapFlap o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"flap" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructFlapFlap :: (IsFlap o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructFlapFlap :: forall o (m :: * -> *) a.
(IsFlap o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructFlapFlap a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"flap" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearFlapFlap :: (MonadIO m, IsFlap o) => o -> m ()
clearFlapFlap :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m ()
clearFlapFlap o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"flap" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data FlapFlapPropertyInfo
instance AttrInfo FlapFlapPropertyInfo where
type AttrAllowedOps FlapFlapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint FlapFlapPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapFlapPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint FlapFlapPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType FlapFlapPropertyInfo = Gtk.Widget.Widget
type AttrGetType FlapFlapPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel FlapFlapPropertyInfo = "flap"
type AttrOrigin FlapFlapPropertyInfo = Flap
attrGet = getFlapFlap
attrSet = setFlapFlap
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructFlapFlap
attrClear = clearFlapFlap
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flap"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:flap"
})
#endif
getFlapFlapPosition :: (MonadIO m, IsFlap o) => o -> m Gtk.Enums.PackType
getFlapFlapPosition :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m PackType
getFlapFlapPosition o
obj = IO PackType -> m PackType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PackType -> m PackType) -> IO PackType -> m PackType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PackType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"flap-position"
setFlapFlapPosition :: (MonadIO m, IsFlap o) => o -> Gtk.Enums.PackType -> m ()
setFlapFlapPosition :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> PackType -> m ()
setFlapFlapPosition o
obj PackType
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> PackType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"flap-position" PackType
val
constructFlapFlapPosition :: (IsFlap o, MIO.MonadIO m) => Gtk.Enums.PackType -> m (GValueConstruct o)
constructFlapFlapPosition :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
PackType -> m (GValueConstruct o)
constructFlapFlapPosition PackType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> PackType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"flap-position" PackType
val
#if defined(ENABLE_OVERLOADING)
data FlapFlapPositionPropertyInfo
instance AttrInfo FlapFlapPositionPropertyInfo where
type AttrAllowedOps FlapFlapPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapFlapPositionPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapFlapPositionPropertyInfo = (~) Gtk.Enums.PackType
type AttrTransferTypeConstraint FlapFlapPositionPropertyInfo = (~) Gtk.Enums.PackType
type AttrTransferType FlapFlapPositionPropertyInfo = Gtk.Enums.PackType
type AttrGetType FlapFlapPositionPropertyInfo = Gtk.Enums.PackType
type AttrLabel FlapFlapPositionPropertyInfo = "flap-position"
type AttrOrigin FlapFlapPositionPropertyInfo = Flap
attrGet = getFlapFlapPosition
attrSet = setFlapFlapPosition
attrTransfer _ v = do
return v
attrConstruct = constructFlapFlapPosition
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapPosition"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:flapPosition"
})
#endif
getFlapFoldDuration :: (MonadIO m, IsFlap o) => o -> m Word32
getFlapFoldDuration :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Word32
getFlapFoldDuration o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"fold-duration"
setFlapFoldDuration :: (MonadIO m, IsFlap o) => o -> Word32 -> m ()
setFlapFoldDuration :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> Word32 -> m ()
setFlapFoldDuration o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"fold-duration" Word32
val
constructFlapFoldDuration :: (IsFlap o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructFlapFoldDuration :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructFlapFoldDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"fold-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data FlapFoldDurationPropertyInfo
instance AttrInfo FlapFoldDurationPropertyInfo where
type AttrAllowedOps FlapFoldDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapFoldDurationPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapFoldDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint FlapFoldDurationPropertyInfo = (~) Word32
type AttrTransferType FlapFoldDurationPropertyInfo = Word32
type AttrGetType FlapFoldDurationPropertyInfo = Word32
type AttrLabel FlapFoldDurationPropertyInfo = "fold-duration"
type AttrOrigin FlapFoldDurationPropertyInfo = Flap
attrGet = getFlapFoldDuration
attrSet = setFlapFoldDuration
attrTransfer _ v = do
return v
attrConstruct = constructFlapFoldDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.foldDuration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:foldDuration"
})
#endif
getFlapFoldPolicy :: (MonadIO m, IsFlap o) => o -> m Adw.Enums.FlapFoldPolicy
getFlapFoldPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> m FlapFoldPolicy
getFlapFoldPolicy o
obj = IO FlapFoldPolicy -> m FlapFoldPolicy
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FlapFoldPolicy -> m FlapFoldPolicy)
-> IO FlapFoldPolicy -> m FlapFoldPolicy
forall a b. (a -> b) -> a -> b
$ o -> String -> IO FlapFoldPolicy
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"fold-policy"
setFlapFoldPolicy :: (MonadIO m, IsFlap o) => o -> Adw.Enums.FlapFoldPolicy -> m ()
setFlapFoldPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> FlapFoldPolicy -> m ()
setFlapFoldPolicy o
obj FlapFoldPolicy
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> FlapFoldPolicy -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"fold-policy" FlapFoldPolicy
val
constructFlapFoldPolicy :: (IsFlap o, MIO.MonadIO m) => Adw.Enums.FlapFoldPolicy -> m (GValueConstruct o)
constructFlapFoldPolicy :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
FlapFoldPolicy -> m (GValueConstruct o)
constructFlapFoldPolicy FlapFoldPolicy
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> FlapFoldPolicy -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"fold-policy" FlapFoldPolicy
val
#if defined(ENABLE_OVERLOADING)
data FlapFoldPolicyPropertyInfo
instance AttrInfo FlapFoldPolicyPropertyInfo where
type AttrAllowedOps FlapFoldPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapFoldPolicyPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapFoldPolicyPropertyInfo = (~) Adw.Enums.FlapFoldPolicy
type AttrTransferTypeConstraint FlapFoldPolicyPropertyInfo = (~) Adw.Enums.FlapFoldPolicy
type AttrTransferType FlapFoldPolicyPropertyInfo = Adw.Enums.FlapFoldPolicy
type AttrGetType FlapFoldPolicyPropertyInfo = Adw.Enums.FlapFoldPolicy
type AttrLabel FlapFoldPolicyPropertyInfo = "fold-policy"
type AttrOrigin FlapFoldPolicyPropertyInfo = Flap
attrGet = getFlapFoldPolicy
attrSet = setFlapFoldPolicy
attrTransfer _ v = do
return v
attrConstruct = constructFlapFoldPolicy
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.foldPolicy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:foldPolicy"
})
#endif
getFlapFoldThresholdPolicy :: (MonadIO m, IsFlap o) => o -> m Adw.Enums.FoldThresholdPolicy
getFlapFoldThresholdPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> m FoldThresholdPolicy
getFlapFoldThresholdPolicy o
obj = IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a. IO a -> m a
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"
setFlapFoldThresholdPolicy :: (MonadIO m, IsFlap o) => o -> Adw.Enums.FoldThresholdPolicy -> m ()
setFlapFoldThresholdPolicy :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> FoldThresholdPolicy -> m ()
setFlapFoldThresholdPolicy o
obj FoldThresholdPolicy
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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
constructFlapFoldThresholdPolicy :: (IsFlap o, MIO.MonadIO m) => Adw.Enums.FoldThresholdPolicy -> m (GValueConstruct o)
constructFlapFoldThresholdPolicy :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
FoldThresholdPolicy -> m (GValueConstruct o)
constructFlapFoldThresholdPolicy FoldThresholdPolicy
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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 FlapFoldThresholdPolicyPropertyInfo
instance AttrInfo FlapFoldThresholdPolicyPropertyInfo where
type AttrAllowedOps FlapFoldThresholdPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapFoldThresholdPolicyPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapFoldThresholdPolicyPropertyInfo = (~) Adw.Enums.FoldThresholdPolicy
type AttrTransferTypeConstraint FlapFoldThresholdPolicyPropertyInfo = (~) Adw.Enums.FoldThresholdPolicy
type AttrTransferType FlapFoldThresholdPolicyPropertyInfo = Adw.Enums.FoldThresholdPolicy
type AttrGetType FlapFoldThresholdPolicyPropertyInfo = Adw.Enums.FoldThresholdPolicy
type AttrLabel FlapFoldThresholdPolicyPropertyInfo = "fold-threshold-policy"
type AttrOrigin FlapFoldThresholdPolicyPropertyInfo = Flap
attrGet = getFlapFoldThresholdPolicy
attrSet = setFlapFoldThresholdPolicy
attrTransfer _ v = do
return v
attrConstruct = constructFlapFoldThresholdPolicy
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.foldThresholdPolicy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:foldThresholdPolicy"
})
#endif
getFlapFolded :: (MonadIO m, IsFlap o) => o -> m Bool
getFlapFolded :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Bool
getFlapFolded o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"folded"
#if defined(ENABLE_OVERLOADING)
data FlapFoldedPropertyInfo
instance AttrInfo FlapFoldedPropertyInfo where
type AttrAllowedOps FlapFoldedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint FlapFoldedPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapFoldedPropertyInfo = (~) ()
type AttrTransferTypeConstraint FlapFoldedPropertyInfo = (~) ()
type AttrTransferType FlapFoldedPropertyInfo = ()
type AttrGetType FlapFoldedPropertyInfo = Bool
type AttrLabel FlapFoldedPropertyInfo = "folded"
type AttrOrigin FlapFoldedPropertyInfo = Flap
attrGet = getFlapFolded
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.folded"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:folded"
})
#endif
getFlapLocked :: (MonadIO m, IsFlap o) => o -> m Bool
getFlapLocked :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Bool
getFlapLocked o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"locked"
setFlapLocked :: (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapLocked :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapLocked o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"locked" Bool
val
constructFlapLocked :: (IsFlap o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlapLocked :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFlapLocked Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"locked" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlapLockedPropertyInfo
instance AttrInfo FlapLockedPropertyInfo where
type AttrAllowedOps FlapLockedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapLockedPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapLockedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlapLockedPropertyInfo = (~) Bool
type AttrTransferType FlapLockedPropertyInfo = Bool
type AttrGetType FlapLockedPropertyInfo = Bool
type AttrLabel FlapLockedPropertyInfo = "locked"
type AttrOrigin FlapLockedPropertyInfo = Flap
attrGet = getFlapLocked
attrSet = setFlapLocked
attrTransfer _ v = do
return v
attrConstruct = constructFlapLocked
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.locked"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:locked"
})
#endif
getFlapModal :: (MonadIO m, IsFlap o) => o -> m Bool
getFlapModal :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Bool
getFlapModal o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"modal"
setFlapModal :: (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapModal :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapModal o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"modal" Bool
val
constructFlapModal :: (IsFlap o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlapModal :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFlapModal Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"modal" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlapModalPropertyInfo
instance AttrInfo FlapModalPropertyInfo where
type AttrAllowedOps FlapModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapModalPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapModalPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlapModalPropertyInfo = (~) Bool
type AttrTransferType FlapModalPropertyInfo = Bool
type AttrGetType FlapModalPropertyInfo = Bool
type AttrLabel FlapModalPropertyInfo = "modal"
type AttrOrigin FlapModalPropertyInfo = Flap
attrGet = getFlapModal
attrSet = setFlapModal
attrTransfer _ v = do
return v
attrConstruct = constructFlapModal
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.modal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:modal"
})
#endif
getFlapRevealFlap :: (MonadIO m, IsFlap o) => o -> m Bool
getFlapRevealFlap :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Bool
getFlapRevealFlap o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"reveal-flap"
setFlapRevealFlap :: (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapRevealFlap :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapRevealFlap o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"reveal-flap" Bool
val
constructFlapRevealFlap :: (IsFlap o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlapRevealFlap :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFlapRevealFlap Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"reveal-flap" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlapRevealFlapPropertyInfo
instance AttrInfo FlapRevealFlapPropertyInfo where
type AttrAllowedOps FlapRevealFlapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapRevealFlapPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapRevealFlapPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlapRevealFlapPropertyInfo = (~) Bool
type AttrTransferType FlapRevealFlapPropertyInfo = Bool
type AttrGetType FlapRevealFlapPropertyInfo = Bool
type AttrLabel FlapRevealFlapPropertyInfo = "reveal-flap"
type AttrOrigin FlapRevealFlapPropertyInfo = Flap
attrGet = getFlapRevealFlap
attrSet = setFlapRevealFlap
attrTransfer _ v = do
return v
attrConstruct = constructFlapRevealFlap
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.revealFlap"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:revealFlap"
})
#endif
getFlapRevealParams :: (MonadIO m, IsFlap o) => o -> m (Maybe Adw.SpringParams.SpringParams)
getFlapRevealParams :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> m (Maybe SpringParams)
getFlapRevealParams o
obj = IO (Maybe SpringParams) -> m (Maybe SpringParams)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe SpringParams) -> m (Maybe SpringParams))
-> IO (Maybe SpringParams) -> m (Maybe SpringParams)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SpringParams -> SpringParams)
-> IO (Maybe SpringParams)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"reveal-params" ManagedPtr SpringParams -> SpringParams
Adw.SpringParams.SpringParams
setFlapRevealParams :: (MonadIO m, IsFlap o) => o -> Adw.SpringParams.SpringParams -> m ()
setFlapRevealParams :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> SpringParams -> m ()
setFlapRevealParams o
obj SpringParams
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe SpringParams -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"reveal-params" (SpringParams -> Maybe SpringParams
forall a. a -> Maybe a
Just SpringParams
val)
constructFlapRevealParams :: (IsFlap o, MIO.MonadIO m) => Adw.SpringParams.SpringParams -> m (GValueConstruct o)
constructFlapRevealParams :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
SpringParams -> m (GValueConstruct o)
constructFlapRevealParams SpringParams
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe SpringParams -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"reveal-params" (SpringParams -> Maybe SpringParams
forall a. a -> Maybe a
P.Just SpringParams
val)
#if defined(ENABLE_OVERLOADING)
data FlapRevealParamsPropertyInfo
instance AttrInfo FlapRevealParamsPropertyInfo where
type AttrAllowedOps FlapRevealParamsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapRevealParamsPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapRevealParamsPropertyInfo = (~) Adw.SpringParams.SpringParams
type AttrTransferTypeConstraint FlapRevealParamsPropertyInfo = (~) Adw.SpringParams.SpringParams
type AttrTransferType FlapRevealParamsPropertyInfo = Adw.SpringParams.SpringParams
type AttrGetType FlapRevealParamsPropertyInfo = (Maybe Adw.SpringParams.SpringParams)
type AttrLabel FlapRevealParamsPropertyInfo = "reveal-params"
type AttrOrigin FlapRevealParamsPropertyInfo = Flap
attrGet = getFlapRevealParams
attrSet = setFlapRevealParams
attrTransfer _ v = do
return v
attrConstruct = constructFlapRevealParams
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.revealParams"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:revealParams"
})
#endif
getFlapRevealProgress :: (MonadIO m, IsFlap o) => o -> m Double
getFlapRevealProgress :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Double
getFlapRevealProgress o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"reveal-progress"
#if defined(ENABLE_OVERLOADING)
data FlapRevealProgressPropertyInfo
instance AttrInfo FlapRevealProgressPropertyInfo where
type AttrAllowedOps FlapRevealProgressPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint FlapRevealProgressPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapRevealProgressPropertyInfo = (~) ()
type AttrTransferTypeConstraint FlapRevealProgressPropertyInfo = (~) ()
type AttrTransferType FlapRevealProgressPropertyInfo = ()
type AttrGetType FlapRevealProgressPropertyInfo = Double
type AttrLabel FlapRevealProgressPropertyInfo = "reveal-progress"
type AttrOrigin FlapRevealProgressPropertyInfo = Flap
attrGet = getFlapRevealProgress
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.revealProgress"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:revealProgress"
})
#endif
getFlapSeparator :: (MonadIO m, IsFlap o) => o -> m (Maybe Gtk.Widget.Widget)
getFlapSeparator :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> m (Maybe Widget)
getFlapSeparator o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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
"separator" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setFlapSeparator :: (MonadIO m, IsFlap o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setFlapSeparator :: forall (m :: * -> *) o a.
(MonadIO m, IsFlap o, IsWidget a) =>
o -> a -> m ()
setFlapSeparator o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"separator" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructFlapSeparator :: (IsFlap o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructFlapSeparator :: forall o (m :: * -> *) a.
(IsFlap o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructFlapSeparator a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"separator" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearFlapSeparator :: (MonadIO m, IsFlap o) => o -> m ()
clearFlapSeparator :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m ()
clearFlapSeparator o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"separator" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data FlapSeparatorPropertyInfo
instance AttrInfo FlapSeparatorPropertyInfo where
type AttrAllowedOps FlapSeparatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint FlapSeparatorPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapSeparatorPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint FlapSeparatorPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType FlapSeparatorPropertyInfo = Gtk.Widget.Widget
type AttrGetType FlapSeparatorPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel FlapSeparatorPropertyInfo = "separator"
type AttrOrigin FlapSeparatorPropertyInfo = Flap
attrGet = getFlapSeparator
attrSet = setFlapSeparator
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructFlapSeparator
attrClear = clearFlapSeparator
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.separator"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:separator"
})
#endif
getFlapSwipeToClose :: (MonadIO m, IsFlap o) => o -> m Bool
getFlapSwipeToClose :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Bool
getFlapSwipeToClose o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"swipe-to-close"
setFlapSwipeToClose :: (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapSwipeToClose :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapSwipeToClose o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"swipe-to-close" Bool
val
constructFlapSwipeToClose :: (IsFlap o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlapSwipeToClose :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFlapSwipeToClose Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"swipe-to-close" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlapSwipeToClosePropertyInfo
instance AttrInfo FlapSwipeToClosePropertyInfo where
type AttrAllowedOps FlapSwipeToClosePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapSwipeToClosePropertyInfo = IsFlap
type AttrSetTypeConstraint FlapSwipeToClosePropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlapSwipeToClosePropertyInfo = (~) Bool
type AttrTransferType FlapSwipeToClosePropertyInfo = Bool
type AttrGetType FlapSwipeToClosePropertyInfo = Bool
type AttrLabel FlapSwipeToClosePropertyInfo = "swipe-to-close"
type AttrOrigin FlapSwipeToClosePropertyInfo = Flap
attrGet = getFlapSwipeToClose
attrSet = setFlapSwipeToClose
attrTransfer _ v = do
return v
attrConstruct = constructFlapSwipeToClose
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.swipeToClose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:swipeToClose"
})
#endif
getFlapSwipeToOpen :: (MonadIO m, IsFlap o) => o -> m Bool
getFlapSwipeToOpen :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> m Bool
getFlapSwipeToOpen o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"swipe-to-open"
setFlapSwipeToOpen :: (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapSwipeToOpen :: forall (m :: * -> *) o. (MonadIO m, IsFlap o) => o -> Bool -> m ()
setFlapSwipeToOpen o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"swipe-to-open" Bool
val
constructFlapSwipeToOpen :: (IsFlap o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlapSwipeToOpen :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFlapSwipeToOpen Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"swipe-to-open" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlapSwipeToOpenPropertyInfo
instance AttrInfo FlapSwipeToOpenPropertyInfo where
type AttrAllowedOps FlapSwipeToOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapSwipeToOpenPropertyInfo = IsFlap
type AttrSetTypeConstraint FlapSwipeToOpenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlapSwipeToOpenPropertyInfo = (~) Bool
type AttrTransferType FlapSwipeToOpenPropertyInfo = Bool
type AttrGetType FlapSwipeToOpenPropertyInfo = Bool
type AttrLabel FlapSwipeToOpenPropertyInfo = "swipe-to-open"
type AttrOrigin FlapSwipeToOpenPropertyInfo = Flap
attrGet = getFlapSwipeToOpen
attrSet = setFlapSwipeToOpen
attrTransfer _ v = do
return v
attrConstruct = constructFlapSwipeToOpen
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.swipeToOpen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:swipeToOpen"
})
#endif
getFlapTransitionType :: (MonadIO m, IsFlap o) => o -> m Adw.Enums.FlapTransitionType
getFlapTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> m FlapTransitionType
getFlapTransitionType o
obj = IO FlapTransitionType -> m FlapTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FlapTransitionType -> m FlapTransitionType)
-> IO FlapTransitionType -> m FlapTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO FlapTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"transition-type"
setFlapTransitionType :: (MonadIO m, IsFlap o) => o -> Adw.Enums.FlapTransitionType -> m ()
setFlapTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsFlap o) =>
o -> FlapTransitionType -> m ()
setFlapTransitionType o
obj FlapTransitionType
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> FlapTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"transition-type" FlapTransitionType
val
constructFlapTransitionType :: (IsFlap o, MIO.MonadIO m) => Adw.Enums.FlapTransitionType -> m (GValueConstruct o)
constructFlapTransitionType :: forall o (m :: * -> *).
(IsFlap o, MonadIO m) =>
FlapTransitionType -> m (GValueConstruct o)
constructFlapTransitionType FlapTransitionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> FlapTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"transition-type" FlapTransitionType
val
#if defined(ENABLE_OVERLOADING)
data FlapTransitionTypePropertyInfo
instance AttrInfo FlapTransitionTypePropertyInfo where
type AttrAllowedOps FlapTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlapTransitionTypePropertyInfo = IsFlap
type AttrSetTypeConstraint FlapTransitionTypePropertyInfo = (~) Adw.Enums.FlapTransitionType
type AttrTransferTypeConstraint FlapTransitionTypePropertyInfo = (~) Adw.Enums.FlapTransitionType
type AttrTransferType FlapTransitionTypePropertyInfo = Adw.Enums.FlapTransitionType
type AttrGetType FlapTransitionTypePropertyInfo = Adw.Enums.FlapTransitionType
type AttrLabel FlapTransitionTypePropertyInfo = "transition-type"
type AttrOrigin FlapTransitionTypePropertyInfo = Flap
attrGet = getFlapTransitionType
attrSet = setFlapTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructFlapTransitionType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.transitionType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#g:attr:transitionType"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Flap
type instance O.AttributeList Flap = FlapAttributeList
type FlapAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("content", FlapContentPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("flap", FlapFlapPropertyInfo), '("flapPosition", FlapFlapPositionPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("foldDuration", FlapFoldDurationPropertyInfo), '("foldPolicy", FlapFoldPolicyPropertyInfo), '("foldThresholdPolicy", FlapFoldThresholdPolicyPropertyInfo), '("folded", FlapFoldedPropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("locked", FlapLockedPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("modal", FlapModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("revealFlap", FlapRevealFlapPropertyInfo), '("revealParams", FlapRevealParamsPropertyInfo), '("revealProgress", FlapRevealProgressPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("separator", FlapSeparatorPropertyInfo), '("swipeToClose", FlapSwipeToClosePropertyInfo), '("swipeToOpen", FlapSwipeToOpenPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transitionType", FlapTransitionTypePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
flapContent :: AttrLabelProxy "content"
flapContent = AttrLabelProxy
flapFlap :: AttrLabelProxy "flap"
flapFlap = AttrLabelProxy
flapFlapPosition :: AttrLabelProxy "flapPosition"
flapFlapPosition = AttrLabelProxy
flapFoldDuration :: AttrLabelProxy "foldDuration"
flapFoldDuration = AttrLabelProxy
flapFoldPolicy :: AttrLabelProxy "foldPolicy"
flapFoldPolicy = AttrLabelProxy
flapFoldThresholdPolicy :: AttrLabelProxy "foldThresholdPolicy"
flapFoldThresholdPolicy = AttrLabelProxy
flapFolded :: AttrLabelProxy "folded"
flapFolded = AttrLabelProxy
flapLocked :: AttrLabelProxy "locked"
flapLocked = AttrLabelProxy
flapModal :: AttrLabelProxy "modal"
flapModal = AttrLabelProxy
flapRevealFlap :: AttrLabelProxy "revealFlap"
flapRevealFlap = AttrLabelProxy
flapRevealParams :: AttrLabelProxy "revealParams"
flapRevealParams = AttrLabelProxy
flapRevealProgress :: AttrLabelProxy "revealProgress"
flapRevealProgress = AttrLabelProxy
flapSeparator :: AttrLabelProxy "separator"
flapSeparator = AttrLabelProxy
flapSwipeToClose :: AttrLabelProxy "swipeToClose"
flapSwipeToClose = AttrLabelProxy
flapSwipeToOpen :: AttrLabelProxy "swipeToOpen"
flapSwipeToOpen = AttrLabelProxy
flapTransitionType :: AttrLabelProxy "transitionType"
flapTransitionType = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Flap = FlapSignalList
type FlapSignalList = ('[ '("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, DK.Type)])
#endif
foreign import ccall "adw_flap_new" adw_flap_new ::
IO (Ptr Flap)
flapNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Flap
flapNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Flap
flapNew = IO Flap -> m Flap
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Flap -> m Flap) -> IO Flap -> m Flap
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
result <- IO (Ptr Flap)
adw_flap_new
Text -> Ptr Flap -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"flapNew" Ptr Flap
result
Flap
result' <- ((ManagedPtr Flap -> Flap) -> Ptr Flap -> IO Flap
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Flap -> Flap
Flap) Ptr Flap
result
Flap -> IO Flap
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Flap
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_flap_get_content" adw_flap_get_content ::
Ptr Flap ->
IO (Ptr Gtk.Widget.Widget)
flapGetContent ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m (Maybe Gtk.Widget.Widget)
flapGetContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m (Maybe Widget)
flapGetContent a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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 Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Flap -> IO (Ptr Widget)
adw_flap_get_content Ptr Flap
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data FlapGetContentMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetContentMethodInfo a signature where
overloadedMethod = flapGetContent
instance O.OverloadedMethodInfo FlapGetContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetContent"
})
#endif
foreign import ccall "adw_flap_get_flap" adw_flap_get_flap ::
Ptr Flap ->
IO (Ptr Gtk.Widget.Widget)
flapGetFlap ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m (Maybe Gtk.Widget.Widget)
flapGetFlap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m (Maybe Widget)
flapGetFlap a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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 Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Flap -> IO (Ptr Widget)
adw_flap_get_flap Ptr Flap
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data FlapGetFlapMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetFlapMethodInfo a signature where
overloadedMethod = flapGetFlap
instance O.OverloadedMethodInfo FlapGetFlapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetFlap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetFlap"
})
#endif
foreign import ccall "adw_flap_get_flap_position" adw_flap_get_flap_position ::
Ptr Flap ->
IO CUInt
flapGetFlapPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Gtk.Enums.PackType
flapGetFlapPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m PackType
flapGetFlapPosition a
self = IO PackType -> m PackType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PackType -> m PackType) -> IO PackType -> m PackType
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Flap -> IO CUInt
adw_flap_get_flap_position Ptr Flap
self'
let result' :: PackType
result' = (Int -> PackType
forall a. Enum a => Int -> a
toEnum (Int -> PackType) -> (CUInt -> Int) -> CUInt -> PackType
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
PackType -> IO PackType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PackType
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetFlapPositionMethodInfo
instance (signature ~ (m Gtk.Enums.PackType), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetFlapPositionMethodInfo a signature where
overloadedMethod = flapGetFlapPosition
instance O.OverloadedMethodInfo FlapGetFlapPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetFlapPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetFlapPosition"
})
#endif
foreign import ccall "adw_flap_get_fold_duration" adw_flap_get_fold_duration ::
Ptr Flap ->
IO Word32
flapGetFoldDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Word32
flapGetFoldDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Word32
flapGetFoldDuration a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Flap -> IO Word32
adw_flap_get_fold_duration Ptr Flap
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data FlapGetFoldDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetFoldDurationMethodInfo a signature where
overloadedMethod = flapGetFoldDuration
instance O.OverloadedMethodInfo FlapGetFoldDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetFoldDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetFoldDuration"
})
#endif
foreign import ccall "adw_flap_get_fold_policy" adw_flap_get_fold_policy ::
Ptr Flap ->
IO CUInt
flapGetFoldPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Adw.Enums.FlapFoldPolicy
flapGetFoldPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m FlapFoldPolicy
flapGetFoldPolicy a
self = IO FlapFoldPolicy -> m FlapFoldPolicy
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlapFoldPolicy -> m FlapFoldPolicy)
-> IO FlapFoldPolicy -> m FlapFoldPolicy
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Flap -> IO CUInt
adw_flap_get_fold_policy Ptr Flap
self'
let result' :: FlapFoldPolicy
result' = (Int -> FlapFoldPolicy
forall a. Enum a => Int -> a
toEnum (Int -> FlapFoldPolicy)
-> (CUInt -> Int) -> CUInt -> FlapFoldPolicy
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
FlapFoldPolicy -> IO FlapFoldPolicy
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FlapFoldPolicy
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetFoldPolicyMethodInfo
instance (signature ~ (m Adw.Enums.FlapFoldPolicy), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetFoldPolicyMethodInfo a signature where
overloadedMethod = flapGetFoldPolicy
instance O.OverloadedMethodInfo FlapGetFoldPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetFoldPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetFoldPolicy"
})
#endif
foreign import ccall "adw_flap_get_fold_threshold_policy" adw_flap_get_fold_threshold_policy ::
Ptr Flap ->
IO CUInt
flapGetFoldThresholdPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Adw.Enums.FoldThresholdPolicy
flapGetFoldThresholdPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m FoldThresholdPolicy
flapGetFoldThresholdPolicy a
self = IO FoldThresholdPolicy -> m FoldThresholdPolicy
forall a. IO a -> m a
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 Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Flap -> IO CUInt
adw_flap_get_fold_threshold_policy Ptr Flap
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FoldThresholdPolicy
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetFoldThresholdPolicyMethodInfo
instance (signature ~ (m Adw.Enums.FoldThresholdPolicy), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetFoldThresholdPolicyMethodInfo a signature where
overloadedMethod = flapGetFoldThresholdPolicy
instance O.OverloadedMethodInfo FlapGetFoldThresholdPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetFoldThresholdPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetFoldThresholdPolicy"
})
#endif
foreign import ccall "adw_flap_get_folded" adw_flap_get_folded ::
Ptr Flap ->
IO CInt
flapGetFolded ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Bool
flapGetFolded :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Bool
flapGetFolded a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Flap -> IO CInt
adw_flap_get_folded Ptr Flap
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetFoldedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetFoldedMethodInfo a signature where
overloadedMethod = flapGetFolded
instance O.OverloadedMethodInfo FlapGetFoldedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetFolded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetFolded"
})
#endif
foreign import ccall "adw_flap_get_locked" adw_flap_get_locked ::
Ptr Flap ->
IO CInt
flapGetLocked ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Bool
flapGetLocked :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Bool
flapGetLocked a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Flap -> IO CInt
adw_flap_get_locked Ptr Flap
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetLockedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetLockedMethodInfo a signature where
overloadedMethod = flapGetLocked
instance O.OverloadedMethodInfo FlapGetLockedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetLocked",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetLocked"
})
#endif
foreign import ccall "adw_flap_get_modal" adw_flap_get_modal ::
Ptr Flap ->
IO CInt
flapGetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Bool
flapGetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Bool
flapGetModal a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Flap -> IO CInt
adw_flap_get_modal Ptr Flap
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetModalMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetModalMethodInfo a signature where
overloadedMethod = flapGetModal
instance O.OverloadedMethodInfo FlapGetModalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetModal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetModal"
})
#endif
foreign import ccall "adw_flap_get_reveal_flap" adw_flap_get_reveal_flap ::
Ptr Flap ->
IO CInt
flapGetRevealFlap ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Bool
flapGetRevealFlap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Bool
flapGetRevealFlap a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Flap -> IO CInt
adw_flap_get_reveal_flap Ptr Flap
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetRevealFlapMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetRevealFlapMethodInfo a signature where
overloadedMethod = flapGetRevealFlap
instance O.OverloadedMethodInfo FlapGetRevealFlapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetRevealFlap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetRevealFlap"
})
#endif
foreign import ccall "adw_flap_get_reveal_params" adw_flap_get_reveal_params ::
Ptr Flap ->
IO (Ptr Adw.SpringParams.SpringParams)
flapGetRevealParams ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Adw.SpringParams.SpringParams
flapGetRevealParams :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m SpringParams
flapGetRevealParams a
self = IO SpringParams -> m SpringParams
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SpringParams -> m SpringParams)
-> IO SpringParams -> m SpringParams
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SpringParams
result <- Ptr Flap -> IO (Ptr SpringParams)
adw_flap_get_reveal_params Ptr Flap
self'
Text -> Ptr SpringParams -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"flapGetRevealParams" Ptr SpringParams
result
SpringParams
result' <- ((ManagedPtr SpringParams -> SpringParams)
-> Ptr SpringParams -> IO SpringParams
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SpringParams -> SpringParams
Adw.SpringParams.SpringParams) Ptr SpringParams
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
SpringParams -> IO SpringParams
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SpringParams
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetRevealParamsMethodInfo
instance (signature ~ (m Adw.SpringParams.SpringParams), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetRevealParamsMethodInfo a signature where
overloadedMethod = flapGetRevealParams
instance O.OverloadedMethodInfo FlapGetRevealParamsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetRevealParams",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetRevealParams"
})
#endif
foreign import ccall "adw_flap_get_reveal_progress" adw_flap_get_reveal_progress ::
Ptr Flap ->
IO CDouble
flapGetRevealProgress ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Double
flapGetRevealProgress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Double
flapGetRevealProgress a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr Flap -> IO CDouble
adw_flap_get_reveal_progress Ptr Flap
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetRevealProgressMethodInfo
instance (signature ~ (m Double), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetRevealProgressMethodInfo a signature where
overloadedMethod = flapGetRevealProgress
instance O.OverloadedMethodInfo FlapGetRevealProgressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetRevealProgress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetRevealProgress"
})
#endif
foreign import ccall "adw_flap_get_separator" adw_flap_get_separator ::
Ptr Flap ->
IO (Ptr Gtk.Widget.Widget)
flapGetSeparator ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m (Maybe Gtk.Widget.Widget)
flapGetSeparator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m (Maybe Widget)
flapGetSeparator a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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 Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Flap -> IO (Ptr Widget)
adw_flap_get_separator Ptr Flap
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data FlapGetSeparatorMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetSeparatorMethodInfo a signature where
overloadedMethod = flapGetSeparator
instance O.OverloadedMethodInfo FlapGetSeparatorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetSeparator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetSeparator"
})
#endif
foreign import ccall "adw_flap_get_swipe_to_close" adw_flap_get_swipe_to_close ::
Ptr Flap ->
IO CInt
flapGetSwipeToClose ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Bool
flapGetSwipeToClose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Bool
flapGetSwipeToClose a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Flap -> IO CInt
adw_flap_get_swipe_to_close Ptr Flap
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetSwipeToCloseMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetSwipeToCloseMethodInfo a signature where
overloadedMethod = flapGetSwipeToClose
instance O.OverloadedMethodInfo FlapGetSwipeToCloseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetSwipeToClose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetSwipeToClose"
})
#endif
foreign import ccall "adw_flap_get_swipe_to_open" adw_flap_get_swipe_to_open ::
Ptr Flap ->
IO CInt
flapGetSwipeToOpen ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Bool
flapGetSwipeToOpen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m Bool
flapGetSwipeToOpen a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Flap -> IO CInt
adw_flap_get_swipe_to_open Ptr Flap
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetSwipeToOpenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetSwipeToOpenMethodInfo a signature where
overloadedMethod = flapGetSwipeToOpen
instance O.OverloadedMethodInfo FlapGetSwipeToOpenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetSwipeToOpen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetSwipeToOpen"
})
#endif
foreign import ccall "adw_flap_get_transition_type" adw_flap_get_transition_type ::
Ptr Flap ->
IO CUInt
flapGetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> m Adw.Enums.FlapTransitionType
flapGetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> m FlapTransitionType
flapGetTransitionType a
self = IO FlapTransitionType -> m FlapTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlapTransitionType -> m FlapTransitionType)
-> IO FlapTransitionType -> m FlapTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Flap -> IO CUInt
adw_flap_get_transition_type Ptr Flap
self'
let result' :: FlapTransitionType
result' = (Int -> FlapTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> FlapTransitionType)
-> (CUInt -> Int) -> CUInt -> FlapTransitionType
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
FlapTransitionType -> IO FlapTransitionType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FlapTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data FlapGetTransitionTypeMethodInfo
instance (signature ~ (m Adw.Enums.FlapTransitionType), MonadIO m, IsFlap a) => O.OverloadedMethod FlapGetTransitionTypeMethodInfo a signature where
overloadedMethod = flapGetTransitionType
instance O.OverloadedMethodInfo FlapGetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapGetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapGetTransitionType"
})
#endif
foreign import ccall "adw_flap_set_content" adw_flap_set_content ::
Ptr Flap ->
Ptr Gtk.Widget.Widget ->
IO ()
flapSetContent ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
flapSetContent :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlap a, IsWidget b) =>
a -> Maybe b -> m ()
flapSetContent a
self Maybe b
content = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeContent <- case Maybe b
content of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jContent -> do
Ptr Widget
jContent' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jContent
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jContent'
Ptr Flap -> Ptr Widget -> IO ()
adw_flap_set_content Ptr Flap
self' Ptr Widget
maybeContent
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
content b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetContentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFlap a, Gtk.Widget.IsWidget b) => O.OverloadedMethod FlapSetContentMethodInfo a signature where
overloadedMethod = flapSetContent
instance O.OverloadedMethodInfo FlapSetContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetContent"
})
#endif
foreign import ccall "adw_flap_set_flap" adw_flap_set_flap ::
Ptr Flap ->
Ptr Gtk.Widget.Widget ->
IO ()
flapSetFlap ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
flapSetFlap :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlap a, IsWidget b) =>
a -> Maybe b -> m ()
flapSetFlap a
self Maybe b
flap = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeFlap <- case Maybe b
flap of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jFlap -> do
Ptr Widget
jFlap' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFlap
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jFlap'
Ptr Flap -> Ptr Widget -> IO ()
adw_flap_set_flap Ptr Flap
self' Ptr Widget
maybeFlap
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
flap b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetFlapMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFlap a, Gtk.Widget.IsWidget b) => O.OverloadedMethod FlapSetFlapMethodInfo a signature where
overloadedMethod = flapSetFlap
instance O.OverloadedMethodInfo FlapSetFlapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetFlap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetFlap"
})
#endif
foreign import ccall "adw_flap_set_flap_position" adw_flap_set_flap_position ::
Ptr Flap ->
CUInt ->
IO ()
flapSetFlapPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Gtk.Enums.PackType
-> m ()
flapSetFlapPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> PackType -> m ()
flapSetFlapPosition a
self PackType
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let position' :: CUInt
position' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PackType -> Int) -> PackType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PackType -> Int
forall a. Enum a => a -> Int
fromEnum) PackType
position
Ptr Flap -> CUInt -> IO ()
adw_flap_set_flap_position Ptr Flap
self' CUInt
position'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetFlapPositionMethodInfo
instance (signature ~ (Gtk.Enums.PackType -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetFlapPositionMethodInfo a signature where
overloadedMethod = flapSetFlapPosition
instance O.OverloadedMethodInfo FlapSetFlapPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetFlapPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetFlapPosition"
})
#endif
foreign import ccall "adw_flap_set_fold_duration" adw_flap_set_fold_duration ::
Ptr Flap ->
Word32 ->
IO ()
flapSetFoldDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Word32
-> m ()
flapSetFoldDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> Word32 -> m ()
flapSetFoldDuration a
self Word32
duration = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Flap -> Word32 -> IO ()
adw_flap_set_fold_duration Ptr Flap
self' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetFoldDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetFoldDurationMethodInfo a signature where
overloadedMethod = flapSetFoldDuration
instance O.OverloadedMethodInfo FlapSetFoldDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetFoldDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetFoldDuration"
})
#endif
foreign import ccall "adw_flap_set_fold_policy" adw_flap_set_fold_policy ::
Ptr Flap ->
CUInt ->
IO ()
flapSetFoldPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Adw.Enums.FlapFoldPolicy
-> m ()
flapSetFoldPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> FlapFoldPolicy -> m ()
flapSetFoldPolicy a
self FlapFoldPolicy
policy = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
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)
-> (FlapFoldPolicy -> Int) -> FlapFoldPolicy -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FlapFoldPolicy -> Int
forall a. Enum a => a -> Int
fromEnum) FlapFoldPolicy
policy
Ptr Flap -> CUInt -> IO ()
adw_flap_set_fold_policy Ptr Flap
self' CUInt
policy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetFoldPolicyMethodInfo
instance (signature ~ (Adw.Enums.FlapFoldPolicy -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetFoldPolicyMethodInfo a signature where
overloadedMethod = flapSetFoldPolicy
instance O.OverloadedMethodInfo FlapSetFoldPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetFoldPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetFoldPolicy"
})
#endif
foreign import ccall "adw_flap_set_fold_threshold_policy" adw_flap_set_fold_threshold_policy ::
Ptr Flap ->
CUInt ->
IO ()
flapSetFoldThresholdPolicy ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Adw.Enums.FoldThresholdPolicy
-> m ()
flapSetFoldThresholdPolicy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> FoldThresholdPolicy -> m ()
flapSetFoldThresholdPolicy a
self FoldThresholdPolicy
policy = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
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 Flap -> CUInt -> IO ()
adw_flap_set_fold_threshold_policy Ptr Flap
self' CUInt
policy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetFoldThresholdPolicyMethodInfo
instance (signature ~ (Adw.Enums.FoldThresholdPolicy -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetFoldThresholdPolicyMethodInfo a signature where
overloadedMethod = flapSetFoldThresholdPolicy
instance O.OverloadedMethodInfo FlapSetFoldThresholdPolicyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetFoldThresholdPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetFoldThresholdPolicy"
})
#endif
foreign import ccall "adw_flap_set_locked" adw_flap_set_locked ::
Ptr Flap ->
CInt ->
IO ()
flapSetLocked ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Bool
-> m ()
flapSetLocked :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> Bool -> m ()
flapSetLocked a
self Bool
locked = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let locked' :: CInt
locked' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
locked
Ptr Flap -> CInt -> IO ()
adw_flap_set_locked Ptr Flap
self' CInt
locked'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetLockedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetLockedMethodInfo a signature where
overloadedMethod = flapSetLocked
instance O.OverloadedMethodInfo FlapSetLockedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetLocked",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetLocked"
})
#endif
foreign import ccall "adw_flap_set_modal" adw_flap_set_modal ::
Ptr Flap ->
CInt ->
IO ()
flapSetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Bool
-> m ()
flapSetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> Bool -> m ()
flapSetModal a
self Bool
modal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let modal' :: CInt
modal' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
modal
Ptr Flap -> CInt -> IO ()
adw_flap_set_modal Ptr Flap
self' CInt
modal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetModalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetModalMethodInfo a signature where
overloadedMethod = flapSetModal
instance O.OverloadedMethodInfo FlapSetModalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetModal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetModal"
})
#endif
foreign import ccall "adw_flap_set_reveal_flap" adw_flap_set_reveal_flap ::
Ptr Flap ->
CInt ->
IO ()
flapSetRevealFlap ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Bool
-> m ()
flapSetRevealFlap :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> Bool -> m ()
flapSetRevealFlap a
self Bool
revealFlap = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let revealFlap' :: CInt
revealFlap' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
revealFlap
Ptr Flap -> CInt -> IO ()
adw_flap_set_reveal_flap Ptr Flap
self' CInt
revealFlap'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetRevealFlapMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetRevealFlapMethodInfo a signature where
overloadedMethod = flapSetRevealFlap
instance O.OverloadedMethodInfo FlapSetRevealFlapMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetRevealFlap",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetRevealFlap"
})
#endif
foreign import ccall "adw_flap_set_reveal_params" adw_flap_set_reveal_params ::
Ptr Flap ->
Ptr Adw.SpringParams.SpringParams ->
IO ()
flapSetRevealParams ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Adw.SpringParams.SpringParams
-> m ()
flapSetRevealParams :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> SpringParams -> m ()
flapSetRevealParams a
self SpringParams
params = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SpringParams
params' <- SpringParams -> IO (Ptr SpringParams)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SpringParams
params
Ptr Flap -> Ptr SpringParams -> IO ()
adw_flap_set_reveal_params Ptr Flap
self' Ptr SpringParams
params'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
SpringParams -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SpringParams
params
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetRevealParamsMethodInfo
instance (signature ~ (Adw.SpringParams.SpringParams -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetRevealParamsMethodInfo a signature where
overloadedMethod = flapSetRevealParams
instance O.OverloadedMethodInfo FlapSetRevealParamsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetRevealParams",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetRevealParams"
})
#endif
foreign import ccall "adw_flap_set_separator" adw_flap_set_separator ::
Ptr Flap ->
Ptr Gtk.Widget.Widget ->
IO ()
flapSetSeparator ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
flapSetSeparator :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlap a, IsWidget b) =>
a -> Maybe b -> m ()
flapSetSeparator a
self Maybe b
separator = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeSeparator <- case Maybe b
separator of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jSeparator -> do
Ptr Widget
jSeparator' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jSeparator
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jSeparator'
Ptr Flap -> Ptr Widget -> IO ()
adw_flap_set_separator Ptr Flap
self' Ptr Widget
maybeSeparator
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
separator b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetSeparatorMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFlap a, Gtk.Widget.IsWidget b) => O.OverloadedMethod FlapSetSeparatorMethodInfo a signature where
overloadedMethod = flapSetSeparator
instance O.OverloadedMethodInfo FlapSetSeparatorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetSeparator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetSeparator"
})
#endif
foreign import ccall "adw_flap_set_swipe_to_close" adw_flap_set_swipe_to_close ::
Ptr Flap ->
CInt ->
IO ()
flapSetSwipeToClose ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Bool
-> m ()
flapSetSwipeToClose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> Bool -> m ()
flapSetSwipeToClose a
self Bool
swipeToClose = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let swipeToClose' :: CInt
swipeToClose' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
swipeToClose
Ptr Flap -> CInt -> IO ()
adw_flap_set_swipe_to_close Ptr Flap
self' CInt
swipeToClose'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetSwipeToCloseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetSwipeToCloseMethodInfo a signature where
overloadedMethod = flapSetSwipeToClose
instance O.OverloadedMethodInfo FlapSetSwipeToCloseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetSwipeToClose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetSwipeToClose"
})
#endif
foreign import ccall "adw_flap_set_swipe_to_open" adw_flap_set_swipe_to_open ::
Ptr Flap ->
CInt ->
IO ()
flapSetSwipeToOpen ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Bool
-> m ()
flapSetSwipeToOpen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> Bool -> m ()
flapSetSwipeToOpen a
self Bool
swipeToOpen = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let swipeToOpen' :: CInt
swipeToOpen' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
swipeToOpen
Ptr Flap -> CInt -> IO ()
adw_flap_set_swipe_to_open Ptr Flap
self' CInt
swipeToOpen'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetSwipeToOpenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetSwipeToOpenMethodInfo a signature where
overloadedMethod = flapSetSwipeToOpen
instance O.OverloadedMethodInfo FlapSetSwipeToOpenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetSwipeToOpen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetSwipeToOpen"
})
#endif
foreign import ccall "adw_flap_set_transition_type" adw_flap_set_transition_type ::
Ptr Flap ->
CUInt ->
IO ()
flapSetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsFlap a) =>
a
-> Adw.Enums.FlapTransitionType
-> m ()
flapSetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlap a) =>
a -> FlapTransitionType -> m ()
flapSetTransitionType a
self FlapTransitionType
transitionType = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Flap
self' <- a -> IO (Ptr Flap)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let transitionType' :: CUInt
transitionType' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (FlapTransitionType -> Int) -> FlapTransitionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FlapTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) FlapTransitionType
transitionType
Ptr Flap -> CUInt -> IO ()
adw_flap_set_transition_type Ptr Flap
self' CUInt
transitionType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlapSetTransitionTypeMethodInfo
instance (signature ~ (Adw.Enums.FlapTransitionType -> m ()), MonadIO m, IsFlap a) => O.OverloadedMethod FlapSetTransitionTypeMethodInfo a signature where
overloadedMethod = flapSetTransitionType
instance O.OverloadedMethodInfo FlapSetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Flap.flapSetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Flap.html#v:flapSetTransitionType"
})
#endif