[Gtk2hs-commit] (main branch): Improve signal `queryTooltip`

[Andy S. <And...@co...>]

diffing dir...
Wed Jun  2 03:05:55 EDT 2010  Andy Stewart <laz...@gm...>
  * Improve signal `queryTooltip`
  Ignore-this: 4b625d69ebb779f22ec57ae0cc5223aa
    {
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 380
    +                                        ,Point
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2478
    --- for widget. If this is the case 'True' should be returned, 'False' otherwise. Note that if @keyboardMode@
    --- is 'True', the values of x and y are undefined and should not be used.
    +-- for widget. If this is the case 'True' should be returned, 'False' otherwise. [_$_]
    +-- Note if widget got focus in keyboard mode, 'Point' is 'Nothing'.
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2485
    -queryTooltip :: WidgetClass self => Signal self (Widget -> Int -> Int -> Bool -> Tooltip -> IO Bool)
    -queryTooltip = Signal (connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL "query-tooltip")
    +queryTooltip :: WidgetClass self => Signal self (Widget -> Maybe Point -> Tooltip -> IO Bool)
    +queryTooltip =
    +  Signal (\after model user -> [_$_]
    +           connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL "query_tooltip" [_$_]
    +             after model (\widget x y keyb tooltip -> [_$_]
    +                              user widget (if keyb then Nothing else Just (x, y)) tooltip))
    }