1 patch for repository http://code.haskell.org/gtk2hs/:
Tue Jun 1 22:03:04 CST 2010 Andy Stewart <lazycat.mana...@gmail.com>
* Add Widget support functions for Tooltip.chs
New patches:
[Add Widget support functions for Tooltip.chs
Andy Stewart <lazycat.mana...@gmail.com>**20100601140304
Ignore-this: 6b10098119f7a416d763c834bd892cae
] {
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 143
#if GTK_CHECK_VERSION(2,10,0)
widgetInputShapeCombineMask,
#endif
+#if GTK_CHECK_VERSION(2,12,0)
+ widgetGetTooltipWindow,
+ widgetSetTooltipWindow,
+ widgetTriggerTooltipQuery,
+#endif
widgetPath,
widgetClassPath,
widgetGetCompositeName,
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 229
widgetColormap,
widgetCompositeName,
widgetDirection,
+ widgetTooltipMarkup,
+ widgetTooltipText,
+ widgetHasTooltip,
-- * Signals
realize,
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 253
showHelp,
accelClosuresChanged,
screenChanged,
+ queryTooltip,
-- * Events
buttonPressEvent,
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 1181
(fromIntegral offsetY)
#endif
+#if GTK_CHECK_VERSION(2,12,0)
+-- | Returns the 'Window' of the current tooltip. This can be the 'Window' created by default, or the
+-- custom tooltip window set using 'widgetSetTooltipWindow'.
+--
+-- * Available since Gtk+ version 2.12
+--
+widgetGetTooltipWindow :: WidgetClass self => self
+ -> IO Window -- ^ returns The 'Window' of the current tooltip. . transfer none.
+widgetGetTooltipWindow self =
+ makeNewObject mkWindow $
+ {# call gtk_widget_get_tooltip_window #}
+ (toWidget self)
+
+-- | Replaces the default, usually yellow, window used for displaying tooltips with @customwin...@. GTK+
+-- will take care of showing and hiding @customWindow@ at the right moment, to behave likewise as the
+-- default tooltip window. If @customWindow@ is 'Nothing', the default tooltip window will be used.
+--
+-- If the custom window should have the default theming it needs to have the name 'gtk-tooltip', see
+-- 'widgetSetName'.
+--
+-- * Available since Gtk+ version 2.12
+--
+widgetSetTooltipWindow :: (WidgetClass self, WindowClass customWindow) => self
+ -> Maybe customWindow -- ^ @customWindow@ a 'Window', or 'Nothing'. allow-none.
+ -> IO ()
+widgetSetTooltipWindow self customWindow =
+ {# call gtk_widget_set_tooltip_window #}
+ (toWidget self)
+ (maybe (Window nullForeignPtr) toWindow customWindow)
+
+-- | Triggers a tooltip query on the display where the toplevel of @widget@ is
+-- located. See 'tooltipTriggerTooltipQuery' for more information.
+--
+-- * Available since Gtk+ version 2.12
+--
+widgetTriggerTooltipQuery :: WidgetClass self => self -> IO ()
+widgetTriggerTooltipQuery self =
+ {# call gtk_widget_trigger_tooltip_query #}
+ (toWidget self)
+#endif
+
-- %hash c:7e36 d:616f
-- | Obtains the full path to @wid...@. The path is simply the name of a
-- widget and all its parents in the container hierarchy, separated by periods.
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2276
widgetGetDirection
widgetSetDirection
+-- | Sets the text of tooltip to be the given string, which is marked up with the Pango text markup
+-- language. Also see 'tooltipSetMarkup'.
+--
+-- This is a convenience property which will take care of getting the tooltip shown if the given string
+-- is not \"\": 'hasTooltip' will automatically be set to 'True' and there will be taken care of
+-- 'queryTooltip' in the default signal handler.
+--
+-- Default value: \"\"
+--
+-- * Available since Gtk+ version 2.12
+--
+widgetTooltipMarkup :: WidgetClass self => Attr self (Maybe String)
+widgetTooltipMarkup = newAttrFromMaybeStringProperty "tooltip-markup"
+
+-- | Sets the text of tooltip to be the given string.
+--
+-- Also see 'tooltipSetText'.
+--
+-- This is a convenience property which will take care of getting the tooltip shown if the given string
+-- is not \"\": 'hasTooltip' will automatically be set to 'True' and there will be taken care of
+-- 'queryTooltip' in the default signal handler.
+--
+-- Default value: \"\"
+--
+-- * Available since Gtk+ version 2.12
+--
+widgetTooltipText :: WidgetClass self => Attr self (Maybe String)
+widgetTooltipText = newAttrFromMaybeStringProperty "tooltip-text"
+
+-- | Enables or disables the emission of 'queryTooltip' on widget. A value of 'True' indicates that widget
+-- can have a tooltip, in this case the widget will be queried using 'queryTooltip' to determine
+-- whether it will provide a tooltip or not.
+--
+-- Note that setting this property to 'True' for the first time will change the event masks of the
+-- 'Windows' of this widget to include leave-notify and motion-notify events. This cannot and will not
+-- be undone when the property is set to 'False' again.
+--
+-- Default value: 'False'
+--
+-- * Available since Gtk+ version 2.12
+--
+widgetHasTooltip :: WidgetClass self => Attr self Bool
+widgetHasTooltip = newAttrFromBoolProperty "has-tooltip"
+
--------------------
-- Signals
hunk ./gtk/Graphics/UI/Gtk/Abstract/Widget.chs 2472
screenChanged :: WidgetClass self => Signal self (Screen -> IO ())
screenChanged = Signal (connect_OBJECT__NONE "screen_changed")
+-- | Emitted when 'hasTooltip' is 'True' and the 'gtkTooltipTimeout' has expired with the cursor
+-- hovering "above" widget; or emitted when widget got focus in keyboard mode.
+--
+-- Using the given coordinates, the signal handler should determine whether a tooltip should be shown
+-- 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.
+--
+-- The signal handler is free to manipulate tooltip with the therefore destined function calls.
+--
+-- * Available since Gtk+ version 2.12
+--
+queryTooltip :: WidgetClass self => Signal self (Widget -> Int -> Int -> Bool -> Tooltip -> IO Bool)
+queryTooltip = Signal (connect_OBJECT_INT_INT_BOOL_OBJECT__BOOL "query-tooltip")
+
-- * Events
--
-- An event is a signal that indicates that some low-level interaction like a
hunk ./gtk/marshal.list 156
NONE:BOXED,INT
# for TextBuffer
NONE:BOXED,STRING
-
+# For queryTooltip
+BOOLEAN:TOBJECT,INT,INT,BOOLEAN,TOBJECT
}
Context:
[Clean bootstrap.sh
Andy Stewart <lazycat.mana...@gmail.com>**20100601122113
Ignore-this: f59b5f9bf21945c39258a39432621a03
]
[Note that Cabal 1.8 is required for ghci support under Windows.
axel.si...@in.tum.de**20100527181310
Ignore-this: 1c5fc3bb7ad83f5d1094e0083ddd9913
]
[Do not query g_object_get_type as it only exists in newer Gtk+ versions.
axel.si...@in.tum.de**20100527163435
Ignore-this: 70d62f66a2eb159c7fd3e23079c5debf
]
[Remove gnomevfs sourceview mozembed since those packages has deprecated.
Andy Stewart <lazycat.mana...@gmail.com>**20100527124728
Ignore-this: a1dfda3669b7417a7b09c3b4acfaa2d
Below are backup repositories for those deprecated packages:
* gnomevfs : http://www2.in.tum.de/~simona/gnomevfs/
* sourceview : http://www2.in.tum.de/~simona/sourceview/
* mozembed : http://www2.in.tum.de/~simona/mozembed/
]
[Fix IconTheme.chs docs.
Andy Stewart <lazycat.mana...@gmail.com>**20100527102140
Ignore-this: 2f2b7ab508c688cc73f1b59012966d13
]
[Fix Gtk2HsSetup.hs bug.
Andy Stewart <lazycat.mana...@gmail.com>**20100527095530
Ignore-this: 1b65945da174e05d0ad2a1f01e2ee651
]
[Add gnomevfs demo directory.
Andy Stewart <lazycat.mana...@gmail.com>**20100527061234
Ignore-this: 40c6dd74b460d7546937212dacf1f9e1
]
[Add gtk demo directory.
Andy Stewart <lazycat.mana...@gmail.com>**20100527061041
Ignore-this: 876a827c6f1bac1a8b26a99cd68c6005
]
[Add cairo demo directory.
Andy Stewart <lazycat.mana...@gmail.com>**20100527051924
Ignore-this: b1a70c2a24812fb84c899e4e8ce3ca6c
]
[Add pango demo directory.
Andy Stewart <lazycat.mana...@gmail.com>**20100527051205
Ignore-this: af1ff611ab459ee2b6c5bc09a3f63c11
]
[Fix the license of gnomevfs
Andy Stewart <lazycat.mana...@gmail.com>**20100527035350
Ignore-this: 9ac7c768af168d6f0c7af8c8790e8643
]
[Fix the license of gio.
axel.si...@in.tum.de**20100526152125
Ignore-this: 42fe27de2030e0395227f889ba5345d8
]
[Fix Trac #1164. toGSList was reversing lists.
m.ni...@gmail.com**20090514122933
Ignore-this: c466eadbc5ae61ba71721fe15b44735a
]
[Remove gconf glade gstreamer gtkglext gtksourceview2 soegtk svgcairo vte webkit since these all now have their own repos.
axel.si...@in.tum.de**20100525211947]
[Documentation fix for EventM.
axel.si...@in.tum.de**20100525131428
Ignore-this: 25c3bf3513ec6467cbd0febe397ab53e
]
[Put upper bounds on base version.
axel.si...@in.tum.de**20100525082101
Ignore-this: f92b2d9970c436c9fcbcf141fc988e8
]
[Make documentation parsable.
axel.si...@in.tum.de**20100525080209
Ignore-this: 60f44b8251a9f3e933c874f72d8e8801
]
[Make the version test in pango less complex as Cabal 1.6 doesn't parse it otherwise.
axel.si...@in.tum.de**20100525075706
Ignore-this: f3446237cf66abf49e81bd4ba8ef9744
]
[Fix an incorrect pattern in windowSetIcon.
axel.si...@in.tum.de**20100525075639
Ignore-this: eb596c778897b4ae4fd7f9a8dde59726
]
[Get rid of stock images under ./docs/reference/images
Andy Stewart <lazycat.mana...@gmail.com>**20100524235315
Ignore-this: 1094aaf32c73ba189937e1beee24ee49
]
[Redirect image link to library.gnome.org and update image items to GTK+ 2.20
Andy Stewart <lazycat.mana...@gmail.com>**20100524233947
Ignore-this: f33362d57605d16365e4dfac59c01122
]
[Add an upper version to the requirement on base.
axel.si...@in.tum.de**20100524211158]
[Be more specific as to the prerequisites of packages.
axel.si...@in.tum.de**20100524210210]
[Fix docu.
axel.si...@in.tum.de**20100524210157]
[Make soegtk compile by fixing dependency on old-time and by not relying on Gtk 2.18.
axel.si...@in.tum.de**20100524210032]
[don't mention tools in the docs for unregistering.
axel.si...@in.tum.de**20100524201401]
[TAG 0.11.0
axel.si...@in.tum.de**20100524200857]
Patch bundle hash:
ac43c653b54fdb049d195a102bb458bf8197af60
------------------------------------------------------------------------------
_______________________________________________
Gtk2hs-devel mailing list
Gtk2hs-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel
