| 1 |
root |
1.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; |
