Result:
found more than 404 distributions - search limited to the first 2001 files matching your query
( run in 1.130 )
DBIx-HTML-ClientDB
view release on metacpan or search on metacpan
lib/DBIx/HTML/ClientDB.pm view on Meta::CPAN
modules, so don't be too keen on changing it :-).
=head1 See Also
CGI::Explorer
DBIx::HTML::LinkedMenus
DBIx::HTML::PopupRadio
=head1 Repository
L<https://github.com/ronsavage/DBIx-HTML-ClientDB>
DBIx-HTML-LinkedMenus
view release on metacpan or search on metacpan
lib/DBIx/HTML/LinkedMenus.pm view on Meta::CPAN
package DBIx::HTML::LinkedMenus;
use strict;
use warnings;
our $VERSION = '1.11';
lib/DBIx/HTML/LinkedMenus.pm view on Meta::CPAN
__END__
=head1 NAME
C<DBIx::HTML::LinkedMenus> - Convert SQL to 2 linked HTML popup menus.
=head1 Synopsis
use DBIx::HTML::LinkedMenus;
my($linker) = DBIx::HTML::LinkedMenus -> new
(
dbh => $dbh,
base_sql => 'select campus_id, campus_name, campus_id ' .
'from campus order by campus_name',
linked_sql => 'select unit_id, unit_code from unit where ' .
lib/DBIx/HTML/LinkedMenus.pm view on Meta::CPAN
# Alternately, print as part of a page:
my(@on_load) = $linker -> javascript_for_on_load(); # Or these 2...
print $q -> start_html({title => 'Linked Menus', @on_load}),
print $q -> start_form...
print $linker -> javascript_for_db();
print $linker -> html_for_base_menu();
print $linker -> html_for_linked_menu();
print $q -> end_form();
lib/DBIx/HTML/LinkedMenus.pm view on Meta::CPAN
Lastly, display the HTML and JavaScript as part of a form.
=head1 Constructor and initialization
C<new(...)> returns a C<DBIx::HTML::LinkedMenus> object.
Here, in alphabetical order, are the parameters accepted by the constructor,
together with their default values.
=over 4
lib/DBIx/HTML/LinkedMenus.pm view on Meta::CPAN
DBIx::HTML::ClientDB
DBIx::HTML::PopupRadio
=head1 Repository
L<https://github.com/ronsavage/DBIx-HTML-LinkedMenus>
=head1 Support
Bugs should be reported via the CPAN bug tracker at
L<https://github.com/ronsavage/DBIx-HTML-LinkedMenus/issues>
=head1 Author
C<DBIx::HTML::LinkedMenus> was written by Ron Savage I<E<lt>ron@savage.net.auE<gt>> in 2002.
Home page: http://savage.net.au/index.html
=head1 Copyright
DBIx-HTML-PopupRadio
view release on metacpan or search on metacpan
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
=head1 See Also
CGI::Explorer
DBIx::HTML::ClientDB
DBIx::HTML::LinkedMenus
The latter 2 modules will be released after the current one.
=head1 Repository
DBIx-HTMLinterface
view release on metacpan or search on metacpan
HTMLinterface.pm view on Meta::CPAN
$cursor->finish;
# Tell the people what we did
$self->_printHeader('Modification Successful', 'Record modified successfully.');
print "<UL>";
print "<LI><A HREF=\"" . $self->_backLink . "\">Main Menu</A>";
print "</UL>";
$self->_printFooter;
# Log it, if logging is enabled
$self->_logEvent("Record modified from $table", $sql);
HTMLinterface.pm view on Meta::CPAN
$cursor->finish;
# Tell the people what we did
$self->_printHeader('Deletion Successful', 'Record deleted successfully.');
print "<UL>";
print "<LI><A HREF=\"" . $self->_backLink . "\">Main Menu</A>";
print "</UL>";
$self->_printFooter;
# Log it, if logging is enabled
$self->_logEvent("Record deleted from $table", $sql);
HTMLinterface.pm view on Meta::CPAN
# Tell the people what we did
$self->_printHeader('Addition Successful', 'Record added successfully.');
print "<UL>";
print "<LI><A HREF=\"" . $self->_repeatLink . "\">Add Another</A>";
print "<LI><A HREF=\"" . $self->_backLink . "\">Main Menu</A>";
print "</UL>";
$self->_printFooter;
# Log it, if logging is enabled
$self->_logEvent("Record added to $table", $sql);
DBIx-Perform
view release on metacpan or search on metacpan
Perform/Messages.pm view on Meta::CPAN
"DBIx::Perform.\r
\r
The PERFORM Menu presents you with the following options:\r
\r
> Query Searches the table\r
> Next Displays the next row in the Current List\r
> Previous Displays the previous row in the Current List\r
> View Runs editor commands to display BLOB contents.\r
Perform/Messages.pm view on Meta::CPAN
> Screen Displays the next page of the form\r
> Current Displays the current row of the active table\r
> Master Selects the master table of the currently active table\r
> Detail Selects a detail table of the currently active table\r
> Output Sends a form or report to an output destination\r
> Exit Returns to the Perform Menu\r
\r
PROCEDURE:\r
\r
Enter the first letter of the menu option you want: q for Query, n for Next,\r
Perform/Messages.pm view on Meta::CPAN
the Screen option will display the next page. The \"Page x of y\" line on the\r
fourth line of the screen tells you how many pages you have and which one you\r
are looking at now. When you reach the last page of the form, select the\r
Screen option to cycle back to the first page.\r
Use the Exit option to leave the PERFORM Menu and return to the Perform Menu.\r
After you select the Exit option, Perform displays the Perform Menu.\r
\r
\r
QUIT:\r
\r
Select the Exit option to leave the PERFORM Menu and return to the FORM Menu.\r
\r
\r
\r
NOTES:\r
\r
Perform/Messages.pm view on Meta::CPAN
"Shows the next page of the form.",
"Displays the current row of the current table.",
"Selects the master table of the current table.",
"Selects a detail table of the current table.",
"Outputs selected rows in form or report format.",
"Returns to the INFORMIX-SQL Menu.",
"Removes this row from the active table.",
"Does NOT remove this row from the active table.",
" There are no more rows in the direction you are going ",
Perform/Messages.pm view on Meta::CPAN
> Look Affiche la page suivante de la forme\r
> Capitaine Affiche la ligne du tableau actif\r
> Master Sélectionne la table principale de la table actuellement actif\r
> Détail Sélectionne un tableau détaillé de la table actuellement actif\r
> Output Envoie un rapport de la forme ou à une destination de sortie\r
> Fin retours à la Effectuez Menu\r
\r
PROCEDURE:\r
\r
Entrez la première lettre de l'option de menu que vous voulez: pour Query q, n pour suivante,\r
Perform/Messages.pm view on Meta::CPAN
"Affiche la page suivante du formulaire.",
"Affiche la ligne de la table actuelle.",
"Sélectionne la table principale de l'actuel tableau.",
"Sélectionne un tableau détaillé de la table.",
"Sorties lignes sélectionnées par la forme ou le format du rapport.",
"Retourne à la INFORMIX-SQL Menu.",
"Enlève cette ligne du tableau actif.",
"Est-ce que cette ligne PAS retirer de la table active.",
"Il n'ya plus de lignes dans la direction où vous allez",
DBIx-Web
view release on metacpan or search on metacpan
lib/DBIx/Web.pm view on Meta::CPAN
if *fatalsToBrowser{CODE};
eval{ $s->output($s->htmlStart());
local $s->{-pcmd}->{-cmd} ='frmErr';
local $s->{-pcmd}->{-cmg} ='frmHelp';
local $s->{-pcmd}->{-backc} =0;
$s->output($s->htmlHidden(),$s->htmlMenu());
}
if !$s->{-c}->{-htmlstart};
eval{ my $h2;
my $ermd =$s->{-ermd};
if ($e =~/\Q$ermd\E/) {
lib/DBIx/Web.pm view on Meta::CPAN
# Execute predefined presentation implementation
$s->output(
$s->htmlStart($s->{-pcmd}->{-form}, $om) # HTTP/HTML/Form headers
,$s->htmlHidden($s->{-pcmd}->{-form}, $om) # common hidden fields
,$s->htmlMenu($on, $om) # Menu bar
);
$s->cgiForm($on, $om, $s->{-pcmd}, $s->{-pout}) if $s->cgiHook('recFormRWQ');
$s->cgiList($on, $om, $s->{-pcmd}, $s->{-pout}) if $s->cgiHook('recList');
$s->cgiHelp($on, $om, $s->{-pcmd}, $s->{-pout}) if $s->cgiHook('frmHelp');
$s->recCommit();
lib/DBIx/Web.pm view on Meta::CPAN
."th.Form {border-style: none; border-width: 0px; padding: 0px;}\n"
."table.ListTable {border-collapse: collapse; }\n"
."th.ListTable {border-style: inset; border-color: buttonface; border-width: 0px; border-bottom-width: 1px; }\n"
."td.ListTable {border-style: inset; border-color: buttonface; border-width: 0px; border-bottom-width: 1px; padding: 0px; padding-left: 2px; padding-right: 1px; padding-top: 2px;}\n"
.".ListTableFocus {background-color: buttonface;}\n"
#.".MenuArea {background-color: navy; color: white;}\n"
.".MenuButton {background-color: buttonface; color: black; text-decoration:none; font-size: 7pt}\n"
.".MenuInput {font-size: 8pt}\n"
.".htmlMQHsel {text-decoration: none; font-weight: bolder; border-style: inset;}\n"
}
,-title =>
(do{ my $v =($s->{-pcmd} && $s->{-pcmd}->{-cmd} ||'') eq 'frmHelp'
? $s->lng(0,'frmHelp')
lib/DBIx/Web.pm view on Meta::CPAN
)
) ."\n"
}
sub htmlMenu { # Screen menu bar
my ($s,$on,$om) =@_;
return('') if $s->{-pcmd}->{-xml} ||$s->{-pcmd}->{-print};
$on =$s->{-pcmd}->{-form} ||$s->{-pcmd}->{-table} ||''
if !$on;
$om =$on && $s->{-form}->{$on}||$s->mdeTable($on) if !$om;
lib/DBIx/Web.pm view on Meta::CPAN
my $e =$c->{-edit};
my $d =$s->{-pdta};
my $n =$d->{-new} ||($c->{-cmg} eq 'recNew');
my $cs=join(' '
,$s->{-c}->{-htmlclass} ? $s->htmlEscape($s->{-c}->{-htmlclass}) : ()
,'MenuArea');
local $c->{-cmdt} =$ot || $om; # table metadata
local $c->{-cmdf} =$om || $ot; # form metadata
my @r =();
if ($s->{-logo}) { # Logotype
push @r, htmlMB($s, 'logo');
lib/DBIx/Web.pm view on Meta::CPAN
push @r, htmlML($s, 'frmLso'
, ref($om->{-frmLso}) eq 'CODE'
? &{$om->{-frmLso}}($s, $on, $om, $c, exists($c->{-frmLso}) ? $c->{-frmLso} ||'' : ())
: $om->{-frmLso}
) if $om->{-frmLso};
push @r, htmlMB($s, htmlField($s, '_qftext', lng($s,1,'-qftext'), {-asize=>5, -class=>'Input ' .$cs .' MenuInput'}, $s->{-pcmd}->{-qftext}))
if $s->{-menuchs};
push @r, htmlML($s, 'frmName1', $s->{-menuchs1})if $s->{-menuchs1};
local $c->{-frame} =undef;
push @r, htmlMB($s, 'frmCall', ['', $s->urlOptl(-cmd=>'frmCall')])
if $s->{-menuchs};
lib/DBIx/Web.pm view on Meta::CPAN
? "\n<div class=\"$cs BannerDiv\">$v</div>"
: ''
})
: '')
.(!$s->{-icons}
? "\n<div class=\"$cs MenuDiv\">" .join("\n", @r, $mi, '<br />', $mh, '<br />', $mc ? ($mc, '<br />') : ()) ."</div>\n\n"
: ("\n<div class=\"$cs MenuDiv\"><table class=\"$cs\" cellpadding=\"0\"><tr>\n"
# cellspacing=\"1px\"
# style=\"position: absolute; top: 0; left: 0;\" # scrolled up
# <br /><br />
# scrollHeight
.join("\n", @r)
."\n" .'<td class="' .$cs .' MenuCell" valign="middle"><nobr>'
. $mi .'</nobr></td></tr>'
."\n"
."</table>\n<table class=\"$cs\" cellpadding=0 cellspacing=0 width=100%>"
# margin-top: 0px; margin-bottom: 0px; padding: 0px
.'<tr><th class="' .$cs .' MenuHeader" align="left" valign="top" colspan=20>'
.$mh .'</th></tr>'
.(!$mc ? ''
: ("\n" .'<tr><td class="' .$cs .' MenuComment" align="left" valign="top" colspan=20>'
.$mc
.'</td></tr>'))
."\n</table></div>\n"
.(0 && ($s->user() =~/diags/i) ? $s->diags('-html') : '')
.(!$c->{-refresh}
lib/DBIx/Web.pm view on Meta::CPAN
sub htmlMB { # CGI menu bar button
# self, command, url, back|
my $cs =($_[0]->{-c}->{-htmlclass} ? $_[0]->htmlEscape($_[0]->{-c}->{-htmlclass}) .' ' : '')
.'MenuArea MenuButton';
my $td0='<td class="' .$cs .'" valign="middle" style="border-width: thin; border-style: outset;" ';
my $tdb=($ENV{HTTP_USER_AGENT}||'') =~/MSIE/
? ' onmousedown="if(window.event.button==1){this.style.borderStyle="inset"}" onmouseup="this.style.borderStyle="outset"" onmouseout="this.style.borderStyle="outset"" onmousein="this.style.cursor="hand""'
: ' onmousedown="if(event.which==1){this.style.borderStyle="inset"}" onmouseup="this.style.borderStyle="outset"" onmouseout="this.style.borderStyle="outset""';
if (!$_[0]->{-icons}) {
lib/DBIx/Web.pm view on Meta::CPAN
sub htmlML { # CGI menu bar list
use locale; # (self, name, values, ? add values)
my $cs =join(' '
,'Input'
,$_[0]->{-c}->{-htmlclass} ? $_[0]->htmlEscape($_[0]->{-c}->{-htmlclass}) : ()
,'MenuArea');
my $i = $_[1] eq 'frmName'
? $_[0]->cgi->param('_' .$_[1])
||$_[0]->{-pcmd}->{'-' .$_[1]}
||$_[0]->{-pcmd}->{-form} ||''
: $_[1] eq 'frmLso'
lib/DBIx/Web.pm view on Meta::CPAN
: ($_[0]->{-pcmd}->{'-' .$_[1]} ||''))
: '';
my $li =$_[3];
my $f1 =undef;
($_[0]->{-icons}
? '<td class="' .$cs .' MenuButton" valign="middle" title="'
.$_[0]->htmlEscape(lng($_[0], 1, $_[1]))
.'" style="border-width: thin; border-style: outset;" >'
: '')
.do{$cs .=' MenuInput'; ''}
.'<select name="_' .$_[1]
.'" class="' .$cs .'" onchange="{'
.( $_[1] eq 'frmLso'
? 'if (_frmLso.value=="recQBF") {window.document.DBIx_Web._cmd.value=_frmLso.value; _frmLso.value="' .$_[0]->htmlEscape($i) .'"; window.document.DBIx_Web.submit(); return(true);} else {window.document.DBIx_Web._cmd.value="f...
: 1 && ($_[1] eq 'frmName1')
lib/DBIx/Web.pm view on Meta::CPAN
'<option '
.($i && ($n eq $i)
? do{$i =''; 'selected'}
: '')
.(($n eq '') || ($l =~/^[-]+/)
?(' class="' .$cs .' MenuInputSeparator"')
:(' class="' .$cs .'"'))
.' value="'
.htmlEscape($_[0], $n)
.'">'
.htmlEscape($_[0], $l)
lib/DBIx/Web.pm view on Meta::CPAN
)
.($i eq ''
? ''
:('<option selected class="' .$cs
.(($i eq '') || ($i =~/^[-]+/)
? ' MenuSeparator'
: '')
.'" value="'
.htmlEscape($_[0], $i) .'">'
.htmlEscape($_[0]
, $_[1] =~/^frmName/
lib/DBIx/Web.pm view on Meta::CPAN
$q
}
sub htmlMQH { # Menu Query Hyperlink
# -label / -html
# -title, -style, -class, -target; reserved/ignored -tdstyle, -tdclass
# -qwhere, -qkey, -qurole, -quname, -qorder, -qkeyord
# -xpar=>0 | 1 | 2 | name | [list]
# -xkey=>name | [list]
lib/DBIx/Web.pm view on Meta::CPAN
local $a->{-target}= '_self'
if !$a->{-target};
local $a->{-class} =
join(' '
,($s->{-c}->{-htmlclass} ? $s->htmlEscape($s->{-c}->{-htmlclass}) : ())
,('MenuArea MenuComment')
,($s->{-uiclass} ? ' ' .$s->{-uiclass} : ())
,($a->{-class} ? $a->{-class} : ())
,($qm
? 'htmlMQH htmlMQHsel'
: 'htmlMQH')
lib/DBIx/Web.pm view on Meta::CPAN
local @{$s}{-menuchs, -menuchs1} =@{$s}{-menuchs, -menuchs1};
$s->htmlMChs() if !$s->{-menuchs};
$s->output($s->htmlStart(@_[1,2]) # HTTP/HTML/Form headers
,$s->htmlHidden(@_[1,2]) # common hidden fields
,!$s->{-pcmd}->{-print}
&& $s->htmlMenu(@_[1,2]) # Menu bar
,"\n<table class=\"ListTable\">\n"
);
$s->htmlOnLoad("{var e=document.getElementsByTagName('BASE'); if(e && e[0] && (self.name.match(/^(?:TOP|BOTTOM)\$/) || document.getElementsByName('_frame').length)){e[0].target='_blank'}}");
foreach my $e (($s->{-menuchs} ? @{$s->{-menuchs}} : ())
,($s->{-menuchs1}? @{$s->{-menuchs1}}: ())
lib/DBIx/Web.pm view on Meta::CPAN
$s->{-affected} =undef;
$s->{-pcmd}->{-cmd} =$s->{-pcmd}->{-cmg} ='recQBF';
$s->output($s->htmlStart(@_[1,2]) # HTTP/HTML/Form headers
,$s->htmlHidden(@_[1,2]) # common hidden fields
,!$s->{-pcmd}->{-print}
&& $s->htmlMenu(@_[1,2]) # Menu bar
,"\n"
);
$s->die('Microsoft IIS required') if ($ENV{SERVER_SOFTWARE}||'') !~/IIS/;
$s->die('Impersonation required') if (($ENV{GATEWAY_INTERFACE}||'') =~/PerlEx/i)
&& ($s->{-c}->{-RevertToSelf}
DBIx-glueHTML
view release on metacpan or search on metacpan
glueHTML.pm view on Meta::CPAN
$cursor->finish;
# Tell the people what we did
$self->_printHeader('Modification Successful', 'Record modified successfully.');
print "<UL>";
print "<LI><A HREF=\"" . $self->_backLink . "\">Main Menu</A>";
print "</UL>";
$self->_printFooter;
# Log it, if logging is enabled
$self->_logEvent("Record modified from $table", $sql);
glueHTML.pm view on Meta::CPAN
$cursor->finish;
# Tell the people what we did
$self->_printHeader('Deletion Successful', 'Record deleted successfully.');
print "<UL>";
print "<LI><A HREF=\"" . $self->_backLink . "\">Main Menu</A>";
print "</UL>";
$self->_printFooter;
# Log it, if logging is enabled
$self->_logEvent("Record deleted from $table", $sql);
glueHTML.pm view on Meta::CPAN
# Tell the people what we did
$self->_printHeader('Addition Successful', 'Record added successfully.');
print "<UL>";
print "<LI><A HREF=\"" . $self->_repeatLink . "\">Add Another</A>";
print "<LI><A HREF=\"" . $self->_backLink . "\">Main Menu</A>";
print "</UL>";
$self->_printFooter;
# Log it, if logging is enabled
$self->_logEvent("Record added to $table", $sql);
DBR
view release on metacpan or search on metacpan
lib/DBR/Admin/Window.pm view on Meta::CPAN
###################
sub close {
my ($self, $_args) = @_;
if ($self->get_id eq 'DBR Admin Main Menu') {
my $return = $self->get_win->root->dialog(
-message => "Do you really want to quit?",
-title => "Are you sure???",
-buttons => ['yes', 'no'],
Dancer-Layout-Bootstrap
view release on metacpan or search on metacpan
public/css/bootstrap-3/bootstrap.css.map view on Meta::CPAN
{"version":3,"sources":["bootstrap.css","less/normalize.less","less/print.less","less/glyphicons.less","less/scaffolding.less","less/mixins/vendor-prefixes.less","less/mixins/tab-focus.less","less/mixins/image.less","less/type.less","less/mixins/text...
Dancer-SearchApp
view release on metacpan or search on metacpan
public/javascripts/bootstrap-3/bootstrap.js view on Meta::CPAN
var $parent = selector && $(selector)
return $parent && $parent.length ? $parent : $this.parent()
}
function clearMenus(e) {
if (e && e.which === 3) return
$(backdrop).remove()
$(toggle).each(function () {
var $this = $(this)
var $parent = getParent($this)
public/javascripts/bootstrap-3/bootstrap.js view on Meta::CPAN
if ($this.is('.disabled, :disabled')) return
var $parent = getParent($this)
var isActive = $parent.hasClass('open')
clearMenus()
if (!isActive) {
if ('ontouchstart' in document.documentElement && !$parent.closest('.navbar-nav').length) {
// if mobile we use a backdrop because click events don't delegate
$(document.createElement('div'))
.addClass('dropdown-backdrop')
.insertAfter($(this))
.on('click', clearMenus)
}
var relatedTarget = { relatedTarget: this }
$parent.trigger(e = $.Event('show.bs.dropdown', relatedTarget))
public/javascripts/bootstrap-3/bootstrap.js view on Meta::CPAN
// APPLY TO STANDARD DROPDOWN ELEMENTS
// ===================================
$(document)
.on('click.bs.dropdown.data-api', clearMenus)
.on('click.bs.dropdown.data-api', '.dropdown form', function (e) { e.stopPropagation() })
.on('click.bs.dropdown.data-api', toggle, Dropdown.prototype.toggle)
.on('keydown.bs.dropdown.data-api', toggle, Dropdown.prototype.keydown)
.on('keydown.bs.dropdown.data-api', '.dropdown-menu', Dropdown.prototype.keydown)
Dancer2-Plugin-LiteBlog
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/LiteBlog/Scaffolder/Data.pm view on Meta::CPAN
a:focus, button:focus, .btn:focus {
outline: 3px solid rgba(0, 123, 255, 0.5);
outline-offset: 2px;
}
/* Header Menu */
/* CSS for the mobile header */
#mobile-menu-container {
position: relative; /* to hold the popup menu */
}
lib/Dancer2/Plugin/LiteBlog/Scaffolder/Data.pm view on Meta::CPAN
height: 4px; /* thickness of each bar */
width: 32px; /* width of each bar */
border-radius: 2px; /* rounded edges */
}
/* The Hamburger Menu */
#mobile-navigation-menu {
z-index: 9999; /* on top of other content */
display: flex;
flex-direction: column;
background-color: #f5f5f5;
lib/Dancer2/Plugin/LiteBlog/Scaffolder/Data.pm view on Meta::CPAN
<!-- Handle the click on the hamburger icon -->
<script type="text/javascript">
document.addEventListener('DOMContentLoaded', (event) => {
// Get the elements
const menuToggle = document.querySelector('#menu-toggle');
const mobileMenu = document.querySelector('#mobile-navigation-menu');
// Add event listener
menuToggle.addEventListener('click', function() {
// Toggle the .open class on the mobile menu
mobileMenu.classList.toggle('open');
});
});
</script>
[% END %]
Dancer2-Plugin-Menu
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Menu.pm view on Meta::CPAN
package Dancer2::Plugin::Menu;
$Dancer2::Plugin::Menu::VERSION = '0.009';
use 5.010; use strict; use warnings;
# ABSTRACT: Automatically generate an HTML menu for your Dancer2 app
use Storable 'dclone';
lib/Dancer2/Plugin/Menu.pm view on Meta::CPAN
=pod
=head1 NAME
Dancer2::Plugin::Menu - Automatically generate an HTML menu for your Dancer2 app
=head1 VERSION
version 0.009
=head1 SYNOPSIS
In your app:
use Dancer2;
use Dancer2::Plugin::Menu;
menu_item(
{ title => 'My Parent Item', weight => 3 },
get 'path' => sub { template },
);
lib/Dancer2/Plugin/Menu.pm view on Meta::CPAN
</ul>
</ul>
=head1 DESCRIPTION
This module generates HTML for routes wrapped in the C<menu_item> keyword. Menu
items will be injected into the template wherever the C<E<lt>% menu %E<gt>> tag
is located. Child menu items are wrapped in C<E<lt>liE<gt>> HTML tags which are
themselves wrapped in a C<E<lt>ulE<gt>> tag associated with the parent menu
item. Menu items within the current route are given the C<active> class so they
can be styled.
The module is in early development stages and currently has few options. It has
not been heavily tested and there are likely bugs especially with dynamic paths
which are completely untested at this time. The module should work and be
lib/Dancer2/Plugin/Menu.pm view on Meta::CPAN
a C<weight>. The C<title> will be used as the content for the menu items. The
C<weight> will determine the order of the menu items. Heavier items (with larger
values) will "sink" to the bottom compared to sibling menu items. If two sibling
menu items have the same weight, the menu items will be ordered alphabetically.
Menu items that are not endpoints in the route or that don't have a C<title>,
will automatically generate a title according to the path segment's name. For
example, the route C</categories/fun food/desserts> is converted to a hierarchy
of menu items entitled C<Categories>, C<Fun food>, and C<Desserts>. Note that
capitalization is automatically added. Automatic titles will be overridden with
endpoint specific titles if they are supplied in a later C<menu_item> call.
lib/Dancer2/Plugin/Menu.pm view on Meta::CPAN
=head2 Perldoc
You can find documentation for this module with the perldoc command.
perldoc Dancer2::Plugin::Menu
=head2 Websites
The following websites have more information about this module, and may be of help to you. As always,
in addition to those websites please use your favorite search engine to discover more resources.
lib/Dancer2/Plugin/Menu.pm view on Meta::CPAN
MetaCPAN
A modern, open-source CPAN search engine, useful to view POD in HTML format.
L<https://metacpan.org/release/Dancer2-Plugin-Menu>
=back
=head2 Source Code
The code is open to the world, and available for you to hack on. Please feel free to browse it and play
with it, or whatever. If you want to contribute patches, please send me a diff or prod me to pull
from your repository :)
L<https://github.com/sdondley/Dancer2-Plugin-Menu>
git clone git://github.com/sdondley/Dancer2-Plugin-Menu.git
=head1 BUGS AND LIMITATIONS
You can make new bug reports, and view existing ones, through the
web interface at L<https://github.com/sdondley/Dancer2-Plugin-Menu/issues>.
=head1 INSTALLATION
See perlmodinstall for information and options on installing Perl modules.
Dancer2-Plugin-Tail
view release on metacpan or search on metacpan
samples/layout_nomenu.tt view on Meta::CPAN
position: float-right;
/* position: absolute; */
margin-top: 5px;
}
/* Make the Stacked Pills Menu 200px wide */
.stackedpillsmenu {
margin-left: 1px;
width:300px;
}
Dash
view release on metacpan or search on metacpan
lib/Dash/Core/Components/Textarea.pm view on Meta::CPAN
has 'rows' => ( is => 'rw' );
has 'wrap' => ( is => 'rw' );
has 'accessKey' => ( is => 'rw' );
has 'className' => ( is => 'rw' );
has 'contentEditable' => ( is => 'rw' );
has 'contextMenu' => ( is => 'rw' );
has 'dir' => ( is => 'rw' );
has 'draggable' => ( is => 'rw' );
has 'hidden' => ( is => 'rw' );
has 'lang' => ( is => 'rw' );
has 'spellCheck' => ( is => 'rw' );
Data-BinaryBuffer
view release on metacpan or search on metacpan
databb-boost/boost/config/platform/vxworks.hpp view on Meta::CPAN
// priority inverting semaphores, which is fine. On the other hand,
// for RTP's it defaults to using non priority inverting semaphores,
// which could easily pose a serious problem for a real time process.
//
// To change the default properties for POSIX-semaphores in VxWorks 7
// enable core > CORE_USER Menu > DEFAULT_PTHREAD_PRIO_INHERIT
//
// In VxWorks 6.x so as to integrate with boost.
// - Edit the file
// installDir/vxworks-6.x/target/usr/src/posix/pthreadLib.c
// - Around line 917 there should be the definition of the default
Data-Context-BEM
view release on metacpan or search on metacpan
t/bem/blocks/menu/block.css view on Meta::CPAN
/* Menu.css */
Data-FR-Town
view release on metacpan or search on metacpan
lib/Data/FR/Town.pm view on Meta::CPAN
61269;;Ménil-Hubert-sur-Orne;MENIL-HUBERT-SUR-ORNE;61430;61;ORNE;1
61270;;Ménil-Jean;MENIL-JEAN;61210;61;ORNE;1
61271;Le;Ménil-Scelleur;MENIL-SCELLEUR;61320;61;ORNE;1
61272;Le;Ménil-Vicomte;MENIL-VICOMTE;61240;61;ORNE;1
61273;;Ménil-Vin;MENIL-VIN;61210;61;ORNE;1
61274;Les;Menus;MENUS;61290;61;ORNE;1
61275;Le;Merlerault;MERLERAULT;61240;61;ORNE;1
61276;;Merri;MERRI;61160;61;ORNE;1
61277;La;Mesnière;MESNIERE;61560;61;ORNE;1
61278;;Messei;MESSEI;61440;61;ORNE;1
61279;;Mieuxcé;MIEUXCE;61250;61;ORNE;1
lib/Data/FR/Town.pm view on Meta::CPAN
95369;;Margency;MARGENCY;95580;95;VAL D'OISE;1
95370;;Marines;MARINES;95640;95;VAL D'OISE;1
95371;;Marly-la-Ville;MARLY-LA-VILLE;95670;95;VAL D'OISE;1
95379;;Maudétour-en-Vexin;MAUDETOUR-EN-VEXIN;95420;95;VAL D'OISE;1
95387;;Menouville;MENOUVILLE;95810;95;VAL D'OISE;1
95388;;Menucourt;MENUCOURT;95180;95;VAL D'OISE;1
95392;;Mériel;MERIEL;95630;95;VAL D'OISE;1
95394;;Méry-sur-Oise;MERY-SUR-OISE;95540;95;VAL D'OISE;1
95395;Le;Mesnil-Aubry;MESNIL-AUBRY;95720;95;VAL D'OISE;1
95409;;Moisselles;MOISSELLES;95570;95;VAL D'OISE;1
95422;;Montgeroult;MONTGEROULT;95650;95;VAL D'OISE;1
Data-Faker
view release on metacpan or search on metacpan
lib/Data/Faker/Company.pm view on Meta::CPAN
'Food Science Technician',
'Food Scientist',
'Food Service Worker',
'Food Services & Dietetics Head',
'Food Services Director',
'Food Services Manager (Full Menu)',
'Food Services Manager (Mid-Size Location)',
'Food Services Manager (Small Location)',
'Food Services Supervisor',
'Food Short Order Cook',
'Food Technologist',
Data-Password-Filter
view release on metacpan or search on metacpan
share/dictionary.txt view on Meta::CPAN
Menotti's
Mensa
Mensa's
Mentholatum
Mentholatum's
Menuhin
Menuhin's
Menzies
Menzies's
Mephistopheles
Mephistopheles's
Merak
Data-Random-Contact
view release on metacpan or search on metacpan
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
Menotti's
Mensa
Mensa's
Mentholatum
Mentholatum's
Menuhin
Menuhin's
Menzies
Menzies's
Mephistopheles
Mephistopheles's
Merak
Data-RandomPerson
view release on metacpan or search on metacpan
share/CelticMale.txt view on Meta::CPAN
Mell
Mellan
Mellonus
Melmor
Melrone
Menua
Merddyn
Meubred
Mhaolain
Mhichil
Miach
Data-Reporter
view release on metacpan or search on metacpan
bin/VisRep.pl view on Meta::CPAN
my $menu_bar = $topwin->Frame()->pack(side => 'top',
fill => 'x');
#create file menu
my $file_menu = $menu_bar->Menubutton(text => 'File',
relief => 'raised',
borderwidth => 2,
)->pack(side => 'left',
padx => 2
);
bin/VisRep.pl view on Meta::CPAN
underline => 0,
command => sub {exit(0)}
);
#create Section menu
my $section_menu = $menu_bar->Menubutton(text => 'Section',
relief => 'raised',
borderwidth => 2,
)->pack(side => 'left',
padx => 2
);
bin/VisRep.pl view on Meta::CPAN
$section_menu->separator();
$visrep->{SECTIONMENU} = $section_menu;
#create the areas menu
my $area_menu = $menu_bar->Menubutton(text => 'Areas',
relief => 'raised',
borderwidth => 2,
)->pack(side => 'left',
padx => 2
);
bin/VisRep.pl view on Meta::CPAN
load_section($visrep->{MAIN_SEC});
}
);
#create the insert menu
my $insert_menu = $menu_bar->Menubutton(text => 'Insert',
relief => 'raised',
borderwidth => 2,
)->pack(side => 'left',
padx => 2
);
bin/VisRep.pl view on Meta::CPAN
underline => 1,
command => sub {insert_sec("FINAL");}
);
#create the source menu
my $source_menu = $menu_bar->Menubutton(text => 'Source',
relief => 'raised',
borderwidth => 2,
)->pack(side => 'left',
padx => 2
);
bin/VisRep.pl view on Meta::CPAN
command => \&ask_query
);
}
#create the connection menu
my $connection_menu = $menu_bar->Menubutton(text => 'Connection',
relief => 'raised',
borderwidth => 2,
)->pack(side => 'left',
padx => 2
);
Data-TreeDumper-Renderer-GTK
view release on metacpan or search on metacpan
}
sub _do_context_menu
{
my ($self, $event) = @_;
my $menu = Gtk3::Menu->new;
foreach my $method ('expand_all', 'collapse_all') {
my $label = join ' ', map { ucfirst $_ } split /_/, $method;
my $item = Gtk3::MenuItem->new ($label);
$menu->append ($item);
$item->show;
$item->signal_connect (activate => sub {
$self->$method;
});
Deliantra-Client
view release on metacpan or search on metacpan
)
),
["bind <i>apply $shortname</i> to a key" => sub { DC::Macro::quick_macro ["apply $self->{name}"] }],
);
DC::UI::Menu->new (items => \@menu_items)->popup ($ev);
}
1
};
Devel-PDB
view release on metacpan or search on metacpan
lib/Devel/PDB.pm view on Meta::CPAN
my @aExecution = ();
my @aBreakpoint = ();
my @aSettings = ();
set_key_binding(\&ui_db_help, "Keys", "Keys help", "\cK");
set_key_binding(sub { shift->getobj('menu')->focus }, "Menu", "Main menu", KEY_F(10));
# Submenu - File
push(@aFile, set_key_binding(sub { db_view_std_files(0); $sv_win->focus; }, "ViewSTDFiles", "View STD* files", KEY_F(4)));
push(
lib/Devel/PDB.pm view on Meta::CPAN
push(@aView,
set_key_binding(sub { ui_adjust_hori_parts(1) }, "HorizontalPartsMin", "Horizontal window(Stack) maximize", ']'));
$cui->add(
'menu',
'Menubar',
-menu => [{
-label => 'File',
-submenu => \@aFile,
},
{ -label => 'View',
lib/Devel/PDB.pm view on Meta::CPAN
=item Breakpoint - F9
Toggle Breakpoint. Set or remove breakpoint on cursor position.
=item Menu - F10
Open main - top menu
=item FilesCompiled - F11
lib/Devel/PDB.pm view on Meta::CPAN
=item ~/.PDB.keys
Configuration files of rebinded keys.
For function keys is FX and for Cotrol keys is Control-X.
For example keys 'F10' for open Menu and keys 'Ctrl+C','Ctrl+Q','Q' for Quit.
Menu=F10
Quit=Control-C,Control-Q,Q
=item ~/.PDB.colours
Configuration of own colours as defined in Curses::UI::Color.
Devel-PerlySense
view release on metacpan or search on metacpan
t/data/project-lib/Game/Application.pm view on Meta::CPAN
Return 1 on success, else 0.
=cut
sub runMain { my $self = shift;
$self->oUI->runMainMenu($self);
return( 1 );
}
Devel-SizeMe
view release on metacpan or search on metacpan
lib/Devel/SizeMe/Graph/static/bootstrap/js/bootstrap.js view on Meta::CPAN
$parent = getParent($this)
isActive = $parent.hasClass('open')
clearMenus()
if (!isActive) {
if ('ontouchstart' in document.documentElement) {
// if mobile we we use a backdrop because click events don't delegate
$('<div class="dropdown-backdrop"/>').insertBefore($(this)).on('click', clearMenus)
}
$parent.toggleClass('open')
}
$this.focus()
lib/Devel/SizeMe/Graph/static/bootstrap/js/bootstrap.js view on Meta::CPAN
.focus()
}
}
function clearMenus() {
$('.dropdown-backdrop').remove()
$(toggle).each(function () {
getParent($(this)).removeClass('open')
})
}
lib/Devel/SizeMe/Graph/static/bootstrap/js/bootstrap.js view on Meta::CPAN
/* APPLY TO STANDARD DROPDOWN ELEMENTS
* =================================== */
$(document)
.on('click.dropdown.data-api', clearMenus)
.on('click.dropdown.data-api', '.dropdown form', function (e) { e.stopPropagation() })
.on('click.dropdown.data-api' , toggle, Dropdown.prototype.toggle)
.on('keydown.dropdown.data-api', toggle + ', [role=menu]' , Dropdown.prototype.keydown)
}(window.jQuery);
( run in 1.130 second using v1.01-cache-2.11-cpan-49f99fa48dc )