Result:
found more than 404 distributions - search limited to the first 2001 files matching your query
( run in 1.908 )
Cmenu
view release on metacpan or search on metacpan
#****************************************************************************
# Cmenu.pm -- Perl Curses Menu Support Facility
#
# Last updated Time-stamp: <01/10/20 23:14:23 devel>
#
#
# Author: Andy Ferguson (cmenu@afccommercial.co.uk)
# Extent of display screen - fixed - unchangeable - from TERM settings
# Always starts at 0,0
my $menu_screen_cols=0; # - COLS from Curses } size of the full screen
my $menu_screen_lines=0; # - LINES from Curses }
# Extent of Menu Inlay - size and position of main window
# Amendable via preferences
# Mono screens lose the shadow so get a bigger inlay
my $menu_inlay_lines=0;
my $menu_inlay_cols=0;
my $menu_inlay_y=3; # 2 for mono
my $menu_inlay_x=6; # 4 for mono
# Extent of Menu text pane
# All defined at runtime depending on the menu items
my $menu_pane_lines=0;
my $menu_pane_cols=0;
my $menu_pane_y=0;
my $menu_pane_x=0;
# define global colour variables
my %menu_attributes=(); # load and hold color definitions
my $menu_hascolor; # terminal colour capability flag
# Initialise menu item arrays
my @menu_sel_text =(); # Menu item text
my @menu_sel_style =(); # Menu item type
my @menu_sel_label = (); # Menu item label
my @menu_sel_flag = (); # Menu item special
my @menu_sel_return = (); # value to be returned on selection
my @menu_sel_pos = (); # Menu item position (data fields)
# max length + dec.places + 0
# User hacks
my($menu_hack25)=0; # hack to make a small screen bigger
# Also define terminal atributes and defines default colours
# (these can be changed after this function has been called)
#
# Call format: &menu_initialise("title string","advice note string");
#
# Arguments: - the title of the Menu application
# this is displayed in the top left-hand corner of all screens
# - an advice note to be displayed on all pages
# normally displayed at the foot of each screen
# may be replaced by user comments with &menu_advice routine
#
# Backdrop fills whole screen with a title at the top (left-just)
# and a small advice note at the foot (centred)
&bkgd($menu_screen,$menu_attributes{"backdrop"});
&clear($menu_screen);
if(length($menu_title)<1) {
&addstr($menu_screen,0,1,"Cmenu Menu");
} else {
&addstr($menu_screen,0,1,$menu_title);
}
&move($menu_screen,1,1);
&hline($menu_screen,ACS_HLINE,$menu_screen_cols-2);
print "$message\r\n";
exit();
}
# ##################################################################################
# Menu Processing and Navigation
# ##################################################################################
#**********
# MENU_INIT
#
# Set return value as current option
$ret=$menu_sel_return[$menu_cur_option].$menu_sep;
# General cursor movement
/LEFT/ && do { # Left arrow
# Treat this like an UP-Menu request
$action="UP";
# redo KEYWAIT;
};
/RITE/ && do { # Right arrow
# Treat this like a RETURN
$action="DOWN";
# redo KEYWAIT;
};
/LYNXL/ && do { # Left arrow
# Treat this like an UP-Menu request
$action="QUIT";
redo KEYWAIT;
};
/LYNXR/ && do { # Right arrow
# Treat this like a RETURN
addch($menu_inlay,0, $menu_inlay_cols-1, ACS_URCORNER);
move($menu_inlay,1,$menu_inlay_cols-1);
vline($menu_inlay,ACS_VLINE, $menu_inlay_lines-2);
addch($menu_inlay,$menu_inlay_lines-3,$menu_inlay_cols-1,ACS_RTEE);
# Draw the Menu title
attrset($menu_inlay,$menu_attributes{"title"});
move($menu_inlay,0,($menu_inlay_cols-length($menu_top_title)-2)/2);
addstr($menu_inlay," $menu_top_title ");
# Process any sub-titles like the title.
#
# Function: Draws a menu item line in appropriate style
#
# Call format: $menu_draw_line(menu_item,indent)
#
# Arguments: - Menu item : pointer to menu item list
# - indent from left edge of window (for centreing)
#
# Returns: nuffink
#
#**********
# ##################################################################################
# ***************************************************************************
# Button Bar
# ~~~~~~~~~~
# A button bar can appear at the foot of each Menu. Button labels are
# user definable using the menu_button_set function
# Buttons perform
# ACTION - select the current menu option
# HELP - display user provided help information
# EXIT - exit back from the current menu
Since any type of item can be included in a menu, return values may be
equally complex. For complex return values, tokens can be split out using
a command fragment such as
chop($return_value=&menu_display("Menu Prompt",$start_on_menu_item));
@selection=split(/$Cmenu::menu_sep/,$return_value);
for($loop=1;$loop<=$#selection;$i++) {
# deal with each token
($field_label,$field_content) = split(/$Cmenu::menu_sepn,$selection[$i]);
# processing each field accordingly
CodeManager
view release on metacpan or search on metacpan
lib/Prima/CodeManager/File.pm view on Meta::CPAN
icon => $self-> load_icon( "$Prima::CodeManager::CodeManager_directory/img/cm64.png" ),
title => "CodeManager - About",
text => "CodeManager - About",
size => [ @dim ],
origin => [ 0, 0 ],
borderIcons => bi::SystemMenu,
centered => 1,
# borderStyle => bs::None,
backColor => $self->licz_kolor( 0xffffff, $project_color, 0.5, 0 ),
onPaint => sub {
my ( $this, $canvas) = @_;
Cog
view release on metacpan or search on metacpan
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
}
});
/*!
* jQuery UI Menu 1.11.4
* http://jqueryui.com
*
* Copyright jQuery Foundation and other contributors
* Released under the MIT license.
* http://jquery.org/license
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
focus: null,
select: null
},
_create: function() {
this.activeMenu = this.element;
// Flag used to prevent firing of the click handler
// as the event bubbles up through nested menus
this.mouseHandled = false;
this.element
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
skip = true;
} else {
character = prev + character;
}
match = this._filterMenuItems( character );
match = skip && match.index( this.active.next() ) !== -1 ?
this.active.nextAll( ".ui-menu-item" ) :
match;
// If no matches on the current filter, reset to the last character pressed
// to move down the menu to the first item that starts with that character
if ( !match.length ) {
character = String.fromCharCode( event.keyCode );
match = this._filterMenuItems( character );
}
if ( match.length ) {
this.focus( event, match );
this.previousFilter = character;
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
nested = item.children( ".ui-menu" );
if ( nested.length && event && ( /^mouse/.test( event.type ) ) ) {
this._startOpening(nested);
}
this.activeMenu = item.parent();
this._trigger( "focus", event, { item: item } );
},
_scrollIntoView: function( item ) {
var borderTop, paddingTop, offset, scroll, elementHeight, itemHeight;
if ( this._hasScroll() ) {
borderTop = parseFloat( $.css( this.activeMenu[0], "borderTopWidth" ) ) || 0;
paddingTop = parseFloat( $.css( this.activeMenu[0], "paddingTop" ) ) || 0;
offset = item.offset().top - this.activeMenu.offset().top - borderTop - paddingTop;
scroll = this.activeMenu.scrollTop();
elementHeight = this.activeMenu.height();
itemHeight = item.outerHeight();
if ( offset < 0 ) {
this.activeMenu.scrollTop( scroll + offset );
} else if ( offset + itemHeight > elementHeight ) {
this.activeMenu.scrollTop( scroll + offset - elementHeight + itemHeight );
}
}
},
blur: function( event, fromFocus ) {
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
collapseAll: function( event, all ) {
clearTimeout( this.timer );
this.timer = this._delay(function() {
// If we were passed an event, look for the submenu that contains the event
var currentMenu = all ? this.element :
$( event && event.target ).closest( this.element.find( ".ui-menu" ) );
// If we found no valid submenu ancestor, use the main menu to close all sub menus anyway
if ( !currentMenu.length ) {
currentMenu = this.element;
}
this._close( currentMenu );
this.blur( event );
this.activeMenu = currentMenu;
}, this.delay );
},
// With no arguments, closes the currently active menu - if nothing is active
// it closes all menus. If passed an argument, it will search for menus BELOW
_close: function( startMenu ) {
if ( !startMenu ) {
startMenu = this.active ? this.active.parent() : this.element;
}
startMenu
.find( ".ui-menu" )
.hide()
.attr( "aria-hidden", "true" )
.attr( "aria-expanded", "false" )
.end()
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
[ direction + "All" ]( ".ui-menu-item" )
.eq( 0 );
}
}
if ( !next || !next.length || !this.active ) {
next = this.activeMenu.find( this.options.items )[ filter ]();
}
this.focus( event, next );
},
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
return item.offset().top - base - height < 0;
});
this.focus( event, item );
} else {
this.focus( event, this.activeMenu.find( this.options.items )
[ !this.active ? "first" : "last" ]() );
}
},
previousPage: function( event ) {
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
return item.offset().top - base + height > 0;
});
this.focus( event, item );
} else {
this.focus( event, this.activeMenu.find( this.options.items ).first() );
}
},
_hasScroll: function() {
return this.element.outerHeight() < this.element.prop( "scrollHeight" );
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
this.collapseAll( event, true );
}
this._trigger( "select", event, ui );
},
_filterMenuItems: function(character) {
var escapedCharacter = character.replace( /[\-\[\]{}()*+?.,\\\^$|#\s]/g, "\\$&" ),
regex = new RegExp( "^" + escapedCharacter, "i" );
return this.activeMenu
.find( this.options.items )
// Only match on items, not dividers or other content (#10571)
.filter( ".ui-menu-item" )
.filter(function() {
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
isInput ? false :
// All other element types are determined by whether or not they're contentEditable
this.element.prop( "isContentEditable" );
this.valueMethod = this.element[ isTextarea || isInput ? "val" : "text" ];
this.isNewMenu = true;
this.element
.addClass( "ui-autocomplete-input" )
.attr( "autocomplete", "off" );
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
},
menufocus: function( event, ui ) {
var label, item;
// support: Firefox
// Prevent accidental activation of menu items in Firefox (#7024 #9118)
if ( this.isNewMenu ) {
this.isNewMenu = false;
if ( event.originalEvent && /^mouse/.test( event.originalEvent.type ) ) {
this.menu.blur();
this.document.one( "mousemove", function() {
$( event.target ).trigger( event.originalEvent );
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
_close: function( event ) {
if ( this.menu.element.is( ":visible" ) ) {
this.menu.element.hide();
this.menu.blur();
this.isNewMenu = true;
this._trigger( "close", event );
}
},
_change: function( event ) {
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
});
},
_suggest: function( items ) {
var ul = this.menu.element.empty();
this._renderMenu( ul, items );
this.isNewMenu = true;
this.menu.refresh();
// size and position menu
ul.show();
this._resizeMenu();
ul.position( $.extend({
of: this.element
}, this.options.position ) );
if ( this.options.autoFocus ) {
this.menu.next();
}
},
_resizeMenu: function() {
var ul = this.menu.element;
ul.outerWidth( Math.max(
// Firefox wraps long text (possibly a rounding bug)
// so we add 1px to avoid the wrapping (#7513)
ul.width( "" ).outerWidth() + 1,
this.element.outerWidth()
) );
},
_renderMenu: function( ul, items ) {
var that = this;
$.each( items, function( index, item ) {
that._renderItemData( ul, item );
});
},
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
button: selectmenuId + "-button",
menu: selectmenuId + "-menu"
};
this._drawButton();
this._drawMenu();
if ( this.options.disabled ) {
this.disable();
}
},
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
this.button.one( "focusin", function() {
// Delay rendering the menu items until the button receives focus.
// The menu may have already been rendered via a programmatic open.
if ( !that.menuItems ) {
that._refreshMenu();
}
});
this._hoverable( this.button );
this._focusable( this.button );
},
_drawMenu: function() {
var that = this;
// Create menu
this.menu = $( "<ul>", {
"aria-hidden": "true",
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
return false;
};
},
refresh: function() {
this._refreshMenu();
this._setText( this.buttonText, this._getSelectedItem().text() );
if ( !this.options.width ) {
this._resizeButton();
}
},
_refreshMenu: function() {
this.menu.empty();
var item,
options = this.element.find( "option" );
if ( !options.length ) {
return;
}
this._parseOptions( options );
this._renderMenu( this.menu, this.items );
this.menuInstance.refresh();
this.menuItems = this.menu.find( "li" ).not( ".ui-selectmenu-optgroup" );
item = this._getSelectedItem();
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
return;
}
// If this is the first time the menu is being opened, render the items
if ( !this.menuItems ) {
this._refreshMenu();
} else {
// Menu clears focus on close, reset focus to selected item
this.menu.find( ".ui-state-focus" ).removeClass( "ui-state-focus" );
this.menuInstance.focus( null, this._getSelectedItem() );
}
this.isOpen = true;
this._toggleAttr();
this._resizeMenu();
this._position();
this._on( this.document, this._documentClick );
this._trigger( "open", event );
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
menuWidget: function() {
return this.menu;
},
_renderMenu: function( ul, items ) {
var that = this,
currentOptgroup = "";
$.each( items, function( index, item ) {
if ( item.optgroup !== currentOptgroup ) {
share/js/jquery-ui-1.11.4.js view on Meta::CPAN
}
this.button.outerWidth( width );
},
_resizeMenu: function() {
this.menu.outerWidth( Math.max(
this.button.outerWidth(),
// support: IE10
// IE10 wraps long text (possibly a rounding bug)
CohortExplorer
view release on metacpan or search on metacpan
lib/CohortExplorer/Application.pm view on Meta::CPAN
}
sub command_map {
console => 'CLI::Framework::Command::Console',
help => 'CohortExplorer::Command::Help',
menu => 'CohortExplorer::Command::Menu',
describe => 'CohortExplorer::Command::Describe',
history => 'CohortExplorer::Command::History',
find => 'CohortExplorer::Command::Find',
search => 'CohortExplorer::Command::Query::Search',
compare => 'CohortExplorer::Command::Query::Compare';
lib/CohortExplorer/Application.pm view on Meta::CPAN
my $ds = $app->cache->get('cache')->{datasource};
# May or may not be preloaded
eval 'require ' . ref $ds;
# Menu and console commands are invalid under interactive mode
push my @noninteractive_command, qw/menu console/;
# search, compare and history commands are invalid if the user
# does not have access to any variable
if ( keys %{ $ds->variable_info } == 0 ) {
lib/CohortExplorer/Application.pm view on Meta::CPAN
This method returns the mapping between command names and command classes
console => 'CLI::Framework::Command::Console',
help => 'CohortExplorer::Command::Help',
menu => 'CohortExplorer::Command::Menu',
describe => 'CohortExplorer::Command::Describe',
history => 'CohortExplorer::Command::History',
find => 'CohortExplorer::Command::Find',
search => 'CohortExplorer::Command::Query::Search',
compare => 'CohortExplorer::Command::Query::Compare'
Compress-Deflate7
view release on metacpan or search on metacpan
7zip/CPP/7zip/Bundles/Fm/FM.dsp view on Meta::CPAN
SOURCE=..\..\UI\FileManager\PanelListNotify.cpp
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\PanelMenu.cpp
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\PanelOperations.cpp
# End Source File
7zip/CPP/7zip/Bundles/Fm/FM.dsp view on Meta::CPAN
SOURCE=..\..\UI\FileManager\LangPage.h
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\MenuPage.cpp
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\MenuPage.h
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\OptionsDialog.cpp
# End Source File
7zip/CPP/7zip/Bundles/Fm/FM.dsp view on Meta::CPAN
SOURCE=..\..\..\Windows\MemoryLock.h
# End Source File
# Begin Source File
SOURCE=..\..\..\Windows\Menu.cpp
# End Source File
# Begin Source File
SOURCE=..\..\..\Windows\Menu.h
# End Source File
# Begin Source File
SOURCE=..\..\..\Windows\Net.cpp
# End Source File
7zip/CPP/7zip/Bundles/Fm/FM.dsp view on Meta::CPAN
# Begin Group "Explorer"
# PROP Default_Filter ""
# Begin Source File
SOURCE=..\..\UI\Explorer\ContextMenu.cpp
# End Source File
# Begin Source File
SOURCE=..\..\UI\Explorer\ContextMenu.h
# End Source File
# Begin Source File
SOURCE=..\..\UI\Explorer\MyMessages.cpp
# End Source File
7zip/CPP/7zip/Bundles/Fm/FM.dsp view on Meta::CPAN
SOURCE=..\..\UI\Explorer\MyMessages.h
# End Source File
# Begin Source File
SOURCE=..\..\UI\Explorer\RegistryContextMenu.cpp
# End Source File
# Begin Source File
SOURCE=..\..\UI\Explorer\RegistryContextMenu.h
# End Source File
# End Group
# Begin Group "GUI"
# PROP Default_Filter ""
7zip/CPP/7zip/Bundles/Fm/FM.dsp view on Meta::CPAN
SOURCE=..\..\UI\FileManager\MyCom2.h
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\MyLoadMenu.cpp
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\MyLoadMenu.h
# End Source File
# Begin Source File
SOURCE=..\..\UI\FileManager\OpenCallback.cpp
# End Source File
Config-Model-CursesUI
view release on metacpan or search on metacpan
lib/Config/Model/CursesUI.pm view on Meta::CPAN
},
];
my $menu = [ { -label => 'File', -submenu => $file_menu }, ];
$self->{cui}->add('menu', 'Menubar', -menu => $menu);
}
sub create_config_menu {
my ($self,$label) = @_ ;
lib/Config/Model/CursesUI.pm view on Meta::CPAN
-label => 'File', -submenu => $file_menu },
{
-label => 'Navigate', -submenu => \@nav_menu }
];
$self->{cui}->add('menu', 'Menubar', -menu => $menu);
}
sub add_std_button_with_help {
my ($self,$win,$node,$element,@buttons) = @_ ;
Config-Model-LcdProc
view release on metacpan or search on metacpan
lib/Config/Model/models/LCDd/lcdm001.pl view on Meta::CPAN
{
'default' => 'DownKey',
'type' => 'leaf',
'value_type' => 'uniline'
},
'MainMenuKey',
{
'default' => 'RightKey',
'type' => 'leaf',
'value_type' => 'uniline'
},
'PauseKey',
{
'default' => 'LeftKey',
'description' => 'keypad settings
Keyname Function
Normal context Menu context
------- -------------- ------------
PauseKey Pause/Continue Enter/select
BackKey Back(Go to previous screen) Up/Left
ForwardKey Forward(Go to next screen) Down/Right
MainMenuKey Open main menu Exit/Cancel',
'type' => 'leaf',
'value_type' => 'uniline'
}
],
'name' => 'LCDd::lcdm001'
Config-Model-TkUI
view release on metacpan or search on metacpan
lib/Config/Model/TkUI.pm view on Meta::CPAN
$cw->{current_mode} = 'view';
$cw->setup_scanner();
# create top menu
require Tk::Menubutton;
my $menubar = $cw->Menu;
$cw->configure( -menu => $menubar );
$cw->{my_menu} = $menubar;
my $file_items = [
[ qw/command wizard -command/, sub { $cw->wizard } ],
Config-Model-Xorg
view release on metacpan or search on metacpan
fallback_models/Xorg.pl view on Meta::CPAN
},
'altwin',
{
'value_type' => 'enum',
'help' => {
'alt_super_win' => 'Alt is mapped to the right Win-key and Super to Menu.',
'meta_alt' => 'Alt and Meta are on the Alt keys (default).',
'super_win' => 'Super is mapped to the Win-keys (default).',
'left_meta_win' => 'Meta is mapped to the left Win-key.',
'menu' => 'Add the standard behavior to Menu key.',
'hyper_win' => 'Hyper is mapped to the Win-keys.',
'meta_win' => 'Meta is mapped to the Win-keys.'
},
'type' => 'leaf',
'choice' => [
fallback_models/Xorg.pl view on Meta::CPAN
'value_type' => 'enum',
'help' => {
'sclk_toggle' => 'Scroll Lock changes group',
'ctrl_shift_toggle' => 'Control+Shift changes group.',
'win_switch' => 'Both Win-keys switch group while pressed.',
'menu_toggle' => 'Menu key changes group.',
'rwin_switch' => 'Right Win-key switches group while pressed.',
'rwin_toggle' => 'Right Win-key changes group.',
'ctrl_alt_toggle' => 'Alt+Control changes group.',
'lwin_toggle' => 'Left Win-key changes group.',
'rctrl_switch' => 'Right Ctrl key switches group while pressed.',
fallback_models/Xorg.pl view on Meta::CPAN
'win_switch' => 'Press any of Win-keys to choose 3rd level.',
'lwin_switch' => 'Press Left Win-key to choose 3rd level.',
'rwin_switch' => 'Press Right Win-key to choose 3rd level.',
'ralt_switch_multikey' => 'Press Right Alt key to choose 3rd level, Shift+Right Alt key is Multi_Key',
'lalt_switch' => 'Press Left Alt key to choose 3rd level.',
'menu_switch' => 'Press Menu key to choose 3rd level.',
'switch' => 'Press Right Control to choose 3rd level.',
'alt_switch' => 'Press any of Alt keys to choose 3rd level.'
},
'type' => 'leaf',
'choice' => [
fallback_models/Xorg.pl view on Meta::CPAN
'value_type' => 'enum',
'help' => {
'rwin' => 'Right Win-key is Compose.',
'ralt' => 'Right Alt is Compose.',
'caps' => 'Caps Lock is Compose',
'menu' => 'Menu is Compose.',
'rctrl' => 'Right Ctrl is Compose.'
},
'type' => 'leaf',
'choice' => [
'ralt',
Control-CLI-AvayaData
view release on metacpan or search on metacpan
lib/Control/CLI/AvayaData.pm view on Meta::CPAN
my %LoginPatterns = ( # Patterns to check for during device login (Telnet/Serial) and initial connection to CLI
bell => "\x07",
banner => 'Enter Ctrl-Y to begin',
menu => 'Use arrow keys to highlight option, press <Return> or <Enter> to select option',
submenu => 'Press Ctrl-R to return to previous menu. Press Ctrl-C to return to Main Menu',
username => 'Enter Username: ',
password => "Enter Password: \e[?", # Should match only on the initial password prompt and not subsequent ones where * are printed
lastlogin => 'Failed retries since last login:',
localfail => 'Incorrect',
radiusfail => 'Access Denied from RADIUS',
lib/Control/CLI/AvayaData.pm view on Meta::CPAN
$self->put(string => $CTRL_Y, errmode => 'return')
or return $self->poll_return($self->error("$pkgsub: Unable to send CTRL-Y sequence // ".$self->errmsg));
next;
}
elsif ($pattern eq 'menu') { # We got the menu, send a 'c' and get into CLI
$self->debugMsg(8,"\nlogin() Processing Stackable Menu\n\n");
$self->put(string => 'c', errmode => 'return')
or return $self->poll_return($self->error("$pkgsub: Unable to select 'Command Line Interface...' // ".$self->errmsg));
next;
}
elsif ($pattern eq 'submenu') { # We are in a sub-menu page, send a 'CTRL_C' to get to main menu page
$self->debugMsg(8,"\nlogin() Processing Stackable Sub-Menu page\n\n");
$self->put(string => $CTRL_C, errmode => 'return')
or return $self->poll_return($self->error("$pkgsub: Unable to go back to main menu page // ".$self->errmsg));
next;
}
elsif ($pattern =~ /^more\d$/) { # We are connecting on the console port, and we are in the midst of more-paged output
lib/Control/CLI/AvayaData.pm view on Meta::CPAN
$ok = $obj->login_poll();
($ok, $output || $outputRef) = $obj->login_poll();
This method handles login authentication for Telnet and Serial port access (also for SSH access in the case of the WLAN2300 WSS controllers, since they use no SSH authentication but instead use an interactive login once the SSH connection is establis...
On success the method returns a true (1) value. On failure the error mode action is performed. See errmode().
In non-blocking mode (blocking disabled) the login() method will most likely immediately return with a false, but defined, value of 0. You will then need to call the login_poll() method at regular intervals until it returns a true (1) value indicatin...
In the first form only a success/failure value is returned in scalar context, while in the second form, in list context, both the success/failure value is returned as well as any output received from the host device during the login sequence; the lat...
This method internally uses the readwait() method and by default sets the read_attemps for it to 10 (which is a safe value to ensure proper connection to any Avaya Networking device); the read_attempts argument provided by login() can be used to over...
Control-CLI-Extreme
view release on metacpan or search on metacpan
lib/Control/CLI/Extreme.pm view on Meta::CPAN
my %LoginPatterns = ( # Patterns to check for during device login (Telnet/Serial) and initial connection to CLI
bell => "\x07",
banner => 'Enter Ctrl-Y to begin',
menu => 'Use arrow keys to highlight option, press <Return> or <Enter> to select option',
submenu => 'Press Ctrl-R to return to previous menu. Press Ctrl-C to return to Main Menu',
username => 'Enter Username: ',
password => "Enter Password: \e[?", # Should match only on the initial password prompt and not subsequent ones where * are printed
lastlogin => 'Failed retries since last login:',
localfail => 'Incorrect',
localfail_xos => 'Login incorrect',
lib/Control/CLI/Extreme.pm view on Meta::CPAN
$self->put(string => $CTRL_Y, errmode => 'return')
or return $self->poll_return($self->error("$pkgsub: Unable to send CTRL-Y sequence // ".$self->errmsg));
next;
}
elsif ($pattern eq 'menu') { # We got the menu, send a 'c' and get into CLI
$self->debugMsg(8,"\nlogin() Processing Stackable Menu\n\n");
$self->put(string => 'c', errmode => 'return')
or return $self->poll_return($self->error("$pkgsub: Unable to select 'Command Line Interface...' // ".$self->errmsg));
next;
}
elsif ($pattern eq 'submenu') { # We are in a sub-menu page, send a 'CTRL_C' to get to main menu page
$self->debugMsg(8,"\nlogin() Processing Stackable Sub-Menu page\n\n");
$self->put(string => $CTRL_C, errmode => 'return')
or return $self->poll_return($self->error("$pkgsub: Unable to go back to main menu page // ".$self->errmsg));
next;
}
elsif ($pattern =~ /^more\d$/) { # We are connecting on the console port, and we are in the midst of more-paged output
lib/Control/CLI/Extreme.pm view on Meta::CPAN
$ok = $obj->login_poll();
($ok, $output || $outputRef) = $obj->login_poll();
This method handles login authentication for Telnet and Serial port access (also for SSH access in the case of the WLAN2300 WSS controllers, since they use no SSH authentication but instead use an interactive login once the SSH connection is establis...
On success the method returns a true (1) value. On failure the error mode action is performed. See errmode().
In non-blocking mode (blocking disabled) the login() method will most likely immediately return with a false, but defined, value of 0. You will then need to call the login_poll() method at regular intervals until it returns a true (1) value indicatin...
In the first form only a success/failure value is returned in scalar context, while in the second form, in list context, both the success/failure value is returned as well as any output received from the host device during the login sequence; the lat...
This method internally uses the readwait() method and by default sets the read_attemps for it to 10 (which is a safe value to ensure proper connection to any Extreme Networking device); the read_attempts argument provided by login() can be used to ov...
Convert-MRC
view release on metacpan or search on metacpan
t/01-correct_example.t view on Meta::CPAN
</martifHeader>
<text>
<body>
<termEntry id="C003">
<descripGrp>
<descrip type="subjectField">Restaurant Menus</descrip>
</descripGrp>
<langSet xml:lang="fr">
<tig id="C003fr1">
<term>poulet</term>
<termNote type="partOfSpeech">noun</termNote>
t/01-correct_example.t view on Meta::CPAN
</tig>
</langSet>
</termEntry>
<termEntry id="C005">
<descripGrp>
<descrip type="subjectField">Restaurant Menus</descrip>
</descripGrp>
<transacGrp>
<transac type="transactionType">origination</transac>
<date>2007-01-31</date>
<transacNote type="responsibility" target="R007">Jill</transacNote>
Cookie
view release on metacpan or search on metacpan
lib/Cookie/public_suffix_list.txt view on Meta::CPAN
// men : Exclusive Registry Limited
// https://www.iana.org/domains/root/db/men.html
men
// menu : Dot Menu Registry, LLC
// https://www.iana.org/domains/root/db/menu.html
menu
// merckmsd : MSD Registry Holdings, Inc.
// https://www.iana.org/domains/root/db/merckmsd.html
Courriel
view release on metacpan or search on metacpan
t/data/stress-test/mbox_mime_applemail_1xb.txt view on Meta::CPAN
Content-Type: text/plain;
charset=US-ASCII;
format=flowed
It's standard container managed security stuff - I first invoke a
protected URL - in index.jsp - I redirect to mainMenu.do - and *.do is
protected. Based on security constraints in web.xml, I'm presented
with a form-login-page "login.jsp" - rather than having
action="j_security_check" in this form, I have
action="/security/authorize" - which is mapped to my own LoginServlet.
In the LoginServlet, I encrypt the password (optionally based on an
Crypt-SSLeay
view release on metacpan or search on metacpan
+ Connects to buggy SSLv2 sites as well as SSLv3
sites & normal SSLv2 sites.
Buggy SSLv2: https://banking.wellsfargo.com
SSLv3: https://www.accountonline.com/CB/MainMenu.idcl
SSLv2: https://www.nodeworks.com
$MODULE=Crypt::SSLeay; $VERSION = .11; $DATE="1999-08-10";
+ Worked through __umoddi3 undef symbol error
Curses-Devkit
view release on metacpan or search on metacpan
use Cdk::Itemlist;
use Cdk::Label;
use Cdk::Marquee;
use Cdk::Matrix;
use Cdk::Mentry;
use Cdk::Menu;
use Cdk::Radio;
use Cdk::Scale;
use Cdk::Scroll;
use Cdk::Selection;
use Cdk::Slider;
Curses-Simp
view release on metacpan or search on metacpan
$main->FlagCVis(); # reset cursor visibility to calling object state
return($data); # return updated text data
}
}
# Focu() is a Curses::Simp method which give focus to special
# typed objects like CheckBoxes or DropDownMenus.
# Maybe later, it will change the border type / color of normal
# Simp object windows as they gain focus.
sub Focu{
my $self = shift; return() unless(exists($self->{'_type'}));
my $updt = shift || 0; my $char = -1; my $tchr;
Curses-UI-Grid
view release on metacpan or search on metacpan
examples/grid-demo.pl view on Meta::CPAN
{ -label => 'File', -submenu => $file_menu },
{ -label => 'Select demo', -submenu => $demo_menu },
];
$cui->add('menu', 'Menubar', -menu => $menu);
# ----------------------------------------------------------------------
# Setup bindings and focus
# ----------------------------------------------------------------------
Curses-UI-POE
view release on metacpan or search on metacpan
examples/color_editor view on Meta::CPAN
# a tail on that file to see the STDERR output. Example:
#open STDERR, ">>/tmp/editor_errors.$$";
open STDERR, ">/dev/null";
# ----------------------------------------------------------------------
# Menu definition
# ----------------------------------------------------------------------
my @menu = (
{ -label => 'File',
-submenu => [
examples/color_editor view on Meta::CPAN
-color_support => 1
);
# Add the menu to the root.
my $menu = $cui->add(
'menu','Menubar',
-fg => "white",
-bg => "blue",
-menu => \@menu,
);
Curses-UI
view release on metacpan or search on metacpan
lib/Curses/UI.pm view on Meta::CPAN
=item L<Curses::UI::Label>
=item L<Curses::UI::Listbox>
=item L<Curses::UI::Menubar>
=item L<Curses::UI::MenuListbox> (used by Curses::UI::Menubar)
=item L<Curses::UI::Notebook>
=item L<Curses::UI::PasswordEntry>
Curses
view release on metacpan or search on metacpan
@ISA = qw(Curses);
sub new { new_panel(@_) }
sub DESTROY { }
package Curses::Menu;
@ISA = qw(Curses);
sub new { new_menu(@_) }
sub DESTROY { }
CursesApplication
view release on metacpan or search on metacpan
example/file.pl view on Meta::CPAN
__DATA__
%forms = (
MainFrm => {
TABORDER => [qw(Menu lstSource lstDest)],
FOCUSED => 'lstSource',
WIDGETS => {
Menu => {
TYPE => 'Menu',
MENUS => {
MENUORDER => [qw(File)],
File => {
ITEMORDER => [qw(Exit)],
Exit => \&main::quit,
CursesWidgets
view release on metacpan or search on metacpan
=item List Box (Curses::Widgets::ListBox)
=item Multicolumn List Box (Curses::Widgets::ListBox::MultiColumn)
=item Menu (Curses::Widgets::Menu)
=item Progress Bar (Curses::Widgets::ProgressBar)
=item Text Field (Curses::Widgets::TextField)
DBD-MVS_FTPSQL
view release on metacpan or search on metacpan
lib/DBD/MVS_FTPSQL.pm view on Meta::CPAN
(next to these, you might have others, like the Stored Procedures
address space and the IRLM (Integrated Resource Lock Manager) address
space, but naming for these is not fixed)
You should be able to identify your SSID's via SDSF's "Status
Display" (option ST on SDSF's Primary Option Menu).
Use the following subcommands to show the various types of fixed
address spaces:
SELECT *MSTR
SELECT *DBM1
DBD-Oracle
view release on metacpan or search on metacpan
examples/ora_explain.pl view on Meta::CPAN
$SqlMarker select owner, index_name from all_indexes
where table_name = :1 and table_owner = :2
));
$qry->execute($row->{OBJECT_NAME}, $row->{OBJECT_OWNER})
|| die("Table indexes:\n$DBI::errstr\n");
my $menu = $PlanMain->Menu(-tearoff => 0, -disabledforeground => "#000000");
$menu->command(-label => "Indexes", -state => "disabled");
$menu->separator();
my $count = 0;
while ((my ($index_owner, $index_name) = $qry->fetchrow_array()))
examples/ora_explain.pl view on Meta::CPAN
foreach my $bn (values(%sort_bn))
{ $bn->configure(-state => "normal"); }
}
};
### Menubar
my $menubar = $GrabMain->Frame(-relief => "raised", -borderwidth => 3);
$menubar->pack(-fill => "x");
my $menubar_file = $menubar->Menubutton(-text => "File", -underline => 0);
$menubar_file->command(-label => "Save File ...", -underline => 0,
-command => sub { save_dialog($PlanMain, $GrabSql); });
$menubar_file->separator();
$menubar_file->command(-label => "Capture SQL", -underline => 0,
-command => $grab_cb);
examples/ora_explain.pl view on Meta::CPAN
-command => sub { copy_sql($GrabSql, $GrabSelection); });
$menubar_file->command(-label => "Close", -underline => 1,
-command => sub { $GrabMain->withdraw(); });
$menubar_file->pack(-side => "left");
my $menubar_help = $menubar->Menubutton(-text => "Help", -underline => 0);
$menubar_help->command(-label => "About ...", -underline => 0,
-command => sub { about($GrabMain); });
$menubar_help->command(-label => "Usage ...", -underline => 0,
-command => sub { help($GrabMain); });
$menubar_help->pack(-side => "right");
examples/ora_explain.pl view on Meta::CPAN
$PlanMain->update();
}
else
{ shift(@ARGV); }
### Menubar
my $menubar = $PlanMain->Frame(-relief => "raised", -borderwidth => 3);
# Create a bold font $ figure out charcter spacing
my $t = $PlanMain->Text();
my $f = $t->cget(-font);
examples/ora_explain.pl view on Meta::CPAN
$CharWidth = $PlanMain->fontMeasure($f, "X");
undef($f);
$t->destroy();
undef($t);
my $menubar_file = $menubar->Menubutton(-text => "File", -underline => 0);
$menubar_file->command(-label => "Login ...", -underline => 0,
-command => sub { login_dialog($PlanMain); });
$menubar_file->command(-label => "Schema ...", -underline => 2,
-command => sub { schema_dialog($PlanMain); });
$menubar_file->command(-label => "Explain", -underline => 0,
examples/ora_explain.pl view on Meta::CPAN
$menubar_file->separator();
$menubar_file->command(-label => "Exit", -underline => 1,
-command => sub { $Db->disconnect() if ($Db); exit(0); });
$menubar_file->pack(-side => "left");
my $menubar_help = $menubar->Menubutton(-text => "Help", -underline => 0);
$menubar_help->command(-label => "About ...", -underline => 0,
-command => sub { about($PlanMain); });
$menubar_help->command(-label => "Usage ...", -underline => 0,
-command => sub { help($PlanMain); });
$menubar_help->pack(-side => "right");
DBIx-BabelKit
view release on metacpan or search on metacpan
doc/main.css view on Meta::CPAN
P.Menu {
font-family : Arial, Helvetica, sans-serif;
font-size : 14px;
}
P.Copy {
DBIx-Class-CustomPrefetch
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libhtml-tidy-perl", "HTML-Tidy", "1.08", "0", "0"
"libhtml-tiny-perl", "HTML-Tiny", "1.05", "1", "0"
"libhtml-tree-perl", "HTML-Tree", "3.23", "2", "0"
"libhtml-treebuilder-xpath-perl", "HTML-TreeBuilder-XPath", "0.11", "0", "0"
"libhtml-widget-perl", "HTML-Widget", "1.11", "0", "0"
"libhtml-widgets-navmenu-perl", "HTML-Widgets-NavMenu", "1.0302", "0", "0"
"libhtml-wikiconverter-dokuwiki-perl", "HTML-WikiConverter-DokuWiki", "0.53", "0", "0"
"libhtml-wikiconverter-kwiki-perl", "HTML-WikiConverter-Kwiki", "0.51", "0", "0"
"libhtml-wikiconverter-markdown-perl", "HTML-WikiConverter-Markdown", "0.02", "2", "0"
"libhtml-wikiconverter-mediawiki-perl", "HTML-WikiConverter-MediaWiki", "0.59", "0", "0"
"libhtml-wikiconverter-moinmoin-perl", "HTML-WikiConverter-MoinMoin", "0.53", "1", "0"
DBIx-CodeKit
view release on metacpan or search on metacpan
doc/main.css view on Meta::CPAN
P.Menu {
font-family : Arial, Helvetica, sans-serif;
font-size : 14px;
}
P.Copy {
DBIx-DBStag
view release on metacpan or search on metacpan
scripts/ubiq view on Meta::CPAN
my $menu = [
{ -label => 'File', -submenu => $file_menu },
{ -label => 'Select', -submenu => $select_menu },
];
$cui->add('menu', 'Menubar', -menu => $menu);
my $w0 = $cui->add(
'w0', 'Window',
-border => 1,
-y => -1,
( run in 1.908 second using v1.01-cache-2.11-cpan-49f99fa48dc )