Re: gtk-perl bug, bad programming, or other?

[Quentin Sculo <squentin free fr>]

Hi
It seems you are confusing arrays and hashes.
In perl $button["five"] is the same as $button[0], as "five" is 0 when converted to a number.

That's why you should "use strict" for everything but one-liners.

Don't worry, we all do stupid mistakes :)

On Wed, Jul 6, 2016 at 6:30 PM, Christopher McCrory <chrismcc gmail com> wrote:

Hello...

I was creating a small Gtk app with perl and ran into what I think is a bug in gtk-perl.  Or am I just doing this wrong?. I was looping through an array to create a bunch of buttons and ran into weird problems using signal_connect.  I created a test case that creates six buttons to show this. I'm using Fedora linux 22 on intel with all updates. I also tested with both Gtk2 and Gtk3.

resulting output:

$ ./test.pl 

get_label for button[0] is:  five 

get_label for button[1] is:  1 

get_label for button[2] is:  2 

get_label for button[three] is:  five 

get_label for button[four] is:  five 

get_label for button[five] is:  five 

code:

$ cat test.pl 

#!/usr/bin/perl

use Gtk2 -init;

my $window = Gtk2::Window->new ("toplevel");

my $layout = Gtk2::Layout->new(undef,undef);

$window->add ($layout);

my $vbox = Gtk2::VBox->new();

$layout->add($vbox);

my @button;

$button[0]=Gtk2::Button->new("0");

$vbox->add($button[0]);

$button[0]->signal_connect (clicked => sub {

   # Should output 0 , but does not

   print "get_label for button[0] is:  ".$button[0]->get_label." \n";

   }

);

$button[1]=Gtk2::Button->new("1");

$vbox->add($button[1]);

$button[1]->signal_connect (clicked => sub {

   # Should output 1

   print "get_label for button[1] is:  ".$button[1]->get_label." \n";

   }

);

$button[2]=Gtk2::Button->new("2");

$vbox->add($button[2]);

$button[2]->signal_connect (clicked => sub {

   # Should output 2

   print "get_label for button[2] is:  ".$button[2]->get_label." \n";

   }

);

$button["three"]=Gtk2::Button->new("three");

$vbox->add($button["three"]);

$button["three"]->signal_connect (clicked => sub {

   # Should output three , but does not

   print "get_label for button[three] is:  ".$button["three"]->get_label." \n";

   }

);

# No quotes

$button[four]=Gtk2::Button->new(four);

$vbox->add($button[four]);

$button[four]->signal_connect (clicked => sub {

   # Should output four , but does not

   print "get_label for button[four] is:  ".$button[four]->get_label." \n";

   }

);

$button["five"]=Gtk2::Button->new("five");

$vbox->add($button["five"]);

$button["five"]->signal_connect (clicked => sub {

   # Should output five

   print "get_label for button[five] is:  ".$button["five"]->get_label." \n";

   }

);

$window->show_all;

Gtk2->main;

exit 0;

--

Christopher McCrory
To the optimist, the glass is half full.
To the pessimist, the glass is half empty.
To the engineer, the glass is twice as big as it needs to be.

_______________________________________________
gtk-perl-list mailing list
gtk-perl-list gnome org
https://mail.gnome.org/mailman/listinfo/gtk-perl-list