note
TimToady
In Perl 6 that's probably written like this:
<code>
given Gtk2::Window.new( "toplevel" ) {
.signal_connect( :delete{ Gtk2.main_quit } );
.set_title( "Test" );
.border_width( 15 );
.add( given Gtk2::Button.new( "Quit" ) {
.signal_connect( :clicked{ Gtk2.main_quit } );
$_;
} );
.show_all;
}
</code>
Though I could see extending the <code>but</code> operator to take a topicalized closure so we don't have to put the
ugly <code>$_</code> at the end:
<code>
Gtk2::Window.new( "toplevel" ) but {
.signal_connect( :delete{ Gtk2.main_quit } );
.set_title( "Test" );
.border_width( 15 );
.add(
Gtk2::Button.new( "Quit" ) but {
.signal_connect( :clicked{ Gtk2.main_quit } );
}
);
.show_all;
}
</code>
Merry Christmas!!!
417405
417405