view release on metacpan or  search on metacpan

PPresenter/Viewport/BackgroundMenu.pm  view on Meta::CPAN

    ( -label   => 'Only finals'
    , -variable=> \$show->{-flushPhases}
    );

    $phases->checkbutton
    ( -label   => 'Start callbacks'
    , -variable=> \$show->{-enableCallbacks}
    );

    $menu->add
    ( 'cascade'
    , -label   => 'phases'
    , -menu    => $phases
    );

    $screen->bind("<Key-space>", sub {$show->addPhase(1);} );
    $screen->bind("<Shift-Key-space>", sub {$show->addPhase(9);} );

    my $steps = $menu->Menu
    ( -tearoff   => 0
    , -menuitems =>

PPresenter/Viewport/BackgroundMenu.pm  view on Meta::CPAN

    $screen->bind("<Key-0>", sub {$show->showSlide('FIRST');} );
    $screen->bind("<Key-dollar>", sub {$show->showSlide('LAST');} );
    $screen->bind("<Key-b>", sub {$show->showSlide('BACK');} );
    $screen->bind("<Key-f>", sub {$show->showSlide('FORWARD');} );
    $screen->bind("<Key-g>", sub {$show->setRunning(1);} );
    $screen->bind("<Key-h>", sub {$show->setRunning(0);} );
    $screen->bind("<Key-n>", sub {$show->showSlide('NEXT_SELECTED');} );
    $screen->bind("<Key-N>", sub {$show->showSlide('NEXT');} );
    $screen->bind("<Key-p>", sub {$show->showSlide('PREVIOUS');} );

    $menu->add('cascade'
    , -label   => 'steps'
    , -menu    => $steps
    );

    if($has_popup)
    {   $menu->command
        ( -label       => 'slides'
        , -underline   => 0
        , -command     => sub {$viewport->showControl}
        , -accelerator => 's'

PPresenter/Viewport/BackgroundMenu.pm  view on Meta::CPAN

        ( -tearoff     => 0
        );

        foreach (sort {"$a" cmp "$b"} @exporters)
        {   $export->add('command'
            , -label   => "$_"
            , -command => [sub {$_[0]->popup($show, $viewport->{-display})},$_ ]
            );
        }

        $menu->add('cascade'
        , -label       => 'export'
        , -menu        => $export
        );
    }

    $menu->command
    ( -label       => 'Iconify'
    , -accelerator => 'I'
    , -command     => sub {$show->iconifyControl}
    );