#!/usr/bin/perl
use Gtk;
$NAME = 'Button';
init Gtk;
$w = new Gtk::Window -toplevel;
$w->signal_connect( destroy => sub {exit} );
show $w;
$b = new Gtk::Button 'Button';
$w->add($b);
show $b;
main Gtk;
#!/usr/bin/perl
use Gtk;
$NAME = 'Button';
init Gtk;
$w = new Gtk::Window -toplevel;
$w->signal_connect( destroy => sub {exit} );
show $w;
$b = new Gtk::Button 'Button';
$w->add($b);
show $b;
main Gtk;