| 1 |
use Gtk; |
| 2 |
|
| 3 |
init Gtk; |
| 4 |
|
| 5 |
$main = new Gtk::Widget "Gtk::Window", |
| 6 |
-signal::delete_event => sub { Gtk->main_quit }; |
| 7 |
|
| 8 |
add $main (my $vbox = new Gtk::Widget "Gtk::VBox", |
| 9 |
homogeneous => 0, |
| 10 |
spacing => 5, |
| 11 |
border_width => 5); |
| 12 |
|
| 13 |
# Message-Frame: |
| 14 |
add $vbox (my $frame = new Gtk::Frame "A Message:"); |
| 15 |
|
| 16 |
# Message-Label: |
| 17 |
add $frame (my $label = new Gtk::Label "Hello, World!"); |
| 18 |
|
| 19 |
# Button-Bar |
| 20 |
add $vbox (my $hbox = new Gtk::HBox 1,5); |
| 21 |
|
| 22 |
# Toggle-Button |
| 23 |
add $hbox (new Gtk::Widget "Gtk::ToggleButton", |
| 24 |
label => "Message Shown", |
| 25 |
active => 1, |
| 26 |
signal::clicked => sub { |
| 27 |
$label->visible |
| 28 |
? $label->hide |
| 29 |
: $label->show; |
| 30 |
}); |
| 31 |
|
| 32 |
# Close Button |
| 33 |
add $hbox (new Gtk::Widget "Gtk::Button", |
| 34 |
label => "OK", |
| 35 |
signal::clicked => sub { main_quit Gtk }); |
| 36 |
|
| 37 |
$main->show_all; |
| 38 |
|
| 39 |
Gtk->main; |
