view release on metacpan or  search on metacpan

examples/calendar.pl  view on Meta::CPAN

#!/usr/bin/env perl

use 5.010;
use utf8;
use strict;
use warnings;
use autodie;
use Gtk2 '-init';
use Acme::Gtk2::Ex::Builder;

my $app = build {
    widget Window => contain {
        info id           => 'window';
        set  title        => 'Calendar Example';

examples/window.pl  view on Meta::CPAN

#!/usr/bin/env perl

use 5.010;
use utf8;
use strict;
use warnings;
use autodie;
use Gtk2 '-init';
use Acme::Gtk2::Ex::Builder;

my $app = build {
    widget Window => contain {
        info id               => 'window';
        set  position         => 'center';