|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexandra 2:5020/400 29 Nov 2002 13:22:26 To : Alexandra Subject : Re: Tk::JComboBox -------------------------------------------------------------------------------- Привет! Пояснение к вчерашнему письму. Пример: ---------------------------------------------------------------- use Tk; use Tk::JComboBox; my $mw = MainWindow->new; my @items = qw(red blue yellow green orange purple brown black white); my $jcb = $mw->JComboBox( -choices => \@items, -highlightthickness => 0, -relief => 'groove', )->pack( -padx => 20, -pady => 20); MainLoop; ------------------------------------------------------------------ Имеется JComboBox-defined options -selectcommand про которую написано: Sets a callback to be executed everytime a list item is selected. The callback is passed two parameters (in addition to any others you defined): the selected index, and the selected value. There is no default callback Вот при помощи этой -selectcommand не удается вызвать какую-либо подпрограмму, и Perl с -w не ругается. Сейчас буду разбираться. Тому, кто подскажет как это сделать правильно, огромное спасибо! --- ifmail v.2.15dev5 * Origin: DS (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/8428d87096f8.html, оценка из 5, голосов 10
|