{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.ScrollInfo
(
ScrollInfo(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveScrollInfoMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ScrollInfoGetEnableHorizontalMethodInfo ,
#endif
scrollInfoGetEnableHorizontal ,
#if defined(ENABLE_OVERLOADING)
ScrollInfoGetEnableVerticalMethodInfo ,
#endif
scrollInfoGetEnableVertical ,
scrollInfoNew ,
#if defined(ENABLE_OVERLOADING)
ScrollInfoRefMethodInfo ,
#endif
scrollInfoRef ,
#if defined(ENABLE_OVERLOADING)
ScrollInfoSetEnableHorizontalMethodInfo ,
#endif
scrollInfoSetEnableHorizontal ,
#if defined(ENABLE_OVERLOADING)
ScrollInfoSetEnableVerticalMethodInfo ,
#endif
scrollInfoSetEnableVertical ,
#if defined(ENABLE_OVERLOADING)
ScrollInfoUnrefMethodInfo ,
#endif
scrollInfoUnref ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
#else
#endif
newtype ScrollInfo = ScrollInfo (SP.ManagedPtr ScrollInfo)
deriving (ScrollInfo -> ScrollInfo -> Bool
(ScrollInfo -> ScrollInfo -> Bool)
-> (ScrollInfo -> ScrollInfo -> Bool) -> Eq ScrollInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScrollInfo -> ScrollInfo -> Bool
== :: ScrollInfo -> ScrollInfo -> Bool
$c/= :: ScrollInfo -> ScrollInfo -> Bool
/= :: ScrollInfo -> ScrollInfo -> Bool
Eq)
instance SP.ManagedPtrNewtype ScrollInfo where
toManagedPtr :: ScrollInfo -> ManagedPtr ScrollInfo
toManagedPtr (ScrollInfo ManagedPtr ScrollInfo
p) = ManagedPtr ScrollInfo
p
foreign import ccall "gtk_scroll_info_get_type" c_gtk_scroll_info_get_type ::
IO GType
type instance O.ParentTypes ScrollInfo = '[]
instance O.HasParentTypes ScrollInfo
instance B.Types.TypedObject ScrollInfo where
glibType :: IO GType
glibType = IO GType
c_gtk_scroll_info_get_type
instance B.Types.GBoxed ScrollInfo
instance B.GValue.IsGValue (Maybe ScrollInfo) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_scroll_info_get_type
gvalueSet_ :: Ptr GValue -> Maybe ScrollInfo -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ScrollInfo
P.Nothing = Ptr GValue -> Ptr ScrollInfo -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr ScrollInfo
forall a. Ptr a
FP.nullPtr :: FP.Ptr ScrollInfo)
gvalueSet_ Ptr GValue
gv (P.Just ScrollInfo
obj) = ScrollInfo -> (Ptr ScrollInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScrollInfo
obj (Ptr GValue -> Ptr ScrollInfo -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ScrollInfo)
gvalueGet_ Ptr GValue
gv = do
Ptr ScrollInfo
ptr <- Ptr GValue -> IO (Ptr ScrollInfo)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr ScrollInfo)
if Ptr ScrollInfo
ptr Ptr ScrollInfo -> Ptr ScrollInfo -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ScrollInfo
forall a. Ptr a
FP.nullPtr
then ScrollInfo -> Maybe ScrollInfo
forall a. a -> Maybe a
P.Just (ScrollInfo -> Maybe ScrollInfo)
-> IO ScrollInfo -> IO (Maybe ScrollInfo)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ScrollInfo -> ScrollInfo)
-> Ptr ScrollInfo -> IO ScrollInfo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr ScrollInfo -> ScrollInfo
ScrollInfo Ptr ScrollInfo
ptr
else Maybe ScrollInfo -> IO (Maybe ScrollInfo)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ScrollInfo
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ScrollInfo
type instance O.AttributeList ScrollInfo = ScrollInfoAttributeList
type ScrollInfoAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_scroll_info_new" gtk_scroll_info_new ::
IO (Ptr ScrollInfo)
scrollInfoNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ScrollInfo
scrollInfoNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ScrollInfo
scrollInfoNew = IO ScrollInfo -> m ScrollInfo
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ScrollInfo -> m ScrollInfo) -> IO ScrollInfo -> m ScrollInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrollInfo
result <- IO (Ptr ScrollInfo)
gtk_scroll_info_new
Text -> Ptr ScrollInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scrollInfoNew" Ptr ScrollInfo
result
ScrollInfo
result' <- ((ManagedPtr ScrollInfo -> ScrollInfo)
-> Ptr ScrollInfo -> IO ScrollInfo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr ScrollInfo -> ScrollInfo
ScrollInfo) Ptr ScrollInfo
result
ScrollInfo -> IO ScrollInfo
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ScrollInfo
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_scroll_info_get_enable_horizontal" gtk_scroll_info_get_enable_horizontal ::
Ptr ScrollInfo ->
IO CInt
scrollInfoGetEnableHorizontal ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScrollInfo
-> m Bool
scrollInfoGetEnableHorizontal :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScrollInfo -> m Bool
scrollInfoGetEnableHorizontal ScrollInfo
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrollInfo
self' <- ScrollInfo -> IO (Ptr ScrollInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScrollInfo
self
CInt
result <- Ptr ScrollInfo -> IO CInt
gtk_scroll_info_get_enable_horizontal Ptr ScrollInfo
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
ScrollInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScrollInfo
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScrollInfoGetEnableHorizontalMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod ScrollInfoGetEnableHorizontalMethodInfo ScrollInfo signature where
overloadedMethod = scrollInfoGetEnableHorizontal
instance O.OverloadedMethodInfo ScrollInfoGetEnableHorizontalMethodInfo ScrollInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.ScrollInfo.scrollInfoGetEnableHorizontal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Structs-ScrollInfo.html#v:scrollInfoGetEnableHorizontal"
})
#endif
foreign import ccall "gtk_scroll_info_get_enable_vertical" gtk_scroll_info_get_enable_vertical ::
Ptr ScrollInfo ->
IO CInt
scrollInfoGetEnableVertical ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScrollInfo
-> m Bool
scrollInfoGetEnableVertical :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScrollInfo -> m Bool
scrollInfoGetEnableVertical ScrollInfo
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrollInfo
self' <- ScrollInfo -> IO (Ptr ScrollInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScrollInfo
self
CInt
result <- Ptr ScrollInfo -> IO CInt
gtk_scroll_info_get_enable_vertical Ptr ScrollInfo
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
ScrollInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScrollInfo
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ScrollInfoGetEnableVerticalMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod ScrollInfoGetEnableVerticalMethodInfo ScrollInfo signature where
overloadedMethod = scrollInfoGetEnableVertical
instance O.OverloadedMethodInfo ScrollInfoGetEnableVerticalMethodInfo ScrollInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.ScrollInfo.scrollInfoGetEnableVertical",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Structs-ScrollInfo.html#v:scrollInfoGetEnableVertical"
})
#endif
foreign import ccall "gtk_scroll_info_ref" gtk_scroll_info_ref ::
Ptr ScrollInfo ->
IO (Ptr ScrollInfo)
scrollInfoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScrollInfo
-> m ScrollInfo
scrollInfoRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScrollInfo -> m ScrollInfo
scrollInfoRef ScrollInfo
self = IO ScrollInfo -> m ScrollInfo
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ScrollInfo -> m ScrollInfo) -> IO ScrollInfo -> m ScrollInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrollInfo
self' <- ScrollInfo -> IO (Ptr ScrollInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScrollInfo
self
Ptr ScrollInfo
result <- Ptr ScrollInfo -> IO (Ptr ScrollInfo)
gtk_scroll_info_ref Ptr ScrollInfo
self'
Text -> Ptr ScrollInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"scrollInfoRef" Ptr ScrollInfo
result
ScrollInfo
result' <- ((ManagedPtr ScrollInfo -> ScrollInfo)
-> Ptr ScrollInfo -> IO ScrollInfo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr ScrollInfo -> ScrollInfo
ScrollInfo) Ptr ScrollInfo
result
ScrollInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScrollInfo
self
ScrollInfo -> IO ScrollInfo
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ScrollInfo
result'
#if defined(ENABLE_OVERLOADING)
data ScrollInfoRefMethodInfo
instance (signature ~ (m ScrollInfo), MonadIO m) => O.OverloadedMethod ScrollInfoRefMethodInfo ScrollInfo signature where
overloadedMethod = scrollInfoRef
instance O.OverloadedMethodInfo ScrollInfoRefMethodInfo ScrollInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.ScrollInfo.scrollInfoRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Structs-ScrollInfo.html#v:scrollInfoRef"
})
#endif
foreign import ccall "gtk_scroll_info_set_enable_horizontal" gtk_scroll_info_set_enable_horizontal ::
Ptr ScrollInfo ->
CInt ->
IO ()
scrollInfoSetEnableHorizontal ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScrollInfo
-> Bool
-> m ()
scrollInfoSetEnableHorizontal :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScrollInfo -> Bool -> m ()
scrollInfoSetEnableHorizontal ScrollInfo
self Bool
horizontal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrollInfo
self' <- ScrollInfo -> IO (Ptr ScrollInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScrollInfo
self
let horizontal' :: CInt
horizontal' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
horizontal
Ptr ScrollInfo -> CInt -> IO ()
gtk_scroll_info_set_enable_horizontal Ptr ScrollInfo
self' CInt
horizontal'
ScrollInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScrollInfo
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrollInfoSetEnableHorizontalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => O.OverloadedMethod ScrollInfoSetEnableHorizontalMethodInfo ScrollInfo signature where
overloadedMethod = scrollInfoSetEnableHorizontal
instance O.OverloadedMethodInfo ScrollInfoSetEnableHorizontalMethodInfo ScrollInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.ScrollInfo.scrollInfoSetEnableHorizontal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Structs-ScrollInfo.html#v:scrollInfoSetEnableHorizontal"
})
#endif
foreign import ccall "gtk_scroll_info_set_enable_vertical" gtk_scroll_info_set_enable_vertical ::
Ptr ScrollInfo ->
CInt ->
IO ()
scrollInfoSetEnableVertical ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScrollInfo
-> Bool
-> m ()
scrollInfoSetEnableVertical :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScrollInfo -> Bool -> m ()
scrollInfoSetEnableVertical ScrollInfo
self Bool
vertical = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrollInfo
self' <- ScrollInfo -> IO (Ptr ScrollInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScrollInfo
self
let vertical' :: CInt
vertical' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
vertical
Ptr ScrollInfo -> CInt -> IO ()
gtk_scroll_info_set_enable_vertical Ptr ScrollInfo
self' CInt
vertical'
ScrollInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScrollInfo
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrollInfoSetEnableVerticalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => O.OverloadedMethod ScrollInfoSetEnableVerticalMethodInfo ScrollInfo signature where
overloadedMethod = scrollInfoSetEnableVertical
instance O.OverloadedMethodInfo ScrollInfoSetEnableVerticalMethodInfo ScrollInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.ScrollInfo.scrollInfoSetEnableVertical",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Structs-ScrollInfo.html#v:scrollInfoSetEnableVertical"
})
#endif
foreign import ccall "gtk_scroll_info_unref" gtk_scroll_info_unref ::
Ptr ScrollInfo ->
IO ()
scrollInfoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
ScrollInfo
-> m ()
scrollInfoUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ScrollInfo -> m ()
scrollInfoUnref ScrollInfo
self = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ScrollInfo
self' <- ScrollInfo -> IO (Ptr ScrollInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ScrollInfo
self
Ptr ScrollInfo -> IO ()
gtk_scroll_info_unref Ptr ScrollInfo
self'
ScrollInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ScrollInfo
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ScrollInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod ScrollInfoUnrefMethodInfo ScrollInfo signature where
overloadedMethod = scrollInfoUnref
instance O.OverloadedMethodInfo ScrollInfoUnrefMethodInfo ScrollInfo where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.ScrollInfo.scrollInfoUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Structs-ScrollInfo.html#v:scrollInfoUnref"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveScrollInfoMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveScrollInfoMethod "ref" o = ScrollInfoRefMethodInfo
ResolveScrollInfoMethod "unref" o = ScrollInfoUnrefMethodInfo
ResolveScrollInfoMethod "getEnableHorizontal" o = ScrollInfoGetEnableHorizontalMethodInfo
ResolveScrollInfoMethod "getEnableVertical" o = ScrollInfoGetEnableVerticalMethodInfo
ResolveScrollInfoMethod "setEnableHorizontal" o = ScrollInfoSetEnableHorizontalMethodInfo
ResolveScrollInfoMethod "setEnableVertical" o = ScrollInfoSetEnableVerticalMethodInfo
ResolveScrollInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScrollInfoMethod t ScrollInfo, O.OverloadedMethod info ScrollInfo p) => OL.IsLabel t (ScrollInfo -> 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 ~ ResolveScrollInfoMethod t ScrollInfo, O.OverloadedMethod info ScrollInfo p, R.HasField t ScrollInfo p) => R.HasField t ScrollInfo p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveScrollInfoMethod t ScrollInfo, O.OverloadedMethodInfo info ScrollInfo) => OL.IsLabel t (O.MethodProxy info ScrollInfo) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif