Как запустить начальную подпрограмму после открытия нового окна?

Question

В моем скрипте Perl / Tk я открываю новые окна, и я хочу, чтобы при открытии окна запускалась начальная подпрограмма (при каждом открытии окна) Как я могу это сделать?

Answer 1

Один из способов - вызвать подпрограмму из кода, который создает и / или вызывает окно.Если вы хотите, чтобы вызов был привязан к самому действию , а не к вызову этого действия (возможно, из-за того, что окно может быть открыто из нескольких мест в коде), вам необходимосоздать привязку события.Например,

$window->bind('<Map>', \&mysub);

В зависимости от того, что именно вы пытаетесь сделать, вы можете вместо этого привязать события Create, Activate или Visibility.Дополнительную информацию смотрите в документации по типу события Tk .