view release on metacpan or  search on metacpan

bin/anyevent-mqtt-monitor  view on Meta::CPAN

foreach (['Quit' => sub { Gtk2->main_quit }]) {
  my $button = Gtk2::Button->new($_->[0]);
  $button->signal_connect(clicked => $_->[1]);
  $vbox->pack_start($button, 0, 0, 0);
}
my $menu = Gtk2::Menu->new();
$menu->set_name('client menu');
my $tearoff = Gtk2::TearoffMenuItem->new();
$menu->append($tearoff);
$tearoff->show;
foreach (['History' => \&history_callback]) {
  my ($title, $cb) = @$_;
  my $item = Gtk2::MenuItem->new($title);
  $item->signal_connect('activate', $cb);
  $menu->append($item);
  $item->show;
}
$win->show_all;

bin/anyevent-mqtt-monitor  view on Meta::CPAN

$dialog_vbox->add($hist_list);
my $hide_button = Gtk2::Button->new('Hide');
$hide_button->signal_connect(clicked => sub { $dialog->hide(); 1; });
$dialog_vbox->add($hide_button);

my $hist_menu = Gtk2::Menu->new();
$hist_menu->set_name('hist menu');
my $hist_tearoff = Gtk2::TearoffMenuItem->new();
$hist_menu->append($hist_tearoff);
$hist_tearoff->show;
foreach (['Dump' => \&dump_callback]) {
  my ($title, $cb) = @$_;
  my $item = Gtk2::MenuItem->new($title);
  $item->signal_connect('activate', $cb);
  $hist_menu->append($item);
  $item->show;
}

 view release on metacpan or  search on metacpan

AuthzCache.pm  view on Meta::CPAN

  return OK;
}

if (Apache->module("Apache::Status")) {
  Apache::Status->menu_item('AuthzCache' => 'AuthzCache Menu Item',
			    \&status_menu);
}

###############################################################################
###############################################################################

 view release on metacpan or  search on metacpan

TODO  view on Meta::CPAN

[Fixed] logout?
[Fixed] is_updated_SOA? (Is SOA updated in edit submit request)
[Fixed] GET/POST where? POST => when submitting forms to avoid 4K limit
[Fixed] is_updated_* ttl eq and not == ?
[Fixed] which pages need caching and which don't? All pages should have caching turned off so no pages will be in cache if user is not authenticated
[Fixed] Settings, Logout, Menu, List domain texts! Menu with list_domains and settings and logout (if appropriate)
[Fixed] SSL - why would there be any issues with using ssl?
[Fixed] Login page language should use Accept-Language header if existing in the db otherwise the Login page language from the configuration. (Netscape can change this in preferences for navigator)
[Fixed] DnsZone::Debug needs to be worked on && export Debug from DnsZone.pm && get rid of DnsZone::Debug
[Fixed] Update SQL to include authentication tables
[Fixed] Install documentation

 view release on metacpan or  search on metacpan

NNTPGateway.pm  view on Meta::CPAN

   'catchup'  => \&action_catchup, 
  );


# Action shown in main menu
my %Menu_Entries_Map =
  (
   'list' => 1, 
   'last' => 1, 
   'post' => 1, 
  );

NNTPGateway.pm  view on Meta::CPAN

