Tk:: Optionmenu позволит пользователю выбирать одно из некоторых предопределенных значений опций.

РЕЗЮМЕ

используйте Optionmenu;

$opt = $w-> Optionmenu (
- опции => REFERENCE_to_OPTIONLIST,
- команда => ОТЗЫВ,
- переменная => SCALAR_REF,
);

$opt-> addOptions (OPTIONLIST);

# СПИСОК ОПЦИЙ
# a) $val1, $val2, $val3...
# b) [$lab1 => $val1], [$lab2 => val2]...]
# c) комбинация a) и b), например,
# val1, [$lab2 => val2], val3, val4, [...]...

Виджет Optionmenu позволяет, что пользователь выбрал между данным набором опций.

Если пользователь должен быть в состоянии измениться, доступная опция взглянули на Tk:: BrowseEntry.

ОПЦИИ

- опции

(Ре) устанавливает список представленных опций.

- команда

Определяет отзыв, который является, вызывает, когда новая опция отобрана.

- переменная

Справочная информация на скаляр, который содержит текущее значение отобранной опции.

-textvariable

Справочная информация на скаляр, который содержит текстовую метку текущего значения отобранной опции.

МЕТОДЫ

addOptions

Добавляет OPTION_LIST к уже доступным опциям.

ПРИМЕР

используйте Tk;
мой $mw = MainWindow-> новый ();

мой ($var, $tvar);
мой $opt = $mw-> Optionmenu (
- опции => [[январь => 1], [февраль => 2], [ударили => 3], [апрель => 4]],
- команда => sub {печать "добралась:", сдвиг, "n"},
- переменная => $var,
-textvariable => $tvar
)-> пакет;

$opt-> addOptions ([может => 5], [июнь => 6], [июль => 7], [август => 8]);

мой $f = $mw-> Рамка (-облегчение => углубление,-borderwidth => 2)-> пакет;
$f-> Метка (-textvariable => $tvar)-> пакет (-сторона => оставленный);
$f-> Метка (-текст => "->")-> пакет (-сторона => оставленный);
$f-> Метка (-textvariable => $var)-> пакет (-сторона => оставленный);

$mw-> Кнопка (-текст => Выход, - команда => sub {$mw-> разрушают})-> пакет;

MainLoop;