Foro - Perl en Español

por **Aceitunas** » 2013-12-16 15:41 @695

Hola.

Tengo un array de botones creados con el módulo Win32::GUI. El problema es que quiero que todos los botones, al hacer clic, vayan al mismo evento, porque si no es una locura para manejarlos todos. Los creo de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$casillas[$i] = $ventana->AddButton(   # creamos botón
    -name => "Boton$i",
    -text => "$i",
    -pos  => [ $posX, $posY ],
    -size => [ 20, 20 ],
);
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

DATO: La variable $i contiene un número que va desde el 0 al 99. Y el array casillas contiene 100 objetos de botón.
Y los querría manejar algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Boton_Click
{ 
#$_[0] = Numero de botón que se pulso, por ejemplo se pulso el botón 20
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡Espero que alguien me dé una solución!

Un saludo.

No necesitas, para nada, almacenar los cien botones en un array.

La clave está en el atributo '-name' (ver página de manual Win32::GUI::UserGuide::Concepts, en la sección Objects).

Puedes acceder a ellos con un $ventana->{"Boton$i"}. Es decir: como sabes cómo se llaman, puedes acceder a ellos de forma directa.

Otro tema son las subrutinas que gestionen las pulsaciones sobre esos botones... la opción de crear 100 subrutinas es una pesadez:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Boton1_Click {
    Boton_Click(1);
}
...;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Una forma de abreviarlo es utilizar el mecanismo AUTOLOAD, de Perl.

Pero... lo que se puede hacer es definir la subrutina de gestión de la pulsación en el momento de crear el botón:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ventana->AddButton(            # creamos botón
    -name => "Boton$i",
    -text => $i,
    -pos  => [ $posX, $posY ],
    -size => [ 20, 20 ],
    -onClick => sub {
             my $text = $_[0]->UserData('-text');
             Boton_Click($text);
    },
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No lo he probado (no uso Windows), pero lo que he leído por ahí dice que hay que usar UserData para acceder a los atributos del botón. Una referencia al botón pulsado es lo que se recibe en el gestor del clic, como primer argumento. Y del atributo '-text' sacamos el número de botón.

Otra forma sería (tampoco probada): my $text = $_[0]->{'-text'};

Ya digo que no tengo Windows, así que voy a ciegas

por **Aceitunas** » 2013-12-17 08:31 @396

Mi intención era crear un juego similar al del buscaminas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!PERL
 
use Win32::GUI;
use strict;
 
my $ventana = Win32::GUI::Window->new( # Generamos la ventana
        -name   => 'buscaminas',
        -text   => 'Buscaminas',
        -pos    => [100,100],
        -size   => [216,238],
);
 
my $posX = 0;   # variables para colocar los botones.
my $posY = 0;
my $numcasillas = 0;
 
for (my $i = 0; $i < 100; $i++) # Dibujamos las casillas
{
    
        if ($numcasillas > 9) # si hay 10 casillas en esta fila
        {
            $posX = 0;    # Posicion 0 en vertical
            $posY = $posY + 20;  # sumamos una posicion en horizontal
                
            $numcasillas = 0;    
        }
        
        $ventana->AddButton( # creamos boton
        -name   => "Boton$i",
                -text   => '',
                -pos    => [$posX,$posY],
                -size   => [20,20],
        );
        
        $posX = $posX + 20;
        $numcasillas++;
        
        $ventana->{"Boton$i"}->Show(); # mostramos boton
}
 
my @valorcasilla = "0" x 100;  
 
$ventana->Show();
Win32::GUI::Dialog();
 
sub buscaminas_Terminate{return -1;} # Boton cerrar la ventana
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Al final creo que si lo quiero terminar voy a tener que hacer 100 eventos iguales. :cry:

por **explorer** » 2013-12-17 11:02 @502

Que no... no necesitas crear 100 eventos. Vuelve a leer mi mensaje... ¿Has probado, lo que te digo al final, de la solución del onClick?

por **Aceitunas** » 2013-12-17 11:51 @535

Sí, he probado de todas las maneras posibles que se me han ocurrido, como tu has puesto en tu mensaje anterior también.

Si funcionara esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ventana->AddButton(                   # creamos botón
    -name    => "Boton",
    -text    => $i,
    -pos     => [ $posX, $posY ],
    -size    => [ 20, 20 ],
    -onClick => sub {
        print $_[0]->UserData('-text') . "\n";
 
    },
);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Quizás se podría hacer algún "apaño". Pero no funciona el evento -onClick.

por **explorer** » 2013-12-17 13:30 @604

¿Por qué le has quitado $i a '-name'?

Sin eso, no puedes crear botones diferentes.

por **Aceitunas** » 2013-12-17 14:20 @639

explorer escribiste:¿Por qué le has quitado $i a '-name'?

Sin eso, no puedes crear botones diferentes.

Estaba haciendo pruebas haber si conseguía hacerlo funcionar de alguna manera... De todas formas ese no es el problema, ya que sigue sin funcionar.

por **explorer** » 2013-12-17 14:34 @649

Bueno, pues prueba a acceder de forma directa:
print $_[0]->{'-text'} . "\n";

por **Aceitunas** » 2013-12-17 14:45 @656

El problema es que tampoco va el evento -onClick .

por **explorer** » 2013-12-17 16:22 @724

Pues eso sí que es raro.

Por ejemplo, de esta página veo este ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$obMW->AddButton(
    -name    => 'Button1',
    -pos     => [ 10, 10 ],
    -size    => [ 75, 23 ],
    -text    => 'Button1',
    -onClick => sub { Win32::MsgBox( "You just clicked " . $_[0]->UserData ) },
 
);
 
$obMW->Button1->UserData('Button1');
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En esa misma página, hay un ejemplo que debería funcionarte para lo que quieres hacer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

### add button #########################
 
my $Button = new Win32::GUI::Button(
    $Main,
    -name    => "Test",
    -tip     => "Test",
    -width   => 15,
    -height  => 15,
    -left    => 600,
    -onClick => 'Button_Clicked',
);
$Main->AddButton($Button);
 
####################################
 
####################################
sub Button_Clicked {
 
    my ( $ButtonClicked, @other_params ) = @_;
    my $ButtonName = $ButtonClicked->{-name};
 
    ### $ButtonName is now ready for use :) ###
 
}
#####################################
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Este caso es distinto: se usa new() de Win32::GUI::Button para crear el botón. Con el onClick se indica el nombre de la subrutina a ejecutar. Y lo que la subrutina hace es averiguar el nombre del botón.

Otra cosa importante: las rutinas de click() deben devolver un valor (1, 0 o -1) para indicar si el control debe pasar al siguiente nivel o no (más información en la sección Events de Win32::GUI::UserGuide::Concepts). Por eso habrás visto en los ejemplos que esas subrutinas acaban con una línea

0;

Foro - Perl en Español

Array de objetos y eventos

Array de objetos y eventos

Publicidad

Re: Array de objetos y eventos

Re: Array de objetos y eventos

Re: Array de objetos y eventos

Re: Array de objetos y eventos

Re: Array de objetos y eventos

Re: Array de objetos y eventos

Re: Array de objetos y eventos

Re: Array de objetos y eventos

Re: Array de objetos y eventos

¿Quién está conectado?