Simple windowed application: Difference between revisions

Content added Content deleted
(added Factor)
(→‎{{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.size_request(350, 100);
$app.size-request(350, 100);


$app.set_content(
$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.border_width = 40;
$app.border-width = 40;


$button.clicked.tap: {
$button.clicked.tap: {