Foro - Perl en Español

Publicado: **2009-09-08 13:13 @592**

¡Hola!

Estoy trabajando con las interfaces gráficas de gtk2 y acabo de hacer un combobox para que el usuario elija un número.

La cosa es que... ¿cómo sé yo cuál de todos los números ha pulsado? ¿Y si quiero luego pasarle en una variable a otra interfaz el número pulsado... ¿cómo lo hago?

Esto es lo que yo he escrito:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$tabla_combo= Gtk2::Table->new(2,3,TRUE);
$comboBox= Gtk2::ComboBox->new_text;
$model=$comboBox->get_model;
$model->set($model->append,0,"1");
$model->set($model->append,0,"2");
$model->set($model->append,0,"3");
[...]
$model->set($model->append,0,"30");
$tabla_combo->attach_defaults($comboBox, 1,2,1,2);
$tabla_contenedor->attach_defaults($tabla_combo, 1,2,3,4);Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Un saludo.

Oihantze

Publicado: **2009-09-08 14:51 @660**

Pues según la página de manual, debería ser get_active_text().

Publicado: **2009-09-10 11:51 @535**

Pero me da este error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

***   Can't locate object method "get_active" via package "Gtk2::ListStore" at ./num_docs.pl line 76.

***  ignoring at ./num_docs.pl line 73.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Por qué puede ser?

Publicado: **2009-09-10 12:16 @552**

Sin ver el código, es difícil de decir. Por el tipo de error parece que no se ha cargado el módulo. Que quizás falta hacer algún use.

Publicado: **2009-09-11 03:03 @169**

Este es el código, si falta un use ¿cuál puede ser? Es que tengo todas las interfaces hechas ya, ¡y solamente me falta el comboBox por arreglar!

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use Gtk2 '-init';
use Glib qw/TRUE FALSE/; #pa q valgan los valores true y false
 
$ventana = Gtk2::Window->new('toplevel');
$ventana->set_title('Documentos');
$ventana->set_border_width(20); #el borde de la ventana de 20px
 
$tabla_contenedor = Gtk2::Table->new(3,7, FALSE);
 
$frase = Gtk2::Label->new('Indique cuantos documentos desea buscar');
$tabla_contenedor->attach_defaults($frase, 1,2,1,2);
 
$tabla_combo= Gtk2::Table->new(2,3,TRUE);
$comboBox = Gtk2::ComboBox-> new_text;     
$model = $comboBox->get_model;
$model->set ($model->append, 0, "1");
$model->set ($model->append, 0, "2");
            [...]
$model->set ($model->append, 0, "29");
$model->set ($model->append, 0, "30");
$tabla_combo->attach_defaults($comboBox, 1,2,1,2);
$tabla_contenedor->attach_defaults($tabla_combo, 1,2,3,4);
 
$tabla_botones = Gtk2::Table->new(3,5, TRUE);
 
$boton_atras = Gtk2::Button->new_with_label('Atras');
$boton_atras->signal_connect('clicked' => sub { &atras($ARGV[3],$ARGV[0])});
$tabla_botones->attach_defaults($boton_atras, 1,2,1,2);
 
$boton_ok = Gtk2::Button->new_from_stock('gtk-ok');
$boton_ok->signal_connect('clicked' => sub { &ir_a($ARGV[0],$ARGV[1],$ARGV[2],$ARGV[3],$ARGV[4],$ARGV[5])});
$tabla_botones->attach_defaults($boton_ok, 3,4,1,2);
 
$tabla_contenedor->attach_defaults($tabla_botones, 1,2,5,6);
 
$rc_style = Gtk2::RcStyle->new;
$rc_style->bg_pixmap_name('normal', 'fondo.jpg');
$ventana->modify_style($rc_style);
$ventana->set_keep_above(TRUE);
$ventana->add($tabla_contenedor);
$ventana->set_default_size(200,200);
$ventana->move(380, 300);
$ventana->set_resizable(FALSE);
$ventana->show_all;
 
Gtk2->main;
 
sub ir_a {
        
        exec "./ejecutando_estoy_en_noja.pl 15 $_[0] $_[1] $_[2] $_[3] $_[4] $_[5]"; 
}
 
