{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.SelectionData
(
SelectionData(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveSelectionDataMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SelectionDataCopyMethodInfo ,
#endif
selectionDataCopy ,
#if defined(ENABLE_OVERLOADING)
SelectionDataFreeMethodInfo ,
#endif
selectionDataFree ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetDataMethodInfo ,
#endif
selectionDataGetData ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetDataTypeMethodInfo ,
#endif
selectionDataGetDataType ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetDisplayMethodInfo ,
#endif
selectionDataGetDisplay ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetFormatMethodInfo ,
#endif
selectionDataGetFormat ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetLengthMethodInfo ,
#endif
selectionDataGetLength ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetPixbufMethodInfo ,
#endif
selectionDataGetPixbuf ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetSelectionMethodInfo ,
#endif
selectionDataGetSelection ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetTargetMethodInfo ,
#endif
selectionDataGetTarget ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetTargetsMethodInfo ,
#endif
selectionDataGetTargets ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetTextMethodInfo ,
#endif
selectionDataGetText ,
#if defined(ENABLE_OVERLOADING)
SelectionDataGetUrisMethodInfo ,
#endif
selectionDataGetUris ,
#if defined(ENABLE_OVERLOADING)
SelectionDataSetMethodInfo ,
#endif
selectionDataSet ,
#if defined(ENABLE_OVERLOADING)
SelectionDataSetPixbufMethodInfo ,
#endif
selectionDataSetPixbuf ,
#if defined(ENABLE_OVERLOADING)
SelectionDataSetTextMethodInfo ,
#endif
selectionDataSetText ,
#if defined(ENABLE_OVERLOADING)
SelectionDataSetUrisMethodInfo ,
#endif
selectionDataSetUris ,
#if defined(ENABLE_OVERLOADING)
SelectionDataTargetsIncludeImageMethodInfo,
#endif
selectionDataTargetsIncludeImage ,
#if defined(ENABLE_OVERLOADING)
SelectionDataTargetsIncludeRichTextMethodInfo,
#endif
selectionDataTargetsIncludeRichText ,
#if defined(ENABLE_OVERLOADING)
SelectionDataTargetsIncludeTextMethodInfo,
#endif
selectionDataTargetsIncludeText ,
#if defined(ENABLE_OVERLOADING)
SelectionDataTargetsIncludeUriMethodInfo,
#endif
selectionDataTargetsIncludeUri ,
) 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 GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Structs.Atom as Gdk.Atom
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import {-# SOURCE #-} qualified GI.Gtk.Objects.TextBuffer as Gtk.TextBuffer
newtype SelectionData = SelectionData (SP.ManagedPtr SelectionData)
deriving (SelectionData -> SelectionData -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SelectionData -> SelectionData -> Bool
$c/= :: SelectionData -> SelectionData -> Bool
== :: SelectionData -> SelectionData -> Bool
$c== :: SelectionData -> SelectionData -> Bool
Eq)
instance SP.ManagedPtrNewtype SelectionData where
toManagedPtr :: SelectionData -> ManagedPtr SelectionData
toManagedPtr (SelectionData ManagedPtr SelectionData
p) = ManagedPtr SelectionData
p
foreign import ccall "gtk_selection_data_get_type" c_gtk_selection_data_get_type ::
IO GType
type instance O.ParentTypes SelectionData = '[]
instance O.HasParentTypes SelectionData
instance B.Types.TypedObject SelectionData where
glibType :: IO GType
glibType = IO GType
c_gtk_selection_data_get_type
instance B.Types.GBoxed SelectionData
instance B.GValue.IsGValue (Maybe SelectionData) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_selection_data_get_type
gvalueSet_ :: Ptr GValue -> Maybe SelectionData -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SelectionData
P.Nothing = forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr SelectionData)
gvalueSet_ Ptr GValue
gv (P.Just SelectionData
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SelectionData
obj (forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SelectionData)
gvalueGet_ Ptr GValue
gv = do
Ptr SelectionData
ptr <- forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr SelectionData)
if Ptr SelectionData
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr SelectionData -> SelectionData
SelectionData Ptr SelectionData
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SelectionData
type instance O.AttributeList SelectionData = SelectionDataAttributeList
type SelectionDataAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_selection_data_copy" gtk_selection_data_copy ::
Ptr SelectionData ->
IO (Ptr SelectionData)
selectionDataCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m SelectionData
selectionDataCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m SelectionData
selectionDataCopy SelectionData
data_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
data_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
data_
Ptr SelectionData
result <- Ptr SelectionData -> IO (Ptr SelectionData)
gtk_selection_data_copy Ptr SelectionData
data_'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"selectionDataCopy" Ptr SelectionData
result
SelectionData
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SelectionData -> SelectionData
SelectionData) Ptr SelectionData
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
data_
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionData
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataCopyMethodInfo
instance (signature ~ (m SelectionData), MonadIO m) => O.OverloadedMethod SelectionDataCopyMethodInfo SelectionData signature where
overloadedMethod = selectionDataCopy
instance O.OverloadedMethodInfo SelectionDataCopyMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataCopy"
})
#endif
foreign import ccall "gtk_selection_data_free" gtk_selection_data_free ::
Ptr SelectionData ->
IO ()
selectionDataFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m ()
selectionDataFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m ()
selectionDataFree SelectionData
data_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
data_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
data_
Ptr SelectionData -> IO ()
gtk_selection_data_free Ptr SelectionData
data_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
data_
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SelectionDataFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod SelectionDataFreeMethodInfo SelectionData signature where
overloadedMethod = selectionDataFree
instance O.OverloadedMethodInfo SelectionDataFreeMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataFree"
})
#endif
foreign import ccall "gtk_selection_data_get_data_type" gtk_selection_data_get_data_type ::
Ptr SelectionData ->
IO (Ptr Gdk.Atom.Atom)
selectionDataGetDataType ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Gdk.Atom.Atom
selectionDataGetDataType :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Atom
selectionDataGetDataType SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Atom
result <- Ptr SelectionData -> IO (Ptr Atom)
gtk_selection_data_get_data_type Ptr SelectionData
selectionData'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"selectionDataGetDataType" Ptr Atom
result
Atom
result' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetDataTypeMethodInfo
instance (signature ~ (m Gdk.Atom.Atom), MonadIO m) => O.OverloadedMethod SelectionDataGetDataTypeMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetDataType
instance O.OverloadedMethodInfo SelectionDataGetDataTypeMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetDataType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetDataType"
})
#endif
foreign import ccall "gtk_selection_data_get_data_with_length" gtk_selection_data_get_data_with_length ::
Ptr SelectionData ->
Ptr Int32 ->
IO (Ptr Word8)
selectionDataGetData ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m ByteString
selectionDataGetData :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m ByteString
selectionDataGetData SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Int32
length_ <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Word8
result <- Ptr SelectionData -> Ptr Int32 -> IO (Ptr Word8)
gtk_selection_data_get_data_with_length Ptr SelectionData
selectionData' Ptr Int32
length_
Int32
length_' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
length_
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"selectionDataGetData" Ptr Word8
result
ByteString
result' <- (forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength Int32
length_') Ptr Word8
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall a. Ptr a -> IO ()
freeMem Ptr Int32
length_
forall (m :: * -> *) a. Monad m => a -> m a
return ByteString
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetDataMethodInfo
instance (signature ~ (m ByteString), MonadIO m) => O.OverloadedMethod SelectionDataGetDataMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetData
instance O.OverloadedMethodInfo SelectionDataGetDataMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetData"
})
#endif
foreign import ccall "gtk_selection_data_get_display" gtk_selection_data_get_display ::
Ptr SelectionData ->
IO (Ptr Gdk.Display.Display)
selectionDataGetDisplay ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Gdk.Display.Display
selectionDataGetDisplay :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Display
selectionDataGetDisplay SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Display
result <- Ptr SelectionData -> IO (Ptr Display)
gtk_selection_data_get_display Ptr SelectionData
selectionData'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"selectionDataGetDisplay" Ptr Display
result
Display
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Display -> Display
Gdk.Display.Display) Ptr Display
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Display
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetDisplayMethodInfo
instance (signature ~ (m Gdk.Display.Display), MonadIO m) => O.OverloadedMethod SelectionDataGetDisplayMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetDisplay
instance O.OverloadedMethodInfo SelectionDataGetDisplayMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetDisplay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetDisplay"
})
#endif
foreign import ccall "gtk_selection_data_get_format" gtk_selection_data_get_format ::
Ptr SelectionData ->
IO Int32
selectionDataGetFormat ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Int32
selectionDataGetFormat :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Int32
selectionDataGetFormat SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Int32
result <- Ptr SelectionData -> IO Int32
gtk_selection_data_get_format Ptr SelectionData
selectionData'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetFormatMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod SelectionDataGetFormatMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetFormat
instance O.OverloadedMethodInfo SelectionDataGetFormatMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetFormat"
})
#endif
foreign import ccall "gtk_selection_data_get_length" gtk_selection_data_get_length ::
Ptr SelectionData ->
IO Int32
selectionDataGetLength ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Int32
selectionDataGetLength :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Int32
selectionDataGetLength SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Int32
result <- Ptr SelectionData -> IO Int32
gtk_selection_data_get_length Ptr SelectionData
selectionData'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetLengthMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod SelectionDataGetLengthMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetLength
instance O.OverloadedMethodInfo SelectionDataGetLengthMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetLength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetLength"
})
#endif
foreign import ccall "gtk_selection_data_get_pixbuf" gtk_selection_data_get_pixbuf ::
Ptr SelectionData ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
selectionDataGetPixbuf ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
selectionDataGetPixbuf :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m (Maybe Pixbuf)
selectionDataGetPixbuf SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Pixbuf
result <- Ptr SelectionData -> IO (Ptr Pixbuf)
gtk_selection_data_get_pixbuf Ptr SelectionData
selectionData'
Maybe Pixbuf
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pixbuf
result forall a b. (a -> b) -> a -> b
$ \Ptr Pixbuf
result' -> do
Pixbuf
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
maybeResult
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetPixbufMethodInfo
instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m) => O.OverloadedMethod SelectionDataGetPixbufMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetPixbuf
instance O.OverloadedMethodInfo SelectionDataGetPixbufMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetPixbuf",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetPixbuf"
})
#endif
foreign import ccall "gtk_selection_data_get_selection" gtk_selection_data_get_selection ::
Ptr SelectionData ->
IO (Ptr Gdk.Atom.Atom)
selectionDataGetSelection ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Gdk.Atom.Atom
selectionDataGetSelection :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Atom
selectionDataGetSelection SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Atom
result <- Ptr SelectionData -> IO (Ptr Atom)
gtk_selection_data_get_selection Ptr SelectionData
selectionData'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"selectionDataGetSelection" Ptr Atom
result
Atom
result' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetSelectionMethodInfo
instance (signature ~ (m Gdk.Atom.Atom), MonadIO m) => O.OverloadedMethod SelectionDataGetSelectionMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetSelection
instance O.OverloadedMethodInfo SelectionDataGetSelectionMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetSelection"
})
#endif
foreign import ccall "gtk_selection_data_get_target" gtk_selection_data_get_target ::
Ptr SelectionData ->
IO (Ptr Gdk.Atom.Atom)
selectionDataGetTarget ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Gdk.Atom.Atom
selectionDataGetTarget :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Atom
selectionDataGetTarget SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Atom
result <- Ptr SelectionData -> IO (Ptr Atom)
gtk_selection_data_get_target Ptr SelectionData
selectionData'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"selectionDataGetTarget" Ptr Atom
result
Atom
result' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetTargetMethodInfo
instance (signature ~ (m Gdk.Atom.Atom), MonadIO m) => O.OverloadedMethod SelectionDataGetTargetMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetTarget
instance O.OverloadedMethodInfo SelectionDataGetTargetMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetTarget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetTarget"
})
#endif
foreign import ccall "gtk_selection_data_get_targets" gtk_selection_data_get_targets ::
Ptr SelectionData ->
Ptr (Ptr (Ptr Gdk.Atom.Atom)) ->
Ptr Int32 ->
IO CInt
selectionDataGetTargets ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m ((Bool, [Gdk.Atom.Atom]))
selectionDataGetTargets :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m (Bool, [Atom])
selectionDataGetTargets SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr (Ptr (Ptr Atom))
targets <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom.Atom)))
Ptr Int32
nAtoms <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr SelectionData -> Ptr (Ptr (Ptr Atom)) -> Ptr Int32 -> IO CInt
gtk_selection_data_get_targets Ptr SelectionData
selectionData' Ptr (Ptr (Ptr Atom))
targets Ptr Int32
nAtoms
Int32
nAtoms' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
nAtoms
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr (Ptr Atom)
targets' <- forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr (Ptr Atom))
targets
[Ptr Atom]
targets'' <- (forall a b. Integral a => a -> Ptr (Ptr b) -> IO [Ptr b]
unpackPtrArrayWithLength Int32
nAtoms') Ptr (Ptr Atom)
targets'
[Atom]
targets''' <- forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) [Ptr Atom]
targets''
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr Atom)
targets'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr (Ptr Atom))
targets
forall a. Ptr a -> IO ()
freeMem Ptr Int32
nAtoms
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', [Atom]
targets''')
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetTargetsMethodInfo
instance (signature ~ (m ((Bool, [Gdk.Atom.Atom]))), MonadIO m) => O.OverloadedMethod SelectionDataGetTargetsMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetTargets
instance O.OverloadedMethodInfo SelectionDataGetTargetsMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetTargets",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetTargets"
})
#endif
foreign import ccall "gtk_selection_data_get_text" gtk_selection_data_get_text ::
Ptr SelectionData ->
IO CString
selectionDataGetText ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m (Maybe T.Text)
selectionDataGetText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m (Maybe Text)
selectionDataGetText SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
CString
result <- Ptr SelectionData -> IO CString
gtk_selection_data_get_text Ptr SelectionData
selectionData'
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 a. Ptr a -> IO ()
freeMem CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod SelectionDataGetTextMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetText
instance O.OverloadedMethodInfo SelectionDataGetTextMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetText"
})
#endif
foreign import ccall "gtk_selection_data_get_uris" gtk_selection_data_get_uris ::
Ptr SelectionData ->
IO (Ptr CString)
selectionDataGetUris ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m [T.Text]
selectionDataGetUris :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m [Text]
selectionDataGetUris SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr CString
result <- Ptr SelectionData -> IO (Ptr CString)
gtk_selection_data_get_uris Ptr SelectionData
selectionData'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"selectionDataGetUris" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr CString
result
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataGetUrisMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m) => O.OverloadedMethod SelectionDataGetUrisMethodInfo SelectionData signature where
overloadedMethod = selectionDataGetUris
instance O.OverloadedMethodInfo SelectionDataGetUrisMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataGetUris",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataGetUris"
})
#endif
foreign import ccall "gtk_selection_data_set" gtk_selection_data_set ::
Ptr SelectionData ->
Ptr Gdk.Atom.Atom ->
Int32 ->
Ptr Word8 ->
Int32 ->
IO ()
selectionDataSet ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> Gdk.Atom.Atom
-> Int32
-> ByteString
-> m ()
selectionDataSet :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> Atom -> Int32 -> ByteString -> m ()
selectionDataSet SelectionData
selectionData Atom
type_ Int32
format ByteString
data_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let length_ :: Int32
length_ = forall a b. (Integral a, Num b) => a -> b
fromIntegral forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
data_
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Atom
type_' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
type_
Ptr Word8
data_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
data_
Ptr SelectionData
-> Ptr Atom -> Int32 -> Ptr Word8 -> Int32 -> IO ()
gtk_selection_data_set Ptr SelectionData
selectionData' Ptr Atom
type_' Int32
format Ptr Word8
data_' Int32
length_
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
type_
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SelectionDataSetMethodInfo
instance (signature ~ (Gdk.Atom.Atom -> Int32 -> ByteString -> m ()), MonadIO m) => O.OverloadedMethod SelectionDataSetMethodInfo SelectionData signature where
overloadedMethod = selectionDataSet
instance O.OverloadedMethodInfo SelectionDataSetMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataSet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataSet"
})
#endif
foreign import ccall "gtk_selection_data_set_pixbuf" gtk_selection_data_set_pixbuf ::
Ptr SelectionData ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO CInt
selectionDataSetPixbuf ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
SelectionData
-> a
-> m Bool
selectionDataSetPixbuf :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
SelectionData -> a -> m Bool
selectionDataSetPixbuf SelectionData
selectionData a
pixbuf = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr Pixbuf
pixbuf' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pixbuf
CInt
result <- Ptr SelectionData -> Ptr Pixbuf -> IO CInt
gtk_selection_data_set_pixbuf Ptr SelectionData
selectionData' Ptr Pixbuf
pixbuf'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataSetPixbufMethodInfo
instance (signature ~ (a -> m Bool), MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) => O.OverloadedMethod SelectionDataSetPixbufMethodInfo SelectionData signature where
overloadedMethod = selectionDataSetPixbuf
instance O.OverloadedMethodInfo SelectionDataSetPixbufMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataSetPixbuf",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataSetPixbuf"
})
#endif
foreign import ccall "gtk_selection_data_set_text" gtk_selection_data_set_text ::
Ptr SelectionData ->
CString ->
Int32 ->
IO CInt
selectionDataSetText ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> T.Text
-> Int32
-> m Bool
selectionDataSetText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> Text -> Int32 -> m Bool
selectionDataSetText SelectionData
selectionData Text
str Int32
len = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
CString
str' <- Text -> IO CString
textToCString Text
str
CInt
result <- Ptr SelectionData -> CString -> Int32 -> IO CInt
gtk_selection_data_set_text Ptr SelectionData
selectionData' CString
str' Int32
len
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall a. Ptr a -> IO ()
freeMem CString
str'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataSetTextMethodInfo
instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m) => O.OverloadedMethod SelectionDataSetTextMethodInfo SelectionData signature where
overloadedMethod = selectionDataSetText
instance O.OverloadedMethodInfo SelectionDataSetTextMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataSetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataSetText"
})
#endif
foreign import ccall "gtk_selection_data_set_uris" gtk_selection_data_set_uris ::
Ptr SelectionData ->
Ptr CString ->
IO CInt
selectionDataSetUris ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> [T.Text]
-> m Bool
selectionDataSetUris :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> [Text] -> m Bool
selectionDataSetUris SelectionData
selectionData [Text]
uris = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr CString
uris' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
uris
CInt
result <- Ptr SelectionData -> Ptr CString -> IO CInt
gtk_selection_data_set_uris Ptr SelectionData
selectionData' Ptr CString
uris'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray forall a. Ptr a -> IO ()
freeMem Ptr CString
uris'
forall a. Ptr a -> IO ()
freeMem Ptr CString
uris'
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataSetUrisMethodInfo
instance (signature ~ ([T.Text] -> m Bool), MonadIO m) => O.OverloadedMethod SelectionDataSetUrisMethodInfo SelectionData signature where
overloadedMethod = selectionDataSetUris
instance O.OverloadedMethodInfo SelectionDataSetUrisMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataSetUris",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataSetUris"
})
#endif
foreign import ccall "gtk_selection_data_targets_include_image" gtk_selection_data_targets_include_image ::
Ptr SelectionData ->
CInt ->
IO CInt
selectionDataTargetsIncludeImage ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> Bool
-> m Bool
selectionDataTargetsIncludeImage :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> Bool -> m Bool
selectionDataTargetsIncludeImage SelectionData
selectionData Bool
writable = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
let writable' :: CInt
writable' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
writable
CInt
result <- Ptr SelectionData -> CInt -> IO CInt
gtk_selection_data_targets_include_image Ptr SelectionData
selectionData' CInt
writable'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataTargetsIncludeImageMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m) => O.OverloadedMethod SelectionDataTargetsIncludeImageMethodInfo SelectionData signature where
overloadedMethod = selectionDataTargetsIncludeImage
instance O.OverloadedMethodInfo SelectionDataTargetsIncludeImageMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataTargetsIncludeImage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataTargetsIncludeImage"
})
#endif
foreign import ccall "gtk_selection_data_targets_include_rich_text" gtk_selection_data_targets_include_rich_text ::
Ptr SelectionData ->
Ptr Gtk.TextBuffer.TextBuffer ->
IO CInt
selectionDataTargetsIncludeRichText ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TextBuffer.IsTextBuffer a) =>
SelectionData
-> a
-> m Bool
selectionDataTargetsIncludeRichText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTextBuffer a) =>
SelectionData -> a -> m Bool
selectionDataTargetsIncludeRichText SelectionData
selectionData a
buffer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
Ptr TextBuffer
buffer' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
buffer
CInt
result <- Ptr SelectionData -> Ptr TextBuffer -> IO CInt
gtk_selection_data_targets_include_rich_text Ptr SelectionData
selectionData' Ptr TextBuffer
buffer'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
buffer
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataTargetsIncludeRichTextMethodInfo
instance (signature ~ (a -> m Bool), MonadIO m, Gtk.TextBuffer.IsTextBuffer a) => O.OverloadedMethod SelectionDataTargetsIncludeRichTextMethodInfo SelectionData signature where
overloadedMethod = selectionDataTargetsIncludeRichText
instance O.OverloadedMethodInfo SelectionDataTargetsIncludeRichTextMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataTargetsIncludeRichText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataTargetsIncludeRichText"
})
#endif
foreign import ccall "gtk_selection_data_targets_include_text" gtk_selection_data_targets_include_text ::
Ptr SelectionData ->
IO CInt
selectionDataTargetsIncludeText ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Bool
selectionDataTargetsIncludeText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Bool
selectionDataTargetsIncludeText SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
CInt
result <- Ptr SelectionData -> IO CInt
gtk_selection_data_targets_include_text Ptr SelectionData
selectionData'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataTargetsIncludeTextMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod SelectionDataTargetsIncludeTextMethodInfo SelectionData signature where
overloadedMethod = selectionDataTargetsIncludeText
instance O.OverloadedMethodInfo SelectionDataTargetsIncludeTextMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataTargetsIncludeText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataTargetsIncludeText"
})
#endif
foreign import ccall "gtk_selection_data_targets_include_uri" gtk_selection_data_targets_include_uri ::
Ptr SelectionData ->
IO CInt
selectionDataTargetsIncludeUri ::
(B.CallStack.HasCallStack, MonadIO m) =>
SelectionData
-> m Bool
selectionDataTargetsIncludeUri :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SelectionData -> m Bool
selectionDataTargetsIncludeUri SelectionData
selectionData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionData
selectionData' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SelectionData
selectionData
CInt
result <- Ptr SelectionData -> IO CInt
gtk_selection_data_targets_include_uri Ptr SelectionData
selectionData'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SelectionData
selectionData
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data SelectionDataTargetsIncludeUriMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod SelectionDataTargetsIncludeUriMethodInfo SelectionData signature where
overloadedMethod = selectionDataTargetsIncludeUri
instance O.OverloadedMethodInfo SelectionDataTargetsIncludeUriMethodInfo SelectionData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.SelectionData.selectionDataTargetsIncludeUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-SelectionData.html#v:selectionDataTargetsIncludeUri"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveSelectionDataMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSelectionDataMethod "copy" o = SelectionDataCopyMethodInfo
ResolveSelectionDataMethod "free" o = SelectionDataFreeMethodInfo
ResolveSelectionDataMethod "set" o = SelectionDataSetMethodInfo
ResolveSelectionDataMethod "targetsIncludeImage" o = SelectionDataTargetsIncludeImageMethodInfo
ResolveSelectionDataMethod "targetsIncludeRichText" o = SelectionDataTargetsIncludeRichTextMethodInfo
ResolveSelectionDataMethod "targetsIncludeText" o = SelectionDataTargetsIncludeTextMethodInfo
ResolveSelectionDataMethod "targetsIncludeUri" o = SelectionDataTargetsIncludeUriMethodInfo
ResolveSelectionDataMethod "getDataType" o = SelectionDataGetDataTypeMethodInfo
ResolveSelectionDataMethod "getData" o = SelectionDataGetDataMethodInfo
ResolveSelectionDataMethod "getDisplay" o = SelectionDataGetDisplayMethodInfo
ResolveSelectionDataMethod "getFormat" o = SelectionDataGetFormatMethodInfo
ResolveSelectionDataMethod "getLength" o = SelectionDataGetLengthMethodInfo
ResolveSelectionDataMethod "getPixbuf" o = SelectionDataGetPixbufMethodInfo
ResolveSelectionDataMethod "getSelection" o = SelectionDataGetSelectionMethodInfo
ResolveSelectionDataMethod "getTarget" o = SelectionDataGetTargetMethodInfo
ResolveSelectionDataMethod "getTargets" o = SelectionDataGetTargetsMethodInfo
ResolveSelectionDataMethod "getText" o = SelectionDataGetTextMethodInfo
ResolveSelectionDataMethod "getUris" o = SelectionDataGetUrisMethodInfo
ResolveSelectionDataMethod "setPixbuf" o = SelectionDataSetPixbufMethodInfo
ResolveSelectionDataMethod "setText" o = SelectionDataSetTextMethodInfo
ResolveSelectionDataMethod "setUris" o = SelectionDataSetUrisMethodInfo
ResolveSelectionDataMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSelectionDataMethod t SelectionData, O.OverloadedMethod info SelectionData p) => OL.IsLabel t (SelectionData -> 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 ~ ResolveSelectionDataMethod t SelectionData, O.OverloadedMethod info SelectionData p, R.HasField t SelectionData p) => R.HasField t SelectionData p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSelectionDataMethod t SelectionData, O.OverloadedMethodInfo info SelectionData) => OL.IsLabel t (O.MethodProxy info SelectionData) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif