Perl Gtk3 设置按钮大小

Question

按钮占据了所有可用的垂直空间；如何获得合适的按钮尺寸？

use strict;
use warnings;
use utf8;
use experimentals;

sub main() {
    use Gtk3 '-init';
    use Glib qw/TRUE FALSE/;

    my $window = Gtk3::Window->new('toplevel');

    $window->set_title("Gtk3 Buttons");
    $window->set_position("center");
    $window->set_default_size(400, 200);
    $window->set_border_width(10);
    $window->signal_connect(delete_event => \&quit_function);

    my $quitButton = Gtk3::Button->new("Quit");
    $quitButton->signal_connect(clicked => \&quit_function);

    my $hbox = Gtk3::Box->new("horizontal", 5);
    $hbox->pack_start($quitButton, FALSE, FALSE, 0);
    $hbox->set_homogeneous(TRUE);

    $window->add($hbox);
    $window->show_all();

    sub quit_function {
        Gtk3->main_quit();
        return FALSE;
    }

    Gtk3->main();
}

main();