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