Tk:: отзывы позволяет определять код для Tk, чтобы звонить.

РЕЗЮМЕ

Можно определить отзыв одним из следующих способов:

Без параметров:

... => ⊂name...
... => sub {...}...
... => methodname...

или с параметрами:

... => [⊂name?, args...?]...
... => [sub {...}?, args...?]...
... => [methodname?, args...?]...

У Perl/Tk есть отзыв, где у Tcl/Tk есть командная строка (то есть фрагмент Tcl, который будет выполнен). perl/Tk отзыв может взять одну из следующих канонических форм:

Справочная информация на подпрограмму ⊂name
Анонимная подпрограмма (закрытие) sub {...}
Имя метода methodname

Любому из них можно предоставить параметры, прилагая их и параметры в []. Вот некоторые примеры:

$mw-> связывает ($class, "" => Удаляют);

Это будет звонить, $widget-> Удаляют, обеспечиваемый $widget (связывают) как тот, где клавиша DELETE была нажата.
В то время как наличие связывает, обеспечивают, объект виджета для Вас идеален во многих случаях, это может быть раздражающим в других. Используя форму списка может быть изменено это поведение:

$a-> связывает ("", [$b => Удаляет]);

потому что первый $b элемента - объект, связывают, будет звонить, $b-> Удаляют.

Отметьте, что метод/объект, упорядочивающий только, имеет значение для, связывают отзывы, автоцитирование в perl5.001 делает первого из них немного более читаемым:

$w-> выбор конфигурации (-yscrollcommand => [набор => $ysb]);
$w-> выбор конфигурации (-yscrollcommand => [$ysb => набор]);

но оба назовут $ysb-> набор (args предоставленный Tk)
Другое использование параметров позволяет Вам писать обобщенные методы, которые легче к повторному использованию:

$a-> связывает ("", [Затем, Страница]);
$a-> связывает ("", [Затем, Линия]);

Это назовет $a-> Затем (Страница) или $a-> Затем (Линия) соответственно.

Отметьте, что содержание [] оценено perl, когда отзыв создан. Часто желательно для параметров, обеспеченных отзыву зависеть от деталей случая, который заставил это быть выполненным. Чтобы учесть это, отзывы могут быть вложены, используя "конструктор" Ev (...). Ev (...) вставляет объекты отзыва в список параметров. Когда код клея perl/Tk готовит список параметров к отзыву, это собирается звонить, это определяет эти специальные объекты и рекурсивно применяет процесс отзыва к ним.

ПРИМЕРЫ

$entry-> связывает (=> [$w, утвердите, Ev (добираются)]);

$toplevel-> связывает (все, [&unobscure, Ev (s)]);

$mw-> связывает ($class, [SetCursor, Ev (UpDownLine, 1)]);