Re: Why can't I create buttons in a for loop?

[dov imagic weizmann ac il]

The problem is that you can only add one single child to the main
window. If you want more than one child, you have to place them
in a packer widget. E.g. a vbox. Here is your program where this
has been fixed.

Regards,
Dov

#!/usr/bin/perl -w
 
use Gtk;         # load the Gtk-Perl module
use strict;      # a good idea for all non-trivial Perl scripts
set_locale Gtk;  # internationalize
init Gtk;        # initialize Gtk-Perl 
 
my $window = new Gtk::Window( "toplevel" );
my $bw=5;
 
# callback registration
$window->signal_connect("delete_event", \&CloseAppWindow);
$window->border_width( $bw );
 
my @pornstar=("a","b","c","d","e","f","g","h","i","j");
my $i=0; 
my @button=("1","2","3","4","5"); 

my $vbox = new Gtk::VBox();
$window->add($vbox);
$vbox->show();

for ($i=0;$i<5;$i++) {
  $button[$i] = new Gtk::Button("$pornstar[$i]");
  $button[$i]->signal_connect("clicked", \&CloseAppWindow);
  $button[$i]->show();
  $vbox->pack_start_defaults($button[$i]);
} 

$window->show();
main Gtk;

sub CloseAppWindow 
{
   Gtk->exit(0);
   return 0;
}