Result:
found more than 401 distributions - search limited to the first 2001 files matching your query
( run in 2.754 )
Games-AIBots
view release on metacpan or search on metacpan
=head1 INTERFACE
=head2 The Setting Panel
=head3 Map Menu
The drop-down menu in the bottom-left corner lists all available
maps. The ones in square brackets (e.g. [Solania]) denotes a "level"
with pre-defined bots.
Games-Axmud
view release on metacpan or search on metacpan
lib/Games/Axmud/Client.pm view on Meta::CPAN
# Hash in the form
# $pluginCageEditWinHash{cage_name} = config_window_package_name
# NB If no 'edit' window exists for a particular cage, 'edit_window_package_name' will
# be 'undef'
pluginCageEditWinHash => {},
# Registry hash of functions to call every time a menu strip object (GA::Strip::MenuBar)
# creates a menu in an 'internal' window, in order to add menu menu items for the
# plugin. Hash in the form
# $pluginMenuFuncHash{plugin_name} = func_ref
# ...where 'func_ref' is a reference to a function within a plugin that creates menu
# items, when passed an existing Gtk3::Menu widget
pluginMenuFuncHash => {},
# For MXP file filters that must be passed to a plugin, a registry hash of the plugin
# functions to call when the filter is applied to a file. Hash in the form
# $pluginMxpFilterHash{package_name} = reference_to_function
pluginMxpFilterHash => {},
lib/Games/Axmud/Client.pm view on Meta::CPAN
# close a tab by clicking on its 'X' widget, and the session is connected to a world
confirmCloseTabFlag => TRUE, # [config]
# Equivalent flag set to TRUE if the user should be prompted for a confirmation if they
# try to stop the session by clicking the main window menu, and the session is
# connected to a world
confirmCloseMenuFlag => TRUE, # [config]
# Equivalent flag set to TRUE if the user should be prompted for a confirmation if they
# try to stop the session by clicking the main window toolbutton, and the session is
# connected to a world
confirmCloseToolButtonFlag => TRUE, # [config]
lib/Games/Axmud/Client.pm view on Meta::CPAN
# The constant registry of strip objects (these values never change). A hash in the form
# $constStripHash{package_name} = pretty_name
# NB Both 'package_name' and 'pretty_name' should be unique. To avoid problems, use the
# plugin name in 'pretty_name', e.g. 'Myplugin toolbar'
constStripHash => {
'Games::Axmud::Strip::MenuBar'
=> $axmud::SCRIPT . ' menu bar',
'Games::Axmud::Strip::Toolbar'
=> $axmud::SCRIPT . ' toolbar',
'Games::Axmud::Strip::Table'
=> $axmud::SCRIPT . ' table',
lib/Games/Axmud/Client.pm view on Meta::CPAN
sub stop {
# Called by axmud.pl on shutdown
# Also called by $self->stopSession, GA::Cmd::StopClient->do, GA::Cmd::Panic->do,
# GA::Cmd::RestoreWorld->do, GA::Win::Internal->setDeleteEvent and
# GA::Strip::MenuBar->drawWorldColumn
# Stops the client
#
# Expected arguments
# (none besides $self)
#
lib/Games/Axmud/Client.pm view on Meta::CPAN
return @returnArray;
}
sub checkSessions {
# Called by GA::Strip::MenuBar->drawWorldColumn just before doing the ';stopsession' or
# ';stopclient' commands
# Checks every session to see whether any of them are connected, and whether there are any
# unsaved files at all (if not, the 'main' window doesn't have to prompt the user for
# confirmation, before stopping the session/client).
#
lib/Games/Axmud/Client.pm view on Meta::CPAN
# Operation complete
return $count;
}
sub addPluginMenus {
# Called by any Axmud plugin
# Adds menu items defined in the plugin to any menu strip object (GA::Strip::MenuBar)
# displayed in any 'internal' window while the client is running (and the plugin is
# enabled)
#
# Expected arguments
# $plugin - The plugin's main package (declared in the file header)
#
# Optional arguments
# $funcRef - Reference to a function which contain the code to add menu items to a
# Gtk3::Menu widget, pre-existing or created by this function. The
# referenced function must accept the strip object and Gtk3::Menu as
# arguments, and return 'undef' on failure or 1 on success
#
# Return values
# 'undef' on improper arguments or if the menu items can't be added
# 1 otherwise
my ($self, $plugin, $funcRef, $check) = @_;
# Local variables
my ($pluginObj, $subMenu);
# Check for improper arguments
if (! defined $plugin || ! defined $funcRef || defined $check) {
return $axmud::CLIENT->writeImproper($self->_objClass . '->addPluginWidgets', @_);
lib/Games/Axmud/Client.pm view on Meta::CPAN
# checking anyway
return undef;
}
# Each plugin can only call this function once
if ($self->ivExists('pluginMenuFuncHash', $plugin)) {
return undef;
} else {
$self->ivAdd('pluginMenuFuncHash', $plugin, $funcRef);
}
# Any 'internal' windows which already exist and which have a menu strip object should add a
# sub-menu for this plugin now; any new 'internal' windows created from now will
# automatically call the referenced function to add their own sub-menus
foreach my $winObj ($self->desktopObj->ivValues('gridWinHash')) {
my ($stripObj, $subMenu);
if (
$winObj->winType eq 'main'
|| $winObj->winType eq 'protocol'
|| $winObj->winType eq 'custom'
) {
$stripObj = $winObj->ivShow('firstStripHash', 'Games::Axmud::Strip::MenuBar');
if ($stripObj) {
$subMenu = $stripObj->addPluginWidgets($plugin);
if (! $subMenu) {
return undef;
}
# Call the referenced function to add menu items to this sub-menu
if (! &$funcRef($stripObj, $subMenu)) {
return undef;
}
# Update the window to show the new menu items
$winObj->winShowAll($self->_objClass . '->addPluginMenus');
}
}
}
return 1;
lib/Games/Axmud/Client.pm view on Meta::CPAN
}
}
sub openURL {
# Called by GA::Strip::MenuBar->drawHelpColumn, GA::Obj::TextView->setButtonPressEvent,
# GA::OtherWin::Connect->createTableWidgets or any other function
# Opens a URL link in an external web browser (if allowed)
#
# Expected arguments
# $link - The URL to open
lib/Games/Axmud/Client.pm view on Meta::CPAN
} elsif ($type eq 'switch_offline') {
$iv = 'offlineOnDisconnectFlag';
} elsif ($type eq 'close_menu') {
$iv = 'confirmCloseToolButtonFlag';
} elsif ($type eq 'close_toolbutton') {
$iv = 'confirmCloseMenuFlag';
}
if ($self->$iv) {
$self->ivPoke($iv, FALSE);
} else {
lib/Games/Axmud/Client.pm view on Meta::CPAN
{ my $self = shift; return %{$self->{pluginCageHash}}; }
sub pluginCagePackageHash
{ my $self = shift; return %{$self->{pluginCagePackageHash}}; }
sub pluginCageEditWinHash
{ my $self = shift; return %{$self->{pluginCageEditWinHash}}; }
sub pluginMenuFuncHash
{ my $self = shift; return %{$self->{pluginMenuFuncHash}}; }
sub pluginMxpFilterHash
{ my $self = shift; return %{$self->{pluginMxpFilterHash}}; }
sub clientTime
{ $_[0]->{clientTime} }
lib/Games/Axmud/Client.pm view on Meta::CPAN
{ $_[0]->{simpleTabFlag} }
sub confirmCloseMainWinFlag
{ $_[0]->{confirmCloseMainWinFlag} }
sub confirmCloseTabFlag
{ $_[0]->{confirmCloseTabFlag} }
sub confirmCloseMenuFlag
{ $_[0]->{confirmCloseMenuFlag} }
sub confirmCloseToolButtonFlag
{ $_[0]->{confirmCloseToolButtonFlag} }
sub constCharSet
{ $_[0]->{constCharSet} }
Games-FrozenBubble
view release on metacpan or search on metacpan
share/locale/fr.po view on Meta::CPAN
msgid "button"
msgstr "bouton"
#: ../frozen-bubble:3451
msgid "Start 1-player game menu"
msgstr "Menu de démarrage 1 joueur"
#: ../frozen-bubble:3502 ../frozen-bubble:3509 ../frozen-bubble:5117
msgid "Enable chain-reaction?"
msgstr "Activer la réaction en chaîne ?"
share/locale/fr.po view on Meta::CPAN
"*** Impossible de se connecter au serveur demandé, retour à la demande "
"auprès du serveur maître"
#: ../frozen-bubble:5117
msgid "2-player game"
msgstr "Menu de démarrage 2 joueurs"
#: ../frozen-bubble:5166 ../frozen-bubble:5199
msgid "Congratulations!"
msgstr "Félicitations !"
Games-GUI-Battleship
view release on metacpan or search on metacpan
lib/Games/GUI/Battleship.pm view on Meta::CPAN
=for HTML <p>
<img src="https://github.com/mjohnson108/p5-Games-GUI-Battleship/blob/e80cfa124775dada0a0cefe168e3b980cfb3d7e4/examples/POD/battleship_screenshot.png?raw=true" alt="Screenshot of Battleship program" width="650">
</p>
=head2 Menus
=head3 Game
The I<New Game> option will start a new game at a given difficulty level.
Games-Minesweeper
view release on metacpan or search on metacpan
lib/Games/Minesweeper.pm view on Meta::CPAN
use strict;
use SDL ();
use SDL::Mixer ();
use Gtk2 ();
use Gtk2::SimpleMenu ();
use AnyEvent ();
use File::HomeDir ();
use Data::Dumper;
lib/Games/Minesweeper.pm view on Meta::CPAN
}
],
},
];
$menu = new Gtk2::SimpleMenu (menu_tree => $menu_tree,
);
$l = new Gtk2::Label ('0000 ');
$mc = new Gtk2::Label (' 000');
$smiley->signal_connect (clicked => sub { restart; });
$d->set_events ([ 'button_release_mask', 'button_press_mask', ]); #'pointer_motion_mask' ]);
Games-Pandemic
view release on metacpan or search on metacpan
lib/Games/Pandemic/Tk/Main.pm view on Meta::CPAN
# no tear-off menus
$mw->optionAdd('*tearOff', 'false');
#$h->{w}{mnu_run} = $menubar->entrycget(1, '-menu');
my $menubar = $mw->Menu;
$mw->configure(-menu => $menubar );
$self->_set_w('menubar', $menubar);
# menu game
my @mnu_game = (
Games-PangZero
view release on metacpan or search on metacpan
lib/Games/PangZero.pm view on Meta::CPAN
* P4 Even more forgiving collision detection (?)
* P4 Smooth numbers in the scoreboard
* P3 RotoZoomer smooth parameter to eliminate warning..
* P3 Set DataDir with command line parameter.
* P2 Roll your own game
* P4 Reorg menu: MenuItem->Update(), MenuItem->Left(), MenuItem->Right(), ...
Next release:
* Sound effect for matrix effect...
* Handle possible HST corruption if game exits while merging scores
lib/Games/PangZero.pm view on Meta::CPAN
use Carp;
# SDL objects
use vars qw (
$App $VERSION $RotoZoomer $Background $ScoreFont $MenuFont $GlossyFont
%BallSurfaces
$BorderSurface $WhiteBorderSurface $RedBorderSurface $BonusSurface $LevelIndicatorSurface $LevelIndicatorSurface2
$WhiteHarpoonSurface
%Sounds $Mixer
);
lib/Games/PangZero.pm view on Meta::CPAN
@DifficultyLevels $DifficultyLevelIndex $DifficultyLevel
@WeaponDurations $WeaponDuration $WeaponDurationIndex
@GameObjects %GameEvents $GameSpeed $GamePause $Game
@Players @GuyImageFiles @GuyColors $NumGuys
@BallDesc %BallDesc @ChallengeLevels @PanicLevels
$UnicodeMode $LastUnicodeKey %Keys %Events %MenuEvents );
use Games::PangZero::Globals;
use Games::PangZero::GameObject;
use Games::PangZero::Ball;
lib/Games/PangZero.pm view on Meta::CPAN
use Games::PangZero::Hexa;
use Games::PangZero::Highscore;
use Games::PangZero::Joystick;
use Games::PangZero::MachineGun;
use Games::PangZero::Meltdown;
use Games::PangZero::Menu;
use Games::PangZero::MenuItem;
use Games::PangZero::Music;
use Games::PangZero::Palette;
use Games::PangZero::Pop;
use Games::PangZero::PowerWire;
use Games::PangZero::SeekerBall;
lib/Games/PangZero.pm view on Meta::CPAN
} elsif ($keypressed == SDLK_p and not $UnicodeMode) {
Pause();
} else {
$Keys{$keypressed} = 1;
$Events{$keypressed} = 1;
$MenuEvents{UP} = 1 if $keypressed == SDLK_UP();
$MenuEvents{DOWN} = 1 if $keypressed == SDLK_DOWN();
$MenuEvents{LEFT} = 1 if $keypressed == SDLK_LEFT();
$MenuEvents{RIGHT} = 1 if $keypressed == SDLK_RIGHT();
$MenuEvents{BUTTON} = 1 if $keypressed == SDLK_RETURN();
$LastUnicodeKey = $event->key_unicode() if $UnicodeMode;
}
}
elsif ($type == SDL_KEYUP) {
my $keypressed = $event->key_sym;
lib/Games/PangZero.pm view on Meta::CPAN
}
Games::PangZero::Joystick::ReadJoystick($readBothJoystickAxes);
}
sub DoMenu {
my $oldScreenHeight = $ScreenHeight;
my $oldScreenWidth = $ScreenWidth;
$ScreenWidth = $PhysicalScreenWidth - $ScreenMargin * 2;
$ScreenWidth = int($ScreenWidth / 32) * 32;
$Game = Games::PangZero::Menu->new();
my $retval = $Game->Run();
Games::PangZero::Config::SaveConfig();
$ScreenWidth = $oldScreenWidth;
$ScreenHeight = $oldScreenHeight;
lib/Games/PangZero.pm view on Meta::CPAN
SDL::Mouse::show_cursor(0);
$Background = SDL::Surface->new( Games::PangZero::Config::IsMicrosoftWindows() ? SDL_SWSURFACE() : SDL_HWSURFACE(), $App->w, $App->h, 16);
$Background = SDL::Video::display_format($Background);
$ScoreFont = SDLx::SFont->new("$DataDir/brandybun3.png");
$MenuFont = SDLx::SFont->new("$DataDir/font2.png");
$GlossyFont = SDLx::SFont->new("$DataDir/glossyfont.png");
Games::PangZero::Graphics::LoadSurfaces();
Games::PangZero::Music::LoadSounds();
Games::PangZero::Joystick::InitJoystick();
}
sub MainLoop {
my $menuResult = DoMenu();
if ($menuResult eq 'demo') {
DoDemo();
}
#$Game = Games::PangZero::DemoRecordGame->new();
lib/Games/PangZero.pm view on Meta::CPAN
? Games::PangZero::ChallengeGame->new()
: Games::PangZero::PanicGame->new();
@Games::PangZero::Highscore::UnsavedHighScores = ();
$Game->Run();
bless $Game, 'Menu';
$Game->{abortgame} = 0;
{
my @gameObjects = @GameObjects;
foreach (@gameObjects) {
$_->Delete() if ref $_ eq 'Games::PangZero::Guy';
}
}
SDL::Video::blit_surface($Background, SDL::Rect->new(0, 0, $App->w, $App->h), $App, SDL::Rect->new(0, 0, $App->w, $App->h));
$Games::PangZero::MenuFont->use();
Games::PangZero::Highscore::MergeUnsavedHighScores($menuResult eq 'challenge' ? 'Cha' : 'Pan');
return;
my ($filename, $i) = ('', 1);
Games-RailRoad
view release on metacpan or search on metacpan
lib/Games/RailRoad.pm view on Meta::CPAN
# -image => $poe_main_window->Photo('calbell16'),
# ],
# ],
# ],
# ];
# my $menubar = $poe_main_window->Menu( -menuitems => $menuitems );
# $poe_main_window->configure( -menu => $menubar );
# $h->{w}{mnu_run} = $menubar->entrycget(1, '-menu');
# toolbar
my @tb = (
Games-Risk
view release on metacpan or search on metacpan
lib/Games/Risk/GUI/Startup.pm view on Meta::CPAN
my ($num) = @$args;
my $top = $h->{toplevel};
# creating popup window
my $tc =$top->Menu;
$tc->overrideredirect(1); # no window decoration
foreach my $i ( 0..$#COLORS ) {
my $color = $COLORS[$i];
my $row = $i < 5 ? 0 : 1;
my $col = $i % 5;
Games-RolePlay-MapGen
view release on metacpan or search on metacpan
MapGen/Editor.pm view on Meta::CPAN
use common::sense;
use GD;
use Glib qw(TRUE FALSE);
use Gtk2 -init; # -init tells import to ->init() your app
use Gtk2::Ex::Simple::Menu;
use Gtk2::Ex::Dialogs::ErrorMsg;
use Gtk2::Ex::Dialogs::Question;
use Gtk2::Ex::PodViewer;
use Gtk2::SimpleList;
use Games::RolePlay::MapGen;
MapGen/Editor.pm view on Meta::CPAN
use constant {
# the per-object index constants {{{
MAP => $x++, # the Games::RolePlay::MapGen object, the actual map arrays are in [MAP]{_the_map}
MQ => $x++, # the Games::RolePlay::MapGen::MapQueue object
WINDOW => $x++, # the Gtk2 window (Gtk2::Window)
MENU => $x++, # the main menubar (Gtk2::Ex::Simple::Menu)
MAREA => $x++, # the map area Gtk2::Image
VP_DIM => $x++, # the current dimensions (changes on resizes and things) of the Gtk2::Viewport holding the [MAREA]
SETTINGS => $x++, # a tied DB_File hashref full of settings
FNAME => $x++, # the current file name or undef
STAT => $x++, # the statusbar (Gtk2::Statusbar)
MapGen/Editor.pm view on Meta::CPAN
},
],
},
];
my $menu = $this->[MENU] = Gtk2::Ex::Simple::Menu->new (
menu_tree => $menu_tree,
default_callback => sub { $this->unknown_menu_callback },
);
$vbox->pack_start($menu->{widget}, 0,0,0);
MapGen/Editor.pm view on Meta::CPAN
}
# }}}
# _build_context_menu {{{
sub _build_context_menu {
my $this = shift;
my $menu = new Gtk2::Menu->new;
@_ = @{$_[0]} if ref $_[0];
# TODO: this should become a module like _MForm.pm
my @a;
while( my($name, $opts) = splice @_, 0, 2 ) {
my $item = Gtk2::MenuItem->new_with_mnemonic($name);
push @a, sub { my @r = $opts->{enable}->(@_); $item->set_sensitive( $r[-1] ? 1 : 0 ); $opts->{result} = \@r; } if $opts->{enable};
push @a, sub { my @r = $opts->{disable}->(@_); $item->set_sensitive( $r[-1] ? 0 : 1 ); $opts->{result} = \@r; } if $opts->{disable};
$item->signal_connect( activate => $opts->{activate}, $opts ) if exists $opts->{activate};
Games-SolarConflict
view release on metacpan or search on metacpan
lib/Games/SolarConflict.pm view on Meta::CPAN
use Games::SolarConflict::Sun;
use Games::SolarConflict::Spaceship;
use Games::SolarConflict::Torpedo;
use Games::SolarConflict::HumanPlayer;
use Games::SolarConflict::ComputerPlayer;
use Games::SolarConflict::Controller::MainMenu;
use Games::SolarConflict::Controller::MainGame;
use Games::SolarConflict::Controller::GameOver;
has app => (
is => 'ro',
lib/Games/SolarConflict.pm view on Meta::CPAN
sub _build_controllers {
my ($self) = @_;
return {
main_menu => sub {
return Games::SolarConflict::Controller::MainMenu->new(@_);
},
main_game => sub {
return Games::SolarConflict::Controller::MainGame->new(@_);
},
game_over => sub {
Games-Sudoku-Component-TkPlayer
view release on metacpan or search on metacpan
lib/Games/Sudoku/Component/TkPlayer/View.pm view on Meta::CPAN
sub create_menu {
my $this = shift;
my $mw = $this->{mw};
$mw->configure(-menu => my $menu = $mw->Menu);
$menu->cascade(
-label => '~Game',
-menuitems => $this->create_menu_file,
-tearoff => 0,
Games-Sudoku-SudokuTk
view release on metacpan or search on metacpan
lib/Games/Sudoku/menu.pm view on Meta::CPAN
}
$menubar = $main->Frame;
$menubar->pack(
-fill => 'x');
# File menu
my $fichiermenu = $menubar->Menubutton(-text => tr1('Fichier'));
$fichiermenu->pack(
'-side' => 'left');
#save
$fichiermenu->command(
lib/Games/Sudoku/menu.pm view on Meta::CPAN
);
$main->bind('<Control-q>' => [$main => 'destroy']);
if ($origine eq "affichgrille" or $origine eq "affichgrilleS" or $origine eq "sudoku"
or $origine eq "V") {
# Options Menu
my $optionmenu = $menubar->Menubutton(-text => tr1('Options'));
$optionmenu->pack(
'-side' => 'left');
# resolve of a seized grid
$optionmenu->command(
-label => tr1('Resoudre une grille saisie'),
lib/Games/Sudoku/menu.pm view on Meta::CPAN
my $text3 = tr1('Solution') . 'C+s\n';
$main->bind('Control-s>' => [\&solutiond,"S"]);
}
}
# Drawing
my $dessinmenu = $menubar->Menubutton(-text => tr1('affichage'));
$dessinmenu->pack(
'-side' => 'left');
# selection of drawing of cases
$dessinmenu->radiobutton(-label => tr1('chiffres'),
-command => [sub{$dessin = "chiffres"}]);
lib/Games/Sudoku/menu.pm view on Meta::CPAN
-command => [sub{$dessin = "animaux"}]);
$dessinmenu->radiobutton(-label => tr1('lettres'),
-command => [sub{$dessin = "lettres"}]);
$dessinmenu->radiobutton(-label => tr1('couleurs'),
-command => [sub{$dessin = "couleurs"}]);
# Language Menu
my $languemenu = $menubar->Menubutton(-text => tr1('Langues'));
$languemenu->pack(
'-side' => 'left');
# selection of languages
$languemenu->radiobutton(-label => tr1('français'),
-command => [\&changelang,"fr"]);
Games-Worms
view release on metacpan or search on metacpan
lib/Games/Worms/Tk/Board.pm view on Meta::CPAN
-bitmap => 'info',
-buttons => ["OK"]
);
# $about_button->configure(-wraplength => '6i');
my $file = $menubar->Menubutton(qw/-text File -underline 0 -menuitems / =>
[
[Button => '~Quit', -command => [ \&_board_cleanup ]],
])->grid(qw/-sticky w/);
my $about = $menubar->Menubutton(qw/-text About -underline 0 -menuitems/ =>
[
[Button => "~About Worms", -command => [ $about_button => 'Show' ]],
])->grid(qw/-row 0 -column 1 -sticky w/);
$board->{'canvas'} = $mw->Canvas(
Gantry
view release on metacpan or search on metacpan
root/moxie/results.tt view on Meta::CPAN
[%- IF self.fish_config( 'show_dev_navigation' ) %]
<dl class="dev_nav">
<dd>
<select id="linkMenu"
onchange="window.location = this.options[this.selectedIndex].value">
[%- FOREACH page IN self.site_links.sort( 'label' ) %]
<option value='[% page.link %]'
[% page.link == self.location ? 'selected="selected"' : '' %]>
[%- page.label %]</option>
Gapp
view release on metacpan or search on metacpan
ex/bigexample.pl view on Meta::CPAN
icon => 'gtk-media-play',
default_size => [ 900, 400 ],
content => [
Gapp::VBox->new(
content => [
Gapp::MenuBar->new(
content => [
Gapp::MenuItem->new(
label => 'File',
menu => Gapp::Menu->new(
content => [
Gapp::ImageMenuItem->new( action => Quit, accel_path => '<Gnumeric-Sheet>/File/Exit' ),
]
)
),
Gapp::MenuItem->new(
label => 'Edit',
menu => Gapp::Menu->new(
content => [
Gapp::ImageMenuItem->new( action => New, accel_path => '<Gnumeric-Sheet>/File/Exit' ),
Gapp::ImageMenuItem->new( action => Edit ),
Gapp::ImageMenuItem->new( action => Delete ),
]
)
),
],
expand => 0,
GedNav
view release on metacpan or search on metacpan
GedNav/Menu.pm view on Meta::CPAN
package GedNav::Menu;
use strict;
use File::Basename;
Gedcom
view release on metacpan or search on metacpan
save_changes();
show_record("", select_record("FAM"), "full");
};
my $file_menu = $Top->{_file_menu} =
$menu_fr->Menubutton(-text => "File", -underline => 0)
->pack(-side => "left");
$file_menu->command(-label => "Load", -underline => 0, -command => $load);
$Top->bind("<Alt-l>", $load);
$file_menu->command(-label => "Save", -underline => 2, -command => $save);
$Top->bind("<Alt-v>", $save);
$file_menu->command(-label => "Quit", -underline => 0, -command => $quit);
$Top->bind("<Alt-q>", $quit);
my $ind_menu = $Top->{_ind_menu} =
$menu_fr->Menubutton(-text => "Individual", -underline => 0)
->pack(-side => "left");
$ind_menu->command(-label => "Select", -underline => 0, -command => $iselect);
$Top->bind("<Alt-e>", $iselect);
$ind_menu->command(-label => "New", -underline => 0, -command => $inew);
$Top->bind("<Alt-n>", $inew);
$Top->bind("<Alt-v>", $rsave);
$ind_menu->command(-label => "Delete", -underline => 0, -command => $idelete);
$Top->bind("<Alt-d>", $rsave);
my $fam_menu = $Top->{_fam_menu} =
$menu_fr->Menubutton(-text => "Family", -underline => 5)
->pack(-side => "left");
$fam_menu->command(-label => "Select", -underline => 0, -command => $fselect);
$Top->bind("<Alt-c>", $fselect);
$fam_menu->command(-label => "Save", -underline => 2, -command => $rsave);
sub add_show_menu($)
{
my ($ind) = @_;
$Top->Busy;
$Top->{_show_menu}->destroy if exists $Top->{_show_menu};
$Top->{_show_menu} = $Top->{_menu_fr}->Menubutton
(
-text => "Show",
-underline => 0,
-menuitems => show_menu_children($ind)
)->pack(-side => "left");
-command => sub { create_fams("_HUSB", "_CHIL0", "_FAMC") }
],
],
};
$Top->{_add_menu}{$Rec->{tag}} = $Top->{_menu_fr}->Menubutton
(
-text => "Add",
-underline => 0,
-menuitems => add_menu_children
(
Gentoo-Probe
view release on metacpan or search on metacpan
t/sandbox/pkg-files.lst view on Meta::CPAN
/usr/share/gtk-doc/html/gtk/GtkCellRenderer.html
/usr/share/gtk-doc/html/gtk/GtkCellRendererPixbuf.html
/usr/share/gtk-doc/html/gtk/GtkCellRendererText.html
/usr/share/gtk-doc/html/gtk/GtkCellRendererToggle.html
/usr/share/gtk-doc/html/gtk/GtkCheckButton.html
/usr/share/gtk-doc/html/gtk/GtkCheckMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkColorButton.html
/usr/share/gtk-doc/html/gtk/GtkColorSelection.html
/usr/share/gtk-doc/html/gtk/GtkColorSelectionDialog.html
/usr/share/gtk-doc/html/gtk/GtkCombo.html
/usr/share/gtk-doc/html/gtk/GtkComboBox.html
t/sandbox/pkg-files.lst view on Meta::CPAN
/usr/share/gtk-doc/html/gtk/GtkIMContext.html
/usr/share/gtk-doc/html/gtk/GtkIMContextSimple.html
/usr/share/gtk-doc/html/gtk/GtkIMMulticontext.html
/usr/share/gtk-doc/html/gtk/GtkIconTheme.html
/usr/share/gtk-doc/html/gtk/GtkImage.html
/usr/share/gtk-doc/html/gtk/GtkImageMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkInputDialog.html
/usr/share/gtk-doc/html/gtk/GtkInvisible.html
/usr/share/gtk-doc/html/gtk/GtkItem.html
/usr/share/gtk-doc/html/gtk/GtkItemFactory.html
/usr/share/gtk-doc/html/gtk/GtkLabel.html
/usr/share/gtk-doc/html/gtk/GtkLayout.html
/usr/share/gtk-doc/html/gtk/GtkList.html
/usr/share/gtk-doc/html/gtk/GtkListItem.html
/usr/share/gtk-doc/html/gtk/GtkListStore.html
/usr/share/gtk-doc/html/gtk/GtkMenu.html
/usr/share/gtk-doc/html/gtk/GtkMenuBar.html
/usr/share/gtk-doc/html/gtk/GtkMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkMenuShell.html
/usr/share/gtk-doc/html/gtk/GtkMessageDialog.html
/usr/share/gtk-doc/html/gtk/GtkMisc.html
/usr/share/gtk-doc/html/gtk/GtkNotebook.html
/usr/share/gtk-doc/html/gtk/GtkObject.html
/usr/share/gtk-doc/html/gtk/GtkOldEditable.html
/usr/share/gtk-doc/html/gtk/GtkOptionMenu.html
/usr/share/gtk-doc/html/gtk/GtkPaned.html
/usr/share/gtk-doc/html/gtk/GtkPixmap.html
/usr/share/gtk-doc/html/gtk/GtkPlug.html
/usr/share/gtk-doc/html/gtk/GtkPreview.html
/usr/share/gtk-doc/html/gtk/GtkProgress.html
/usr/share/gtk-doc/html/gtk/GtkProgressBar.html
/usr/share/gtk-doc/html/gtk/GtkRadioAction.html
/usr/share/gtk-doc/html/gtk/GtkRadioButton.html
/usr/share/gtk-doc/html/gtk/GtkRadioMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkRadioToolButton.html
/usr/share/gtk-doc/html/gtk/GtkRange.html
/usr/share/gtk-doc/html/gtk/GtkRuler.html
/usr/share/gtk-doc/html/gtk/GtkScale.html
/usr/share/gtk-doc/html/gtk/GtkScrollbar.html
/usr/share/gtk-doc/html/gtk/GtkScrolledWindow.html
/usr/share/gtk-doc/html/gtk/GtkSeparator.html
/usr/share/gtk-doc/html/gtk/GtkSeparatorMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkSeparatorToolItem.html
/usr/share/gtk-doc/html/gtk/GtkSettings.html
/usr/share/gtk-doc/html/gtk/GtkSizeGroup.html
/usr/share/gtk-doc/html/gtk/GtkSocket.html
/usr/share/gtk-doc/html/gtk/GtkSpinButton.html
/usr/share/gtk-doc/html/gtk/GtkStatusbar.html
/usr/share/gtk-doc/html/gtk/GtkStyle.html
/usr/share/gtk-doc/html/gtk/GtkTable.html
/usr/share/gtk-doc/html/gtk/GtkTearoffMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkText.html
/usr/share/gtk-doc/html/gtk/GtkTextBuffer.html
/usr/share/gtk-doc/html/gtk/GtkTextMark.html
/usr/share/gtk-doc/html/gtk/GtkTextTag.html
/usr/share/gtk-doc/html/gtk/GtkTextTagTable.html
t/sandbox/pkg-files.lst view on Meta::CPAN
/usr/share/gtk-doc/html/gtk/GtkViewport.html
/usr/share/gtk-doc/html/gtk/GtkWidget.html
/usr/share/gtk-doc/html/gtk/GtkWindow.html
/usr/share/gtk-doc/html/gtk/GtkWindowGroup.html
/usr/share/gtk-doc/html/gtk/LayoutContainers.html
/usr/share/gtk-doc/html/gtk/MenusAndCombos.html
/usr/share/gtk-doc/html/gtk/MiscObjects.html
/usr/share/gtk-doc/html/gtk/NumericEntry.html
/usr/share/gtk-doc/html/gtk/Ornaments.html
/usr/share/gtk-doc/html/gtk/PlugSocket.html
/usr/share/gtk-doc/html/gtk/ScrollingWidgets.html
Gentoo-Util-VirtualDepend
view release on metacpan or search on metacpan
share/module-to-gentoo.csv view on Meta::CPAN
Gtk2::Ex::FormFactory::Image,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Label,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Layout,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::List,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Loader,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Menu,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::MenuItem,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Notebook,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Popup,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::ProgressBar,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Proxy,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::ProxyBuffered,dev-perl/gtk2-ex-formfactory
share/module-to-gentoo.csv view on Meta::CPAN
Padre::Wx::Dialog::Patch,app-editors/padre
Padre::Wx::Dialog::PerlFilter,app-editors/padre
Padre::Wx::Dialog::PluginManager,app-editors/padre
Padre::Wx::Dialog::Positions,app-editors/padre
Padre::Wx::Dialog::Preferences,app-editors/padre
Padre::Wx::Dialog::QuickMenuAccess,app-editors/padre
Padre::Wx::Dialog::RefactorSelectFunction,app-editors/padre
Padre::Wx::Dialog::RegexEditor,app-editors/padre
Padre::Wx::Dialog::Replace,app-editors/padre
Padre::Wx::Dialog::ReplaceInFiles,app-editors/padre
Padre::Wx::Dialog::SLOC,app-editors/padre
share/module-to-gentoo.csv view on Meta::CPAN
Padre::Wx::Directory::Search,app-editors/padre
Padre::Wx::Directory::TreeCtrl,app-editors/padre
Padre::Wx::Display,app-editors/padre
Padre::Wx::Editor,app-editors/padre
Padre::Wx::Editor::Lock,app-editors/padre
Padre::Wx::Editor::Menu,app-editors/padre
Padre::Wx::FBP::About,app-editors/padre
Padre::Wx::FBP::Bookmarks,app-editors/padre
Padre::Wx::FBP::Breakpoints,app-editors/padre
Padre::Wx::FBP::CPAN,app-editors/padre
Padre::Wx::FBP::DebugOptions,app-editors/padre
share/module-to-gentoo.csv view on Meta::CPAN
Padre::Wx::HtmlWindow,app-editors/padre
Padre::Wx::Icon,app-editors/padre
Padre::Wx::Left,app-editors/padre
Padre::Wx::ListView,app-editors/padre
Padre::Wx::Main,app-editors/padre
Padre::Wx::Menu,app-editors/padre
Padre::Wx::Menu::Debug,app-editors/padre
Padre::Wx::Menu::Edit,app-editors/padre
Padre::Wx::Menu::File,app-editors/padre
Padre::Wx::Menu::Help,app-editors/padre
Padre::Wx::Menu::Perl,app-editors/padre
Padre::Wx::Menu::Refactor,app-editors/padre
Padre::Wx::Menu::Run,app-editors/padre
Padre::Wx::Menu::Search,app-editors/padre
Padre::Wx::Menu::Tools,app-editors/padre
Padre::Wx::Menu::View,app-editors/padre
Padre::Wx::Menu::Window,app-editors/padre
Padre::Wx::Menubar,app-editors/padre
Padre::Wx::Notebook,app-editors/padre
Padre::Wx::Nth,app-editors/padre
Padre::Wx::Outline,app-editors/padre
Padre::Wx::Output,app-editors/padre
Padre::Wx::Panel::Breakpoints,app-editors/padre
GetWeb
view release on metacpan or search on metacpan
pub/help/FORMS.html view on Meta::CPAN
<pre>
Choose ([X]) Blue or ([ ]) Green, but not both!
</pre>
Menus look like this:
<pre>
Choose:
[X] Red
Getopt-EvaP
view release on metacpan or search on metacpan
$uht->pack(qw(-side left -expand yes -fill both));
$uhs->pack(qw(-side right -fill y));
$uhm = $USAGE->Frame(qw/-borderwidth 2 -relief raised/);
$uhm->pack(qw(-side top -fill x -expand yes));
$uhmf = $uhm->Menubutton(qw(-text File -underline 0 -relief raised));
$uhmf->pack(qw(-side left));
$uhmf->command(
-label => 'Close',
-command => [$USAGE => 'withdraw'],
-underline => 0,
$uhll->insert('end', ' Application');
$uhll->insert('end', 'Lists');
$uhll->insert('end', 'The `Do It\' Button');
$uhll->insert('end', 'Windows');
$uhll->insert('end', ' Main Window');
$uhll->insert('end', ' Main File Menu');
$uhll->insert('end', ' Main Edit Menu');
$uhll->insert('end', ' Main Help Menu');
$uhll->insert('end', ' Output Window');
$uhll->insert('end', ' Output File Menu');
$uhll->insert('end', ' Help Window');
$uhll->insert('end', ' Help File Menu');
$uhll->insert('end', 'Revision History');
$uhll->insert('end', 'Credits');
$uht->tag('configure', qw(bold -font -Adobe-Courier-Bold-O-Normal-*-120-*));
$uht->tag('configure', qw(big -font -Adobe-Courier-Bold-R-Normal-*-140-*));
####### New section #######
$uht->insert('end', '
Main File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_File_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains these selections:
');
####### New section #######
$uht->insert('end', '
Main Edit Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_Edit_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'Edit', 'bold');
$uht->insert('end', ' menu contains this selection:
');
####### New section #######
$uht->insert('end', '
Main Help Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_Help_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'Help', 'bold');
$uht->insert('end', ' menu contains these selections:
');
####### New section #######
$uht->insert('end', '
Output File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Output_File_Menu', "$start.0");
$uht->insert('end', 'The Output window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains these selections:
');
$uht->insert('end', '
####### New section #######
$uht->insert('end', '
Help File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Help_File_Menu', "$start.0");
$uht->insert('end', 'The Help window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains this selection:
');
$uht->insert('end', '
Getopt-Janus
view release on metacpan or search on metacpan
lib/Getopt/Janus/Tk.pm view on Meta::CPAN
foreach my $i (@$items) {
my($f,$d) = @$i;
next unless defined $f or defined $d;
require Tk::Menubutton;
my $mb = $pane->Menubutton(
qw/ -relief raised -takefocus 1 -indicatoron 1 -direction right/,
-text => $f,
);
$mb->configure( -menu => $mb->menu(qw/-tearoff 0/) );
Gimp
view release on metacpan or search on metacpan
lib/Gimp/Extension.pm view on Meta::CPAN
function_name - Short description of the function
=head1 SYNOPSIS
<Image>/Filters/Menu/Location...
=head1 DESCRIPTION
Longer description of the function...
Glade-Perl-Two
view release on metacpan or search on metacpan
Glade/Two/Generate.pm view on Meta::CPAN
'widgets' => {
'underlineable' => " ".
join(" ", (
'GtkLabel',
'GtkButton',
'GtkMenuItem')
)." ",
'to_ignore' => join (' ',
'Placeholder',
'Custom',
),
Glade/Two/Generate.pm view on Meta::CPAN
'GnomePropertyBox',
'GnomeSpell',
# 'GtkCalendar', # In Gtk after CVS-19990914
'GtkClock',
'GtkDial',
'GtkPixmapMenuItem',
),
'gnome_db' => join( " ",
'GnomeDbGrid',
'GnomeDbList',
'GnomeDbCombo',
Glade/Two/Generate.pm view on Meta::CPAN
} else {
# We probably have a parent to pack into somehow
eval "\$refpar = (ref ${current_form}\{'$parentname'})||'UNDEFINED !!';";
$Glade_Perl->diag_print(5, "Adding %s to %s", $refwid, $refpar);
unless (eval "exists ${current_form}\{'$parentname'}") {
if ($Glade_Perl->source->quick_gen or 'Gtk2::Menu' eq $refwid) {
# We are a popup menu so we don't have a root window
# $class->add_to_UI($depth, "${first_form}->popup_enable;");
$class->add_to_UI($depth,
"${current_form}\{'tooltips'} = new Gtk2::Tooltips;");
$class->add_to_UI($depth,
Glade/Two/Generate.pm view on Meta::CPAN
}
if ($postpone_show) {
# Do nothing
#---------------------------------------
} elsif (' Gtk2::ImageMenuItem ' =~ m/ $refpar / &&
' Gtk2::Image ' =~ m/ $refwid / ) {
# $class->use_par($proto->{'packing'}, 'type', $NOT_WIDGET|$MAYBE)) {
#print "We have a $refpar to pack into\n";
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_image(".
Glade/Two/Generate.pm view on Meta::CPAN
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->put(".
"\$widgets->{'$childname'}, $x, $y);");
#---------------------------------------
} elsif (' Gtk2::MenuBar Gtk2::Menu ' =~ m/ $refpar /) {
# We are a menuitem
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->append(".
"\$widgets->{'$childname'});");
#---------------------------------------
} elsif (' Gtk2::MenuItem Gtk2::PixmapMenuItem ' =~ m/ $refpar /) {
# We are a menu for a meuitem
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_submenu(".
"\$widgets->{'$childname'});");
$postpone_show = 1;
#---------------------------------------
} elsif (' Gtk2::OptionMenu ' =~ m/ $refpar /) {
# We are a menu for an optionmenu
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_menu(".
"\$widgets->{'$childname'});");
$postpone_show = 1;
Glade/Two/Generate.pm view on Meta::CPAN
# Gnome::App::add_docked() or Gnome::App::add_dock_item() instead?
# $class->add_to_UI($depth,
# "${current_form}\{'$parentname'}->set_contents(".
# "\$widgets->{'$childname'});");
} elsif (' Gtk2::MenuBar ' =~ m/ $refwid /) {
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_menus(".
"\$widgets->{'$childname'});");
} else {
Glade/Two/Generate.pm view on Meta::CPAN
'area_height' => 'height',
},
'GtkList' => {
$WIDGET => $BROKEN,
},
'GtkMenuBar' => {
'shadow_type' => $OBSOLETE,
},
'GtkMenuItem' => {
'right_justify' => $OBSOLETE,
},
'GtkNotebook' => {
'popup_enable' => 'enable-popup',
},
'GtkOptionMenu' => {
'initial_choice' => 'history',
},
'GtkPacker' => {
$WIDGET => $REMOVED,
},
'GtkPixmap' => {
$WIDGET => $DEPRECATED,
$CONVERT_TO => 'GtkImage',
},
'GtkPixmapMenuItem' => {
$WIDGET => $REMOVED,
},
'GtkRange' => {
'policy' => 'update-policy',
},
Glade-Perl
view release on metacpan or search on metacpan
Glade/PerlUI.pm view on Meta::CPAN
'GnomePropertyBox',
'GnomeSpell',
'GtkCalendar', # In Gtk after CVS-19990914
'GtkClock',
'GtkDial',
'GtkPixmapMenuItem',
);
$gnome_db_widgets = join( " ",
'GnomeDbGrid',
'GnomeDbList',
Glade/PerlUI.pm view on Meta::CPAN
} else {
# We probably have a parent to pack into somehow
eval "\$refpar = (ref ${current_form}\{'$parentname'})||'UNDEFINED !!';";
unless (eval "exists ${current_form}\{'$parentname'}") {
if ($Glade_Perl->source->quick_gen or 'Gtk::Menu' eq $refwid) {
# We are a popup menu so we don't have a root window
# $class->add_to_UI( $depth, "${first_form}->popup_enable;" );
$class->add_to_UI($depth,
"${current_form}\{'tooltips'} = new Gtk::Tooltips;" );
$class->add_to_UI($depth,
Glade/PerlUI.pm view on Meta::CPAN
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->put(".
"\$widgets->{'$childname'}, $x, $y);" );
#---------------------------------------
} elsif (' Gtk::MenuBar Gtk::Menu ' =~ m/ $refpar /) {
# We are a menuitem
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->append(".
"\$widgets->{'$childname'} );" );
#---------------------------------------
} elsif (' Gtk::MenuItem Gtk::PixmapMenuItem ' =~ m/ $refpar /) {
# We are a menu for a meuitem
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->set_submenu(".
"\$widgets->{'$childname'} );" );
$postpone_show = 1;
#---------------------------------------
} elsif (' Gtk::OptionMenu ' =~ m/ $refpar /) {
# We are a menu for an optionmenu
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->set_menu(".
"\$widgets->{'$childname'} );" );
$postpone_show = 1;
Glade/PerlUI.pm view on Meta::CPAN
# Gnome::App::add_docked() or Gnome::App::add_dock_item() instead?
# $class->add_to_UI( $depth,
# "${current_form}\{'$parentname'}->set_contents(".
# "\$widgets->{'$childname'} );" );
} elsif (' Gtk::MenuBar ' =~ m/ $refwid /) {
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->set_menus(".
"\$widgets->{'$childname'} );" );
} else {
Glib-Ex-ConnectProperties
view release on metacpan or search on metacpan
lib/Glib/Ex/ConnectProperties/Element/widget.pm view on Meta::CPAN
C<widget#screen> uses the C<get_screen()> method. This means it will give
the default screen until the widget is added to a toplevel C<Gtk2::Window>
or similar to determine the screen.
C<widget#screen> is read-only for most widgets, but is writable for anything
with a C<set_screen()> such as C<Gtk2::Menu>. There's a plain C<screen>
property on C<Gtk2::Window> so it doesn't need this special
C<widget#screen>, but other widgets benefit.
C<Gtk2::Gdk::Screen> is new in Gtk 2.2 and C<widget#screen> and
C<widget#has-screen> are not available in Gtk 2.0.x.
Glib-Ex-ObjectBits
view release on metacpan or search on metacpan
lib/Glib/Ex/ObjectBits.pm view on Meta::CPAN
Nothing is exported by default, but the functions can be requested in usual
C<Exporter> style,
use Glib::Ex::ObjectBits 'set_property_maybe';
# "tearoff-title" new in Gtk 2.10
set_property_maybe ($combobox, tearoff_title => 'My Menu');
Importing C<set_property_maybe()> is good if making many such settings. The
name is tolerably distinctive.
There's no C<:all> tag since this module is meant as a grab-bag of functions
Glib
view release on metacpan or search on metacpan
lib/Glib/GenPod.pm view on Meta::CPAN
} elsif ($type eq 'Glib::Float' && $default == - POSIX::FLT_MAX()) {
$default = "-FLT_MAX";
} elsif ($type eq 'Glib::Double' || $type eq 'Glib::Float') {
# Limit the decimals shown in floats,
# eg. Gtk2::Menu style property "arrow-scaling" is 0.7 and comes out as
# 0.6999999999 if not restricted a bit
$default = sprintf '%.6g', $default;
} elsif ($pname =~ /keyval/
&& $type eq 'Glib::UInt'
( run in 2.754 seconds using v1.01-cache-2.11-cpan-364913b4093 )