The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Интерактивная система просмотра системных руководств (man-ов)

 ТемаНаборКатегория 
 
 [Cписок руководств | Печать]

Tk::Optionmenu (3)
  • >> Tk::Optionmenu (3) ( Разные man: Библиотечные вызовы )
  •  

    NAME

    Tk::Optionmenu - Let the user select one of some predefined options values
     
    

    SYNOPSIS

        use Optionmenu;
    
    

        $opt = $w->Optionmenu(
                            -options => REFERENCE_to_OPTIONLIST,
                            -command => CALLBACK,
                            -variable => SCALAR_REF,
                            );
    
    

        $opt->addOptions( OPTIONLIST );
    
    

        # OPTION LIST is
        #   a)  $val1, $val2, $val3,...
        #   b)  [ $lab1=>$val1], [$lab2=>val2], ... ]
        #   c)  combination of a) and b), e.g.,
        #       val1, [$lab2=>val2], val3, val4, [...], ...
    
    
     

    DESCRIPTION

    The Optionmenu widget allows the user chose between a given set of options.

    If the user should be able to change the available option have a look at Tk::BrowseEntry.  

    OPTIONS

    -options
    (Re)sets the list of options presented.
    -command
    Defines the callback that is invokes when a new option is selected.
    -variable
    Reference to a scalar that contains the current value of the selected option.
    -textvariable
    Reference to a scalar that contains the text label of the current value of the selected option.
     

    METHODS

    addOptions
    Adds OPTION_LIST to the already available options.
     

    EXAMPLE

     use Tk;
     my $mw = MainWindow->new();
    
    

     my ($var, $tvar);
     my $opt = $mw->Optionmenu(
            -options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]],
            -command => sub { print "got: ", shift, "\n" },
            -variable => \$var,
            -textvariable => \$tvar
           )->pack;
    
    

     $opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);
    
    

     my $f = $mw->Frame(-relief=>'groove', -borderwidth => 2)->pack;
     $f->Label(-textvariable=>\$tvar)->pack(-side => 'left');
     $f->Label(-text => " -> ")->pack(-side => 'left');
     $f->Label(-textvariable=>\$var)->pack(-side => 'left');
    
    

     $mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;
    
    

     MainLoop;
    
    
     

    SEE ALSO

    Tk::Menubutton, Tk::BrowseEntry


     

    Index

    NAME
    SYNOPSIS
    DESCRIPTION
    OPTIONS
    METHODS
    EXAMPLE
    SEE ALSO


    Поиск по тексту MAN-ов: 




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру