[Gtk2hs-commit] (main branch): Add the dragFailed signal.

[Axel S. <si...@co...>]

Mon Sep 28 15:32:24 EDT 2009  Axe...@en...
  * Add the dragFailed signal.

    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs.pp 65
    +  DragResult(..),
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs.pp 142
    -import Graphics.UI.Gtk.General.Enums ( DestDefaults(..), DragProtocol(..) )
    +import Graphics.UI.Gtk.General.Enums ( DestDefaults(..), DragProtocol(..),
    +                                       DragResult(..) )
    hunk ./gtk/Graphics/UI/Gtk/General/Drag.chs.pp 690
    -dragFailed = error "dragFailed: not defined yet"
    +-- | The 'dragFailed' signal is emitted on the drag source when a drag has
    +-- failed. The signal handler may hook custom code to handle a failed DND
    +-- operation based on the type of error, it returns @True@ is the failure has
    +-- been already handled (not showing the default \"drag operation failed\"
    +-- animation), otherwise it returns @False@.
    +--
    +-- * Available since Gtk+ 2.12.0.
    +--
    +dragFailed :: WidgetClass self => Signal self (DragContext -> DragResult -> IO Bool)
    +dragFailed = Signal (connect_OBJECT_ENUM__BOOL "drag_failed")
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 38
    +  DragResult(..),
    hunk ./gtk/Graphics/UI/Gtk/General/Enums.chs.pp 176
    +-- | Gives an indication why a drag operation failed. The value can by
    +-- obtained by connecting to the 'Graphics.UI.Gtk.General.Drag.dragFailed'
    +-- signal.
    +--
    +-- * 'DragResultSuccess': The drag operation was successful
    +--
    +-- * 'DragResultNoTarget': No suitable drag target
    +--
    +-- * 'DragResultUserCancelled': The user cancelled the drag operation
    +--
    +-- * 'DragResultTimeoutExpired': The drag operation timed out
    +--
    +-- * 'DragResultGrabBroken': The pointer or keyboard grab used for the drag
    +--   operation was broken
    +--
    +-- * 'DragResultError': The drag operation failed due to some unspecified error
    +--
    +{#enum DragResult {underscoreToCase} deriving (Bounded,Eq,Show)#}
    +