view release on metacpan or  search on metacpan

examples/calendar.pl  view on Meta::CPAN

my $app = build {
    widget Window => contain {
        info id           => 'window';
        set  title        => 'Calendar Example';
        set  position     => 'center';
        on   delete_event => \&quit;
        widget VBox => contain {
            widget Calendar => contain {
                info id                          => 'cal';
                on   'day-selected-double-click' => \&cal_double_clicked;
            };
            widget Button => contain {
                set label   => 'Quit';
                on  clicked => \&quit;
            };
        };
    };
};

my $cal = $app->find('cal');