{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Handy.Objects.Leaflet
(
Leaflet(..) ,
IsLeaflet ,
toLeaflet ,
#if defined(ENABLE_OVERLOADING)
ResolveLeafletMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletGetCanSwipeBackMethodInfo ,
#endif
leafletGetCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
LeafletGetCanSwipeForwardMethodInfo ,
#endif
leafletGetCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
LeafletGetChildTransitionDurationMethodInfo,
#endif
leafletGetChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletGetChildTransitionRunningMethodInfo,
#endif
leafletGetChildTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
LeafletGetChildTransitionTypeMethodInfo ,
#endif
leafletGetChildTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletGetFoldMethodInfo ,
#endif
leafletGetFold ,
#if defined(ENABLE_OVERLOADING)
LeafletGetHomogeneousMethodInfo ,
#endif
leafletGetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
LeafletGetInterpolateSizeMethodInfo ,
#endif
leafletGetInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
LeafletGetModeTransitionDurationMethodInfo,
#endif
leafletGetModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletGetModeTransitionTypeMethodInfo ,
#endif
leafletGetModeTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletGetTransitionTypeMethodInfo ,
#endif
leafletGetTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletGetVisibleChildMethodInfo ,
#endif
leafletGetVisibleChild ,
#if defined(ENABLE_OVERLOADING)
LeafletGetVisibleChildNameMethodInfo ,
#endif
leafletGetVisibleChildName ,
leafletNew ,
#if defined(ENABLE_OVERLOADING)
LeafletSetCanSwipeBackMethodInfo ,
#endif
leafletSetCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
LeafletSetCanSwipeForwardMethodInfo ,
#endif
leafletSetCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
LeafletSetChildTransitionDurationMethodInfo,
#endif
leafletSetChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletSetChildTransitionTypeMethodInfo ,
#endif
leafletSetChildTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletSetHomogeneousMethodInfo ,
#endif
leafletSetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
LeafletSetInterpolateSizeMethodInfo ,
#endif
leafletSetInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
LeafletSetModeTransitionDurationMethodInfo,
#endif
leafletSetModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletSetModeTransitionTypeMethodInfo ,
#endif
leafletSetModeTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletSetTransitionTypeMethodInfo ,
#endif
leafletSetTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletSetVisibleChildMethodInfo ,
#endif
leafletSetVisibleChild ,
#if defined(ENABLE_OVERLOADING)
LeafletSetVisibleChildNameMethodInfo ,
#endif
leafletSetVisibleChildName ,
#if defined(ENABLE_OVERLOADING)
LeafletCanSwipeBackPropertyInfo ,
#endif
constructLeafletCanSwipeBack ,
getLeafletCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
leafletCanSwipeBack ,
#endif
setLeafletCanSwipeBack ,
#if defined(ENABLE_OVERLOADING)
LeafletCanSwipeForwardPropertyInfo ,
#endif
constructLeafletCanSwipeForward ,
getLeafletCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
leafletCanSwipeForward ,
#endif
setLeafletCanSwipeForward ,
#if defined(ENABLE_OVERLOADING)
LeafletChildTransitionDurationPropertyInfo,
#endif
constructLeafletChildTransitionDuration ,
getLeafletChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
leafletChildTransitionDuration ,
#endif
setLeafletChildTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletChildTransitionRunningPropertyInfo,
#endif
getLeafletChildTransitionRunning ,
#if defined(ENABLE_OVERLOADING)
leafletChildTransitionRunning ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletChildTransitionTypePropertyInfo ,
#endif
constructLeafletChildTransitionType ,
getLeafletChildTransitionType ,
#if defined(ENABLE_OVERLOADING)
leafletChildTransitionType ,
#endif
setLeafletChildTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletFoldPropertyInfo ,
#endif
getLeafletFold ,
#if defined(ENABLE_OVERLOADING)
leafletFold ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletFoldedPropertyInfo ,
#endif
getLeafletFolded ,
#if defined(ENABLE_OVERLOADING)
leafletFolded ,
#endif
#if defined(ENABLE_OVERLOADING)
LeafletHhomogeneousFoldedPropertyInfo ,
#endif
constructLeafletHhomogeneousFolded ,
getLeafletHhomogeneousFolded ,
#if defined(ENABLE_OVERLOADING)
leafletHhomogeneousFolded ,
#endif
setLeafletHhomogeneousFolded ,
#if defined(ENABLE_OVERLOADING)
LeafletHhomogeneousUnfoldedPropertyInfo ,
#endif
constructLeafletHhomogeneousUnfolded ,
getLeafletHhomogeneousUnfolded ,
#if defined(ENABLE_OVERLOADING)
leafletHhomogeneousUnfolded ,
#endif
setLeafletHhomogeneousUnfolded ,
#if defined(ENABLE_OVERLOADING)
LeafletInterpolateSizePropertyInfo ,
#endif
constructLeafletInterpolateSize ,
getLeafletInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
leafletInterpolateSize ,
#endif
setLeafletInterpolateSize ,
#if defined(ENABLE_OVERLOADING)
LeafletModeTransitionDurationPropertyInfo,
#endif
constructLeafletModeTransitionDuration ,
getLeafletModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
leafletModeTransitionDuration ,
#endif
setLeafletModeTransitionDuration ,
#if defined(ENABLE_OVERLOADING)
LeafletModeTransitionTypePropertyInfo ,
#endif
constructLeafletModeTransitionType ,
getLeafletModeTransitionType ,
#if defined(ENABLE_OVERLOADING)
leafletModeTransitionType ,
#endif
setLeafletModeTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletTransitionTypePropertyInfo ,
#endif
constructLeafletTransitionType ,
getLeafletTransitionType ,
#if defined(ENABLE_OVERLOADING)
leafletTransitionType ,
#endif
setLeafletTransitionType ,
#if defined(ENABLE_OVERLOADING)
LeafletVhomogeneousFoldedPropertyInfo ,
#endif
constructLeafletVhomogeneousFolded ,
getLeafletVhomogeneousFolded ,
#if defined(ENABLE_OVERLOADING)
leafletVhomogeneousFolded ,
#endif
setLeafletVhomogeneousFolded ,
#if defined(ENABLE_OVERLOADING)
LeafletVhomogeneousUnfoldedPropertyInfo ,
#endif
constructLeafletVhomogeneousUnfolded ,
getLeafletVhomogeneousUnfolded ,
#if defined(ENABLE_OVERLOADING)
leafletVhomogeneousUnfolded ,
#endif
setLeafletVhomogeneousUnfolded ,
#if defined(ENABLE_OVERLOADING)
LeafletVisibleChildPropertyInfo ,
#endif
constructLeafletVisibleChild ,
getLeafletVisibleChild ,
#if defined(ENABLE_OVERLOADING)
leafletVisibleChild ,
#endif
setLeafletVisibleChild ,
#if defined(ENABLE_OVERLOADING)
LeafletVisibleChildNamePropertyInfo ,
#endif
constructLeafletVisibleChildName ,
getLeafletVisibleChildName ,
#if defined(ENABLE_OVERLOADING)
leafletVisibleChildName ,
#endif
setLeafletVisibleChildName ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import qualified GI.Gtk.Objects.Container as Gtk.Container
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Handy.Enums as Handy.Enums
import {-# SOURCE #-} qualified GI.Handy.Interfaces.Swipeable as Handy.Swipeable
newtype Leaflet = Leaflet (SP.ManagedPtr Leaflet)
deriving (Leaflet -> Leaflet -> Bool
(Leaflet -> Leaflet -> Bool)
-> (Leaflet -> Leaflet -> Bool) -> Eq Leaflet
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Leaflet -> Leaflet -> Bool
$c/= :: Leaflet -> Leaflet -> Bool
== :: Leaflet -> Leaflet -> Bool
$c== :: Leaflet -> Leaflet -> Bool
Eq)
instance SP.ManagedPtrNewtype Leaflet where
toManagedPtr :: Leaflet -> ManagedPtr Leaflet
toManagedPtr (Leaflet ManagedPtr Leaflet
p) = ManagedPtr Leaflet
p
foreign import ccall "hdy_leaflet_get_type"
c_hdy_leaflet_get_type :: IO B.Types.GType
instance B.Types.TypedObject Leaflet where
glibType :: IO GType
glibType = IO GType
c_hdy_leaflet_get_type
instance B.Types.GObject Leaflet
class (SP.GObject o, O.IsDescendantOf Leaflet o) => IsLeaflet o
instance (SP.GObject o, O.IsDescendantOf Leaflet o) => IsLeaflet o
instance O.HasParentTypes Leaflet
type instance O.ParentTypes Leaflet = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable, Handy.Swipeable.Swipeable]
toLeaflet :: (MIO.MonadIO m, IsLeaflet o) => o -> m Leaflet
toLeaflet :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Leaflet
toLeaflet = IO Leaflet -> m Leaflet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Leaflet -> m Leaflet) -> (o -> IO Leaflet) -> o -> m Leaflet
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Leaflet -> Leaflet) -> o -> IO Leaflet
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Leaflet -> Leaflet
Leaflet
instance B.GValue.IsGValue (Maybe Leaflet) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_hdy_leaflet_get_type
gvalueSet_ :: Ptr GValue -> Maybe Leaflet -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Leaflet
P.Nothing = Ptr GValue -> Ptr Leaflet -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Leaflet
forall a. Ptr a
FP.nullPtr :: FP.Ptr Leaflet)
gvalueSet_ Ptr GValue
gv (P.Just Leaflet
obj) = Leaflet -> (Ptr Leaflet -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Leaflet
obj (Ptr GValue -> Ptr Leaflet -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Leaflet)
gvalueGet_ Ptr GValue
gv = do
Ptr Leaflet
ptr <- Ptr GValue -> IO (Ptr Leaflet)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Leaflet)
if Ptr Leaflet
ptr Ptr Leaflet -> Ptr Leaflet -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Leaflet
forall a. Ptr a
FP.nullPtr
then Leaflet -> Maybe Leaflet
forall a. a -> Maybe a
P.Just (Leaflet -> Maybe Leaflet) -> IO Leaflet -> IO (Maybe Leaflet)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Leaflet -> Leaflet) -> Ptr Leaflet -> IO Leaflet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Leaflet -> Leaflet
Leaflet Ptr Leaflet
ptr
else Maybe Leaflet -> IO (Maybe Leaflet)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Leaflet
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveLeafletMethod (t :: Symbol) (o :: *) :: * where
ResolveLeafletMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveLeafletMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveLeafletMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveLeafletMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveLeafletMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveLeafletMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveLeafletMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveLeafletMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveLeafletMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveLeafletMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveLeafletMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveLeafletMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveLeafletMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveLeafletMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveLeafletMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveLeafletMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveLeafletMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveLeafletMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveLeafletMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveLeafletMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveLeafletMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveLeafletMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveLeafletMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveLeafletMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveLeafletMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveLeafletMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveLeafletMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveLeafletMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveLeafletMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveLeafletMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveLeafletMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveLeafletMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveLeafletMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveLeafletMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveLeafletMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveLeafletMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveLeafletMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveLeafletMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveLeafletMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveLeafletMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveLeafletMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveLeafletMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveLeafletMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveLeafletMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveLeafletMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveLeafletMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveLeafletMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveLeafletMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveLeafletMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveLeafletMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveLeafletMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveLeafletMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveLeafletMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveLeafletMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveLeafletMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveLeafletMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveLeafletMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveLeafletMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveLeafletMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveLeafletMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveLeafletMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveLeafletMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveLeafletMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveLeafletMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveLeafletMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveLeafletMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveLeafletMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveLeafletMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveLeafletMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveLeafletMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveLeafletMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveLeafletMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveLeafletMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveLeafletMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveLeafletMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveLeafletMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveLeafletMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveLeafletMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveLeafletMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveLeafletMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveLeafletMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveLeafletMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveLeafletMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveLeafletMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveLeafletMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveLeafletMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveLeafletMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveLeafletMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveLeafletMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveLeafletMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveLeafletMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveLeafletMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveLeafletMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveLeafletMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveLeafletMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveLeafletMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveLeafletMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveLeafletMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveLeafletMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveLeafletMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveLeafletMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveLeafletMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveLeafletMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveLeafletMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveLeafletMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveLeafletMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveLeafletMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveLeafletMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveLeafletMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveLeafletMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveLeafletMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveLeafletMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveLeafletMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveLeafletMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveLeafletMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveLeafletMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveLeafletMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveLeafletMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveLeafletMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveLeafletMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveLeafletMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveLeafletMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveLeafletMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveLeafletMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveLeafletMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveLeafletMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveLeafletMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveLeafletMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveLeafletMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveLeafletMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveLeafletMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveLeafletMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveLeafletMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveLeafletMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveLeafletMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveLeafletMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveLeafletMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveLeafletMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveLeafletMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveLeafletMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveLeafletMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveLeafletMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveLeafletMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveLeafletMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveLeafletMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveLeafletMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveLeafletMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveLeafletMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveLeafletMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveLeafletMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveLeafletMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveLeafletMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveLeafletMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveLeafletMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveLeafletMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveLeafletMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveLeafletMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveLeafletMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveLeafletMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveLeafletMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveLeafletMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveLeafletMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveLeafletMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveLeafletMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveLeafletMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveLeafletMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveLeafletMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveLeafletMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveLeafletMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveLeafletMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveLeafletMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveLeafletMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveLeafletMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveLeafletMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveLeafletMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveLeafletMethod "getCanSwipeBack" o = LeafletGetCanSwipeBackMethodInfo
ResolveLeafletMethod "getCanSwipeForward" o = LeafletGetCanSwipeForwardMethodInfo
ResolveLeafletMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveLeafletMethod "getChildTransitionDuration" o = LeafletGetChildTransitionDurationMethodInfo
ResolveLeafletMethod "getChildTransitionRunning" o = LeafletGetChildTransitionRunningMethodInfo
ResolveLeafletMethod "getChildTransitionType" o = LeafletGetChildTransitionTypeMethodInfo
ResolveLeafletMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveLeafletMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveLeafletMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveLeafletMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveLeafletMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveLeafletMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveLeafletMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveLeafletMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveLeafletMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveLeafletMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveLeafletMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveLeafletMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveLeafletMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveLeafletMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveLeafletMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveLeafletMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveLeafletMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveLeafletMethod "getFold" o = LeafletGetFoldMethodInfo
ResolveLeafletMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveLeafletMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveLeafletMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveLeafletMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveLeafletMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveLeafletMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveLeafletMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveLeafletMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveLeafletMethod "getHomogeneous" o = LeafletGetHomogeneousMethodInfo
ResolveLeafletMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveLeafletMethod "getInterpolateSize" o = LeafletGetInterpolateSizeMethodInfo
ResolveLeafletMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveLeafletMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveLeafletMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveLeafletMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveLeafletMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveLeafletMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveLeafletMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveLeafletMethod "getModeTransitionDuration" o = LeafletGetModeTransitionDurationMethodInfo
ResolveLeafletMethod "getModeTransitionType" o = LeafletGetModeTransitionTypeMethodInfo
ResolveLeafletMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveLeafletMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveLeafletMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveLeafletMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveLeafletMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveLeafletMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveLeafletMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveLeafletMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveLeafletMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveLeafletMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveLeafletMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveLeafletMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveLeafletMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveLeafletMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveLeafletMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveLeafletMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveLeafletMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveLeafletMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveLeafletMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveLeafletMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveLeafletMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveLeafletMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveLeafletMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveLeafletMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveLeafletMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveLeafletMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveLeafletMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveLeafletMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveLeafletMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveLeafletMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveLeafletMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveLeafletMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveLeafletMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveLeafletMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveLeafletMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveLeafletMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveLeafletMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveLeafletMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveLeafletMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveLeafletMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveLeafletMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveLeafletMethod "getTransitionType" o = LeafletGetTransitionTypeMethodInfo
ResolveLeafletMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveLeafletMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveLeafletMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveLeafletMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveLeafletMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveLeafletMethod "getVisibleChild" o = LeafletGetVisibleChildMethodInfo
ResolveLeafletMethod "getVisibleChildName" o = LeafletGetVisibleChildNameMethodInfo
ResolveLeafletMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveLeafletMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveLeafletMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveLeafletMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveLeafletMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveLeafletMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveLeafletMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveLeafletMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveLeafletMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveLeafletMethod "setCanSwipeBack" o = LeafletSetCanSwipeBackMethodInfo
ResolveLeafletMethod "setCanSwipeForward" o = LeafletSetCanSwipeForwardMethodInfo
ResolveLeafletMethod "setChildTransitionDuration" o = LeafletSetChildTransitionDurationMethodInfo
ResolveLeafletMethod "setChildTransitionType" o = LeafletSetChildTransitionTypeMethodInfo
ResolveLeafletMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveLeafletMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveLeafletMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveLeafletMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveLeafletMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveLeafletMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveLeafletMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveLeafletMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveLeafletMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveLeafletMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveLeafletMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveLeafletMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveLeafletMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveLeafletMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveLeafletMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveLeafletMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveLeafletMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveLeafletMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveLeafletMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveLeafletMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveLeafletMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveLeafletMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveLeafletMethod "setHomogeneous" o = LeafletSetHomogeneousMethodInfo
ResolveLeafletMethod "setInterpolateSize" o = LeafletSetInterpolateSizeMethodInfo
ResolveLeafletMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveLeafletMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveLeafletMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveLeafletMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveLeafletMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveLeafletMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveLeafletMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveLeafletMethod "setModeTransitionDuration" o = LeafletSetModeTransitionDurationMethodInfo
ResolveLeafletMethod "setModeTransitionType" o = LeafletSetModeTransitionTypeMethodInfo
ResolveLeafletMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveLeafletMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveLeafletMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveLeafletMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveLeafletMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveLeafletMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveLeafletMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveLeafletMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveLeafletMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveLeafletMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveLeafletMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveLeafletMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveLeafletMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveLeafletMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveLeafletMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveLeafletMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveLeafletMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveLeafletMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveLeafletMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveLeafletMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveLeafletMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveLeafletMethod "setTransitionType" o = LeafletSetTransitionTypeMethodInfo
ResolveLeafletMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveLeafletMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveLeafletMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveLeafletMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveLeafletMethod "setVisibleChild" o = LeafletSetVisibleChildMethodInfo
ResolveLeafletMethod "setVisibleChildName" o = LeafletSetVisibleChildNameMethodInfo
ResolveLeafletMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveLeafletMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveLeafletMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveLeafletMethod t Leaflet, O.OverloadedMethod info Leaflet p) => OL.IsLabel t (Leaflet -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveLeafletMethod t Leaflet, O.OverloadedMethod info Leaflet p, R.HasField t Leaflet p) => R.HasField t Leaflet p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveLeafletMethod t Leaflet, O.OverloadedMethodInfo info Leaflet) => OL.IsLabel t (O.MethodProxy info Leaflet) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getLeafletCanSwipeBack :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeBack :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeBack o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"can-swipe-back"
setLeafletCanSwipeBack :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletCanSwipeBack :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletCanSwipeBack o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"can-swipe-back" Bool
val
constructLeafletCanSwipeBack :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletCanSwipeBack :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletCanSwipeBack Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"can-swipe-back" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletCanSwipeBackPropertyInfo
instance AttrInfo LeafletCanSwipeBackPropertyInfo where
type AttrAllowedOps LeafletCanSwipeBackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletCanSwipeBackPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletCanSwipeBackPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletCanSwipeBackPropertyInfo = (~) Bool
type AttrTransferType LeafletCanSwipeBackPropertyInfo = Bool
type AttrGetType LeafletCanSwipeBackPropertyInfo = Bool
type AttrLabel LeafletCanSwipeBackPropertyInfo = "can-swipe-back"
type AttrOrigin LeafletCanSwipeBackPropertyInfo = Leaflet
attrGet = getLeafletCanSwipeBack
attrSet = setLeafletCanSwipeBack
attrTransfer _ v = do
return v
attrConstruct = constructLeafletCanSwipeBack
attrClear = undefined
#endif
getLeafletCanSwipeForward :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeForward :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletCanSwipeForward o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"can-swipe-forward"
setLeafletCanSwipeForward :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletCanSwipeForward :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletCanSwipeForward o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"can-swipe-forward" Bool
val
constructLeafletCanSwipeForward :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletCanSwipeForward :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletCanSwipeForward Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"can-swipe-forward" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletCanSwipeForwardPropertyInfo
instance AttrInfo LeafletCanSwipeForwardPropertyInfo where
type AttrAllowedOps LeafletCanSwipeForwardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletCanSwipeForwardPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletCanSwipeForwardPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletCanSwipeForwardPropertyInfo = (~) Bool
type AttrTransferType LeafletCanSwipeForwardPropertyInfo = Bool
type AttrGetType LeafletCanSwipeForwardPropertyInfo = Bool
type AttrLabel LeafletCanSwipeForwardPropertyInfo = "can-swipe-forward"
type AttrOrigin LeafletCanSwipeForwardPropertyInfo = Leaflet
attrGet = getLeafletCanSwipeForward
attrSet = setLeafletCanSwipeForward
attrTransfer _ v = do
return v
attrConstruct = constructLeafletCanSwipeForward
attrClear = undefined
#endif
getLeafletChildTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletChildTransitionDuration :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletChildTransitionDuration o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"child-transition-duration"
setLeafletChildTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> Word32 -> m ()
setLeafletChildTransitionDuration :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Word32 -> m ()
setLeafletChildTransitionDuration o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"child-transition-duration" Word32
val
constructLeafletChildTransitionDuration :: (IsLeaflet o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructLeafletChildTransitionDuration :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructLeafletChildTransitionDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"child-transition-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data LeafletChildTransitionDurationPropertyInfo
instance AttrInfo LeafletChildTransitionDurationPropertyInfo where
type AttrAllowedOps LeafletChildTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletChildTransitionDurationPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletChildTransitionDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint LeafletChildTransitionDurationPropertyInfo = (~) Word32
type AttrTransferType LeafletChildTransitionDurationPropertyInfo = Word32
type AttrGetType LeafletChildTransitionDurationPropertyInfo = Word32
type AttrLabel LeafletChildTransitionDurationPropertyInfo = "child-transition-duration"
type AttrOrigin LeafletChildTransitionDurationPropertyInfo = Leaflet
attrGet = getLeafletChildTransitionDuration
attrSet = setLeafletChildTransitionDuration
attrTransfer _ v = do
return v
attrConstruct = constructLeafletChildTransitionDuration
attrClear = undefined
#endif
getLeafletChildTransitionRunning :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletChildTransitionRunning :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletChildTransitionRunning o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"child-transition-running"
#if defined(ENABLE_OVERLOADING)
data LeafletChildTransitionRunningPropertyInfo
instance AttrInfo LeafletChildTransitionRunningPropertyInfo where
type AttrAllowedOps LeafletChildTransitionRunningPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint LeafletChildTransitionRunningPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletChildTransitionRunningPropertyInfo = (~) ()
type AttrTransferTypeConstraint LeafletChildTransitionRunningPropertyInfo = (~) ()
type AttrTransferType LeafletChildTransitionRunningPropertyInfo = ()
type AttrGetType LeafletChildTransitionRunningPropertyInfo = Bool
type AttrLabel LeafletChildTransitionRunningPropertyInfo = "child-transition-running"
type AttrOrigin LeafletChildTransitionRunningPropertyInfo = Leaflet
attrGet = getLeafletChildTransitionRunning
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getLeafletChildTransitionType :: (MonadIO m, IsLeaflet o) => o -> m Handy.Enums.LeafletChildTransitionType
getLeafletChildTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m LeafletChildTransitionType
getLeafletChildTransitionType o
obj = IO LeafletChildTransitionType -> m LeafletChildTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO LeafletChildTransitionType -> m LeafletChildTransitionType)
-> IO LeafletChildTransitionType -> m LeafletChildTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO LeafletChildTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"child-transition-type"
setLeafletChildTransitionType :: (MonadIO m, IsLeaflet o) => o -> Handy.Enums.LeafletChildTransitionType -> m ()
setLeafletChildTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> LeafletChildTransitionType -> m ()
setLeafletChildTransitionType o
obj LeafletChildTransitionType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> LeafletChildTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"child-transition-type" LeafletChildTransitionType
val
constructLeafletChildTransitionType :: (IsLeaflet o, MIO.MonadIO m) => Handy.Enums.LeafletChildTransitionType -> m (GValueConstruct o)
constructLeafletChildTransitionType :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
LeafletChildTransitionType -> m (GValueConstruct o)
constructLeafletChildTransitionType LeafletChildTransitionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> LeafletChildTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"child-transition-type" LeafletChildTransitionType
val
#if defined(ENABLE_OVERLOADING)
data LeafletChildTransitionTypePropertyInfo
instance AttrInfo LeafletChildTransitionTypePropertyInfo where
type AttrAllowedOps LeafletChildTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletChildTransitionTypePropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletChildTransitionTypePropertyInfo = (~) Handy.Enums.LeafletChildTransitionType
type AttrTransferTypeConstraint LeafletChildTransitionTypePropertyInfo = (~) Handy.Enums.LeafletChildTransitionType
type AttrTransferType LeafletChildTransitionTypePropertyInfo = Handy.Enums.LeafletChildTransitionType
type AttrGetType LeafletChildTransitionTypePropertyInfo = Handy.Enums.LeafletChildTransitionType
type AttrLabel LeafletChildTransitionTypePropertyInfo = "child-transition-type"
type AttrOrigin LeafletChildTransitionTypePropertyInfo = Leaflet
attrGet = getLeafletChildTransitionType
attrSet = setLeafletChildTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructLeafletChildTransitionType
attrClear = undefined
#endif
getLeafletFold :: (MonadIO m, IsLeaflet o) => o -> m Handy.Enums.Fold
getLeafletFold :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Fold
getLeafletFold o
obj = IO Fold -> m Fold
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Fold -> m Fold) -> IO Fold -> m Fold
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Fold
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"fold"
#if defined(ENABLE_OVERLOADING)
data LeafletFoldPropertyInfo
instance AttrInfo LeafletFoldPropertyInfo where
type AttrAllowedOps LeafletFoldPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint LeafletFoldPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletFoldPropertyInfo = (~) ()
type AttrTransferTypeConstraint LeafletFoldPropertyInfo = (~) ()
type AttrTransferType LeafletFoldPropertyInfo = ()
type AttrGetType LeafletFoldPropertyInfo = Handy.Enums.Fold
type AttrLabel LeafletFoldPropertyInfo = "fold"
type AttrOrigin LeafletFoldPropertyInfo = Leaflet
attrGet = getLeafletFold
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getLeafletFolded :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletFolded :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletFolded o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"folded"
#if defined(ENABLE_OVERLOADING)
data LeafletFoldedPropertyInfo
instance AttrInfo LeafletFoldedPropertyInfo where
type AttrAllowedOps LeafletFoldedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint LeafletFoldedPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletFoldedPropertyInfo = (~) ()
type AttrTransferTypeConstraint LeafletFoldedPropertyInfo = (~) ()
type AttrTransferType LeafletFoldedPropertyInfo = ()
type AttrGetType LeafletFoldedPropertyInfo = Bool
type AttrLabel LeafletFoldedPropertyInfo = "folded"
type AttrOrigin LeafletFoldedPropertyInfo = Leaflet
attrGet = getLeafletFolded
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getLeafletHhomogeneousFolded :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletHhomogeneousFolded :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletHhomogeneousFolded o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"hhomogeneous-folded"
setLeafletHhomogeneousFolded :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletHhomogeneousFolded :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletHhomogeneousFolded o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hhomogeneous-folded" Bool
val
constructLeafletHhomogeneousFolded :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletHhomogeneousFolded :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletHhomogeneousFolded Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"hhomogeneous-folded" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletHhomogeneousFoldedPropertyInfo
instance AttrInfo LeafletHhomogeneousFoldedPropertyInfo where
type AttrAllowedOps LeafletHhomogeneousFoldedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletHhomogeneousFoldedPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletHhomogeneousFoldedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletHhomogeneousFoldedPropertyInfo = (~) Bool
type AttrTransferType LeafletHhomogeneousFoldedPropertyInfo = Bool
type AttrGetType LeafletHhomogeneousFoldedPropertyInfo = Bool
type AttrLabel LeafletHhomogeneousFoldedPropertyInfo = "hhomogeneous-folded"
type AttrOrigin LeafletHhomogeneousFoldedPropertyInfo = Leaflet
attrGet = getLeafletHhomogeneousFolded
attrSet = setLeafletHhomogeneousFolded
attrTransfer _ v = do
return v
attrConstruct = constructLeafletHhomogeneousFolded
attrClear = undefined
#endif
getLeafletHhomogeneousUnfolded :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletHhomogeneousUnfolded :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletHhomogeneousUnfolded o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"hhomogeneous-unfolded"
setLeafletHhomogeneousUnfolded :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletHhomogeneousUnfolded :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletHhomogeneousUnfolded o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hhomogeneous-unfolded" Bool
val
constructLeafletHhomogeneousUnfolded :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletHhomogeneousUnfolded :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletHhomogeneousUnfolded Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"hhomogeneous-unfolded" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletHhomogeneousUnfoldedPropertyInfo
instance AttrInfo LeafletHhomogeneousUnfoldedPropertyInfo where
type AttrAllowedOps LeafletHhomogeneousUnfoldedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletHhomogeneousUnfoldedPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletHhomogeneousUnfoldedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletHhomogeneousUnfoldedPropertyInfo = (~) Bool
type AttrTransferType LeafletHhomogeneousUnfoldedPropertyInfo = Bool
type AttrGetType LeafletHhomogeneousUnfoldedPropertyInfo = Bool
type AttrLabel LeafletHhomogeneousUnfoldedPropertyInfo = "hhomogeneous-unfolded"
type AttrOrigin LeafletHhomogeneousUnfoldedPropertyInfo = Leaflet
attrGet = getLeafletHhomogeneousUnfolded
attrSet = setLeafletHhomogeneousUnfolded
attrTransfer _ v = do
return v
attrConstruct = constructLeafletHhomogeneousUnfolded
attrClear = undefined
#endif
getLeafletInterpolateSize :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletInterpolateSize :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletInterpolateSize o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"interpolate-size"
setLeafletInterpolateSize :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletInterpolateSize :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletInterpolateSize o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"interpolate-size" Bool
val
constructLeafletInterpolateSize :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletInterpolateSize :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletInterpolateSize Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"interpolate-size" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletInterpolateSizePropertyInfo
instance AttrInfo LeafletInterpolateSizePropertyInfo where
type AttrAllowedOps LeafletInterpolateSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletInterpolateSizePropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletInterpolateSizePropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletInterpolateSizePropertyInfo = (~) Bool
type AttrTransferType LeafletInterpolateSizePropertyInfo = Bool
type AttrGetType LeafletInterpolateSizePropertyInfo = Bool
type AttrLabel LeafletInterpolateSizePropertyInfo = "interpolate-size"
type AttrOrigin LeafletInterpolateSizePropertyInfo = Leaflet
attrGet = getLeafletInterpolateSize
attrSet = setLeafletInterpolateSize
attrTransfer _ v = do
return v
attrConstruct = constructLeafletInterpolateSize
attrClear = undefined
#endif
getLeafletModeTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletModeTransitionDuration :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Word32
getLeafletModeTransitionDuration o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"mode-transition-duration"
setLeafletModeTransitionDuration :: (MonadIO m, IsLeaflet o) => o -> Word32 -> m ()
setLeafletModeTransitionDuration :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Word32 -> m ()
setLeafletModeTransitionDuration o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"mode-transition-duration" Word32
val
constructLeafletModeTransitionDuration :: (IsLeaflet o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructLeafletModeTransitionDuration :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructLeafletModeTransitionDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"mode-transition-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data LeafletModeTransitionDurationPropertyInfo
instance AttrInfo LeafletModeTransitionDurationPropertyInfo where
type AttrAllowedOps LeafletModeTransitionDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletModeTransitionDurationPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletModeTransitionDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint LeafletModeTransitionDurationPropertyInfo = (~) Word32
type AttrTransferType LeafletModeTransitionDurationPropertyInfo = Word32
type AttrGetType LeafletModeTransitionDurationPropertyInfo = Word32
type AttrLabel LeafletModeTransitionDurationPropertyInfo = "mode-transition-duration"
type AttrOrigin LeafletModeTransitionDurationPropertyInfo = Leaflet
attrGet = getLeafletModeTransitionDuration
attrSet = setLeafletModeTransitionDuration
attrTransfer _ v = do
return v
attrConstruct = constructLeafletModeTransitionDuration
attrClear = undefined
#endif
getLeafletModeTransitionType :: (MonadIO m, IsLeaflet o) => o -> m Handy.Enums.LeafletModeTransitionType
getLeafletModeTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m LeafletModeTransitionType
getLeafletModeTransitionType o
obj = IO LeafletModeTransitionType -> m LeafletModeTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO LeafletModeTransitionType -> m LeafletModeTransitionType)
-> IO LeafletModeTransitionType -> m LeafletModeTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO LeafletModeTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"mode-transition-type"
setLeafletModeTransitionType :: (MonadIO m, IsLeaflet o) => o -> Handy.Enums.LeafletModeTransitionType -> m ()
setLeafletModeTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> LeafletModeTransitionType -> m ()
setLeafletModeTransitionType o
obj LeafletModeTransitionType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> LeafletModeTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"mode-transition-type" LeafletModeTransitionType
val
constructLeafletModeTransitionType :: (IsLeaflet o, MIO.MonadIO m) => Handy.Enums.LeafletModeTransitionType -> m (GValueConstruct o)
constructLeafletModeTransitionType :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
LeafletModeTransitionType -> m (GValueConstruct o)
constructLeafletModeTransitionType LeafletModeTransitionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> LeafletModeTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"mode-transition-type" LeafletModeTransitionType
val
#if defined(ENABLE_OVERLOADING)
data LeafletModeTransitionTypePropertyInfo
instance AttrInfo LeafletModeTransitionTypePropertyInfo where
type AttrAllowedOps LeafletModeTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletModeTransitionTypePropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletModeTransitionTypePropertyInfo = (~) Handy.Enums.LeafletModeTransitionType
type AttrTransferTypeConstraint LeafletModeTransitionTypePropertyInfo = (~) Handy.Enums.LeafletModeTransitionType
type AttrTransferType LeafletModeTransitionTypePropertyInfo = Handy.Enums.LeafletModeTransitionType
type AttrGetType LeafletModeTransitionTypePropertyInfo = Handy.Enums.LeafletModeTransitionType
type AttrLabel LeafletModeTransitionTypePropertyInfo = "mode-transition-type"
type AttrOrigin LeafletModeTransitionTypePropertyInfo = Leaflet
attrGet = getLeafletModeTransitionType
attrSet = setLeafletModeTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructLeafletModeTransitionType
attrClear = undefined
#endif
getLeafletTransitionType :: (MonadIO m, IsLeaflet o) => o -> m Handy.Enums.LeafletTransitionType
getLeafletTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> m LeafletTransitionType
getLeafletTransitionType o
obj = IO LeafletTransitionType -> m LeafletTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO LeafletTransitionType -> m LeafletTransitionType)
-> IO LeafletTransitionType -> m LeafletTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO LeafletTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"transition-type"
setLeafletTransitionType :: (MonadIO m, IsLeaflet o) => o -> Handy.Enums.LeafletTransitionType -> m ()
setLeafletTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> LeafletTransitionType -> m ()
setLeafletTransitionType o
obj LeafletTransitionType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> LeafletTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"transition-type" LeafletTransitionType
val
constructLeafletTransitionType :: (IsLeaflet o, MIO.MonadIO m) => Handy.Enums.LeafletTransitionType -> m (GValueConstruct o)
constructLeafletTransitionType :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
LeafletTransitionType -> m (GValueConstruct o)
constructLeafletTransitionType LeafletTransitionType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> LeafletTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"transition-type" LeafletTransitionType
val
#if defined(ENABLE_OVERLOADING)
data LeafletTransitionTypePropertyInfo
instance AttrInfo LeafletTransitionTypePropertyInfo where
type AttrAllowedOps LeafletTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletTransitionTypePropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletTransitionTypePropertyInfo = (~) Handy.Enums.LeafletTransitionType
type AttrTransferTypeConstraint LeafletTransitionTypePropertyInfo = (~) Handy.Enums.LeafletTransitionType
type AttrTransferType LeafletTransitionTypePropertyInfo = Handy.Enums.LeafletTransitionType
type AttrGetType LeafletTransitionTypePropertyInfo = Handy.Enums.LeafletTransitionType
type AttrLabel LeafletTransitionTypePropertyInfo = "transition-type"
type AttrOrigin LeafletTransitionTypePropertyInfo = Leaflet
attrGet = getLeafletTransitionType
attrSet = setLeafletTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructLeafletTransitionType
attrClear = undefined
#endif
getLeafletVhomogeneousFolded :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletVhomogeneousFolded :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletVhomogeneousFolded o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"vhomogeneous-folded"
setLeafletVhomogeneousFolded :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletVhomogeneousFolded :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletVhomogeneousFolded o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"vhomogeneous-folded" Bool
val
constructLeafletVhomogeneousFolded :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletVhomogeneousFolded :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletVhomogeneousFolded Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"vhomogeneous-folded" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletVhomogeneousFoldedPropertyInfo
instance AttrInfo LeafletVhomogeneousFoldedPropertyInfo where
type AttrAllowedOps LeafletVhomogeneousFoldedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletVhomogeneousFoldedPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletVhomogeneousFoldedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletVhomogeneousFoldedPropertyInfo = (~) Bool
type AttrTransferType LeafletVhomogeneousFoldedPropertyInfo = Bool
type AttrGetType LeafletVhomogeneousFoldedPropertyInfo = Bool
type AttrLabel LeafletVhomogeneousFoldedPropertyInfo = "vhomogeneous-folded"
type AttrOrigin LeafletVhomogeneousFoldedPropertyInfo = Leaflet
attrGet = getLeafletVhomogeneousFolded
attrSet = setLeafletVhomogeneousFolded
attrTransfer _ v = do
return v
attrConstruct = constructLeafletVhomogeneousFolded
attrClear = undefined
#endif
getLeafletVhomogeneousUnfolded :: (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletVhomogeneousUnfolded :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Bool
getLeafletVhomogeneousUnfolded o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"vhomogeneous-unfolded"
setLeafletVhomogeneousUnfolded :: (MonadIO m, IsLeaflet o) => o -> Bool -> m ()
setLeafletVhomogeneousUnfolded :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Bool -> m ()
setLeafletVhomogeneousUnfolded o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"vhomogeneous-unfolded" Bool
val
constructLeafletVhomogeneousUnfolded :: (IsLeaflet o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructLeafletVhomogeneousUnfolded :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructLeafletVhomogeneousUnfolded Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"vhomogeneous-unfolded" Bool
val
#if defined(ENABLE_OVERLOADING)
data LeafletVhomogeneousUnfoldedPropertyInfo
instance AttrInfo LeafletVhomogeneousUnfoldedPropertyInfo where
type AttrAllowedOps LeafletVhomogeneousUnfoldedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletVhomogeneousUnfoldedPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletVhomogeneousUnfoldedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint LeafletVhomogeneousUnfoldedPropertyInfo = (~) Bool
type AttrTransferType LeafletVhomogeneousUnfoldedPropertyInfo = Bool
type AttrGetType LeafletVhomogeneousUnfoldedPropertyInfo = Bool
type AttrLabel LeafletVhomogeneousUnfoldedPropertyInfo = "vhomogeneous-unfolded"
type AttrOrigin LeafletVhomogeneousUnfoldedPropertyInfo = Leaflet
attrGet = getLeafletVhomogeneousUnfolded
attrSet = setLeafletVhomogeneousUnfolded
attrTransfer _ v = do
return v
attrConstruct = constructLeafletVhomogeneousUnfolded
attrClear = undefined
#endif
getLeafletVisibleChild :: (MonadIO m, IsLeaflet o) => o -> m Gtk.Widget.Widget
getLeafletVisibleChild :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Widget
getLeafletVisibleChild o
obj = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Widget) -> IO Widget
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getLeafletVisibleChild" (IO (Maybe Widget) -> IO Widget) -> IO (Maybe Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"visible-child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setLeafletVisibleChild :: (MonadIO m, IsLeaflet o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setLeafletVisibleChild :: forall (m :: * -> *) o a.
(MonadIO m, IsLeaflet o, IsWidget a) =>
o -> a -> m ()
setLeafletVisibleChild o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"visible-child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructLeafletVisibleChild :: (IsLeaflet o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructLeafletVisibleChild :: forall o (m :: * -> *) a.
(IsLeaflet o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructLeafletVisibleChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"visible-child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data LeafletVisibleChildPropertyInfo
instance AttrInfo LeafletVisibleChildPropertyInfo where
type AttrAllowedOps LeafletVisibleChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletVisibleChildPropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletVisibleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint LeafletVisibleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType LeafletVisibleChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType LeafletVisibleChildPropertyInfo = Gtk.Widget.Widget
type AttrLabel LeafletVisibleChildPropertyInfo = "visible-child"
type AttrOrigin LeafletVisibleChildPropertyInfo = Leaflet
attrGet = getLeafletVisibleChild
attrSet = setLeafletVisibleChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructLeafletVisibleChild
attrClear = undefined
#endif
getLeafletVisibleChildName :: (MonadIO m, IsLeaflet o) => o -> m T.Text
getLeafletVisibleChildName :: forall (m :: * -> *) o. (MonadIO m, IsLeaflet o) => o -> m Text
getLeafletVisibleChildName o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getLeafletVisibleChildName" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"visible-child-name"
setLeafletVisibleChildName :: (MonadIO m, IsLeaflet o) => o -> T.Text -> m ()
setLeafletVisibleChildName :: forall (m :: * -> *) o.
(MonadIO m, IsLeaflet o) =>
o -> Text -> m ()
setLeafletVisibleChildName o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructLeafletVisibleChildName :: (IsLeaflet o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructLeafletVisibleChildName :: forall o (m :: * -> *).
(IsLeaflet o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructLeafletVisibleChildName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"visible-child-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data LeafletVisibleChildNamePropertyInfo
instance AttrInfo LeafletVisibleChildNamePropertyInfo where
type AttrAllowedOps LeafletVisibleChildNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint LeafletVisibleChildNamePropertyInfo = IsLeaflet
type AttrSetTypeConstraint LeafletVisibleChildNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint LeafletVisibleChildNamePropertyInfo = (~) T.Text
type AttrTransferType LeafletVisibleChildNamePropertyInfo = T.Text
type AttrGetType LeafletVisibleChildNamePropertyInfo = T.Text
type AttrLabel LeafletVisibleChildNamePropertyInfo = "visible-child-name"
type AttrOrigin LeafletVisibleChildNamePropertyInfo = Leaflet
attrGet = getLeafletVisibleChildName
attrSet = setLeafletVisibleChildName
attrTransfer _ v = do
return v
attrConstruct = constructLeafletVisibleChildName
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Leaflet
type instance O.AttributeList Leaflet = LeafletAttributeList
type LeafletAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canSwipeBack", LeafletCanSwipeBackPropertyInfo), '("canSwipeForward", LeafletCanSwipeForwardPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("childTransitionDuration", LeafletChildTransitionDurationPropertyInfo), '("childTransitionRunning", LeafletChildTransitionRunningPropertyInfo), '("childTransitionType", LeafletChildTransitionTypePropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("fold", LeafletFoldPropertyInfo), '("folded", LeafletFoldedPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hhomogeneousFolded", LeafletHhomogeneousFoldedPropertyInfo), '("hhomogeneousUnfolded", LeafletHhomogeneousUnfoldedPropertyInfo), '("interpolateSize", LeafletInterpolateSizePropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("modeTransitionDuration", LeafletModeTransitionDurationPropertyInfo), '("modeTransitionType", LeafletModeTransitionTypePropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transitionType", LeafletTransitionTypePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("vhomogeneousFolded", LeafletVhomogeneousFoldedPropertyInfo), '("vhomogeneousUnfolded", LeafletVhomogeneousUnfoldedPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("visibleChild", LeafletVisibleChildPropertyInfo), '("visibleChildName", LeafletVisibleChildNamePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
leafletCanSwipeBack :: AttrLabelProxy "canSwipeBack"
leafletCanSwipeBack = AttrLabelProxy
leafletCanSwipeForward :: AttrLabelProxy "canSwipeForward"
leafletCanSwipeForward = AttrLabelProxy
leafletChildTransitionDuration :: AttrLabelProxy "childTransitionDuration"
leafletChildTransitionDuration = AttrLabelProxy
leafletChildTransitionRunning :: AttrLabelProxy "childTransitionRunning"
leafletChildTransitionRunning = AttrLabelProxy
leafletChildTransitionType :: AttrLabelProxy "childTransitionType"
leafletChildTransitionType = AttrLabelProxy
leafletFold :: AttrLabelProxy "fold"
leafletFold = AttrLabelProxy
leafletFolded :: AttrLabelProxy "folded"
leafletFolded = AttrLabelProxy
leafletHhomogeneousFolded :: AttrLabelProxy "hhomogeneousFolded"
leafletHhomogeneousFolded = AttrLabelProxy
leafletHhomogeneousUnfolded :: AttrLabelProxy "hhomogeneousUnfolded"
leafletHhomogeneousUnfolded = AttrLabelProxy
leafletInterpolateSize :: AttrLabelProxy "interpolateSize"
leafletInterpolateSize = AttrLabelProxy
leafletModeTransitionDuration :: AttrLabelProxy "modeTransitionDuration"
leafletModeTransitionDuration = AttrLabelProxy
leafletModeTransitionType :: AttrLabelProxy "modeTransitionType"
leafletModeTransitionType = AttrLabelProxy
leafletTransitionType :: AttrLabelProxy "transitionType"
leafletTransitionType = AttrLabelProxy
leafletVhomogeneousFolded :: AttrLabelProxy "vhomogeneousFolded"
leafletVhomogeneousFolded = AttrLabelProxy
leafletVhomogeneousUnfolded :: AttrLabelProxy "vhomogeneousUnfolded"
leafletVhomogeneousUnfolded = AttrLabelProxy
leafletVisibleChild :: AttrLabelProxy "visibleChild"
leafletVisibleChild = AttrLabelProxy
leafletVisibleChildName :: AttrLabelProxy "visibleChildName"
leafletVisibleChildName = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Leaflet = LeafletSignalList
type LeafletSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("beginSwipe", Handy.Swipeable.SwipeableBeginSwipeSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("endSwipe", Handy.Swipeable.SwipeableEndSwipeSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("switchChild", Handy.Swipeable.SwipeableSwitchChildSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("updateSwipe", Handy.Swipeable.SwipeableUpdateSwipeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "hdy_leaflet_new" hdy_leaflet_new ::
IO (Ptr Leaflet)
leafletNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Leaflet
leafletNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Leaflet
leafletNew = IO Leaflet -> m Leaflet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Leaflet -> m Leaflet) -> IO Leaflet -> m Leaflet
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
result <- IO (Ptr Leaflet)
hdy_leaflet_new
Text -> Ptr Leaflet -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletNew" Ptr Leaflet
result
Leaflet
result' <- ((ManagedPtr Leaflet -> Leaflet) -> Ptr Leaflet -> IO Leaflet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Leaflet -> Leaflet
Leaflet) Ptr Leaflet
result
Leaflet -> IO Leaflet
forall (m :: * -> *) a. Monad m => a -> m a
return Leaflet
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "hdy_leaflet_get_can_swipe_back" hdy_leaflet_get_can_swipe_back ::
Ptr Leaflet ->
IO CInt
leafletGetCanSwipeBack ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetCanSwipeBack :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetCanSwipeBack a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
hdy_leaflet_get_can_swipe_back Ptr Leaflet
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetCanSwipeBackMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetCanSwipeBackMethodInfo a signature where
overloadedMethod = leafletGetCanSwipeBack
instance O.OverloadedMethodInfo LeafletGetCanSwipeBackMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetCanSwipeBack",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetCanSwipeBack"
}
#endif
foreign import ccall "hdy_leaflet_get_can_swipe_forward" hdy_leaflet_get_can_swipe_forward ::
Ptr Leaflet ->
IO CInt
leafletGetCanSwipeForward ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetCanSwipeForward :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetCanSwipeForward a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
hdy_leaflet_get_can_swipe_forward Ptr Leaflet
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetCanSwipeForwardMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetCanSwipeForwardMethodInfo a signature where
overloadedMethod = leafletGetCanSwipeForward
instance O.OverloadedMethodInfo LeafletGetCanSwipeForwardMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetCanSwipeForward",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetCanSwipeForward"
}
#endif
foreign import ccall "hdy_leaflet_get_child_transition_duration" hdy_leaflet_get_child_transition_duration ::
Ptr Leaflet ->
IO Word32
leafletGetChildTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Word32
leafletGetChildTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Word32
leafletGetChildTransitionDuration a
self = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Leaflet -> IO Word32
hdy_leaflet_get_child_transition_duration Ptr Leaflet
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data LeafletGetChildTransitionDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetChildTransitionDurationMethodInfo a signature where
overloadedMethod = leafletGetChildTransitionDuration
instance O.OverloadedMethodInfo LeafletGetChildTransitionDurationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetChildTransitionDuration",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetChildTransitionDuration"
}
#endif
foreign import ccall "hdy_leaflet_get_child_transition_running" hdy_leaflet_get_child_transition_running ::
Ptr Leaflet ->
IO CInt
leafletGetChildTransitionRunning ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetChildTransitionRunning :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetChildTransitionRunning a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
hdy_leaflet_get_child_transition_running Ptr Leaflet
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetChildTransitionRunningMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetChildTransitionRunningMethodInfo a signature where
overloadedMethod = leafletGetChildTransitionRunning
instance O.OverloadedMethodInfo LeafletGetChildTransitionRunningMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetChildTransitionRunning",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetChildTransitionRunning"
}
#endif
foreign import ccall "hdy_leaflet_get_child_transition_type" hdy_leaflet_get_child_transition_type ::
Ptr Leaflet ->
IO CUInt
{-# DEPRECATED leafletGetChildTransitionType ["(Since version 0.0.12)","Use 'GI.Handy.Objects.Leaflet.leafletGetTransitionType'"] #-}
leafletGetChildTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Handy.Enums.LeafletChildTransitionType
leafletGetChildTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m LeafletChildTransitionType
leafletGetChildTransitionType a
self = IO LeafletChildTransitionType -> m LeafletChildTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletChildTransitionType -> m LeafletChildTransitionType)
-> IO LeafletChildTransitionType -> m LeafletChildTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Leaflet -> IO CUInt
hdy_leaflet_get_child_transition_type Ptr Leaflet
self'
let result' :: LeafletChildTransitionType
result' = (Int -> LeafletChildTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> LeafletChildTransitionType)
-> (CUInt -> Int) -> CUInt -> LeafletChildTransitionType
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
LeafletChildTransitionType -> IO LeafletChildTransitionType
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletChildTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetChildTransitionTypeMethodInfo
instance (signature ~ (m Handy.Enums.LeafletChildTransitionType), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetChildTransitionTypeMethodInfo a signature where
overloadedMethod = leafletGetChildTransitionType
instance O.OverloadedMethodInfo LeafletGetChildTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetChildTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetChildTransitionType"
}
#endif
foreign import ccall "hdy_leaflet_get_fold" hdy_leaflet_get_fold ::
Ptr Leaflet ->
IO CUInt
leafletGetFold ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Handy.Enums.Fold
leafletGetFold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Fold
leafletGetFold a
self = IO Fold -> m Fold
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Fold -> m Fold) -> IO Fold -> m Fold
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Leaflet -> IO CUInt
hdy_leaflet_get_fold Ptr Leaflet
self'
let result' :: Fold
result' = (Int -> Fold
forall a. Enum a => Int -> a
toEnum (Int -> Fold) -> (CUInt -> Int) -> CUInt -> Fold
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
Fold -> IO Fold
forall (m :: * -> *) a. Monad m => a -> m a
return Fold
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetFoldMethodInfo
instance (signature ~ (m Handy.Enums.Fold), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetFoldMethodInfo a signature where
overloadedMethod = leafletGetFold
instance O.OverloadedMethodInfo LeafletGetFoldMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetFold",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetFold"
}
#endif
foreign import ccall "hdy_leaflet_get_homogeneous" hdy_leaflet_get_homogeneous ::
Ptr Leaflet ->
CUInt ->
CUInt ->
IO CInt
leafletGetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Handy.Enums.Fold
-> Gtk.Enums.Orientation
-> m Bool
leafletGetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Fold -> Orientation -> m Bool
leafletGetHomogeneous a
self Fold
fold Orientation
orientation = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let fold' :: CUInt
fold' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Fold -> Int) -> Fold -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Fold -> Int
forall a. Enum a => a -> Int
fromEnum) Fold
fold
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
CInt
result <- Ptr Leaflet -> CUInt -> CUInt -> IO CInt
hdy_leaflet_get_homogeneous Ptr Leaflet
self' CUInt
fold' CUInt
orientation'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetHomogeneousMethodInfo
instance (signature ~ (Handy.Enums.Fold -> Gtk.Enums.Orientation -> m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetHomogeneousMethodInfo a signature where
overloadedMethod = leafletGetHomogeneous
instance O.OverloadedMethodInfo LeafletGetHomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetHomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetHomogeneous"
}
#endif
foreign import ccall "hdy_leaflet_get_interpolate_size" hdy_leaflet_get_interpolate_size ::
Ptr Leaflet ->
IO CInt
leafletGetInterpolateSize ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Bool
leafletGetInterpolateSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Bool
leafletGetInterpolateSize a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Leaflet -> IO CInt
hdy_leaflet_get_interpolate_size Ptr Leaflet
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetInterpolateSizeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetInterpolateSizeMethodInfo a signature where
overloadedMethod = leafletGetInterpolateSize
instance O.OverloadedMethodInfo LeafletGetInterpolateSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetInterpolateSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetInterpolateSize"
}
#endif
foreign import ccall "hdy_leaflet_get_mode_transition_duration" hdy_leaflet_get_mode_transition_duration ::
Ptr Leaflet ->
IO Word32
leafletGetModeTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Word32
leafletGetModeTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Word32
leafletGetModeTransitionDuration a
self = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Leaflet -> IO Word32
hdy_leaflet_get_mode_transition_duration Ptr Leaflet
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data LeafletGetModeTransitionDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetModeTransitionDurationMethodInfo a signature where
overloadedMethod = leafletGetModeTransitionDuration
instance O.OverloadedMethodInfo LeafletGetModeTransitionDurationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetModeTransitionDuration",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetModeTransitionDuration"
}
#endif
foreign import ccall "hdy_leaflet_get_mode_transition_type" hdy_leaflet_get_mode_transition_type ::
Ptr Leaflet ->
IO CUInt
{-# DEPRECATED leafletGetModeTransitionType ["(Since version 0.0.12)","Use 'GI.Handy.Objects.Leaflet.leafletGetTransitionType'"] #-}
leafletGetModeTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Handy.Enums.LeafletModeTransitionType
leafletGetModeTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m LeafletModeTransitionType
leafletGetModeTransitionType a
self = IO LeafletModeTransitionType -> m LeafletModeTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletModeTransitionType -> m LeafletModeTransitionType)
-> IO LeafletModeTransitionType -> m LeafletModeTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Leaflet -> IO CUInt
hdy_leaflet_get_mode_transition_type Ptr Leaflet
self'
let result' :: LeafletModeTransitionType
result' = (Int -> LeafletModeTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> LeafletModeTransitionType)
-> (CUInt -> Int) -> CUInt -> LeafletModeTransitionType
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
LeafletModeTransitionType -> IO LeafletModeTransitionType
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletModeTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetModeTransitionTypeMethodInfo
instance (signature ~ (m Handy.Enums.LeafletModeTransitionType), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetModeTransitionTypeMethodInfo a signature where
overloadedMethod = leafletGetModeTransitionType
instance O.OverloadedMethodInfo LeafletGetModeTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetModeTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetModeTransitionType"
}
#endif
foreign import ccall "hdy_leaflet_get_transition_type" hdy_leaflet_get_transition_type ::
Ptr Leaflet ->
IO CUInt
leafletGetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Handy.Enums.LeafletTransitionType
leafletGetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m LeafletTransitionType
leafletGetTransitionType a
self = IO LeafletTransitionType -> m LeafletTransitionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO LeafletTransitionType -> m LeafletTransitionType)
-> IO LeafletTransitionType -> m LeafletTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Leaflet -> IO CUInt
hdy_leaflet_get_transition_type Ptr Leaflet
self'
let result' :: LeafletTransitionType
result' = (Int -> LeafletTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> LeafletTransitionType)
-> (CUInt -> Int) -> CUInt -> LeafletTransitionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
LeafletTransitionType -> IO LeafletTransitionType
forall (m :: * -> *) a. Monad m => a -> m a
return LeafletTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetTransitionTypeMethodInfo
instance (signature ~ (m Handy.Enums.LeafletTransitionType), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetTransitionTypeMethodInfo a signature where
overloadedMethod = leafletGetTransitionType
instance O.OverloadedMethodInfo LeafletGetTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetTransitionType"
}
#endif
foreign import ccall "hdy_leaflet_get_visible_child" hdy_leaflet_get_visible_child ::
Ptr Leaflet ->
IO (Ptr Gtk.Widget.Widget)
leafletGetVisibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m Gtk.Widget.Widget
leafletGetVisibleChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Widget
leafletGetVisibleChild a
self = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Leaflet -> IO (Ptr Widget)
hdy_leaflet_get_visible_child Ptr Leaflet
self'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletGetVisibleChild" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetVisibleChildMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetVisibleChildMethodInfo a signature where
overloadedMethod = leafletGetVisibleChild
instance O.OverloadedMethodInfo LeafletGetVisibleChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetVisibleChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetVisibleChild"
}
#endif
foreign import ccall "hdy_leaflet_get_visible_child_name" hdy_leaflet_get_visible_child_name ::
Ptr Leaflet ->
IO CString
leafletGetVisibleChildName ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> m T.Text
leafletGetVisibleChildName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> m Text
leafletGetVisibleChildName a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Leaflet -> IO CString
hdy_leaflet_get_visible_child_name Ptr Leaflet
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"leafletGetVisibleChildName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data LeafletGetVisibleChildNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletGetVisibleChildNameMethodInfo a signature where
overloadedMethod = leafletGetVisibleChildName
instance O.OverloadedMethodInfo LeafletGetVisibleChildNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletGetVisibleChildName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletGetVisibleChildName"
}
#endif
foreign import ccall "hdy_leaflet_set_can_swipe_back" hdy_leaflet_set_can_swipe_back ::
Ptr Leaflet ->
CInt ->
IO ()
leafletSetCanSwipeBack ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Bool
-> m ()
leafletSetCanSwipeBack :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Bool -> m ()
leafletSetCanSwipeBack a
self Bool
canSwipeBack = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let canSwipeBack' :: CInt
canSwipeBack' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
canSwipeBack
Ptr Leaflet -> CInt -> IO ()
hdy_leaflet_set_can_swipe_back Ptr Leaflet
self' CInt
canSwipeBack'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetCanSwipeBackMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetCanSwipeBackMethodInfo a signature where
overloadedMethod = leafletSetCanSwipeBack
instance O.OverloadedMethodInfo LeafletSetCanSwipeBackMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetCanSwipeBack",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetCanSwipeBack"
}
#endif
foreign import ccall "hdy_leaflet_set_can_swipe_forward" hdy_leaflet_set_can_swipe_forward ::
Ptr Leaflet ->
CInt ->
IO ()
leafletSetCanSwipeForward ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Bool
-> m ()
leafletSetCanSwipeForward :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Bool -> m ()
leafletSetCanSwipeForward a
self Bool
canSwipeForward = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let canSwipeForward' :: CInt
canSwipeForward' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
canSwipeForward
Ptr Leaflet -> CInt -> IO ()
hdy_leaflet_set_can_swipe_forward Ptr Leaflet
self' CInt
canSwipeForward'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetCanSwipeForwardMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetCanSwipeForwardMethodInfo a signature where
overloadedMethod = leafletSetCanSwipeForward
instance O.OverloadedMethodInfo LeafletSetCanSwipeForwardMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetCanSwipeForward",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetCanSwipeForward"
}
#endif
foreign import ccall "hdy_leaflet_set_child_transition_duration" hdy_leaflet_set_child_transition_duration ::
Ptr Leaflet ->
Word32 ->
IO ()
leafletSetChildTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Word32
-> m ()
leafletSetChildTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Word32 -> m ()
leafletSetChildTransitionDuration a
self Word32
duration = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Leaflet -> Word32 -> IO ()
hdy_leaflet_set_child_transition_duration Ptr Leaflet
self' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetChildTransitionDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetChildTransitionDurationMethodInfo a signature where
overloadedMethod = leafletSetChildTransitionDuration
instance O.OverloadedMethodInfo LeafletSetChildTransitionDurationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetChildTransitionDuration",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetChildTransitionDuration"
}
#endif
foreign import ccall "hdy_leaflet_set_child_transition_type" hdy_leaflet_set_child_transition_type ::
Ptr Leaflet ->
CUInt ->
IO ()
{-# DEPRECATED leafletSetChildTransitionType ["(Since version 0.0.12)","Use 'GI.Handy.Objects.Leaflet.leafletSetTransitionType'"] #-}
leafletSetChildTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Handy.Enums.LeafletChildTransitionType
-> m ()
leafletSetChildTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> LeafletChildTransitionType -> m ()
leafletSetChildTransitionType a
self LeafletChildTransitionType
transition = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (LeafletChildTransitionType -> Int)
-> LeafletChildTransitionType
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LeafletChildTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) LeafletChildTransitionType
transition
Ptr Leaflet -> CUInt -> IO ()
hdy_leaflet_set_child_transition_type Ptr Leaflet
self' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetChildTransitionTypeMethodInfo
instance (signature ~ (Handy.Enums.LeafletChildTransitionType -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetChildTransitionTypeMethodInfo a signature where
overloadedMethod = leafletSetChildTransitionType
instance O.OverloadedMethodInfo LeafletSetChildTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetChildTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetChildTransitionType"
}
#endif
foreign import ccall "hdy_leaflet_set_homogeneous" hdy_leaflet_set_homogeneous ::
Ptr Leaflet ->
CUInt ->
CUInt ->
CInt ->
IO ()
leafletSetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Handy.Enums.Fold
-> Gtk.Enums.Orientation
-> Bool
-> m ()
leafletSetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Fold -> Orientation -> Bool -> m ()
leafletSetHomogeneous a
self Fold
fold Orientation
orientation Bool
homogeneous = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let fold' :: CUInt
fold' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Fold -> Int) -> Fold -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Fold -> Int
forall a. Enum a => a -> Int
fromEnum) Fold
fold
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
let homogeneous' :: CInt
homogeneous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
homogeneous
Ptr Leaflet -> CUInt -> CUInt -> CInt -> IO ()
hdy_leaflet_set_homogeneous Ptr Leaflet
self' CUInt
fold' CUInt
orientation' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetHomogeneousMethodInfo
instance (signature ~ (Handy.Enums.Fold -> Gtk.Enums.Orientation -> Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetHomogeneousMethodInfo a signature where
overloadedMethod = leafletSetHomogeneous
instance O.OverloadedMethodInfo LeafletSetHomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetHomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetHomogeneous"
}
#endif
foreign import ccall "hdy_leaflet_set_interpolate_size" hdy_leaflet_set_interpolate_size ::
Ptr Leaflet ->
CInt ->
IO ()
leafletSetInterpolateSize ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Bool
-> m ()
leafletSetInterpolateSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Bool -> m ()
leafletSetInterpolateSize a
self Bool
interpolateSize = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let interpolateSize' :: CInt
interpolateSize' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
interpolateSize
Ptr Leaflet -> CInt -> IO ()
hdy_leaflet_set_interpolate_size Ptr Leaflet
self' CInt
interpolateSize'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetInterpolateSizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetInterpolateSizeMethodInfo a signature where
overloadedMethod = leafletSetInterpolateSize
instance O.OverloadedMethodInfo LeafletSetInterpolateSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetInterpolateSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetInterpolateSize"
}
#endif
foreign import ccall "hdy_leaflet_set_mode_transition_duration" hdy_leaflet_set_mode_transition_duration ::
Ptr Leaflet ->
Word32 ->
IO ()
leafletSetModeTransitionDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Word32
-> m ()
leafletSetModeTransitionDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Word32 -> m ()
leafletSetModeTransitionDuration a
self Word32
duration = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Leaflet -> Word32 -> IO ()
hdy_leaflet_set_mode_transition_duration Ptr Leaflet
self' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetModeTransitionDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetModeTransitionDurationMethodInfo a signature where
overloadedMethod = leafletSetModeTransitionDuration
instance O.OverloadedMethodInfo LeafletSetModeTransitionDurationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetModeTransitionDuration",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetModeTransitionDuration"
}
#endif
foreign import ccall "hdy_leaflet_set_mode_transition_type" hdy_leaflet_set_mode_transition_type ::
Ptr Leaflet ->
CUInt ->
IO ()
{-# DEPRECATED leafletSetModeTransitionType ["(Since version 0.0.12)","Use 'GI.Handy.Objects.Leaflet.leafletSetTransitionType'"] #-}
leafletSetModeTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Handy.Enums.LeafletModeTransitionType
-> m ()
leafletSetModeTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> LeafletModeTransitionType -> m ()
leafletSetModeTransitionType a
self LeafletModeTransitionType
transition = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (LeafletModeTransitionType -> Int)
-> LeafletModeTransitionType
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LeafletModeTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) LeafletModeTransitionType
transition
Ptr Leaflet -> CUInt -> IO ()
hdy_leaflet_set_mode_transition_type Ptr Leaflet
self' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetModeTransitionTypeMethodInfo
instance (signature ~ (Handy.Enums.LeafletModeTransitionType -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetModeTransitionTypeMethodInfo a signature where
overloadedMethod = leafletSetModeTransitionType
instance O.OverloadedMethodInfo LeafletSetModeTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetModeTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetModeTransitionType"
}
#endif
foreign import ccall "hdy_leaflet_set_transition_type" hdy_leaflet_set_transition_type ::
Ptr Leaflet ->
CUInt ->
IO ()
leafletSetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> Handy.Enums.LeafletTransitionType
-> m ()
leafletSetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> LeafletTransitionType -> m ()
leafletSetTransitionType a
self LeafletTransitionType
transition = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let transition' :: CUInt
transition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (LeafletTransitionType -> Int) -> LeafletTransitionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LeafletTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) LeafletTransitionType
transition
Ptr Leaflet -> CUInt -> IO ()
hdy_leaflet_set_transition_type Ptr Leaflet
self' CUInt
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetTransitionTypeMethodInfo
instance (signature ~ (Handy.Enums.LeafletTransitionType -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetTransitionTypeMethodInfo a signature where
overloadedMethod = leafletSetTransitionType
instance O.OverloadedMethodInfo LeafletSetTransitionTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetTransitionType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetTransitionType"
}
#endif
foreign import ccall "hdy_leaflet_set_visible_child" hdy_leaflet_set_visible_child ::
Ptr Leaflet ->
Ptr Gtk.Widget.Widget ->
IO ()
leafletSetVisibleChild ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
leafletSetVisibleChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsLeaflet a, IsWidget b) =>
a -> b -> m ()
leafletSetVisibleChild a
self b
visibleChild = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
visibleChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
visibleChild
Ptr Leaflet -> Ptr Widget -> IO ()
hdy_leaflet_set_visible_child Ptr Leaflet
self' Ptr Widget
visibleChild'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
visibleChild
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetVisibleChildMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsLeaflet a, Gtk.Widget.IsWidget b) => O.OverloadedMethod LeafletSetVisibleChildMethodInfo a signature where
overloadedMethod = leafletSetVisibleChild
instance O.OverloadedMethodInfo LeafletSetVisibleChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetVisibleChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetVisibleChild"
}
#endif
foreign import ccall "hdy_leaflet_set_visible_child_name" hdy_leaflet_set_visible_child_name ::
Ptr Leaflet ->
CString ->
IO ()
leafletSetVisibleChildName ::
(B.CallStack.HasCallStack, MonadIO m, IsLeaflet a) =>
a
-> T.Text
-> m ()
leafletSetVisibleChildName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLeaflet a) =>
a -> Text -> m ()
leafletSetVisibleChildName a
self Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Leaflet
self' <- a -> IO (Ptr Leaflet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Leaflet -> CString -> IO ()
hdy_leaflet_set_visible_child_name Ptr Leaflet
self' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data LeafletSetVisibleChildNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsLeaflet a) => O.OverloadedMethod LeafletSetVisibleChildNameMethodInfo a signature where
overloadedMethod = leafletSetVisibleChildName
instance O.OverloadedMethodInfo LeafletSetVisibleChildNameMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Handy.Objects.Leaflet.leafletSetVisibleChildName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-handy-0.0.8/docs/GI-Handy-Objects-Leaflet.html#v:leafletSetVisibleChildName"
}
#endif