view release on metacpan or  search on metacpan

examples/gtk2-ex-clock.pl  view on Meta::CPAN

my $noshrink = $toplevel;
if ($use_noshrink && eval { require Gtk2::Ex::NoShrink }) {
  $noshrink = Gtk2::Ex::NoShrink->new;
  $toplevel->add ($noshrink);
}

my $clock = Gtk2::Ex::Clock->new (%clock_properties);
$noshrink->add ($clock);

my $menu = Gtk2::Menu->new;

my $quit = Gtk2::ImageMenuItem->new_from_stock ('gtk-quit');
$quit->signal_connect (activate => sub { $toplevel->destroy });
$quit->show;
$menu->add ($quit);


$toplevel->add_events (['button-press-mask','button-motion-mask']);
$toplevel->signal_connect (button_press_event => \&button_press);
$toplevel->signal_connect (motion_notify_event => \&motion_notify);
$toplevel->signal_connect (button_release_event => \&button_release);

examples/standalone.pl  view on Meta::CPAN

my $frame = Gtk2::Frame->new;
$frame->set (shadow_type => 'none');
$toplevel->add ($frame);

my $clock = Gtk2::Ex::Clock->new (format => '%a %I:%M%P');
$frame->add ($clock);

#------------------------------------------------------------------------------

my $menu = Gtk2::Menu->new;
my $radiogroup;
foreach my $format (@formats) {
  my ($name, $strftime, $timezone) = @$format;
  my $item = Gtk2::RadioMenuItem->new_with_label ($radiogroup, $name);
  $menu->add ($item);
  $radiogroup ||= $item;

  $item->signal_connect (activate => sub {
                           $clock->set (format => $strftime,
                                        timezone => $timezone);
                         });
}
($menu->get_children)[$initial_format]->activate;

$menu->add (Gtk2::SeparatorMenuItem->new);

my $accelgroup = Gtk2::AccelGroup->new;
$toplevel->add_accel_group ($accelgroup);
my $quit_button = Gtk2::ImageMenuItem->new_from_stock ('gtk-quit',$accelgroup);
$menu->add ($quit_button);
$quit_button->signal_connect (activate => sub { $toplevel->destroy });

$menu->show_all;

$toplevel->add_events (['button-press-mask',
                        'button-release-mask',
                        'button-motion-mask',
                        'key-press-mask']);
$toplevel->signal_connect