Soy un novato utilizando la biblioteca Gtk2, y la verdad, los widget funcionan todos correctamente, pero... tengo un problema, a ver cómo lo explico. Tengo una ventana principal en la cual tengo un campo textentry y un textview, además de ciertos botoncitos; el campo textentry funciona ok, y los botoncitos también, pero el textview, no o si, según se mire.
Si busco una palabra en un determinado diccionario, funciona Ok, y si esta palabra tiene más significados, los muestra en la textview, pero si hago una segunda búsqueda, me muestra la anterior búsqueda. En fin, que no actualiza el campo, he intentado todo, pero no encuentro nada, ni ningún ejemplo en el que ver my problem.
Esto vendría a ser el script que estoy haciendo:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use LWP 5.64;
use Gtk2::GladeXML;
use Gtk2 -init;
my $browser=LWP::UserAgent->new;
..
..
my $programa = Gtk2::GladeXML->new('program1.glade');
my $ventana_principal = $programa->get_widget('Ventana_Principal');
my $palabraentrada=$programa->get_widget('palabra');
my $resultado=$programa->get_widget('busquedaresultado');
$programa->signal_autoconnect_from_package('main');
$ventana_principal->show_all();
Gtk2->main;
sub on_salir_clicked { Gtk2->main_quit; }
sub on_busqueda_clicked {
my $file="";
my $buffertxt= Gtk2::TextBuffer->new;
my $hitza=$hitz_sartuta->get_text();
my $response=$browser->post ...
....
....
....
$file=$response->content;
$buffertxt->insert_at_cursor($file);
$resultado->set_buffer($buffertxt);
}
use strict;
use LWP 5.64;
use Gtk2::GladeXML;
use Gtk2 -init;
my $browser=LWP::UserAgent->new;
..
..
my $programa = Gtk2::GladeXML->new('program1.glade');
my $ventana_principal = $programa->get_widget('Ventana_Principal');
my $palabraentrada=$programa->get_widget('palabra');
my $resultado=$programa->get_widget('busquedaresultado');
$programa->signal_autoconnect_from_package('main');
$ventana_principal->show_all();
Gtk2->main;
sub on_salir_clicked { Gtk2->main_quit; }
sub on_busqueda_clicked {
my $file="";
my $buffertxt= Gtk2::TextBuffer->new;
my $hitza=$hitz_sartuta->get_text();
my $response=$browser->post ...
....
....
....
$file=$response->content;
$buffertxt->insert_at_cursor($file);
$resultado->set_buffer($buffertxt);
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y son en las dos últimas líneas, donde no consigo que me actualice la ventana del textview. He probado con un campo label, y funciona Ok, es más, actualiza los datos, pero no consigo lo mismo con el campo textview.
Alguna ayudita, please.
Aio
Let's GNU
