Hi Dan,
I am not very good with Perl but it looks like the iters aren't getting moved
forward and backwards on the word the cursor is over. In C, the callback would
look something like
static gboolean query_tooltip(GtkWidget *textview, gint x, gint y, gboolean
keyboard_mode, GtkTooltip *tooltip, gpointer user_data)
{
GtkTextIter start_iter;
GtkTextIter end_iter;
GtkTextBuffer *buffer=gtk_text_view_get_buffer(GTK_TEXT_VIEW(textview));
gtk_text_view_get_iter_at_location(GTK_TEXT_VIEW(textview), &end_iter, x,
y);
if(gtk_text_iter_inside_word(&end_iter))
{
start_iter=end_iter;
gtk_text_iter_forward_word_end(&end_iter);
gtk_text_iter_backward_word_start(&start_iter);
gchar *string=gtk_text_buffer_get_text(buffer, &start_iter, &end_iter,
TRUE);
gtk_tooltip_set_text(tooltip, string);
g_free(string);
return TRUE;
}
return FALSE;
}
Should be similar in Perl, right?
Eric
_______________________________________________
gtk-list mailing list
gtk-list@gnome.org
https://mail.gnome.org/mailman/listinfo/gtk-list
