Simple windowed application: Difference between revisions
Content added Content deleted
(added Factor) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Update to current standards) |
||
Line 1,888: | Line 1,888: | ||
{{libheader|GTK}} |
{{libheader|GTK}} |
||
<lang perl6>use GTK::Simple; |
<lang perl6>use GTK::Simple; |
||
use GTK::Simple::App; |
|||
my GTK::Simple::App $app .= new(title => 'Simple Windowed Application'); |
my GTK::Simple::App $app .= new(title => 'Simple Windowed Application'); |
||
$app. |
$app.size-request(350, 100); |
||
$app. |
$app.set-content( |
||
GTK::Simple::VBox.new( |
GTK::Simple::VBox.new( |
||
my $label = GTK::Simple::Label.new( text => 'There have been no clicks yet'), |
my $label = GTK::Simple::Label.new( text => 'There have been no clicks yet'), |
||
Line 1,900: | Line 1,901: | ||
); |
); |
||
$app. |
$app.border-width = 40; |
||
$button.clicked.tap: { |
$button.clicked.tap: { |