view release on metacpan or  search on metacpan

bin/golp  view on Meta::CPAN

                            }
                        }],
                    [],
                    ['~Exit', 'Ctrl+X', '^X', sub { shift-> close } ],
            ]],
            [ '~Options' => [

		            [ 'play' => '~Play/Pause' => 'Space' => kb::Space => sub {
			            my ( $window, $menu ) = @_;
			            unless ( $edit_mode ) {
			            	# prevent accidental unpausing if editing
		                    $play = $window->menu->toggle($menu);
		                    $play ? $window->Timer->start() : $window->Timer->stop();
		                }
		            } ],
                    ['*Grid' => '~Grid' => sub { 
			            my ( $window, $menu ) = @_;
                        $grid = $window->menu->toggle($menu);
                        $window->repaint();
                    } ],
                    ['*Grow' => '~Autogrow' => sub {