view release on metacpan or  search on metacpan

README.mkdn  view on Meta::CPAN

        widget Window => contain {
            info id           => 'window';
            set  title        => 'Awesome App';
            set  default_size => 200, 100;
            set  position     => 'center';
            on   delete_event => sub { Gtk2->main_quit; };
    

            widget Button => contain {
                set label  => 'Action';
                on clicked => sub { say 'Seoul Perl Mongers!' };
            };
        };
    };
    

    $app->find('window')->show_all;
    Gtk2->main;

# METHODS

examples/calendar.pl  view on Meta::CPAN

Gtk2->main;

sub quit {
    Gtk2->main_quit;
}

sub cal_double_clicked {
    my $self = shift;

    my ($year, $month, $day) = $self->get_date;
    say sprintf("%04d-%02d-%02d", $year, $month + 1, $day);
}

lib/Acme/Gtk2/Ex/Builder.pm  view on Meta::CPAN

    my $app = build {
        widget Window => contain {
            info id           => 'window';
            set  title        => 'Awesome App';
            set  default_size => 200, 100;
            set  position     => 'center';
            on   delete_event => sub { Gtk2->main_quit; };
    
            widget Button => contain {
                set label  => 'Action';
                on clicked => sub { say 'Seoul Perl Mongers!' };
            };
        };
    };
    
    $app->find('window')->show_all;
    Gtk2->main;

=head1 METHODS

=head2 find