Help for this page

Select Code to Download


  1. or download this
    (my $window = Gtk::Window->new("toplevel"))
      ->signal_connect(delete => sub { Gtk->exit(0); return })
    ...
      ->border_width(15)
      ->add($btn)
      ->show;
    
  2. or download this
    my $window = Gtk::Window->new("toplevel");
    for ($window) {
    ...
      $_->add($btn);
      $_->show;
    }