getitems(1F) FMLI Commands getitems(1F)NAME
getitems - returns a list of currently marked menu items
SYNOPSIS
getitems [delimiter_string]
DESCRIPTION
The getitems function returns the value of lininfo if defined, else it returns the value of the name descriptor, for all currently marked
menu items. Each value in the list is delimited by delimiter_string. The default value of delimiter_string is newline.
EXAMPLES
Example 1 A sample output of getitems command.
The done descriptor in the following menu definition file executes getitems when the user presses ENTER (note that the menu is multise-
lect):
Menu="Example"
multiselect=TRUE
done=`getitems ":" | message`
name="Item 1"
action=`message "You selected item 1"`
name="Item 2"
lininfo="This is item 2"
action=`message "You selected item 2"`
name="Item 3"
action=`message "You selected item 3"`
If a user marked all three items in this menu, pressing ENTER would cause the following string to be displayed on the message line:
Item 1:This is item 2:Item 3
NOTES
Because lininfo is defined for the second menu item, its value is displayed instead of the value of the name descriptor.
ATTRIBUTES
See attributes(5) for descriptions of the following attributes:
+-----------------------------+-----------------------------+
| ATTRIBUTE TYPE | ATTRIBUTE VALUE |
+-----------------------------+-----------------------------+
|Availability |SUNWcsu |
+-----------------------------+-----------------------------+
SEE ALSO attributes(5)SunOS 5.11 5 Jul 1990 getitems(1F)
Check Out this Related Man Page
Menu::Item(3) User Contributed Perl Documentation Menu::Item(3)NAME
Tk::Menu::Item - Base class for Menu items
SYNOPSIS
require Tk::Menu::Item;
my $but = $menu->Button(...);
$but->configure(...);
my $what = $but->cget();
package Whatever;
require Tk::Menu::Item;
@ISA = qw(Tk::Menu::Item);
sub PreInit
{
my ($class,$menu,$info) = @_;
$info->{'-xxxxx'} = ...
my $y = delete $info->{'-yyyy'};
}
DESCRIPTION
Tk::Menu::Item is the base class from which Tk::Menu::Button, Tk::Menu::Cascade, Tk::Menu::Radiobutton and Tk::Menu::Checkbutton are
derived. There is also a Tk::Menu::Separator.
Constructors are declared so that $menu->Button(...) etc. do what you would expect.
The "-label" option is pre-processed allowing ~ to be prefixed to the character to derive a "-underline" value. Thus
$menu->Button(-label => 'Goto ~Home',...)
is equivalent to
$menu->Button(-label => 'Goto Home', -underline => 6, ...)
The "Cascade" menu item creates a sub-menu and accepts these options:
-menuitems
A list of items for the sub-menu. Within this list (which is also accepted by Menu and Menubutton) the first two elements of each item
should be the "constructor" name and the label:
-menuitems => [
[Button => '~Quit', -command => [destroy => $mw]],
[Checkbutton => '~Oil', -variable => $oil],
]
-postcommand
A callback to be invoked before posting the menu.
-tearoff
Specifies whether sub-menu can be torn-off or not.
-menuvar
Scalar reference that will be set to the newly-created sub-menu.
The returned object is currently a blessed reference to an array of two items: the containing Menu and the 'label'. Methods "configure"
and "cget" are mapped onto underlying "entryconfigure" and "entrycget".
The main purpose of the OO interface is to allow derived item classes to be defined which pre-set the options used to create a more basic
item.
BUGS
This OO interface is very new. Using the label as the "key" is a problem for separaror items which don't have one. The alternative would be
to use an index into the menu but that is a problem if items are deleted (or inserted other than at the end).
There should probably be a PostInit entry point too, or a more widget like defered 'configure'.
perl v5.16.3 2014-06-10 Menu::Item(3)