Я адаптировал код из книги Брента Уэлча, чтобы мой блок entry можно было заполнить с помощью listbox . Можно ли улучшить приведенный ниже код? Кроме того, я хочу преобразовать этот код в виджет, чтобы любой, кто использует базу кода, мог повторно...

Все, что я хотел, это многострочный текстовый ввод. Поэтому я использовал TK::Text вместо TK::Entry. use Tk; my $mw = MainWindow->new(-width => '1000', -relief => 'flat', -height => '840', -title => 'Test', -background =>...