{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) /No description available in the introspection data./ -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.GdkX11.Objects.X11DragContext ( -- * Exported types X11DragContext(..) , IsX11DragContext , toX11DragContext , noX11DragContext , ) 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.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.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 GI.GObject.Objects.Object as GObject.Object import qualified GI.Gdk.Objects.DragContext as Gdk.DragContext -- | Memory-managed wrapper type. newtype X11DragContext = X11DragContext (ManagedPtr X11DragContext) foreign import ccall "gdk_x11_drag_context_get_type" c_gdk_x11_drag_context_get_type :: IO GType instance GObject X11DragContext where gobjectType = c_gdk_x11_drag_context_get_type -- | Type class for types which can be safely cast to `X11DragContext`, for instance with `toX11DragContext`. class (GObject o, O.IsDescendantOf X11DragContext o) => IsX11DragContext o instance (GObject o, O.IsDescendantOf X11DragContext o) => IsX11DragContext o instance O.HasParentTypes X11DragContext type instance O.ParentTypes X11DragContext = '[Gdk.DragContext.DragContext, GObject.Object.Object] -- | Cast to `X11DragContext`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toX11DragContext :: (MonadIO m, IsX11DragContext o) => o -> m X11DragContext toX11DragContext = liftIO . unsafeCastTo X11DragContext -- | A convenience alias for `Nothing` :: `Maybe` `X11DragContext`. noX11DragContext :: Maybe X11DragContext noX11DragContext = Nothing #if ENABLE_OVERLOADING type family ResolveX11DragContextMethod (t :: Symbol) (o :: *) :: * where ResolveX11DragContextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolveX11DragContextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolveX11DragContextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolveX11DragContextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolveX11DragContextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo ResolveX11DragContextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolveX11DragContextMethod "listTargets" o = Gdk.DragContext.DragContextListTargetsMethodInfo ResolveX11DragContextMethod "manageDnd" o = Gdk.DragContext.DragContextManageDndMethodInfo ResolveX11DragContextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolveX11DragContextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolveX11DragContextMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolveX11DragContextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolveX11DragContextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolveX11DragContextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolveX11DragContextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolveX11DragContextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolveX11DragContextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolveX11DragContextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolveX11DragContextMethod "getActions" o = Gdk.DragContext.DragContextGetActionsMethodInfo ResolveX11DragContextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolveX11DragContextMethod "getDestWindow" o = Gdk.DragContext.DragContextGetDestWindowMethodInfo ResolveX11DragContextMethod "getDevice" o = Gdk.DragContext.DragContextGetDeviceMethodInfo ResolveX11DragContextMethod "getDragWindow" o = Gdk.DragContext.DragContextGetDragWindowMethodInfo ResolveX11DragContextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolveX11DragContextMethod "getProtocol" o = Gdk.DragContext.DragContextGetProtocolMethodInfo ResolveX11DragContextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolveX11DragContextMethod "getSelectedAction" o = Gdk.DragContext.DragContextGetSelectedActionMethodInfo ResolveX11DragContextMethod "getSourceWindow" o = Gdk.DragContext.DragContextGetSourceWindowMethodInfo ResolveX11DragContextMethod "getSuggestedAction" o = Gdk.DragContext.DragContextGetSuggestedActionMethodInfo ResolveX11DragContextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolveX11DragContextMethod "setDevice" o = Gdk.DragContext.DragContextSetDeviceMethodInfo ResolveX11DragContextMethod "setHotspot" o = Gdk.DragContext.DragContextSetHotspotMethodInfo ResolveX11DragContextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolveX11DragContextMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolveX11DragContextMethod t X11DragContext, O.MethodInfo info X11DragContext p) => OL.IsLabel t (X11DragContext -> 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 #if ENABLE_OVERLOADING instance O.HasAttributeList X11DragContext type instance O.AttributeList X11DragContext = X11DragContextAttributeList type X11DragContextAttributeList = ('[ ] :: [(Symbol, *)]) #endif #if ENABLE_OVERLOADING #endif #if ENABLE_OVERLOADING type instance O.SignalList X11DragContext = X11DragContextSignalList type X11DragContextSignalList = ('[ '("actionChanged", Gdk.DragContext.DragContextActionChangedSignalInfo), '("cancel", Gdk.DragContext.DragContextCancelSignalInfo), '("dndFinished", Gdk.DragContext.DragContextDndFinishedSignalInfo), '("dropPerformed", Gdk.DragContext.DragContextDropPerformedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)]) #endif