sub print_html_menu ( $\$ ) {
  my ($r, $action) = @_;
  $action ||= $The_Action;
  $r->print( "\n<table width=\"100%\" align=\"center\"><tr><td bgcolor=\"$MENU_BGCOLOR\" align=\"center\">" );
  foreach ( keys %Actions_Map ) {
    next unless $Menu_Entries_Map{$_};
    next if $Disabled_Actions{$_};
    my $Aname = &message($_);
    $Aname = $_ =~ s/^([a-z]{1,1})/uc( $1 )/e unless $Aname;
    if ( $_ eq $action ) {
      $r->print( "<font color=\"red\">[&nbsp;${Aname}&nbsp;]</font>" );

 view release on metacpan or  search on metacpan

lib/Apache/SdnFw/js/tinymce/changelog.txt  view on Meta::CPAN

	Fixed bug where the paste as plain text could remove an extra character. Patch contributed by Speednet.
	Fixed bug where some characters where missing for the paste_replace_list option. Patch contributed by Speednet.
	Fixed bug where removing non existing editor instances by the mceRemoveControl command would produce an error.
	Fixed bug where meta elements with the name description would produce errors in IE.
	Fixed bug where color and background colors wouldn't be updated properly.
	Fixed bug where the createMenuButton of tinymce.ControlManager didn't implement the last class argument.
	Fixed bug where the editor_css option was relative from the TinyMCE installation directory not the current page.
	Fixed bug where elements wouldn't be padded if the element contained bogus br elements. For example TD elements.
	Fixed bug where parsing of <body > in fullpage plugin would produce an error.
	Fixed bug where relative urls with just ./ would become an empty string.
	Fixed bug where outdent button would be disabled if inline_styles where set to false.

lib/Apache/SdnFw/js/tinymce/changelog.txt  view on Meta::CPAN

	Fixed bug where innerHTML sometimes generated unknown runtime error on IE.
	Fixed bug where content_css files wasn't loaded in the template preview iframe.
	Fixed bug where scroll position was incorrect when toggling fullscreen mode.
	Fixed bug where restoration of overflow didn't work correctly when disabling fullscreen mode in Opera.
	Fixed bug where drop menus where places at incorrect locations if the editor was placed in a scrollable container element.
	Fixed bug where hideMenu didn't hide sub menus correctly. It will now hide all menus recursively.
	Fixed so theme_advanced_path_location can be used in init options for compatibility reasons.
	Fixed so the drop menu colors matches the rest of o2k7 theme.
	Fixed so the preview example.html file is updated to the new 3.x API.
	Fixed so the margins are the same by default inside the editable area between IE and other browsers.
	Fixed so editor contents gets stored before it the onSubmit event is fired.

lib/Apache/SdnFw/js/tinymce/changelog.txt  view on Meta::CPAN

	Fixed bug where view HTML source failed when inserting a embedded media object.
	Fixed bug where the listbox menus didn't display correctly on IE6.
	Fixed bug where undo level wasn't added when editor was blurred.
	Fixed bug where spellchecker wasn't disabled when fullscreen mode was enabled.
	Fixed bug where Firefox could crash some times when the user switched to fullscreen mode.
	Fixed bug where tinymce.ui.DropMenu didn't remove all item data when an item was removed from the menu.
	Fixed bug where anchor list in advlink dialog wasn't populated correctly in Safari.
	Fixed bug where it wasn't possible to edit tables in IE when inlinepopups was enabled.
	Fixed bug where it wasn't possible to change the table width of an existing table.
	Fixed bug where xhtmlxtras like abbr didn't work correctly on IE.
	Fixed bug where IE6 had some graphics rendering issues with the inlinepopups.

lib/Apache/SdnFw/js/tinymce/changelog.txt  view on Meta::CPAN

	Fixed bug where inlinepopups was clipped by other TinyMCE instances or relative elements in IE.
	Fixed bug where the contextmenu was clipped by other TinyMCE instances or relative elements in IE.
	Fixed bug where listbox menus was clipped by other TinyMCE instances or relative elements in IE.
	Fixed bug where listboxes wasn't updated correctly when the a value wasn't found by select.
	Fixed various CSS issues that produced odd rendering bugs in IE.
	Fixed issues with tinymce.ui.DropMenu class, it required some optional settings to be specified.
	Fixed so multiple blockquotes can be removed with a easier method than before.
	Optimized some of the core API to boost performance.
	Removed some functions from the core API that wasn't needed.
Version 3.0a2 (2007-11-02)
	Fixed critical bug where IE generaded an error on a hasAttribute call in the serialization engine.

 view release on metacpan or  search on metacpan

SetWWWTheme.pm  view on Meta::CPAN

    $Theme->SetNoSideBarExtras($nosidebarextras)    if ($nosidebarextras);

    $Theme->SetSideBarSearchBox($sidebarsearchbox);
    $Theme->SetSearchTemplate($searchtemplate)      if ($searchtemplate);
    
    $Theme->SetSideBarMenuLinks(\@sidebarmenulinks) if (@sidebarmenulinks);
    $Theme->SetSideBarMenuTitle($sidebarmenutitle)  if ($sidebarmenutitle);
    $Theme->SetMoreLinksTitle($morelinkstitle)      if ($morelinkstitle);

    return $Theme->MakeHeader();
    
}

 view release on metacpan or  search on metacpan

lib/Apache2/EmbedFLV/Template.pm  view on Meta::CPAN

 * along with Flowplayer.  If not, see <http://www.gnu.org/licenses/>.
 * 
 * Version: 3.0.3 - Wed Jan 07 2009 13:22:30 GMT-0000 (GMT+00:00)
 */
(function(){function log(args){console.log("$f.fireEvent",[].slice.call(args));}function clone(obj){if(!obj||typeof obj!='object'){return obj;}var temp=new obj.constructor();for(var key in obj){if(obj.hasOwnProperty(key)){temp[key]=clone(obj[key]);}}...
self=this,api=null,html,commonClip,playlist=[],plugins={},listeners={},playerId,apiId,playerIndex,activeIndex,swfHeight,wrapperHeight;extend(self,{id:function(){return playerId;},isLoaded:function(){return(api!==null);},getParent:function(){return wr...

 view release on metacpan or  search on metacpan

t/htdocs/about.html  view on Meta::CPAN

<ul>
		<!--li><a href="/en/advanced-search.php">Advanced Search</a></li-->
		<li><a href="/en/site-map.php">Browse the Site Map</a></li>
		<li>&nbsp;</li>
		<li>&nbsp;</li>
		<li><!-- Generated by thesitewizard Navigation Menu Wizard 2.2 -->
                  <!-- Get your own customized navigation menu free from 
		http://www.thesitewizard.com/ -->
                  <script src="/js/chgoto_iai.js" language="JavaScript" 
		type="text/javascript"></script></li>
	</ul>

 view release on metacpan or  search on metacpan

usr/share/webapp-toolkit/extra/htdocs/admin/js/menu.js  view on Meta::CPAN

 *  http://www.opensource.org/licenses/bsd-license.php
 */

var menu_total;

function initMenus(total) {
	var last = getCookie("last");

	menu_total = total;

	if (last) {
		viewOptions(last);
	}
	else {
		if (total < 2) {    // Control Panel & About menus
			resetMenu();
		}
		else {
			viewOptions("menu_1");
		}
	}
}

function loadMenu(mode) {
	var last = getCookie("last");
	if (last != mode) {
        parent.side.viewOptions(mode);
    }
}

function resetMenu() {
	for (var i = 1; i <= menu_total; i++) {
		document.getElementById("menu_" + i).style.display = "none";
	}
}

usr/share/webapp-toolkit/extra/htdocs/admin/js/menu.js  view on Meta::CPAN

	if (obj.style.display == "block") {
		obj.style.display = "none";
		delCookie("last");
	}
	else {
		resetMenu();
		obj.style.display = "block";
		setCookie("last", mode);
	}
}

 view release on metacpan or  search on metacpan

share/static/alice.js  view on Meta::CPAN

  },

  addWindow: function(win) {
    this.window_map.set(win.id, win);
    if (window.fluid)
      window.fluid.addDockMenuItem(win.title, win.focus.bind(win));
  },

  removeWindow: function(win) {
    if (win.active) this.focusLast();
    if (window.fluid)
      window.fluid.removeDockMenuItem(win.title);
    if (win.id == this.previousFocus.id) {
      this.previousFocus = 0;
    }
    this.window_map.unset(win.id);
    this.connection.closeWindow(win);

 view release on metacpan or  search on metacpan

script/arduino_builder  view on Meta::CPAN

configuration properties are filtered to keep only thoses prefixed by the name
of the board specified by the C<builder.package.board> configuration (that is
expected to be present in the F<arduino_builder.config> file). And that prefix
is removed from the configuration keys.

After that step, the L</"Menu Resolution"> happens and the resulting
configuration values will override those read in the F<boards.local.txt> and
F<boards.txt> files (but not those read in previous files).

=item - F<platform.local.txt> file in the platform package directory.

 view release on metacpan or  search on metacpan

lib/App/Asciio.pm  view on Meta::CPAN

use List::MoreUtils qw(any minmax first_value) ;

use App::Asciio::Setup ;
use App::Asciio::Dialogs ;
use App::Asciio::Elements ;
use App::Asciio::Menues ;
use App::Asciio::Actions ;
use App::Asciio::Undo ;
use App::Asciio::Io ;
use App::Asciio::Ascii ;
use App::Asciio::Options ;

 view release on metacpan or  search on metacpan

lib/App/BCVI.pm  view on Meta::CPAN

Copies the named file back to your workstation desktop

=back

Note: you may like to try SSHMenu (L<http://sshmenu.sourceforge.net/>) which
can invoke the ssh wrapper automatically when connecting to servers.

=head1 TECHNICAL DETAILS

If you successfully followed the installation instructions above, you can

 view release on metacpan or  search on metacpan

root/src/css/perso.css  view on Meta::CPAN

/*---------------- Header ------------------*/


/*---------------- Menu bar ------------------*/
#menu li {
	list-style-image: URL(/img/arrow.gif);
}
#menu {
  	float: left;

 view release on metacpan or  search on metacpan

devel/run-symlist-radio.pl  view on Meta::CPAN

#
# You should have received a copy of the GNU General Public License along
# with Chart.  If not, see <http://www.gnu.org/licenses/>.


# Run up a SymlistRadioMenu.


use strict;
use warnings;
use Gtk2 '-init';
use App::Chart::Gtk2::SymlistRadioMenu;
use Data::Dumper;

use FindBin;
my $progname = $FindBin::Script;

devel/run-symlist-radio.pl  view on Meta::CPAN

$hbox->pack_start ($left_vbox, 0,0,0);

my $right_vbox = Gtk2::VBox->new (0, 0);
$hbox->pack_start ($right_vbox, 1,1,0);

my $menu = App::Chart::Gtk2::SymlistRadioMenu->new;
$menu->signal_connect
  (notify => sub {
     my ($menu, $pspec) = @_;
     my $pname = $pspec->get_name;
     print "$progname: set $pname to ", $menu->get($pname)||'undef', "\n";
   });

$menu->set (symlist => App::Chart::Gtk2::Symlist->new_from_key ('favourites'));

my $menubar = Gtk2::MenuBar->new;
$left_vbox->pack_start ($menubar, 0,0,0);
my $item = Gtk2::MenuItem->new_with_label ('Menu');
$item->set_submenu ($menu);
$menubar->add ($item);

$toplevel->show_all;
Gtk2->main;

 view release on metacpan or  search on metacpan

cheats.txt  view on Meta::CPAN

   MainLoop;
'

# TODO: Check if Unigraph is perl tk

# Create Menu Buttons (PTk,bind method)
perl -MTk -le '$mw=MainWindow->new; $mw->Button(-text => "Exit", -command => sub{exit})->pack(-side => "bottom", -fill => "both", -expand => 1); $f=$mw->Frame(-relief => "ridge", -borderwidth => 2)->pack(-side => "top", -expand => 1, -fill => "both")...

# Perk Tk Event Types (PTk,bind method)
ButtonPress (or Button)
ButtonRelease
Circulate

cheats.txt  view on Meta::CPAN

perl -MTk -le '$w=MainWindow->new; $lb=$w->Scrolled("Listbox", -scrollbars => "osoe")->pack; $lb->insert(0,1..10); $w->Button(-text => "SHOW", -command => sub{@s=$lb->curselection; print $lb->get(@s) if @s})->pack; MainLoop'

# Handle clicking the "X" button on a window to close (PTk)
perl -MTk -le '$w=MainWindow->new; sub e{print "safe exit"; $w->destroy} $w->protocol("WM_DELETE_WINDOW", \&e); $w->Button(-text => "EXIT", -command => \&e)->pack; MainLoop'

# Menu(bar) example (PTk)
perl -MTk -le '$w=MainWindow->new; $m=$w->Menu; $w->configure(-menu => $m); %h=map{$_ => $m->cascade(-label => "~$_")} qw/File Edit Help/; $h{File}->command(-label => "Exit", -command => sub{exit}); MainLoop'

# Menu(bar) example using -menuitems (PTk)
perl -MTk -le '$w=MainWindow->new; $m=$w->Menu; $w->configure(-menu => $m); %h=map{$_ => $m->cascade(-label => "~$_", -menuitems => [[checkbutton => "MY_CHECK"],[command => "MY_CMD", -command => sub{print "exit"}, -accelerator => "Ctrl-o"],[radiobutt...

# Simple Menu(bar) example using -menuitems (PTk)
perl -MTk -le '$w=MainWindow->new; $m=$w->Menu; $w->configure(-menu => $m); $m->cascade(-label => "~File", -menuitems => [[command => "new", -accelerator => "Ctrl-n"],"",[command => "Open", -accelerator => "Ctrl-o"]]); MainLoop'

# Simple 2 Menu(bar) example using -menuitems (PTk)
perl -MTk -le '$w=MainWindow->new; $m=$w->Menu; $w->configure(-menu => $m); $m->cascade(-label => "~File", -menuitems => [[cascade => "new", -accelerator => "Ctrl-n", -menuitems => [map [command => $_],qw/PNG JPEG TIFF/], -tearoff => 0],"",[command =...

# Color changing menu(bar) (PTk)
perl -MTk -le '$color="$red"; $w=MainWindow->new; $mi=[[cascade => "~Edit", -menuitems => [[cascade => "~Background", -menuitems => [map [radiobutton => $_, -variable => \$color, -command => [sub{my $c=shift; $w->configure(-background => $c); print "...

# Very primitive notebook (poor man's notebook) (PTk)
perl -MTk -le '$w=MainWindow->new; ($top,$bot)=map{$w->Frame->pack} 1..2; @b=map { $top->Button(-text => "B$_", -command => [sub{print shift}, $_])->pack(-side => "left") } 1..3; @f=map{$bot->Frame} 1..3; $f[0]->pack; $f[0]->Label(-text => "L1")->pac...

# Wait until variable is changes. Other button can still be pressed though. (PTk)

cheats.txt  view on Meta::CPAN

# ListBox Example (Ptk,Appendix B)

# MainWindow Example (Ptk,Appendix B)

# Menu Example (Ptk,Appendix B)

# MenuButton Example (Ptk,Appendix B)

# Message Example (Ptk,Appendix B)

# NoteBook Example (Ptk,Appendix B)

cheats.txt  view on Meta::CPAN

# set file=H:/kog.dat
# perl -lE "$f='%file%'; -e $f and exit; print qq(Enter your password: ); chomp($p=<STDIN>); open FH, qq(>$f); print FH $p; system qq(attrib +h $f) "
# set /P pass=< %file%
#
# echo Opening Exceed
# start /B "Exceed" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Open Text Exceed 14 x64\Exceed.lnk"
#
# echo Opening Putty
# perl -x -l -S "%0" "%pass%"
# echo Everything is opened. Close this Window.
# exit /b

 view release on metacpan or  search on metacpan

themes/bs2/static/js/bootstrap.js  view on Meta::CPAN

      $parent = getParent($this)

      isActive = $parent.hasClass('open')

      clearMenus()

      if (!isActive) {
        $parent.toggleClass('open')
      }

themes/bs2/static/js/bootstrap.js  view on Meta::CPAN

        .focus()
    }

  }

  function clearMenus() {
    $(toggle).each(function () {
      getParent($(this)).removeClass('open')
    })
  }

themes/bs2/static/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-menu', function (e) { e.stopPropagation() })
    .on('click.dropdown.data-api'  , toggle, Dropdown.prototype.toggle)
    .on('keydown.dropdown.data-api', toggle + ', [role=menu]' , Dropdown.prototype.keydown)

 view release on metacpan or  search on metacpan

lib/App/Cinema/Controller/Menu.pm  view on Meta::CPAN

package App::Cinema::Controller::Menu;
use Moose;
use namespace::autoclean;
use Mail::Mailer;
use HTTP::Date qw/time2iso/;

lib/App/Cinema/Controller/Menu.pm  view on Meta::CPAN

1;

=head1 NAME

App::Cinema::Controller::Menu - A controller that handles the request for the MENU link.

=head1 SYNOPSIS

You can call its actions in any template files either

 view release on metacpan or  search on metacpan

lib/App/ClusterSSH.pm  view on Meta::CPAN

    # Sleep for a moment to give WM time to bring console back
    select( undef, undef, undef, 0.5 );

    if ( $self->config->{menu_send_autotearoff} ) {
        $menus{send}->menu->tearOffMenu()->raise;
    }

    if ( $self->config->{menu_host_autotearoff} ) {
        $menus{hosts}->menu->tearOffMenu()->raise;
    }

    $windows{main_window}->deiconify;
    $windows{main_window}->raise;
    $windows{main_window}->focus( -force );

lib/App/ClusterSSH.pm  view on Meta::CPAN

    # first, empty the hosts menu from the last static entry + 1 on
    my $menu = $menus{bar}->entrycget( 'Hosts', -menu );
    $menu->delete( $host_menu_static_items, 'end' );

    $self->debug( 3, "Menu deleted" );

    # add back the separator
    $menus{hosts}->separator;

    $self->debug( 3, "Parsing list" );

lib/App/ClusterSSH.pm  view on Meta::CPAN

}

sub create_menubar() {
    my ($self) = @_;
    $self->debug( 2, "create_menubar: started" );
    $menus{bar} = $windows{main_window}->Menu();

    $windows{main_window}->configure( -menu => $menus{bar}, )
        unless $self->config->{hide_menu};

    $menus{file} = $menus{bar}->cascade(

lib/App/ClusterSSH.pm  view on Meta::CPAN

            $menus{ $menu_ref->{title} }
                = $menu->cascade( -label => $menu_ref->{title}, );
            $self->populate_send_menu_entries_from_xml(
                $menus{ $menu_ref->{title} }, $menu_ref, );
            if ( $menu_ref->{detach} && $menu_ref->{detach} =~ m/y/i ) {
                $menus{ $menu_ref->{title} }->menu->tearOffMenu()->raise;
            }
        }
        else {
            my $accelerator = undef;
            if ( $menu_ref->{accelerator} ) {

lib/App/ClusterSSH.pm  view on Meta::CPAN

        my $menu_xml = $xml->XMLin( $self->config->{send_menu_xml_file} );

        $self->debug( 3, 'xml send menu: ', $/, $xml->XMLout($menu_xml) );

        if ( $menu_xml->{detach} && $menu_xml->{detach} =~ m/y/i ) {
            $menus{send}->menu->tearOffMenu()->raise;
        }

        $self->populate_send_menu_entries_from_xml( $menus{send}, $menu_xml );
    }

 view release on metacpan or  search on metacpan

lib/App/Codit.pm  view on Meta::CPAN

Sometimes it happens that a session file gets corrupted. You solve it like this:

=over 4

=item Launch the session manager. Menu->Session->Manage sessions.

=item Remove the affected session.

=item Rebuild it from scratch.

lib/App/Codit.pm  view on Meta::CPAN

=item B<Help> see L<Tk::AppWindow::Ext::Help>

=item B<Keyboard> see L<Tk::AppWindow::Ext::Keyboard>

=item B<MenuBar> see L<Tk::AppWindow::Ext::MenuBar>

=item B<Panels> see L<Tk::AppWindow::Ext::Panels>

=item B<Plugins> see L<Tk::AppWindow::Ext::Plugins>

lib/App/Codit.pm  view on Meta::CPAN

	my $rawdir = Tk::findINC('App/Codit/Icons');
	my %opts = (
#		-appname => 'Codit',
		-logo => Tk::findINC('App/Codit/codit_logo.png'),
		-extensions => [qw[Art CoditMDI ToolBar StatusBar MenuBar Selector Help Settings Plugins]],
		-documentinterface => 'CoditMDI',
		-namespace => 'App::Codit',
		-rawiconpath => [ $rawdir ],
		-savegeometry => 1,
		-updatesmenuitem => 1,

lib/App/Codit.pm  view on Meta::CPAN

			'*page' => 'GUI',
			'*section' => 'Icon sizes',
			-iconsize => ['spin', 'General', -width => 4],
			-sidebariconsize => ['spin', 'Side bars', -width => 4],
			'*column',
			-menuiconsize => ['spin', 'Menu bar', -width => 4],
			-tooliconsize => ['spin', 'Tool bar', -width => 4],
			'*end',
			'*section' => 'Visibility at lauch',
			'-tool barvisible' => ['boolean', 'Tool bar'],
			'-status barvisible' => ['boolean', 'Status bar'],

lib/App/Codit.pm  view on Meta::CPAN

sub mdi {
	return $_[0]->extGet('CoditMDI');
}

sub MenuItems {
	my $self = shift;
	return ($self->SUPER::MenuItems,
		[ 'menu_normal',		  'appname::h1',	   '~Report a problem',  'report_issue'	],
	)
}

=item B<panels>

 view release on metacpan or  search on metacpan

lib/App/ConMenu.pm  view on Meta::CPAN

package App::ConMenu;
use 5.10.0;
use strict;
use warnings;
use Carp qw(croak);
use YAML::Tiny;

lib/App/ConMenu.pm  view on Meta::CPAN

    return bless $self, $type;
}

# load the yaml file you should have
# set filename by now.
sub loadMenuFile {
    my $self = shift;
    $self->{fileName} or croak ("No yaml file Name set");
    my $yaml;
    $yaml = YAML::Tiny -> read($self->{fileName});
    $self->{'menu'}= $yaml;

lib/App/ConMenu.pm  view on Meta::CPAN

        print `$command`;
    }
    return 1; # return 1 so that testing knows we got this far.
}

sub printMenu {
    my $self = shift;
    my $menuItemsUnsorted = $self->{'menu'}->[0];
    my @menuItems = sort { {$a} cmp {$b} } keys(%$menuItemsUnsorted);
    $self->{menuItems} = \@menuItems;
    cls();

lib/App/ConMenu.pm  view on Meta::CPAN

# create a default file to get people going.
sub createDefaultFile{
    my $self = shift;
    my $fileName = shift;
    my $menu = {
        'Menu option 1' => {
            'commands'    => [
                'ls'
            ],
            'working_dir' => './'
        },
        'Menu Option 2' => {
            'commands'    => [
                'dir'
            ],
            'working_dir' => './'
        }

lib/App/ConMenu.pm  view on Meta::CPAN

=encoding utf-8

=head1 NAME

App::ConMenu - Very simple Menu For Console commands Platform Agnostic

=head1 SYNOPSIS

    use App::ConMenu;
    my $menu = App::ConMenu->new();
    $menu->{fileName} = '.~/menu.yml';
    $menu->loadMenuFile();
    $menu->printMenu();
    $menu->waitForInput();
    1;


=head1 DESCRIPTION

App::ConMenu is a very simple console menu application it allows you to display a menu of
choices then select one of those by pressing the corresponding number.  This will cause ComMenu
to execute the associated commands in the menu.yml file.

The C<m.pl> in the scripts dir is a script that  creates a menu by using the module. By default
the script uses ~/.con_menu.yml on unix type systems and <HOMEDIR>\_con_menu.yml on Windows type systems. If
the files do not exist then you will be prompted to create an example version.

 view release on metacpan or  search on metacpan

lib/App/DBBrowser/From/Subquery.pm  view on Meta::CPAN

    my ( $sf, $sql, $caller, $ext_info ) = @_;
    my $ax = App::DBBrowser::Auxil->new( $sf->{i}, $sf->{o}, $sf->{d} );
    my $tc = Term::Choose->new( $sf->{i}{tc_default} );
    my ( $saved_subqueries, $subquery_history, $print_history ) = $sf->__get_history();
    my $edit_sq_history_file = 'Choose:';
    my ( $readline, $build_SQ ) = ( '  Readline', '  SQL Menu' );
    my @pre = ( $edit_sq_history_file, undef, $build_SQ, $readline );
    my $old_idx = 1;

    SUBQUERY: while ( 1 ) {
        my @queries = $sf->__get_queries( $saved_subqueries, $subquery_history, $print_history );

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

---

<h2>Name</h2>
[% page.name %]<br />

<h2>Menu</h2>
<ul>
[% for link in page.menu %]
    <li><a href="[% link.value %]">[% link.key %]</a></li>
[% end %]
</ul>

 view release on metacpan or  search on metacpan

bin/pmat-explore-gtk  view on Meta::CPAN

$win->signal_connect( destroy => sub { Gtk2->main_quit } );
$win->resize( 1000, 600 );
my $winbox = Gtk2::VBox->new( 0, 0 );
$win->add( $winbox );

my $menu = Gtk2::MenuBar->new;
$winbox->pack_start( $menu, FALSE, TRUE, 0 );

my $filemenu = add_submenu( $menu, "File" );
add_menuitem( $filemenu, "Quit" => sub { Gtk2->main_quit } );

bin/pmat-explore-gtk  view on Meta::CPAN

sub add_submenu
{
   my ( $menu, $name ) = @_;

   my $mi = Gtk2::MenuItem->new( $name );
   my $submenu = Gtk2::Menu->new;
   $mi->set_submenu( $submenu );

   $menu->append( $mi );

   return $submenu;

bin/pmat-explore-gtk  view on Meta::CPAN

sub add_menuitem
{
   my ( $menu, $name, $code ) = @_;

   my $mi = Gtk2::MenuItem->new( $name );
   $mi->signal_connect( activate => $code );

   $menu->append( $mi );
}

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

- js: make ldapLookupSubmit GET instead of PUT
- dispatch: tweak debug log messages
- js: lower ACL profile of ldapLookupSubmit and privHistory targets
- Revamp LDAP lookup feature (GET first)
- js: handle empty nick in ldapLookupSubmit
- Add "Sync" option to LDAP lookup result miniMenu
- js: simplify LDAP lookup failure handling
- Reinstate "Priv (status) menu" with privHistory target
- Display workforce ID instead of EID in simpleEmployeeBrowser
- Change "Status"/"Since" to "Privlevel"/"Effective"
- dmenu: add Schedule menu

Changes  view on Meta::CPAN

0.139 2016-09-28 19:12 CEST
- Drop LDAPdochazka entry from simpleEmployeeBrowser
- Clarify difference between LDAP and Dochazka employees
- Put masquerade at end of Employee menu
- Dispatch.pm: reduce log verbosity
- Implement LDAP sync miniMenu entry in simpleEmployeeBrowser

0.140 2016-09-29 00:16 CEST
- build/ops: change OBS_PROJECT to Application:Dochazka
- build/ops: require App::MFILE::WWW 0.147 for dtable feature
- Implement basic (read-only) Privhistory table

Changes  view on Meta::CPAN

- Dispatch.pm: AJAX call session/terminate on logout
- js: Enable active users to "LDAP sync" themselves

0.142 2016-11-05 22:40 CET
- js: implement "REST server details" dform
- js: make REST server details form return to mainMenu
- build/ops: require App::MFILE::WWW 0.152
- Plumb in drowselect target, privhistory edit menu option
- lib.js: add aclProfileWrite prop to pHeffective and pHpriv
- Implement "Add record" option in privhistory drowselect
- emp-lib.js: call lib.displayError() whenever AJAX fails

Changes  view on Meta::CPAN

- Improve usability of "employee profile edit" feature
- Implement "schedule edit (from schedule display)" feature
- Implement "delete schedule from lookup" feature
- sched-lib.js: refactor schedEditSave and schedDelete
- Implement "schedule edit and delete from browser" feature
- Move "{priv,schedule} history EDIT" to miniMenu

0.148 2017-08-29 15:16 CEST
- schedhistory: make dtable columns visible to inactive+
- Employee Profile: rename priv/status entries
- Employee Profile: show current schedule

Changes  view on Meta::CPAN

- tests: js: migrate unit test to QUnit 2.4.0
- build/ops: require App::MFILE::WWW 0.158

0.149 2017-09-24 00:03 CEST
- build/ops: add ext/codepaths file to MANIFEST
- js: tests: add simple test cases for mainMenu targets
- Dispatch.pm: upon login success, expurgate currentUser object
- js: tests: force root user for mainMenu test
- js: tests: refactor and add test for mainEmpl menu
- js: tests: use setTimeout properly
- js: tests/main-menu.js: refactor to do login/logout
- Dispatch.pm: use _prep_ajax_response for logout
- daction-start.js: call loggout instead of logout

Changes  view on Meta::CPAN

- build/ops: require App::MFILE::WWW 0.175 for menu prototype and new fillUserBox() behavior

0.166 2017-11-15 12:11 CET
- js: canned-tests: implement log() - logs messages to both console log and test
  protocol
- js: canned-tests: implement getMenuEntry() - avoids hard-coding of menu entry
  numbers
- js: tests: implement new test "Masquerading as active, set inactive as supervisor"
- js: empProfile: call reports "Supervisees"
- js: Always load employee profile from server

 view release on metacpan or  search on metacpan

lib/App/EditorTools/Emacs.pod  view on Meta::CPAN

=over 4

=item TODO

EditorToolsMenu - brings up a menu to choose the following routines

=item C-c e r

RenameVariable - see L<App::EditorTools>

 view release on metacpan or  search on metacpan

share/status/app/lib/bootstrap/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()

share/status/app/lib/bootstrap/bootstrap.js  view on Meta::CPAN

        .focus()
    }

  }

  function clearMenus() {
    $('.dropdown-backdrop').remove()
    $(toggle).each(function () {
      getParent($(this)).removeClass('open')
    })
  }

share/status/app/lib/bootstrap/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);

 view release on metacpan or  search on metacpan

lib/App/FQStat.pm  view on Meta::CPAN

use App::FQStat::Config;
use App::FQStat::Colors;
use App::FQStat::Scanner;
use App::FQStat::Input;
use App::FQStat::Drawing;
use App::FQStat::Menu;
use App::FQStat::PAR;
use App::FQStat::Debug ();

1;

 view release on metacpan or  search on metacpan

lib/App/Followme/Initialize.pm  view on Meta::CPAN

}
.footer-content a:hover {
    color: #fff;
}
/*
    Menu
*****************/
.dropbtn {
    font-size: 1.75em;
    background-color: #222;
    color: #aaa;