GUI component interaction: Difference between revisions
→{{header|Perl 6}}: Minimal changes to make runnable example
No edit summary |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Minimal changes to make runnable example) |
||
Line 2,190:
<lang perl6>use GTK::Simple;
use GTK::Simple::App;
my GTK::Simple::App $app .= new(title => 'GUI component interaction');
$app.
my $box = GTK::Simple::VBox.new(
my $value = GTK::Simple::Entry.new(text => '0'),
Line 2,201 ⟶ 2,202:
);
$app.
$app.
$box.spacing = 10;
Line 2,210 ⟶ 2,211:
$increment.clicked.tap: {
my $val = $value.text; $val += 1; $value.text = $val.Str
}
Line 2,217 ⟶ 2,218:
# access to GTK message dialogs yet :P
if run «zenity --question --text "Reset to random value?"» {
$value.text = (^100).pick
}
}
| |||