éléments de la boîte de texte de compensation en perl tk

Question

Je construis une interface graphique en tk Perl et moi avons fait un bouton de remise à zéro qui est censé effacer les éléments d'une zone de texte:

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

Ce donne une erreur disant qu'il Impossible d'appeler la méthode Delete sur une valeur indéfinie. J'ai vérifié toutes les erreurs de syntaxe et j'utilise Strawberry Perl pour Windows.

Answer 1

Votre sous-programme ne sait pas ce que $ txt2 est. Si $ txt2 a été défini dans un autre sous-programme, ajoutez le mot "notre" avant (au lieu d'utiliser my).

à savoir

our $txt2 = ... 

Cela devrait faire l'affaire pour vous

Answer 2

Vous pouvez essayer: $ txt2-> supprimer ('0.0', 'fin');