my $window = configure_object(
    Gtk::Window->new("toplevel"),
    signal_connect => [ delete => sub { Gtk->exit(0); return } ],
    set_title      => [ "Test" ],
    border_width   => [ 15 ];
    add            => [ configure_object(
        Gtk::Button->new("Quit"),
        signal_connect => [ clicked => sub { Gtk->exit(0); return } ],
        show           => undef,
    )],
    show => undef,
);