Tengo el archivo GladeXML.pm en dos directorios diferentes:
1.- C:\Documents and Settings\Txema\Datos de programa\.cpanplus\5.10.1\build\Gtk2-GladeXML-1.007
2.- C:\camelbox\site\lib\Gtk2
Pero vamos que al ejecutar el programa me dice:
"Can´t locate object method "new" via package "Gtk2::GladeXML" <perhaps you forgot to load "Gtk2::GladeXML"?> at line 10."
Using perl Syntax Highlighting
- #!c:/perl/bin
- use strict;
- use lib 'C:/camelbox/site/lib/';
- use lib 'C:/camelbox/site/lib/Gtk2';
- my($programa, $ventana_principal, $etiqueta, $widget_entrada_de_texto);
- $programa = Gtk2::GladeXML->new('prueba.glade');
- $ventana_principal = $programa->get_widget('ventana_principal');
- $etiqueta = $programa->get_widget('etiqueta');
- $widget_entrada_de_texto = $programa->get_widget('entrada1');
- $programa->signal_autoconnect_from_package('main');
- $ventana_principal->show_all();
- Gtk2->main;
- sub on_boton_cerrar_clicked {Gtk2->main_quit;}
- sub on_boton_recoger_datos_clicked {
- my($texto_introducido);
- $texto_introducido = $widget_entrada_de_texto->get_text();
- $etiqueta->set_markup("$texto_introducido");
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4