view release on metacpan or  search on metacpan

lib/App/TimeTracker/Gtk3StatusIcon.pm  view on Meta::CPAN

        } );
        $menu->append($item);
        push(@items, $item);
    }

    my $quit = Gtk3::ImageMenuItem->new_from_stock('gtk-quit');
    $quit->signal_connect( activate => sub { Gtk3->main_quit } );
    $menu->append($quit);
    $menu->show_all();

    $icon->signal_connect( 'activate' => sub { $menu->popup_at_pointer } );

    my $loop = IO::Async::Loop::Glib->new();

    my $file = IO::Async::File->new(
        filename => $TRACKER_HOME,
        on_mtime_changed => sub {
            my ( $self ) = @_;
            my $task = get_current_task();
            $icon->set_from_file($ICONS{$task->{status}});
            for my $i (0 .. 2) {