view release on metacpan or  search on metacpan

lib/Net/OpenVPN/TrayIcon.pm  view on Meta::CPAN

            $self->dispatch->{set_icon}->('default');
            $self->dispatch->{set_tip}->('OpenVPN checking connection..');
            $self->dispatch->{inactive_if_not_running}->();
        },
    );

    $gtk_menu->add($gtk_menu_start);
    $gtk_menu->add($gtk_menu_stop);
    $gtk_menu->show_all;

    $gtk_menu->popup( undef, undef, undef, undef, 0, 0 );
    $self->gtk_menu($gtk_menu);

    return 1;
}

sub _build_dispatch_table {
    my ($self) = @_;

    my %table = (
        set_icon => sub {