Perl TK - Обтекание текста в виджете Entry

Question

Я создал таблицу, которая содержит столбец "Ключ", столбец "Значение" и столбец "Новое значение", как показано на рисунке ниже. Столбцы "Ключ" и "Значение" реализованы в виде меток, столбец "Значение", как вы можете видеть, перенесен. Столбец "Новое значение" реализован как виджет "Запись", поскольку он должен быть редактируемым. Существует кнопка "Копировать и вставить", которая копирует значение в поле "Новое значение". Я хотел бы обернуть текст в виджете "Ввод", поэтому после нажатия кнопки он будет выглядеть как текст в поле "Значение".

Изображение, которое показывает таблицу, которую я построил, и разницу между обернутой меткой и текстом в поле ввода

Вот фрагмент кода, который определяет показанные столбцы:

        my $key_label = $table->Label(-text => $key , -width => 50, -bg => $background_color, -anchor => 'w', -relief => $relief_style, -wraplength => 300)->pack(-side => 'left');
        $table->put($curr_row,1,$key_label);
        my $orig_val_label = $table->Label(-text => $full_cfg_hash{$key}{'old_value'}, -width => 50, -bg => $background_color, -anchor => 'w',  -relief => $relief_style, -wraplength => 300)->pack(-side => 'left');
        $table->put($curr_row,2,$orig_val_label);
        my $new_val_entry = $table->Entry(-text => $full_cfg_hash{$key}{'new_value'}, -width => $entry_size, -bg => $background_color)->pack( -side => 'left', -fill => 'both', -expand => 'yes');
        $table->put($curr_row,3,$new_val_entry);
        my $copy_paste_btn = $table->Button(-text => "Copy & Edit\nOld Value", -command => [\&copy_n_edit_old_value,$full_cfg_hash{$key}{'old_value'},$new_val_entry], -bg => $buttons_background, -foreground => $buttons_text_color)->pack(-side => 'left', -padx => 5);
        $table->put($curr_row,4,$copy_paste_btn);

Answer 1

Виджет Tk::Text предназначен для многострочного ввода текста, обычно в сочетании с Tk:: Scrolled, что-то вроде:

my $new_val_entry = $table->Scrolled(
    'Text',
    -width      => 40,
    -height     => 3,
    -wrap       => 'word',
    -scrollbars => 'e',
    -font       => $my_font,
)->pack(
    -expand => 1,
    -fill   => 'both',
    -padx   => 5,
    -pady   => 5,
);