{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Atk.Interfaces.Image
(
Image(..) ,
IsImage ,
#if defined(ENABLE_OVERLOADING)
ResolveImageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ImageGetImageDescriptionMethodInfo ,
#endif
imageGetImageDescription ,
#if defined(ENABLE_OVERLOADING)
ImageGetImageLocaleMethodInfo ,
#endif
imageGetImageLocale ,
#if defined(ENABLE_OVERLOADING)
ImageGetImagePositionMethodInfo ,
#endif
imageGetImagePosition ,
#if defined(ENABLE_OVERLOADING)
ImageGetImageSizeMethodInfo ,
#endif
imageGetImageSize ,
#if defined(ENABLE_OVERLOADING)
ImageSetImageDescriptionMethodInfo ,
#endif
imageSetImageDescription ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Atk.Enums as Atk.Enums
newtype Image = Image (SP.ManagedPtr Image)
deriving (Image -> Image -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Image -> Image -> Bool
$c/= :: Image -> Image -> Bool
== :: Image -> Image -> Bool
$c== :: Image -> Image -> Bool
Eq)
instance SP.ManagedPtrNewtype Image where
toManagedPtr :: Image -> ManagedPtr Image
toManagedPtr (Image ManagedPtr Image
p) = ManagedPtr Image
p
class (ManagedPtrNewtype o, O.IsDescendantOf Image o) => IsImage o
instance (ManagedPtrNewtype o, O.IsDescendantOf Image o) => IsImage o
instance BoxedPtr Image where
boxedPtrCopy :: Image -> IO Image
boxedPtrCopy = forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: Image -> IO ()
boxedPtrFree = \Image
_x -> forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
type family ResolveImageMethod (t :: Symbol) (o :: *) :: * where
ResolveImageMethod "getImageDescription" o = ImageGetImageDescriptionMethodInfo
ResolveImageMethod "getImageLocale" o = ImageGetImageLocaleMethodInfo
ResolveImageMethod "getImagePosition" o = ImageGetImagePositionMethodInfo
ResolveImageMethod "getImageSize" o = ImageGetImageSizeMethodInfo
ResolveImageMethod "setImageDescription" o = ImageSetImageDescriptionMethodInfo
ResolveImageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveImageMethod t Image, O.OverloadedMethod info Image p) => OL.IsLabel t (Image -> 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 ~ ResolveImageMethod t Image, O.OverloadedMethod info Image p, R.HasField t Image p) => R.HasField t Image p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveImageMethod t Image, O.OverloadedMethodInfo info Image) => OL.IsLabel t (O.MethodProxy info Image) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
foreign import ccall "atk_image_get_image_description" atk_image_get_image_description ::
Ptr Image ->
IO CString
imageGetImageDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsImage a) =>
a
-> m T.Text
imageGetImageDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsImage a) =>
a -> m Text
imageGetImageDescription a
image = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Image
image' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
image
CString
result <- Ptr Image -> IO CString
atk_image_get_image_description Ptr Image
image'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"imageGetImageDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
image
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ImageGetImageDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsImage a) => O.OverloadedMethod ImageGetImageDescriptionMethodInfo a signature where
overloadedMethod = imageGetImageDescription
instance O.OverloadedMethodInfo ImageGetImageDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Atk.Interfaces.Image.imageGetImageDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-atk-2.0.25/docs/GI-Atk-Interfaces-Image.html#v:imageGetImageDescription"
})
#endif
foreign import ccall "atk_image_get_image_locale" atk_image_get_image_locale ::
Ptr Image ->
IO CString
imageGetImageLocale ::
(B.CallStack.HasCallStack, MonadIO m, IsImage a) =>
a
-> m (Maybe T.Text)
imageGetImageLocale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsImage a) =>
a -> m (Maybe Text)
imageGetImageLocale a
image = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Image
image' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
image
CString
result <- Ptr Image -> IO CString
atk_image_get_image_locale Ptr Image
image'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
image
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ImageGetImageLocaleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsImage a) => O.OverloadedMethod ImageGetImageLocaleMethodInfo a signature where
overloadedMethod = imageGetImageLocale
instance O.OverloadedMethodInfo ImageGetImageLocaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Atk.Interfaces.Image.imageGetImageLocale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-atk-2.0.25/docs/GI-Atk-Interfaces-Image.html#v:imageGetImageLocale"
})
#endif
foreign import ccall "atk_image_get_image_position" atk_image_get_image_position ::
Ptr Image ->
Ptr Int32 ->
Ptr Int32 ->
CUInt ->
IO ()
imageGetImagePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsImage a) =>
a
-> Atk.Enums.CoordType
-> m ((Int32, Int32))
imageGetImagePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsImage a) =>
a -> CoordType -> m (Int32, Int32)
imageGetImagePosition a
image CoordType
coordType = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Image
image' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
image
Ptr Int32
x <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
y <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
let coordType' :: CUInt
coordType' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) CoordType
coordType
Ptr Image -> Ptr Int32 -> Ptr Int32 -> CUInt -> IO ()
atk_image_get_image_position Ptr Image
image' Ptr Int32
x Ptr Int32
y CUInt
coordType'
Int32
x' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
x
Int32
y' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
image
forall a. Ptr a -> IO ()
freeMem Ptr Int32
x
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
x', Int32
y')
#if defined(ENABLE_OVERLOADING)
data ImageGetImagePositionMethodInfo
instance (signature ~ (Atk.Enums.CoordType -> m ((Int32, Int32))), MonadIO m, IsImage a) => O.OverloadedMethod ImageGetImagePositionMethodInfo a signature where
overloadedMethod = imageGetImagePosition
instance O.OverloadedMethodInfo ImageGetImagePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Atk.Interfaces.Image.imageGetImagePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-atk-2.0.25/docs/GI-Atk-Interfaces-Image.html#v:imageGetImagePosition"
})
#endif
foreign import ccall "atk_image_get_image_size" atk_image_get_image_size ::
Ptr Image ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
imageGetImageSize ::
(B.CallStack.HasCallStack, MonadIO m, IsImage a) =>
a
-> m ((Int32, Int32))
imageGetImageSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsImage a) =>
a -> m (Int32, Int32)
imageGetImageSize a
image = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Image
image' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
image
Ptr Int32
width <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Image -> Ptr Int32 -> Ptr Int32 -> IO ()
atk_image_get_image_size Ptr Image
image' Ptr Int32
width Ptr Int32
height
Int32
width' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
image
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data ImageGetImageSizeMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsImage a) => O.OverloadedMethod ImageGetImageSizeMethodInfo a signature where
overloadedMethod = imageGetImageSize
instance O.OverloadedMethodInfo ImageGetImageSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Atk.Interfaces.Image.imageGetImageSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-atk-2.0.25/docs/GI-Atk-Interfaces-Image.html#v:imageGetImageSize"
})
#endif
foreign import ccall "atk_image_set_image_description" atk_image_set_image_description ::
Ptr Image ->
CString ->
IO CInt
imageSetImageDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsImage a) =>
a
-> T.Text
-> m Bool
imageSetImageDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsImage a) =>
a -> Text -> m Bool
imageSetImageDescription a
image Text
description = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Image
image' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
image
CString
description' <- Text -> IO CString
textToCString Text
description
CInt
result <- Ptr Image -> CString -> IO CInt
atk_image_set_image_description Ptr Image
image' CString
description'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
image
forall a. Ptr a -> IO ()
freeMem CString
description'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ImageSetImageDescriptionMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsImage a) => O.OverloadedMethod ImageSetImageDescriptionMethodInfo a signature where
overloadedMethod = imageSetImageDescription
instance O.OverloadedMethodInfo ImageSetImageDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Atk.Interfaces.Image.imageSetImageDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-atk-2.0.25/docs/GI-Atk-Interfaces-Image.html#v:imageSetImageDescription"
})
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Image = ImageSignalList
type ImageSignalList = ('[ ] :: [(Symbol, *)])
#endif