view release on metacpan or search on metacpan
public/assets/js/main.js view on Meta::CPAN
(function(){var e,t,n,r,o,i,s,a,l,c,u,p,h,d,f,m,y,g,v,b,T,x,_,C,E,w,P,S,k,D,R,M,O,A,I,N,j,L,F,B,U,H,W,z,K,V,q,Y,G,X,Q,$,J,Z,ee,te,ne=[].indexOf||function(e){for(var t=0,n=this.length;n>t;t++)if(t in this&&this[t]===e)return t;return-1},re=function(e,...
var o=document.body,i=new Headroom(o,{offset:n.position});i.init()},handleScroll:function(e){var t=document.documentElement.scrollTop?document.documentElement.scrollTop:document.body.scrollTop;for(var n in r.elements){var o=r.elements[n],i=r.getPosit...
}}var r=new Error;if("string"==typeof r.stack&&r.stack.split("\n")[0].indexOf("stackDetection@")>=0)return m=/@/,y=t,g=!0,function(e){e.stack=(new Error).stack};var o;try{throw new Error}catch(i){o="stack"in i}return"stack"in r||!o||"number"!=typeof ...
for(var p=this._promise,h=0;u>h;++h){var d=this._isResolved(),f=r(s[h],p);f instanceof t?(f=f._target(),d?f._ignoreRejections():f._isPending()?f._proxyPromiseArray(this,h):f._isFulfilled()?this._promiseFulfilled(f._value(),h):this._promiseRejected(f....
return Fs(e,t,ti)}function Mt(e,t){return Fs(e,t,Ua)}function Ot(e,t){return Bs(e,t,Ua)}function At(e,t){for(var n=-1,r=t.length,o=-1,i=[];++n<r;){var s=t[n];Io(e[s])&&(i[++o]=s)}return i}function It(e,t,n){if(null!=e){n!==w&&n in pr(e)&&(t=[n]);for(...
var n=t.length;return vo(function(r){for(var o=Cs(r.length,n);o--;)r[o]=t[o](r[o]);return e.apply(this,r)})}),Pa=Rn(O),Sa=Rn(A),ka=vo(function(e,t){return Ln(e,N,w,w,w,Dt(t))}),Da=bs||function(e){return g(e)&&nr(e.length)&&rs.call(e)==q},Ra=pn(Ht),Ma...
return n}var o=Object.assign||function(e){for(var t=1;t<arguments.length;t++){var n=arguments[t];for(var r in n)Object.prototype.hasOwnProperty.call(n,r)&&(e[r]=n[r])}return e},i=e("react"),s=e("./mixins/style-propable"),a=e("./styles/auto-prefix"),l...
return this.context.muiTheme.component.datePicker},render:function(){var e=this.props,t=(e.className,e.year),n=(e.onTouchTap,e.selected),s=r(e,["className","year","onTouchTap","selected"]),l={root:{boxSizing:"border-box",WebkitTapHighlightColor:"rgba...
label:o,labelPosition:s.PropTypes.oneOf(["before","after"]),labelStyle:s.PropTypes.object,onKeyboardFocus:s.PropTypes.func,onMouseEnter:s.PropTypes.func,onMouseLeave:s.PropTypes.func,onTouchStart:s.PropTypes.func,primary:s.PropTypes.bool,rippleColor:...
v&&this._pushElement(U,v,this.mergeStyles(B.avatars,B.leftAvatar)),C&&this._pushElement(U,C,this.mergeStyles(B.avatars,B.rightAvatar)),b&&this._pushElement(U,b,this.mergeStyles(B.leftCheckbox));var H=x.length,W=C||E||w||P,z=H&&t&&!W;if(w||z){var K=w,...
return p&&(h=this.state.isKeyboardFocused?"keyboard-focused":"focused"),i.cloneElement(e,{desktop:s,focusState:h,onTouchTap:function(t){r._handleMenuItemTouchTap(t,e),e.props.onTouchTap&&e.props.onTouchTap(t)},ref:p?"focusedMenuItem":null,style:u})},...
errorStyle:i.PropTypes.object,hintText:i.PropTypes.string,id:i.PropTypes.string,multiLine:i.PropTypes.bool,onBlur:i.PropTypes.func,onChange:i.PropTypes.func,onFocus:i.PropTypes.func,onKeyDown:i.PropTypes.func,onEnterKeyDown:i.PropTypes.func,type:i.Pr...
mixins:[o],render:function(){return r.createElement(i,this.props,r.createElement("path",{d:"M15.41 7.41L14 6l-6 6 6 6 1.41-1.41L10.83 12z"}))}});t.exports=s},{"../../svg-icon":128,"react/addons":196}],136:[function(e,t,n){"use strict";var r=e("react/...
},underlineFocus:{borderBottom:"solid 2px",borderColor:t.focusColor,transform:"scaleX(0)",transition:c.easeOut()}};return r.error=this.mergeAndPrefix(r.error,e.errorStyle),r.underline=this.mergeAndPrefix(r.underline,e.underlineStyle),r.floatingLabel=...
e.target.style.color=this.getStyles().icon.hover.color},_handleMouseLeaveFontIcon:function(e){e.target.style.zIndex="auto",e.target.style.color=this.getStyles().icon.root.color}});t.exports=s},{"../mixins/style-propable":103,"../styles/colors":120,re...
return"https://checkout.stripe.com/checkout.js"},statics:{stripeHandler:null,scriptDidError:!1},hasPendingClick:!1,onScriptLoaded:function(){this.setState({scriptLoading:!1}),s.stripeHandler||this.updateStripeHandler()},updateStripeHandler:function()...
if(i.canUseDOM){var d=document.implementation;r=d&&d.hasFeature&&d.hasFeature("http://www.w3.org/TR/SVG11/feature#BasicStructure","1.1")}var f={isCustomAttribute:RegExp.prototype.test.bind(/^(data|aria)-[a-z_][a-z\d_.\-]*$/),Properties:{accept:null,a...
r===C&&(i&&(i=this._previousStyleCopy=m({},t.style)),i=a.createMarkupForStyles(i));var s=c.createMarkupForProperty(r,i);s&&(n+=" "+s)}}if(e.renderToStaticMarkup)return n+">";var l=c.createMarkupForID(this._rootNodeID);return n+" "+l+">"},_createConte...
},getSelectionInformation:function(){var e=a();return{focusedElem:e,selectionRange:l.hasSelectionCapabilities(e)?l.getSelection(e):null}},restoreSelection:function(e){var t=a(),n=e.focusedElem,o=e.selectionRange;t!==n&&r(n)&&(l.hasSelectionCapabiliti...
function r(e){e!==i.currentlyMountingInstance&&c.enqueueUpdate(e)}function o(e,t){p(null==s.current);var n=l.get(e);return n?n===i.currentlyUnmountingInstance?null:n:null}var i=e("./ReactLifeCycle"),s=e("./ReactCurrentOwner"),a=e("./ReactElement"),l=...
357:[function(e,t,n){"use strict";var r,o=e("./ExecutionEnvironment");o.canUseDOM&&(r=window.performance||window.msPerformance||window.webkitPerformance),t.exports=r||{}},{"./ExecutionEnvironment":217}],358:[function(e,t,n){var r=e("./performance");r...
})}function r(){o?(o(function(){t.ReactRailsUJS.mountComponents()}),o(t).unload(function(){t.ReactRailsUJS.unmountComponents()})):(e.addEventListener("DOMContentLoaded",function(){t.ReactRailsUJS.mountComponents()}),t.addEventListener("unload",functi...
view all matches for this distribution
view release on metacpan or search on metacpan
docs/static/d_20071112.css view on Meta::CPAN
float: left;
}
/* Menu */
#menu ul {
margin: 0;
padding: 0;
list-style-type: none;
view all matches for this distribution
view release on metacpan or search on metacpan
FromHTML.pm view on Meta::CPAN
<DViewRect 24 45 601 498 >
<DWindowRect 2 2 669 583 >
<DViewScale 100.0%>
<DNextUnique 216474>
<DPageSize 21.0 cm 29.7 cm>
<DMenuBar `'>
<DVoMenuBar `'>
<DStartPage 1>
<DPageNumStyle Arabic>
<DPagePointStyle Arabic>
<DTwoSides Yes>
<DParity FirstRight>
FromHTML.pm view on Meta::CPAN
<DPageScrolling Variable>
<DViewOnly No>
<DViewOnlyXRef GotoBehavior>
<DViewOnlySelect Yes>
<DViewOnlyWinBorders Yes>
<DViewOnlyWinMenubar Yes>
<DViewOnlyWinPopup Yes>
<DViewOnlyWinPalette No>
<DFluid No>
<DFluidSideheads No>
<DGridOn No>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
BNextUnique
BViewOnly
BViewOnlyNoOp
BViewOnlyPopup
BViewOnlyWinBorders
BViewOnlyWinMenubar
BDisplayText
BWindowRect
PDFBookInfo
BookFileInfo
BXmlDocType
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
DMathSmallVert
DMathStrings
DMathVariables
DMaxInterLine
DMaxInterPgf
DMenuBar
DNarrowRubiSpaceForJapanese
DNarrowRubiSpaceForOther
DNextUnique
DNoPrintSepColor
DPDFAllNamedDestinations
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
DUseInitialStructure
DViewOnly
DViewOnlyNoOp
DViewOnlySelect
DViewOnlyWinBorders
DViewOnlyWinMenubar
DViewOnlyWinPalette
DViewOnlyWinPopup
DViewOnlyXRef
DViewRect
DViewScale
DVoMenuBar
DWideRubiSpaceForJapanese
DWideRubiSpaceForOther
DWindowRect
DocFileInfo
FNoteStartNum
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
BUseInitialStructure => 'boolean',
BViewOnly => 'boolean',
BViewOnlyNoOp => '0xnnn',
BViewOnlyPopup => 'boolean',
BViewOnlyWinBorders => 'boolean',
BViewOnlyWinMenubar => 'boolean',
BWindowRect => 'X_Y_W_H',
BXmlDocType => 'string',
BXmlEncoding => 'string',
BXmlFileEncoding => 'string',
BXmlStandAlone => 'integer',
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
DMathSmallVert => 'dimension',
DMathStrings => 'tagstring',
DMathVariables => 'tagstring',
DMaxInterLine => 'dimension',
DMaxInterPgf => 'dimension',
DMenuBar => 'string',
DNarrowRubiSpaceForJapanese => 'keyword',
DNarrowRubiSpaceForOther => 'keyword',
DNextUnique => 'ID',
DNoPrintSepColor => 'tagstring',
DPDFAllNamedDestinations => 'boolean',
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
DUseInitialStructure => 'boolean',
DViewOnly => 'boolean',
DViewOnlyNoOp => '0xnnn',
DViewOnlySelect => 'keyword',
DViewOnlyWinBorders => 'boolean',
DViewOnlyWinMenubar => 'boolean',
DViewOnlyWinPalette => 'boolean',
DViewOnlyWinPopup => 'boolean',
DViewOnlyXRef => 'keyword',
DViewRect => 'X_Y_W_H',
DViewScale => 'percentage',
DVoMenuBar => 'string',
DWideRubiSpaceForJapanese => 'keyword',
DWideRubiSpaceForOther => 'keyword',
DWindowRect => 'X_Y_W_H',
DXmlDocType => 'string',
DXmlEncoding => 'string',
view all matches for this distribution
view release on metacpan or search on metacpan
lang_de/word_types.brain view on Meta::CPAN
type: n,
kontaktschwach:
type: adj
Tshwane:
type: n,
Menuegesteuert:
type: n,
Kettenfaeden:
type: n,
wten:
type: vi
lang_de/word_types.brain view on Meta::CPAN
type: n,
Lump:
type: n,
Laeusekamm:
type: n,
Menueeintragmenuepunkt:
type: n,
aufopferungsvoll:
type: adj
Haesslich:
type: adv
lang_de/word_types.brain view on Meta::CPAN
type: adj
schiffsausbesserungswerk:
type: adj
e2e4:
type: n,
Menue:
type: n,
Arbeitsanzug:
type: n,
Malle:
type: n,
lang_de/word_types.brain view on Meta::CPAN
type: n,
Sequentialisieren:
type: n,
sterbeort:
type: vi
Menuespeisefolge:
type: n,
Beifallklatscher:
type: n,
Gebaeudetrakt:
type: n,
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Fry/Lib/CDBI/Basic.pm view on Meta::CPAN
cdbi_delete
*cdbi_update
*verify_no_delim
*replace
cdbi_find_or_create
Menu based
cdbi_delete_obj
cdbi_update_obj
verify_no_delim_obj
Debugging via DBI::Profile
set_dbi_log_level
lib/Fry/Lib/CDBI/Basic.pm view on Meta::CPAN
file, having them in the data could result in incorrect parsing. The
delimiter is specified by the variable field_delimiter
cdbi_find_or_create(@search_term): If no result objects found then one is created
=head2 Menu based Commands
cdbi_delete_obj(@cdbi): same functionality as cdbi_delete
cdbi_update_obj(@cdbi): same functionality as cdbi_update
verify_no_delim_obj(@cdbi): same functionality as verify_no_delim
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Fry/Lib/CPANPLUS.pm view on Meta::CPAN
&listInstalledRegex which returns all installed modules that match
a given regular expression, and &listAuthorsRegex which returns all
authors matching a regular expression.
Use the menu option to pass arguments as numbers.
=head2 Using the Menu option
You invoke the menu option when you want the output of one command to be
selectively passed to another command ie:
`-m cm Acme::` followed by `ci 1,4,6`
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Fry/Shell.pm view on Meta::CPAN
Fry::Shell comes with a few handy options (defined in &_default_data):
parsecmd: sets the current parsing subroutine, handy when needing to pass a command a
complex data structure and want to use your own parsing syntax
cmdlist: sets the current subroutine for autocompleting commands
menu: sets parsecmd to parseMenu thus putting the user in a menu mode
where each output line is aliased to a number for the following
command, explained in SYNOPSIS Explained section
fh_file: sends command's output to specified file name
page: sends command's output to preferred pager
autoview: flag which turns on/off autoview and a command's subroutine outputs for itself
view all matches for this distribution
view release on metacpan or search on metacpan
example/Fuse-PDF-App/DragWell.m
example/Fuse-PDF-App/English.lproj/FPAppWindow.nib/classes.nib
example/Fuse-PDF-App/English.lproj/FPAppWindow.nib/info.nib
example/Fuse-PDF-App/English.lproj/FPAppWindow.nib/keyedobjects.nib
example/Fuse-PDF-App/English.lproj/InfoPlist.strings
example/Fuse-PDF-App/English.lproj/MainMenu.nib/classes.nib
example/Fuse-PDF-App/English.lproj/MainMenu.nib/info.nib
example/Fuse-PDF-App/English.lproj/MainMenu.nib/keyedobjects.nib
example/Fuse-PDF-App/FPAppWindow.h
example/Fuse-PDF-App/FPAppWindow.m
example/Fuse-PDF-App/Fuse-PDF-App.xcodeproj/project.pbxproj
example/Fuse-PDF-App/Info.plist
example/Fuse-PDF-App/main.m
view all matches for this distribution
view release on metacpan or search on metacpan
resources/generic/ps/macos view on Meta::CPAN
admin 100 0.0 2.8 3968776 ?? 07-21:27:52 /System/Library/CoreServices/Finder.app/Contents/MacOS/Finder
admin 109 0.0 0.2 2496564 ?? 07-21:27:50 /System/Library/Frameworks/ApplicationServices.framework/Frameworks/ATS.framework/Support/fontd
admin 113 0.0 0.0 2436408 ?? 07-21:27:49 /usr/sbin/pboard
admin 118 0.0 0.3 2460956 ?? 07-21:27:47 /usr/libexec/UserEventAgent -l Aqua
admin 126 0.0 0.3 2732816 ?? 07-21:27:47 /System/Library/CoreServices/AirPort Base Station Agent.app/Contents/MacOS/AirPort Base Station Agent -launchd -allowquit
admin 130 0.0 0.2 2725604 ?? 07-21:27:47 /System/Library/CoreServices/Menu Extras/TextInput.menu/Contents/SharedSupport/TISwitcher.app/Contents/MacOS/TISwitcher
admin 132 0.0 0.5 2770492 ?? 07-21:27:47 /Applications/Antidote HD.app/Contents/SharedSupport/AgentAntidote.app/Contents/MacOS/AgentAntidote -psn_0_45067
admin 133 0.0 0.1 2725896 ?? 07-21:27:47 /Applications/iTunes.app/Contents/MacOS/iTunesHelper.app/Contents/MacOS/iTunesHelper -psn_0_49164
admin 135 0.0 1.1 3884996 ?? 07-21:27:47 /Applications/owncloud.app/Contents/MacOS/owncloud -psn_0_57358
admin 140 0.0 0.2 2723908 ?? 07-21:27:47 /Applications/Canon Utilities/IJ Network Scanner Selector EX/Canon IJ Network Scanner Selector EX.app/Contents/CNSSelectorAgent.app/Contents/MacOS/CNSSelectorAgent -psn_0_73746
admin 250 0.0 0.2 2466524 ?? 07-20:39:41 /System/Library/Services/AppleSpell.service/Contents/MacOS/AppleSpell -psn_0_180268
view all matches for this distribution
view release on metacpan or search on metacpan
# Hotkeys
Key n A 3 SendToModule FvwmPiazza "None"
Key f A 3 SendToModule FvwmPiazza Full
Key c A 3 Popup FPMultiColumnMenu
Key r A 3 Popup FPMultiRowMenu
Key g A 3 Popup FPMultiGridMenu
Key Up A 3 SendToModule FvwmPiazza Increment 1
Key Down A 3 SendToModule FvwmPiazza Decrement 1
Key Left A 3S Current (!CirculateHit) SendToModule FvwmPiazza PrevGroup
#------------------------------------------------------------------
# Functions
# Fake multi-keys by defining menus
DestroyMenu FPMultiColumnMenu
AddToMenu FPMultiColumnMenu
+ "&2 Columns" SendToModule FvwmPiazza Columns --max_win 2
+ "&3 Columns" SendToModule FvwmPiazza Columns --max_win 3
+ "&4 Columns" SendToModule FvwmPiazza Columns --max_win 4
+ "&Two-Thirds Columns" SendToModule FvwmPiazza Columns --max_win 2 --ratios 66
DestroyMenu FPMultiRowMenu
AddToMenu FPMultiRowMenu
+ "&2 Rows" SendToModule FvwmPiazza Rows --max_win 2
+ "&3 Rows" SendToModule FvwmPiazza Rows --max_win 3
+ "&4 Rows" SendToModule FvwmPiazza Rows --max_win 4
+ "&Two-Thirds Rows" SendToModule FvwmPiazza Rows --max_win 2 66
+ "&Wide" SendToModule FvwmPiazza Wide --max_win 3
+ "&Bottom Wide" SendToModule FvwmPiazza Wide --max_win 3 Bottom
+ "&a) Two-Thirds Wide" SendToModule FvwmPiazza Wide --max_win 3 --height_ratio 2:1
DestroyMenu FPMultiGridMenu
AddToMenu FPMultiGridMenu
+ "&4 Grid" SendToModule FvwmPiazza Grid --max_win 4 --cols 2
+ "&6 Grid" SendToModule FvwmPiazza Grid --max_win 6 --cols 3
+ "Tall &Left (1-2)" SendToModule FvwmPiazza Tall --max_win 3
+ "Tall &Right (2-1)" SendToModule FvwmPiazza Tall --max_win 3 Right
+ "&a) Tall Left (1-3)" SendToModule FvwmPiazza Tall --max_win 4
view all matches for this distribution
view release on metacpan or search on metacpan
conf/plugins/PrimerDesigner.pm view on Meta::CPAN
}
sub detail_select_menu {
<<DETAILS;
<div id="detailSelectMenu">
<table style="width:100%">
<tr>
<th style="background:lightgrey;cell-padding:5">
SELECTION
<a style="right:0px;position:absolute;color:blue;cursor:pointer"
view all matches for this distribution
view release on metacpan or search on metacpan
Examples/gds2dump view on Meta::CPAN
$MW -> title('dumpgds');
$MW -> iconname('dumpgds');
$MW -> minsize(1, 1);
###### start top menu bar #####
my $wMenu = $MW -> Frame(
-relief => 'raised',
-background => $BGCOLOR,
-borderwidth => 2,
);
$wMenu -> pack(-fill => 'x');
##### options menu #####
my $optionsMenu = $wMenu -> Menubutton(
-activebackground => $BGCOLOR2,
-background => $BGCOLOR,
-text => 'Options',
-underline => FALSE,
);
$optionsMenu -> separator(
-background => $BGCOLOR,
);
$optionsMenu -> radiobutton(
-activebackground => $BGCOLOR,
-variable => \$G_ECHO,
-label => 'Echo to terminal',
-value => TRUE,
);
$optionsMenu -> radiobutton(
-activebackground => $BGCOLOR,
-variable => \$G_ECHO,
-label => 'do not echo to terminal',
-value => FALSE,
);
### quit
$optionsMenu -> command(
-activebackground => 'Red',
-background => $BGCOLOR,
-label => 'Exit',
-command => sub { $MW -> destroy; exit(1); },
);
$optionsMenu -> pack(-side=>'left');
##### Help menu #####
my $textArea;
my $helpMenu = $wMenu -> Menubutton(
-text => 'Help',
-activebackground => $BGCOLOR2,
-background => $BGCOLOR,
-underline => 0
);
$helpMenu -> command(
-activebackground => $BGCOLOR2,
-background => $BGCOLOR,
-label => 'Program Version',
-command => sub {
$textArea -> delete('0.0', 'end');
$textArea -> insert('end', "dumpgds $VERSION\n");
$textArea -> insert('end', "Using Perl $]\n");
},
);
$helpMenu -> separator(
-background => $BGCOLOR,
);
$helpMenu -> command(
-activebackground => $BGCOLOR2,
-background => $BGCOLOR,
-label => 'Print help in text window',
-command => sub { \&printUsage($textArea); },
-activebackground => 'purple',
);
$helpMenu -> pack(-side=>'right');
#### end top menu bar #####################################
my $progress = $MW -> ProgressBar(
-anchor => 'w',
-width => 20,
view all matches for this distribution
view release on metacpan or search on metacpan
use common::sense;
use utf8;
use Gtk2;
use Gtk2::SimpleMenu ();
use AnyEvent;
use AnyEvent::Util;
use File::HomeDir ();
use Gtk2::Ex::PodViewer ();
use POSIX qw(setsid _exit);
}
our $button;
sub new () {
my $menu = new Gtk2::SimpleMenu (menu_tree => $menu_tree);
$main_scroll = new_scrolled_textarea();
$main_window = new Gtk2::Window ('toplevel');
$main_window->signal_connect (destroy => sub { main_quit Gtk2; });
win_size ($main_window, "main_window", 960, 600);
my $v = new Gtk2::VBox;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/GFgtk.pm view on Meta::CPAN
my @widgets=();
my %iVars=(); #vars for interface operation (e.g.
my %oVars=(); #vars for interface creation (e.g. list of options)
my %styles;
my $lastMenuLabel; #bug workaround in menu generator may be needed for submenus
sub new
{
my $class = shift;
my $self={};
lib/GFgtk.pm view on Meta::CPAN
# setupContent sets up the initial content before Mainloop can be run.
sub setupContent{
my ($self, $canvas)=@_;
$self ->{"menubar"}=undef;
my $currentMenu;
foreach my $widget (@widgets){
my @params=@$widget;
my $wtype=shift @params;
if ($wtype eq "btn") {aBt($self, $canvas, @params);}
elsif ($wtype eq "textctrl") {aTC($self, $canvas, @params);}
lib/GFgtk.pm view on Meta::CPAN
elsif ($wtype eq "combo") {aCB($self, $canvas, @params);}
elsif ($wtype eq "sp") {aSP($self, $canvas, @params);}
elsif ($wtype eq "mb")
{
if (! $self->{"menubar"}){
$self ->{"menubar"} = Gtk3::MenuBar->new;
$canvas->put($self ->{"menubar"},0,0);
}
$currentMenu=aMB($self,$canvas,$currentMenu,@params)
}
}
sub aBt{
my ($self,$canvas, $id, $label, $location, $size, $action)=@_;
lib/GFgtk.pm view on Meta::CPAN
}
else {print "Combo options not defined for 'combo$id' with label $label\n"}
}
sub aMB{
my ($self,$canvas,$currentMenu, $id, $label, $type, $action)=@_;
if (($lastMenuLabel) &&($label eq $lastMenuLabel)){return $currentMenu} # bug workaround
else {$lastMenuLabel=$label}; # in menu generator
if ($type eq "menuhead"){
$currentMenu="menu".$id;
$self ->{$currentMenu} = Gtk3::MenuItem->new_with_label($label);
$self ->{"sm$currentMenu"}=Gtk3::Menu->new();
$self ->{$currentMenu}->set_submenu( $self ->{"sm$currentMenu"} );
$self ->{"menubar"}->append($self ->{$currentMenu});
}
elsif ($type eq "radio"){
$self ->{"sm$currentMenu"}->append(Gtk3::RadioMenuItem->new($label));
}
elsif ($type eq "check"){
$self ->{"sm$currentMenu"}->append(Gtk3::CheckMenuItem->new($label));
}
elsif ($type eq "separator"){
$self ->{"sm$currentMenu"}->append(Gtk3::SeparatorMenuItem->new());
}
else{
if($currentMenu!~m/$label/){
$self ->{"mi$id"}=Gtk3::MenuItem->new($label);
$self ->{"sm$currentMenu"}->append($self ->{"mi$id"});
$self ->{"mi$id"}->signal_connect('activate' => $action);
}
}
# logging menu generator print "$currentMenu---$id----$label---$type\n";
return $currentMenu;
}
sub aSP{
my ($self,$canvas, $id, $panelType, $content, $location, $size)=@_;
if ($panelType eq "I"){ # Image panels start with I
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Galileo/DB/Deploy.pm view on Meta::CPAN
~~Mistaken text.~~
MARKDOWN
author_id => $admin->user_id,
});
$schema->resultset('Menu')->create({
name => 'main',
list => j( [ $syntax->page_id, $about->page_id ] ),
});
}
view all matches for this distribution
view release on metacpan or search on metacpan
share/hex-describe-schroeder-table.txt view on Meta::CPAN
1,Mengia
1,Menisha
1,Menna
1,Mennat
1,Menoa
1,Menucha
1,Menuja
1,Menuka
1,Mera
1,Merab
1,Meral
1,Merav
1,Meraviglia
view all matches for this distribution
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.
view all matches for this distribution
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} }
view all matches for this distribution
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 !"
view all matches for this distribution
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' ]);
view all matches for this distribution
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 = (
view all matches for this distribution
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);
view all matches for this distribution
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 = (
view all matches for this distribution
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;
view all matches for this distribution
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};
view all matches for this distribution
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 {
view all matches for this distribution
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,
view all matches for this distribution
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"]);
view all matches for this distribution