Index: xs/GtkStatusIcon.xs =================================================================== --- xs/GtkStatusIcon.xs (revision 2104) +++ xs/GtkStatusIcon.xs (working copy) @@ -133,3 +133,23 @@ guint32 gtk_status_icon_get_x11_window_id (GtkStatusIcon *status_icon); #endif /* 2.14 */ + +#if GTK_CHECK_VERSION (2, 16, 0) + +void gtk_status_icon_set_has_tooltip (GtkStatusIcon *status_icon, gboolean has_tooltip); + +gboolean gtk_status_icon_get_has_tooltip (GtkStatusIcon *status_icon); + +gchar_own_ornull *gtk_status_icon_get_tooltip_markup (GtkStatusIcon *status_icon); + +gchar_own_ornull *gtk_status_icon_get_tooltip_text (GtkStatusIcon *status_icon); + +#Unlike the corresponding methods in GtkWidget, these setters use plain char instead of gchar. +#However I expect that is an error or oversight and the char and gchar types are supposedly +#equivalent anyway. Also using gchar lets me use the _ornull. + +void gtk_status_icon_set_tooltip_text (GtkStatusIcon *status_icon, const gchar_ornull *text); + +void gtk_status_icon_set_tooltip_markup (GtkStatusIcon *status_icon, const gchar_ornull *markup); + +#endif /* 2.16 */ Index: t/GtkStatusIcon.t =================================================================== --- t/GtkStatusIcon.t (revision 2104) +++ t/GtkStatusIcon.t (working copy) @@ -4,7 +4,7 @@ use strict; use warnings; use Gtk2::TestHelper - tests => 30, + tests => 34, at_least_version => [2, 10, 0, "Gtk2::StatusIcon is new in 2.10"]; # $Id$ @@ -134,6 +134,28 @@ ok (defined $icon -> get_x11_window_id()); } +# --------------------------------------------------------------------------- # + +SKIP: { + skip 'new 2.16 stuff', 4 + unless Gtk2->CHECK_VERSION(2, 16, 0); + + $icon->set_has_tooltip(TRUE); + ok ($icon->get_has_tooltip() == TRUE); + + $icon->set_has_tooltip(FALSE); + ok ($icon->get_has_tooltip() == FALSE); + + $icon->set_tooltip_markup("TEST1"); + ok ($icon->get_tooltip_markup() eq "TEST1"); + + $icon->set_tooltip_text("TEST2"); + ok ($icon->get_tooltip_text() eq "TEST2"); + + +} + + __END__ Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the