Result:
found more than 404 distributions - search limited to the first 2001 files matching your query ( run in 1.093 )


Flower

 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



FrameMaker-FromHTML

 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


FrameMaker-MifTree

 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


FreeHAL

 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


Fry-Lib-CDBI-Basic

 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


Fry-Lib-CPANPLUS

 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


Fry-Shell

 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


Fuse-PDF

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

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


FusionInventory-Agent

 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


FvwmPiazza

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN


        # 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

README  view on Meta::CPAN


        #------------------------------------------------------------------
        # 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


GBrowse

 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


GDS2

 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


GTM

 view release on metacpan or  search on metacpan

lib/GTM.pm  view on Meta::CPAN


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);

lib/GTM.pm  view on Meta::CPAN

}

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


GUIDeFATE

 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


Galileo

 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


Game-HexDescribe

 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


Games-AIBots

 view release on metacpan or  search on metacpan

bin/aibots  view on Meta::CPAN


=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


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} }

 view all matches for this distribution


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 !"

 view all matches for this distribution


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' ]);

 view all matches for this distribution


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 = (

 view all matches for this distribution


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);

 view all matches for this distribution


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 = (

 view all matches for this distribution


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;

 view all matches for this distribution


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};

 view all matches for this distribution


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 {

 view all matches for this distribution


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,

 view all matches for this distribution


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"]);        

 view all matches for this distribution


( run in 1.093 second using v1.01-cache-2.11-cpan-49f99fa48dc )