Discussion :

[strach]

Bonsoir

Je fais une interface en tk, dans une frame, je crée un widget:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$l_voir = $frame -> scrolled ('text');

Voilà le bout de code qui pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$l_voir -> delete (0, 'end');

J'ai un message d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Tk::Error: bad text index "0" at /usr/lib/perl5/Tk.pm line 225, <SOCK_CLI> line 17.
 Tk callback for .frame2.frame.text
 Tk::__ANON__ at /usr/lib/perl5/Tk.pm line 225
 Tk::Derived::Delegate at /usr/lib/perl5/Tk/Derived.pm line 467
 Tk::Widget::__ANON__ at /usr/lib/perl5/Tk/Widget.pm line 313
 main::consulter at ./desarchiveur_client_dev.pl line 228
 [\&main::consulter]
 Tk callback for .button2
 Tk::__ANON__ at /usr/lib/perl5/Tk.pm line 225
 Tk::Button::butUp at /usr/li

On dirait qu'il ne veut pas de mon index = 0, or cela marche avec un widget listbox à la place de text. Une différence entre le widget text et listbox non documenté ? Non-documenté = pas trouvé

[Hide]

Je te donne un site de mon ancien prof qui est dédié pour les 3/4 au Tk.

http://lionel.romain.free.fr

[strach]

Merci pour le lien Hide, j'avais déjà fait un tour sur ce site.

Bon, je me répond, en fait il suffit de faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$l_voir -> delete ('0.0','end');

Par contre pourquoi un '0.0' marche alors que 0 ne marche pas, je n'en sais rien !!!