очистка элементов текстового поля в perl tk

Question

Я создаю графический интерфейс в Perl tk, и я сделал кнопку сброса, которая должна очистить элементы текстового поля:

use Tk;
use Tk::Text ;
............
sub reset9 {
    $txt2-> delete('1.0','end');
}

Это выдает ошибку о том, что он не может вызвать метод Delete для неопределенного значения. Я проверил все синтаксические ошибки и использую Strawberry Perl для Windows.

Answer 1

Вы можете попробовать: $ txt2-> delete ('0.0', 'end');

Answer 2

Ваша подпрограмма не знает, что такое $ txt2.Если $ txt2 был определен внутри другой подпрограммы, добавьте слово «our» перед ним (вместо использования my).

т.е.

our $txt2 = ...

Это должно помочь вам