view release on metacpan or  search on metacpan

examples/buttonmaster.pl  view on Meta::CPAN

}

my $aboutbox;
sub do_about {
    # put up an about box
    if ($aboutbox) {
	print "hey, cut it out\n";
	return; # don't do it twice
    }
    $aboutbox = Gtk::Widget->new("GtkWindow",
				 -type => 'toplevel', # toplevel, dialog, popup
				 # popup: no decorations, at 0,0
				 # dialog: decorations, at 0,0
				 # toplevel: decorations, normal placement
				 -title => 'about',
				);
    my $vbox = Gtk::VBox->new(0,0);
    my $text = Gtk::Label->new("iButton Master\nby\nBrian Warner\n<warner\@lothar.com>");
    #$text->border_width(5); # labels can't do this
    $text->show();
    $vbox->pack_start($text, 1, 1, 0);
    my $button = Gtk::Widget->new("GtkButton",