sub atras{
        my $punto=".";
        exec "$punto$_[0] $_[1]";
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Publicado: **2009-09-11 03:05 @170**

¿use Gtk2::ComboBox;?

Publicado: **2009-09-11 03:24 @183**

Si, pero poniendo ese use() me da este error.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't locate Gtk2/ComboBox.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at ./num_docs.pl line 5.

BEGIN failed--compilation aborted at ./num_docs.pl line 5.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

que line 5 es donde está puesto lo de use Gtk2::ComboBox;

Publicado: **2009-09-11 03:35 @191**

... que es el error típico de que Gtk2::ComboBox no está instalado en el sistema.

Publicado: **2009-09-12 05:42 @279**

¿Y cómo se puede instalar?

Publicado: **2009-09-12 07:18 @346**

Perdón, he metido la pata...

Los módulos Gtk2 no se instalan por separado: están todos reunidos en una sola librería.

Pues el caso es que no sé porqué te sale ese mensaje. Se supone entonces que con el primer 'use Gtk2' debería valer.

Te he dejado un ejemplo que a mí sí que me funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use Gtk2 '-init';
use Glib qw/TRUE FALSE/;
 
my @valores = 11 .. 20;
 
        ## Titular
        my $frase = Gtk2::Label->new('Indique cuántos documentos desea buscar');
 
            ## Lista de opciones
            my $comboBox = Gtk2::ComboBox->new_text();
            for (@valores) {
                $comboBox->append_text($_);
            }
            $comboBox->set_active (0);
 
        ## Tabla de la lista
        my $tabla_combo= Gtk2::Table->new(2,3,TRUE);
        $tabla_combo->attach_defaults($comboBox, 1,2,1,2);
 
            ## Botón Atrás
            my $boton_atras = Gtk2::Button->new_with_label('Atras');
            $boton_atras->signal_connect(clicked => \&atras);
 
            ## Botón Ok
            my $boton_ok = Gtk2::Button->new_from_stock('gtk-ok');
            $boton_ok->signal_connect(clicked => \&ir_a);
 
        ## Tabla de los botones
        my $tabla_botones = Gtk2::Table->new(3,5, TRUE);
        $tabla_botones->attach_defaults($boton_atras, 1,2,1,2);
        $tabla_botones->attach_defaults($boton_ok, 3,4,1,2);
 
    ## Tabla contenedor
    my $tabla_contenedor = Gtk2::Table->new(3,7, FALSE);
    $tabla_contenedor->attach_defaults($frase, 1,2,1,2);
    $tabla_contenedor->attach_defaults($tabla_combo, 1,2,3,4);
    $tabla_contenedor->attach_defaults($tabla_botones, 1,2,5,6);
 
 
## Ventana principal
my $ventana = Gtk2::Window->new('toplevel');
$ventana->set_title('Documentos');
$ventana->set_border_width(20); # 20px
 
        ## Estilo
        my $rc_style = Gtk2::RcStyle->new;
        $rc_style->bg_pixmap_name('normal', 'fondo.jpg');
 
$ventana->modify_style($rc_style);
$ventana->signal_connect (delete_event => sub {Gtk2->main_quit; TRUE}); # Cierre de la app
$ventana->add($tabla_contenedor);
$ventana->set_default_size(200,200);
$ventana->set_keep_above(TRUE);
$ventana->set_resizable(FALSE);
$ventana->move(380, 300);
$ventana->show_all;
 
Gtk2->main;
 
sub ir_a {
    print 'Índice: ', $comboBox->get_active(),      "\n";
    print 'Texto : ', $comboBox->get_active_text(), "\n";
}
 
sub atras{
    Gtk2->main_quit;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Es igual que el tuyo, salvo que el orden de creación de los componentes es por jerarquía de menos a más. Así quedan agrupadas las órdenes para un mismo componente (que es lo contraría de lo que haríamos si usáramos el método del pack()).

Presta atención a los trucos de agregar elementos al Combobox por medio del for(), que también es válido para listas de elementos.

He añadido también llamadas a Gtk2->main_quit() para terminar correctamente la aplicación, tanto al pulsar el botón 'Atrás' como cuando la ventana recibe la señal de cierre (puesto de dos formas distintas).

En cuanto a la lectura del Combobox, uso los métodos get_active() y get_active_text().

Foro - Perl en Español

Cómo coger datos de un combobox

Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox

Re: Cómo coger datos de un combobox