view release on metacpan or search on metacpan
scripts/FINANCE_QUANT_TRAY view on Meta::CPAN
}
#right click menu
sub menu {
my $menu = Gtk2::Menu->new();
#VCI
my $menu_VCI = Gtk2::ImageMenuItem->new_with_label("CLI UI");
$menu_VCI->set_image(Gtk2::Image->new_from_stock('gtk-refresh',
'menu'));
$menu_VCI->signal_connect(activate => sub {
print system ('financequant &');
scripts/FINANCE_QUANT_TRAY view on Meta::CPAN
$menu->add($menu_VCI);
#configure
my $menu_pref = Gtk2::ImageMenuItem->new_with_label("XML DUMP");
$menu_pref->signal_connect(activate => sub {
my $response=0;
my $error =0;
print system ('FINANCE_QUANT_XML_RESULTS');
scripts/FINANCE_QUANT_TRAY view on Meta::CPAN
$menu->add($menu_pref);
#configure
my $menu_http = Gtk2::ImageMenuItem->new_with_label("HTTP REPORTS");
$menu_http->signal_connect(activate => sub {
system("FINANCE_QUANT_HTTP_SERVER &");
});
$menu_http->set_image(Gtk2::Image->new_from_stock('gtk-media-play','menu'));
$menu->add($menu_http);
#separator
my $menu_sep = Gtk2::SeparatorMenuItem->new();
$menu->add($menu_sep);
#Quit
my $menu_quit = Gtk2::ImageMenuItem->new_with_label("Quit");
$menu_quit->signal_connect(activate => sub {Gtk2->main_quit});
$menu_quit->set_image(Gtk2::Image->new_from_stock('gtk-quit', 'menu'));
$menu->add($menu_quit);
scripts/FINANCE_QUANT_TRAY view on Meta::CPAN
#Program interfaces
sub interface {
my $interface = Gtk2::Menu->new;
#menu items for VCI
#Progress bar for number of downloads; just a countng bar
#Add the correct controls to menu
my $menu_vci_connect = Gtk2::ImageMenuItem->new_with_label("Connect");
$interface->add($menu_vci_connect);
my $menu_vci_stop = Gtk2::ImageMenuItem->new_with_label("Stop");
$interface->add($menu_vci_stop);
$interface->show_all;
view all matches for this distribution
view release on metacpan or search on metacpan
# Jake /about/jake/
=head1 DESCRIPTION
Fir is a Tree::DAG_Node subclass for menu nagivation. Menu navigation
on a web application is fiddly code and this module hides that away
from you. Note that this module only handles the logic, not the
display of the navigation.
There are two kinds of nodes L<Fir::Major> nodes are allowed to have
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Firefox/Marionette.pm view on Meta::CPAN
DO NOT EDIT! -->
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
_HTML_
$quoted_header_regex =~ s/\\\r?\n/\\s+/smxg;
my $title_regex = qr/[<]TITLE[>]Bookmarks[<]\/TITLE[>]\s+/smx;
my $header_regex = qr/[<]H1[>]Bookmarks(?:[ ]Menu)?[<]\/H1[>]\s+/smx;
my $list_regex = qr/[<]DL[>][<]p[>]\s*/smx;
if ( $contents =~ s/\A\s*$quoted_header_regex\s*//smx ) {
$contents =~ s/\A\s*<meta[^>]+><\/meta>\s*//smx;
$contents =~ s/\A$title_regex$header_regex$list_regex//smx;
lib/Firefox/Marionette.pm view on Meta::CPAN
<!-- This is an automatically generated file.
It will be read and overwritten.
DO NOT EDIT! -->
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<TITLE>Bookmarks</TITLE>
<H1>Bookmarks Menu</H1>
<DL><p>
<DT><H3 ADD_DATE="$now" LAST_MODIFIED="$now" PERSONAL_TOOLBAR_FOLDER="true">Bookmarks Toolbar</H3>
<DL><p>
</DL><p>
view all matches for this distribution
view release on metacpan or search on metacpan
- eg/double_click.pl - Custom button widget that detects double clicks
- eg/drag_and_drop.pl - Example of clipboard access and drag and drop
- New widgets:
- Fl::Progress - Typical progress bar
- Fl::InputChoice - Input widget and menu button rolled into one
- Fl::Menu - Base class for all widgets that have a menu
- Fl::MenuButton - Button that pops up a menu when pushed
- Fl::HtmlView - Simple HTML viewer
- New demo scripts:
- eg/progress.pl - Demos using a Fl::Progress bar to keep user up to date on background progress
- eg/input_choice.pl - Demos using Fl::InputChoice and enabling/disabling widgets
- Some tests require a working DISPLAY on X11
view all matches for this distribution
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