module GI.Gtk.Interfaces.TreeDragDest
(
TreeDragDest(..) ,
noTreeDragDest ,
IsTreeDragDest ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
TreeDragDestDragDataReceivedMethodInfo ,
#endif
treeDragDestDragDataReceived ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
TreeDragDestRowDropPossibleMethodInfo ,
#endif
treeDragDestRowDropPossible ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.Gtk.Structs.SelectionData as Gtk.SelectionData
import qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
newtype TreeDragDest = TreeDragDest (ManagedPtr TreeDragDest)
noTreeDragDest :: Maybe TreeDragDest
noTreeDragDest = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type instance O.SignalList TreeDragDest = TreeDragDestSignalList
type TreeDragDestSignalList = ('[ ] :: [(Symbol, *)])
#endif
class ManagedPtrNewtype a => IsTreeDragDest a
instance IsTreeDragDest TreeDragDest
instance WrappedPtr TreeDragDest where
wrappedPtrCalloc = return nullPtr
wrappedPtrCopy = return
wrappedPtrFree = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveTreeDragDestMethod (t :: Symbol) (o :: *) :: * where
ResolveTreeDragDestMethod "dragDataReceived" o = TreeDragDestDragDataReceivedMethodInfo
ResolveTreeDragDestMethod "rowDropPossible" o = TreeDragDestRowDropPossibleMethodInfo
ResolveTreeDragDestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTreeDragDestMethod t TreeDragDest, O.MethodInfo info TreeDragDest p) => O.IsLabelProxy t (TreeDragDest -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTreeDragDestMethod t TreeDragDest, O.MethodInfo info TreeDragDest p) => O.IsLabel t (TreeDragDest -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
foreign import ccall "gtk_tree_drag_dest_drag_data_received" gtk_tree_drag_dest_drag_data_received ::
Ptr TreeDragDest ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.SelectionData.SelectionData ->
IO CInt
treeDragDestDragDataReceived ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeDragDest a) =>
a
-> Gtk.TreePath.TreePath
-> Gtk.SelectionData.SelectionData
-> m Bool
treeDragDestDragDataReceived dragDest dest selectionData = liftIO $ do
dragDest' <- unsafeManagedPtrCastPtr dragDest
dest' <- unsafeManagedPtrGetPtr dest
selectionData' <- unsafeManagedPtrGetPtr selectionData
result <- gtk_tree_drag_dest_drag_data_received dragDest' dest' selectionData'
let result' = (/= 0) result
touchManagedPtr dragDest
touchManagedPtr dest
touchManagedPtr selectionData
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data TreeDragDestDragDataReceivedMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.SelectionData.SelectionData -> m Bool), MonadIO m, IsTreeDragDest a) => O.MethodInfo TreeDragDestDragDataReceivedMethodInfo a signature where
overloadedMethod _ = treeDragDestDragDataReceived
#endif
foreign import ccall "gtk_tree_drag_dest_row_drop_possible" gtk_tree_drag_dest_row_drop_possible ::
Ptr TreeDragDest ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.SelectionData.SelectionData ->
IO CInt
treeDragDestRowDropPossible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeDragDest a) =>
a
-> Gtk.TreePath.TreePath
-> Gtk.SelectionData.SelectionData
-> m Bool
treeDragDestRowDropPossible dragDest destPath selectionData = liftIO $ do
dragDest' <- unsafeManagedPtrCastPtr dragDest
destPath' <- unsafeManagedPtrGetPtr destPath
selectionData' <- unsafeManagedPtrGetPtr selectionData
result <- gtk_tree_drag_dest_row_drop_possible dragDest' destPath' selectionData'
let result' = (/= 0) result
touchManagedPtr dragDest
touchManagedPtr destPath
touchManagedPtr selectionData
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data TreeDragDestRowDropPossibleMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.SelectionData.SelectionData -> m Bool), MonadIO m, IsTreeDragDest a) => O.MethodInfo TreeDragDestRowDropPossibleMethodInfo a signature where
overloadedMethod _ = treeDragDestRowDropPossible
#endif