use Gtk;

init Gtk;

$main = new Gtk::Widget "Gtk::Window",
            -signal::delete_event => sub { Gtk->main_quit };

add $main (my $vbox = new Gtk::Widget "Gtk::VBox",
                      homogeneous => 0,
                      spacing => 5,
                      border_width => 5);

# Message-Frame:
add $vbox (my $frame = new Gtk::Frame "A Message:");

# Message-Label:
add $frame (my $label = new Gtk::Label "Hello, World!");

# Button-Bar
add $vbox (my $hbox = new Gtk::HBox 1,5);

# Toggle-Button
add $hbox (new Gtk::Widget "Gtk::ToggleButton",
           label => "Message Shown",
           active => 1,
           signal::clicked => sub { 
              $label->visible
                 ? $label->hide
                 : $label->show;
           });

# Close Button
add $hbox (new Gtk::Widget "Gtk::Button",
           label => "OK",
           signal::clicked => sub { main_quit Gtk });

$main->show_all;

Gtk->main;