Result:
found more than 404 distributions - search limited to the first 2001 files matching your query
( run in 1.088 )
App-Widget
view release on metacpan or search on metacpan
lib/App/Widget/AppFrame.pm view on Meta::CPAN
my ($screentitle_widget, $screentitle_bgcolor, $screentitle_value);
if (1) { # view as table
$menu = $context->widget("$name-menu",
class => "App::Widget::Menu",
)->html();
$toolbar = $context->widget("$name-toolbar",
class => "App::Widget::Toolbar",
)->html();
App-Wx-PodEditor
view release on metacpan or search on metacpan
lib/App/Wx/PodEditor/Frame.pm view on Meta::CPAN
sub new {
my( $class ) = shift;
my( $this ) = $class->SUPER::new( @_ );
$this->CreateMyMenuBar();
$this->CreateStatusBar(1);
$this->SetToolBar( $this->_toolbar );
$this->GetToolBar->Realize;
$this->SetStatusText("Welcome!", 0);
lib/App/Wx/PodEditor/Frame.pm view on Meta::CPAN
}
$self->{editor};
}
sub CreateMyMenuBar {
my( $this ) = shift;
my $menuconf = do{ local $/; <DATA> };
my $config = YAML::Tiny->read_string( $menuconf );
my $menubar_def = $config->[0]->{full_menubar};
my $menubar = Wx::MenuBar->new();
Wx::InitAllImageHandlers();
for my $menu_def ( @$menubar_def ){
for my $menu_id (keys %$menu_def){
my $label = $menu_def->{$menu_id}->{label};
my $items = $menu_def->{$menu_id}->{items};
my $menu = Wx::Menu->new();
$this->create_static( $menu, $items );
$menubar->Append( $menu, $label );
}
}
$this->SetMenuBar( $menubar );
}
sub create_static{
my $self = shift;
my $menu = shift;
App-financeta
view release on metacpan or search on metacpan
2ec3e8a8e5d10766e631d17ef20ff524336f895c
Adding checks for every menu item call to make sure we do not crash if the item is corrupt
Mon Jan 2 17:58:52 2023 -0500
5a01a16e337d8e8e692bff0d363fd9a24d8f5382
Got the icon to stop segfaulting. adding a testicon script for that. MenuItems are now able to load the gui object using the API change
Sun Jan 1 23:04:04 2023 -0500
64764eb9dabd6c43efff1c25e7ca35d59cac0387
Improving the main window invocation and handling the icon check. using a new icon from FontAwesome
2ec3e8a8e5d10766e631d17ef20ff524336f895c
Adding checks for every menu item call to make sure we do not crash if the item is corrupt
Mon Jan 2 17:58:52 2023 -0500
5a01a16e337d8e8e692bff0d363fd9a24d8f5382
Got the icon to stop segfaulting. adding a testicon script for that. MenuItems are now able to load the gui object using the API change
Sun Jan 1 23:04:04 2023 -0500
64764eb9dabd6c43efff1c25e7ca35d59cac0387
Improving the main window invocation and handling the icon check. using a new icon from FontAwesome
bcc8bcd78a411c517e043e554ffc7f760168bca0
Making OK the default button despite being disabled. Also moving the help button before the OK button since it is more likely to be clicked instead of OK
Wed Aug 27 15:46:34 2014 -0400
c499ec2389e664f70e48d1580ef18b17bcc970c6
Menu option cosmetics for disabling and enabling the appropriate options as the user uses the GUI
Wed Aug 27 15:20:41 2014 -0400
f366bbec71b332c94037be88373c3189b585196a
Adding a testcase to debug the tab closing in Prima. removing it from distribution though.
bcc8bcd78a411c517e043e554ffc7f760168bca0
Making OK the default button despite being disabled. Also moving the help button before the OK button since it is more likely to be clicked instead of OK
Wed Aug 27 15:46:34 2014 -0400
c499ec2389e664f70e48d1580ef18b17bcc970c6
Menu option cosmetics for disabling and enabling the appropriate options as the user uses the GUI
Wed Aug 27 15:20:41 2014 -0400
f366bbec71b332c94037be88373c3189b585196a
Adding a testcase to debug the tab closing in Prima. removing it from distribution though.
App-mirai
view release on metacpan or search on metacpan
lib/App/mirai/Tickit.pm view on Meta::CPAN
Tickit::Style->load_style(<<'EOF');
Breadcrumb {
powerline: 1;
highlight-bg: 238;
}
MenuBar { bg: 'blue'; fg: 'hi-yellow'; rv: 0; highlight-fg: 'black'; }
Menu { bg: '232'; fg: 'white'; rv: 0; }
Table { highlight-bg: '238'; highlight-fg: 'hi-yellow'; highlight-b: 0; }
FileViewer { highlight-b: 0; }
GridBox { col-spacing: 1; }
EOF
$self
App-phoebe
view release on metacpan or search on metacpan
t/oddmuse-namespaces.pl view on Meta::CPAN
print $q->end_form() . $q->end_div();
PrintFooter();
}
}
push(@MyAdminCode, \&NamespacesMenu);
sub NamespacesMenu {
my ($id, $menuref, $restref) = @_;
push(@$menuref,
ScriptLink('action=namespaces',
T('Namespaces'),
'namespaces'));
App-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
require=function e(t,a,r){function s(i,l){if(!a[i]){if(!t[i]){var o="function"==typeof require&&require;if(!l&&o)return o(i,!0);if(n)return n(i,!0);var c=new Error("Cannot find module '"+i+"'");throw c.code="MODULE_NOT_FOUND",c}var d=a[i]={exports:{}...
a.relevance>r.relevance&&(s=r,r=a)}),s.language&&(r.second_best=s),r}function u(e){return N.tabReplace||N.useBR?e.replace(x,function(e,t){return N.useBR&&"\n"===e?"<br>":N.tabReplace?t.replace(/\t/g,N.tabReplace):void 0}):e}function h(e,t,a){var r=t?...
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
"atelier-lakeside-light":".hljs-atelier-lakeside-light .hljs-comment,.hljs-atelier-lakeside-light .hljs-quote{color:#5a7b8c}.hljs-atelier-lakeside-light .hljs-variable,.hljs-atelier-lakeside-light .hljs-template-variable,.hljs-atelier-lakeside-light ...
grayscale:".hljs-grayscale .hljs{display:block;overflow-x:auto;padding:.5em;color:#333;background:#fff}.hljs-grayscale .hljs-comment,.hljs-grayscale .hljs-quote{color:#777;font-style:italic}.hljs-grayscale .hljs-keyword,.hljs-grayscale .hljs-selector...
App-revealup
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
App-tkiv
view release on metacpan or search on metacpan
lib/App/tkiv.pm view on Meta::CPAN
=item Animation
- use Tk::Animation for animated gif's
=item Menu's
=item Documentation
=item Portability
Applications-BackupAndRestore
view release on metacpan or search on metacpan
lib/Gtk2/Ex/FileLocator/RecycleButton.pm view on Meta::CPAN
);
$this->add($button);
#popup menu
$this->{menu} = new Gtk2::Menu;
$this->{menu}->show;
$this->signal_connect_after( 'map' => \&on_map );
$this->get('chooser')->signal_connect( 'selection_changed', sub { $this->add_filename( $this->get_filename ) } );
lib/Gtk2/Ex/FileLocator/RecycleButton.pm view on Meta::CPAN
if @children
and grep { $_->get_child->get_text eq $filename } @children;
$this->Debug($filename);
my $menuItem = Gtk2::ImageMenuItem->new($filename);
$menuItem->set_image($image);
$menuItem->signal_connect_after( 'activate' => \&on_menu_activated, $this );
$menuItem->show;
$this->{menu}->append($menuItem);
AproJo
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/demos/autocomplete/categories.html view on Meta::CPAN
line-height: 1.5;
}
</style>
<script>
$.widget( "custom.catcomplete", $.ui.autocomplete, {
_renderMenu: function( ul, items ) {
var that = this,
currentCategory = "";
$.each( items, function( index, item ) {
if ( item.category != currentCategory ) {
ul.append( "<li class='ui-autocomplete-category'>" + item.category + "</li>" );
AquariumHive
view release on metacpan or search on metacpan
share/root/jquery-ui-1.11.1/jquery-ui.min.js view on Meta::CPAN
/*! jQuery UI - v1.11.1 - 2014-08-13
* http://jqueryui.com
* Includes: core.js, widget.js, mouse.js, position.js, accordion.js, autocomplete.js, button.js, datepicker.js, dialog.js, draggable.js, droppable.js, effect.js, effect-blind.js, effect-bounce.js, effect-clip.js, effect-drop.js, effect-explode.js, ef...
* Copyright 2014 jQuery Foundation and other contributors; Licensed MIT */
(function(e){"function"==typeof define&&define.amd?define(["jquery"],e):e(jQuery)})(function(e){function t(t,s){var n,a,o,r=t.nodeName.toLowerCase();return"area"===r?(n=t.parentNode,a=n.name,t.href&&a&&"map"===n.nodeName.toLowerCase()?(o=e("img[usema...
}})},_destroy:function(){this.element.removeAttr("aria-activedescendant").find(".ui-menu").addBack().removeClass("ui-menu ui-widget ui-widget-content ui-menu-icons ui-front").removeAttr("role").removeAttr("tabIndex").removeAttr("aria-labelledby").rem...
}catch(n){}return!0},_showDatepicker:function(t){if(t=t.target||t,"input"!==t.nodeName.toLowerCase()&&(t=e("input",t.parentNode)[0]),!e.datepicker._isDisabledDatepicker(t)&&e.datepicker._lastInput!==t){var i,n,a,o,h,l,u;i=e.datepicker._getInst(t),e.d...
},_generatePosition:function(e,t){var i,s,n,a,o=this.options,r=this._isRootNode(this.scrollParent[0]),h=e.pageX,l=e.pageY;return r&&this.offset.scroll||(this.offset.scroll={top:this.scrollParent.scrollTop(),left:this.scrollParent.scrollLeft()}),t&&(t...
if(t.keyCode===e.ui.keyCode.TAB&&!t.isDefaultPrevented()){var i=this.uiDialog.find(":tabbable"),s=i.filter(":first"),n=i.filter(":last");t.target!==n[0]&&t.target!==this.uiDialog[0]||t.shiftKey?t.target!==s[0]&&t.target!==this.uiDialog[0]||!t.shiftKe...
f&&e.effects.save(i,l),i.from={height:s.height*a.from.y,width:s.width*a.from.x,outerHeight:s.outerHeight*a.from.y,outerWidth:s.outerWidth*a.from.x},i.to={height:s.height*a.to.y,width:s.width*a.to.x,outerHeight:s.height*a.to.y,outerWidth:s.width*a.to....
return e.ui.ddmanager&&(e.ui.ddmanager.current=this),e.ui.ddmanager&&!o.dropBehaviour&&e.ui.ddmanager.prepareOffsets(this,t),this.dragging=!0,this.helper.addClass("ui-sortable-helper"),this._mouseDrag(t),!0},_mouseDrag:function(t){var i,s,n,a,o=this....
}).addClass("ui-tabs-anchor").attr({role:"presentation",tabIndex:-1}),this.panels=e(),this.anchors.each(function(i,s){var n,a,o,r=e(s).uniqueId().attr("id"),h=e(s).closest("li"),l=h.attr("aria-controls");t._isLocal(s)?(n=s.hash,o=n.substring(1),a=t.e...
Archive-Har
view release on metacpan or search on metacpan
],
"cookies": [],
"content": {
"size": 136732,
"mimeType": "text/javascript",
"text": "/* _GlobalPrefix_ */\nthis.gbar_=this.gbar_||{};(function(_){var window=this;\n/* _Module_:syp */\ntry{\nvar On=function(){};_.y(On,Error);_.Pn=function(){this.b=\"pending\";this.B=[];this.w=this.C=void 0};_.ae(_.Pn);var Qn=funct...
},
"redirectURL": "",
"headersSize": -1,
"bodySize": 0,
"_transferSize": 0
Archive-Tyd
view release on metacpan or search on metacpan
};
our $tyd = new Archive::Tyd();
#####################
## Menu Bar ##
#####################
our $menu = $main->Menu (-type => 'menubar');
$main->configure (-menu => $menu);
our $fileMenu = $menu->cascade (
-label => '~File',
);
$fileMenu->command (-label => '~New Archive', -accelerator => 'Ctrl+N', -command => sub {
&newArchive();
});
$fileMenu->command (-label => '~Open Archive', -accelerator => 'Ctrl+O', -command => sub {
&openArchive();
});
$fileMenu->command (-label => '~Save Archive', -accelerator => 'Ctrl+S', -command => sub {
&saveArchive();
});
$fileMenu->command (-label => 'Save Archive ~As...', -accelerator => 'Shift+Ctrl+S', -command => sub {
&saveArchive('as');
});
$fileMenu->command (-label => '~Close Archive', -accelerator => 'Ctrl+W', -command => sub {
&newArchive();
});
$fileMenu->separator;
$fileMenu->command (-label => '~Exit Tydra', -accelerator => 'Alt+F4', -command => sub {
exit(0);
});
our $tydMenu = $menu->cascade (
-label => '~Tyd',
);
$tydMenu->command (-label => '~Add File...', -accelerator => 'Ctrl+A', -command => sub {
&addFile();
});
$tydMenu->command (-label => '~Extract File...', -accelerator => 'Ctrl+E', -command => sub {
&extractFile();
});
$tydMenu->command (-label => '~Delete File', -accelerator => 'Ctrl+X', -command => sub {
&delFile();
});
$tydMenu->command (-label => '~View File', -accelerator => 'Enter', -command => sub {
&viewFile();
});
our $helpMenu = $menu->cascade (
-label => '~Help',
);
$helpMenu->command (-label => '~About...', -accelerator => 'F1', -command => sub {
&about();
});
#####################
## Binding Keys ##
Archive-Unzip-Burst
view release on metacpan or search on metacpan
unzip-6.0/macos/README.TXT view on Meta::CPAN
------
Basically there are four ways to start MacZip:
a) Drag'n Drop
b) using the Dialog box (Menu: File -> Zip/Unzip):
Please read the file "ReadMe.1st"
for the description of the items a and b.
c) Using the Command line (Menu: File->Command Line):
The Zip & UnZip tools are command line tools. So the
behavior is exactly the same like the Zip & UnZip tools on
Unix or Windows/DOS. This means, if you want to zip some
files, you have to write a command line like this: "zip
[switches] path_to_zip_archive path_to_files_folders"
AsposeSlidesCloud-SlidesApi
view release on metacpan or search on metacpan
lib/AsposeSlidesCloud/Object/SwfExportOptions.pm view on Meta::CPAN
format => '',
read_only => '',
},
'enable_context_menu' => {
datatype => 'boolean',
base_name => 'EnableContextMenu',
description => 'Enable/disable context menu. Default is true. ',
format => '',
read_only => '',
},
'logo_image' => {
lib/AsposeSlidesCloud/Object/SwfExportOptions.pm view on Meta::CPAN
'show_search' => 'ShowSearch',
'show_top_pane' => 'ShowTopPane',
'show_bottom_pane' => 'ShowBottomPane',
'show_left_pane' => 'ShowLeftPane',
'start_open_left_pane' => 'StartOpenLeftPane',
'enable_context_menu' => 'EnableContextMenu',
'logo_image' => 'LogoImage',
'logo_link' => 'LogoLink',
'jpeg_quality' => 'JpegQuality',
'notes_position' => 'NotesPosition',
'comments_position' => 'CommentsPosition',
Astro-Catalog
view release on metacpan or search on metacpan
lib/Tk/AstroCatalog.pm view on Meta::CPAN
$self->Catalog->reset_list;
$self->fillWithSourceList ('full');
})->pack(-side => 'right', -padx => '20');
# create the Sort menu
my $sortmenu = $buttonF->Menubutton(-text => 'Sort by', -relief => 'raised', -width => 7);
$sortmenu->command(-label => 'Unsorted', -command => sub {
$self->Catalog->sort_catalog('unsorted');
$self->fillWithSourceList('full');
});
$sortmenu->command(-label => 'Id', -command => sub {
lib/Tk/AstroCatalog.pm view on Meta::CPAN
}
$sortmenu->pack(-side => 'right', -padx => '20');
# create the catalog menu button
my $catB = $buttonF2->Menubutton(-text => 'Catalogs', -relief => 'raised', -width => 8);
$catB->command(-label => 'Default Catalog', -command => sub {
$self->file('default');
$catEnt->delete('0', 'end');
$catEnt->insert(0, $self->file);
# No filename for default
lib/Tk/AstroCatalog.pm view on Meta::CPAN
$topFrame->Label(
-text => 'Distance:'
)->grid(-column => 0, -row => 3);
my $distEnt = '1\'';
my $distB = $topFrame->Menubutton(
-text => $distEnt, -relief => 'raised', -width => 15);
foreach my $dist (sort {$distances{$b} <=> $distances{$a}} keys %distances) {
$distB->command(-label => $dist, -command => sub {
$distB->configure(-text => $dist);
$distEnt = $dist;
lib/Tk/AstroCatalog.pm view on Meta::CPAN
$topFrame->Label (
-text => "Epoc:"
)->grid(-column => 0, -row => 4, -padx => 5, -pady => 5);
my $epocEnt = 'RJ';
my $epocB = $topFrame->Menubutton(
-text => $epocEnt, -relief => 'raised', -width => 15);
foreach $name (@Epocs) {
$epocB->command(-label => $name, -command => sub {
$epocB->configure(-text => $name);
$epocEnt = $name;
Astro-SpaceTrack
view release on metacpan or search on metacpan
t/spacetrack_request.t view on Meta::CPAN
my $st = Astro::SpaceTrack->new(
space_track_version => 2,
dump_headers => DUMP_REQUEST,
username => 'Yehudi',
password => 'Menuhin',
);
my $base_url = $st->_make_space_track_base_url();
is_resp( qw{retrieve 25544}, [ {
Audio-Nama
view release on metacpan or search on metacpan
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
$gui->{track_frame} = $gui->{track_canvas}->Frame; # ->pack(-fill => 'both');
#$gui->{track_frame} = $gui->{mw}->Frame;
my $id2 = $gui->{track_canvas}->createWindow(0,0,
-window => $gui->{track_frame},
-anchor => 'nw');
#$gui->{group_label} = $gui->{group_frame}->Menubutton(-text => "GROUP",
# -tearoff => 0,
# -width => 13)->pack(-side => 'left');
$gui->{add_frame} = $gui->{mw}->Frame->pack(-side => 'bottom', -fill => 'both');
$gui->{perl_frame} = $gui->{mw}->Frame->pack(-side => 'bottom', -fill => 'both');
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
$gui->{savefile_entry} = $gui->{load_frame}->Entry(
-textvariable => \$gui->{_save_id},
-width => 15
)->pack(-side => 'left');
$gui->{load_savefile} = $gui->{load_frame}->Button->pack(-side => 'left');
$gui->{palette} = $gui->{load_frame}->Menubutton(-tearoff => 0)
->pack( -side => 'left');
$gui->{nama_palette} = $gui->{load_frame}->Menubutton(-tearoff => 0)
->pack( -side => 'left');
$gui->{add_track}->{label} = $gui->{add_frame}->Label(
-text => "New track name: ")->pack(-side => 'left');
$gui->{add_track}->{text_entry} = $gui->{add_frame}->Entry(
-textvariable => \$gui->{_track_name},
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
-text => "G R O U P",
-foreground => $gui->{_nama_palette}->{GroupForeground},
-background => $gui->{_nama_palette}->{GroupBackground},
);
$gui->{group_version} = $gui->{track_frame}->Menubutton(
-text => q( ),
-tearoff => 0,
-foreground => $gui->{_nama_palette}->{GroupForeground},
-background => $gui->{_nama_palette}->{GroupBackground},
);
$gui->{group_rw} = $gui->{track_frame}->Menubutton(
-text => $group->rw,
-tearoff => 0,
-foreground => $gui->{_nama_palette}->{GroupForeground},
-background => $gui->{_nama_palette}->{GroupBackground},
);
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
my $stub = " ";
$stub .= $ti{$n}->version;
$name = $gui->{track_frame}->Label(
-text => $ti{$n}->name,
-justify => 'left');
$version = $gui->{track_frame}->Menubutton(
-text => $stub,
# -relief => 'sunken',
-tearoff => 0);
my @versions = '';
#push @versions, @{$ti{$n}->versions} if @{$ti{$n}->versions};
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
Audio::Nama::reconfigure_engine();
}
);
}
$ch_r = $gui->{track_frame}->Menubutton(
# -relief => 'groove',
-tearoff => 0,
);
my @range;
push @range, 1..$config->{soundcard_channels} if $n > 2; # exclude Main/Mixdown
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
@range = ();
push @range, "off" if $n > 2;
push @range, 1..$config->{soundcard_channels} if $n != 2; # exclude Mixdown
$ch_m = $gui->{track_frame}->Menubutton(
-tearoff => 0,
# -relief => 'groove',
);
for my $v (@range) {
$ch_m->radiobutton(
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
$ui->refresh_track($n);
Audio::Nama::reconfigure_engine();
}
)
}
$rw = $gui->{track_frame}->Menubutton(
-text => $ti{$n}->rw,
-tearoff => 0,
# -relief => 'groove',
);
map{$rw->AddItems($_)} @rw_items;
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
my $parentage = $fx_cache->{registry}->[
$fx_cache->{full_label_to_index}->{$FX->type}
]->{name};
$parentage and $parentage .= " - ";
logpkg(__FILE__,__LINE__,'debug', "parentage: $parentage");
my $eff = $frame->Menubutton(
-text => $parentage. $fx_cache->{registry}->[$i]->{name}, -tearoff => 0,);
$eff->AddItems([
'command' => "Remove",
-command => sub { remove_effect($id) }
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
params => [ $p + 1 ],
type => $fx_cache->{registry}->[$j]->{code} }) }
];
}
push @labels, $frame->Menubutton(
-text => $fx_cache->{registry}->[$i]->{params}->[$p]->{name},
-menuitems => [@items],
-tearoff => 0,
);
logpkg(__FILE__,__LINE__,'debug', "parameter name: ",
lib/Audio/Nama/Graphical.pm view on Meta::CPAN
add_effect( {chain => $n, type => $fx_cache->{registry}->[$j]->{code} } );
$gui->{ew}->deiconify; # display effects window
}
];
}
$widget = $gui->{track_frame}->Menubutton(
-text => $label,
-tearoff =>0,
# -relief => 'raised',
-menuitems => [@items],
);
Authen-Radius
view release on metacpan or search on metacpan
raddb/dictionary.ascend view on Meta::CPAN
ATTRIBUTE Ascend-Token-Immediate 200 integer
ATTRIBUTE Ascend-Require-Auth 201 integer
ATTRIBUTE Ascend-Number-Sessions 202 string
ATTRIBUTE Ascend-Authen-Alias 203 string
ATTRIBUTE Ascend-Token-Expiry 204 integer
ATTRIBUTE Ascend-Menu-Selector 205 string
ATTRIBUTE Ascend-Menu-Item 206 string
ATTRIBUTE Ascend-PW-Warntime 207 integer
ATTRIBUTE Ascend-PW-Lifetime 208 integer
ATTRIBUTE Ascend-IP-Direct 209 ipaddr
ATTRIBUTE Ascend-PPP-VJ-Slot-Comp 210 integer
ATTRIBUTE Ascend-PPP-VJ-1172 211 integer
AxKit-App-TABOO
view release on metacpan or search on metacpan
htdocs/menu.xsp view on Meta::CPAN
<?xml-stylesheet href="NULL" type="application/x-xsp"?>
<?xml-stylesheet href="/transforms/xhtml/match-menu.xsl" type="text/xsl"?>
<xsp:page
xmlns:xsp="http://www.apache.org/1999/XSP/Core"
xmlns:menu="http://www.kjetil.kjernsmo.net/software/TABOO/NS/Menu"
xmlns:i18n="http://www.kjetil.kjernsmo.net/software/TABOO/NS/I18N"
xmlns:ct="http://www.kjetil.kjernsmo.net/software/TABOO/NS/Control"
xmlns:cat="http://www.kjetil.kjernsmo.net/software/TABOO/NS/Category"
xmlns:story="http://www.kjetil.kjernsmo.net/software/TABOO/NS/Story"
xmlns:user="http://www.kjetil.kjernsmo.net/software/TABOO/NS/User">
AxKit-XSP-Wiki
view release on metacpan or search on metacpan
webstuff/sidemenu.xml view on Meta::CPAN
<?xml version="1.0"?>
<sidemenu>
<menu>
<title>Menu</title>
<item url="/">Home</item>
<item url="About">About</item>
<item url="FAQ">FAQ</item>
</menu>
</sidemenu>
BT368i
view release on metacpan or search on metacpan
examples/bt368i-tk.pl view on Meta::CPAN
# build the menu bar
#----------------------------------------#
sub build_menubar {
# Create the menubar and File and Quit menubuttons. Note
# that the cascade's menu widget is automatically created.
my $menubar = $mw->Menu;
$mw->configure(-menu => $menubar);
my $file = $menubar->cascade(-label => '~File');
my $port = $menubar->cascade(-label => '~Port');
Beagle
view release on metacpan or search on metacpan
share/public/css/base/markitup_skin.css view on Meta::CPAN
display:none;
}
.markItUpHeader ul li:hover > ul{
display:block;
}
.markItUpHeader ul .markItUpDropMenu {
background:transparent url(../../images/markitup/skin/menu.png) no-repeat 115% 50%;
margin-right:5px;
}
.markItUpHeader ul .markItUpDropMenu li {
margin-right:0px;
}
.markItUpHeader ul .markItUpSeparator {
margin:0 10px;
width:1px;
share/public/css/base/markitup_skin.css view on Meta::CPAN
}
.markItUpHeader ul ul li {
float:none;
border-bottom:1px solid #3C769D;
}
.markItUpHeader ul ul .markItUpDropMenu {
background:#F5F5F5 url(../../images/markitup/skin/submenu.png) no-repeat 100% 50%;
}
/* next rows of buttons */
.markItUpHeader ul ul ul {
position:absolute;
Benchmark-Perl-Formance-Cargo
view release on metacpan or search on metacpan
share/SpamAssassin/easy_ham/01140.71d7100b58f00faaf258b49150c6f54a view on Meta::CPAN
> Patrick>
>
>This may not help/work but I've discovered recently that
>Alt-middle-mouse pops up a list of all of my windows. If I leave
>my mouse on the background, it lists Alt-middle-mouse as "Display
>Task List Menu".
>
>HTH,
>
>- Bill
When I do that, it just moves my mouse to the very edge of a window
Biblio-RFID
view release on metacpan or search on metacpan
examples/koha-rfid.js view on Meta::CPAN
// console.debug( 'rfid_scan', data, textStatus );
var span = $('span#rfid');
if ( span.size() == 0 ) // insert last in language bar on bottom
span = $('ul#i18nMenu').append('<li><span id=rfid>RFID reader found<span>');
if ( span.size() == 0 ) // or before login on top
span = $('div#login').prepend('<span id=rfid>RFID reader found</span>');
span = $('span#rfid');
BikePower
view release on metacpan or search on metacpan
BikePower/Tk.pm view on Meta::CPAN
push(@interfaces, $top);
$top->optionAdd("*font" => '-*-helvetica-medium-r-*-14-*',
'startupFile');
require Tk::Menubar;
my $menuframe = $top->Menubar(-relief => 'raised',
-borderwidth => 2,
);
#my $menuframe = $top->Frame(-relief => 'raised',#
#-borderwidth => 2,
#);
#$menuframe->pack(-fill => 'x');
my $mb_file = $menuframe->Menubutton(-text => $s{'File'},
-underline => 0);
$mb_file->pack(-side => 'left') if $Tk::VERSION < 800;
$mb_file->command(-label => $s{'New'},
-underline => 0,
-command => sub {
BikePower/Tk.pm view on Meta::CPAN
});
$mb_file->command(-label => $s{'Close'},
-underline => 0,
-command => sub { $top->destroy });
my $mb_set = $menuframe->Menubutton(-text => $s{'Settings'},
-underline => 0);
$mb_set->pack(-side => 'left') if $Tk::VERSION < 800;
$mb_set->command
(-label => $s{'Load defaults'},
-underline => 5,
BikePower/Tk.pm view on Meta::CPAN
if (defined $file) {
$self->save_defaults($file);
}
});
my $mb_help = $menuframe->Menubutton(-text => $s{'Help'},
-underline => 0);
$mb_help->pack(-side => 'right') if $Tk::VERSION < 800;
$mb_help->command
(-label => $s{'About...'},
-underline => 0,
BikePower/Tk.pm view on Meta::CPAN
-choices => \@std_a_c);
my $ac_frame = $f->Frame(-relief => 'raised',
-borderwidth => 2)->grid(-row => $row,
-column => 0,
-sticky => 'w'); $row++;
my $ac_mb = $ac_frame->Menubutton(-text => $s{'Frontal area'} . ':',
-padx => 0,
-pady => 0)->pack;
$balloon->attach($ac_mb, -msg => $s{'set air resistance'});
{
my $i = 0;
BingoX
view release on metacpan or search on metacpan
lib/BingoX/Cobalt.pm view on Meta::CPAN
######################## Display Methods ########################
=item C<hour_menu> ( $name [, $default ] [, $24hr ] )
Returns a Popup Menu with Hours.
=cut
sub hour_menu {
my $self = shift;
my $name = shift;
lib/BingoX/Cobalt.pm view on Meta::CPAN
} # END of sub hour_menu
=item C<min_menu> ( $name [, $default ] )
Returns a Popup Menu with Minutes.
=cut
sub min_menu {
my $self = shift;
my $name = shift;
lib/BingoX/Cobalt.pm view on Meta::CPAN
} # END of sub min_menu
=item C<am_pm_menu> ( $name [, $default ] )
Returns a Popup Menu with AM/PM menus.
=cut
sub am_pm_menu {
my $self = shift;
my $name = shift;
lib/BingoX/Cobalt.pm view on Meta::CPAN
} # END of sub am_pm_menu
=item C<day_menu> ( $name [, $default ] )
Returns a Popup Menu with the Days of the Month.
=cut
sub day_menu {
my $self = shift;
my $name = shift;
lib/BingoX/Cobalt.pm view on Meta::CPAN
} # END of sub day_menu
=item C<month_menu> ( $name [, $default ] )
Returns a Popup Menu with the Months of the Year.
=cut
sub month_menu {
my $self = shift;
my $name = shift;
lib/BingoX/Cobalt.pm view on Meta::CPAN
} # END of sub month_menu
=item C<year_menu> ( $name [, $default ] )
Returns a Popup Menu with a list of Years up to 20 years from now.
=cut
sub year_menu {
my $self = shift;
my $name = shift;
lib/BingoX/Cobalt.pm view on Meta::CPAN
} # END of sub hidden
=item C<popup_menu> ( $name, %params )
Returns a Popup Menu with the params passed to it, -VALUES, -LABELS,
-OVERRIDE.
=cut
sub popup_menu {
my $self = shift;
Bio-EUtilities
view release on metacpan or search on metacpan
lib/Bio/Tools/EUtilities/Info/LinkInfo.pm view on Meta::CPAN
# order method name
my %tags = (1 => ['get_link_name' => 'Link Name'],
2 => ['get_link_description' => 'Description'],
3 => ['get_dbfrom' => 'DB From'],
4 => ['get_dbto' => 'DB To'],
5 => ['get_link_menu_name' => 'Menu Name'],
6 => ['get_priority' => 'Priority'],
7 => ['get_html_tag' => 'HTML Tag'],
8 => ['get_url' => 'URL'],
);
my $string = '';
Bio-NEXUS
view release on metacpan or search on metacpan
lib/Bio/NEXUS/Tools/NexPlotter.pm view on Meta::CPAN
$my_data->set_tree_map_coord( $node->get_name, [$x1,$y1,$x2,$y2] ) if $runtime_options->{'output_type'} eq 'png';
if ($node->{name} ne "root") {
#$query->delete("session") if ($runtime_options->{'session'});
$node->_set_xcoord($x1);
$node->_set_ycoord($y1);
#$areaMap .= qq(<area shape=rect onMouseOver="showtip(this,event,'$node->{name} options $prob_val')" onMouseOut="PopUpMenu2_Hide();" coords=$x1,$y1,$x2,$y2 href="javascript:PopUpMenu2_Set(getParam(\'$qs\',\'$node->{name}\',\'$file_param\',\'$colorn...
}
else {
#$areaMap .= qq(<area shape=rect onMouseOver="showtip(this,event,'Root node options $prob_val')" onMouseOut="PopUpMenu2_Hide();" coords=$x1,$y1,$x2,$y2 href="javascript:PopUpMenu2_Set(getParamRoot(\'$qs\',\'$node->{name}\',\'$file_param\',\'$colorn...
}
if (not $node->is_otu) {
my @nodes = @{$node->get_children()};
foreach my $child (@nodes) {
&__print_tree($my_data,$child, $x1, $y1,$otuseqs);
lib/Bio/NEXUS/Tools/NexPlotter.pm view on Meta::CPAN
$y1 = $y;
#$y2 = $y-( $nexusG->get_fontHeight/2);
$y2 = $y;
&__draw_text($my_data,$x1,$y2,$taxon_name,$color);
$my_data->set_label_map_coord( $taxon_name, [$x1,$y2,$x1+length($taxon_name)*$nexusG->get_fontWidth,$y2+$nexusG->get_fontHeight] ) if $runtime_options->{'output_type'} eq 'png';
#$areaMap.= sprintf "<area shape=rect onMouseOver=\"showtip(this,event,\'$tip\')\" onMouseOut=\"PopUpMenu2_Hide();\" coords=%d,%d,%d,%d href=\"javascript:PopUpMenu2_Set(getParam2(\'$qs\',\'%s\',\'$file_param\',\'$dir_param\',\'$highlight_params[$#h...
$x1 += length($taxon_name) * $nexusG->get_fontWidth + $nexusG->get_fontWidth;
&__draw_line($my_data,$x1,$y1,$x2,$y1,'gray',1) if (($x1 < $x2) && ($runtime_options->{'show_content'} ne 'Tree only') && $my_data->get_char_column_labels);
}
}
lib/Bio/NEXUS/Tools/NexPlotter.pm view on Meta::CPAN
sub __print_intron_history {
my ($my_data, $x, $y, $label,$color,@columnLabelsAll) = @_;
&__draw_text($my_data,$x,$y,'H','blue');
$my_data->set_intron_map_coord($label,[$x,$y,$x+$nexusG->get_fontWidth,$y+$nexusG->get_fontHeight]) if $runtime_options->{'output_type'} eq 'png';
#$labelAreaMap .=sprintf "<area shape=\"rect\" onMouseOver=\"showtip(this,event,'Intron history options for $label')\" onMouseOut=\"PopUpMenu2_Hide();\" coords=%d,%d,%d,%d href=\"javascript:PopUpMenu2_Set(getParam3(\'$qs\',\'$charnum\'),'','','','','...
}
sub __plot_wts {
my ($my_data, @weights) = @_;
my $blank = 0;
( run in 1.088 second using v1.01-cache-2.11-cpan-49f99fa48dc )