Bonjour,

j'aimerais que la scrollbar défile automatiquement au fur et à mesure du texte qui s'affiche (afin que l'on ne doive pas la descendre pour voir les dernières lignes qui viennent de s'afficher)
J'ai trouvé ce script sur le net (je ne sais plus où) qui affiche une centaine de ligne mais où la scroll ne défile pas.
Je n'arrive pas à le modifer pour faire ce que je veux.
Si quelqu'un a une idée?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
 
use Tk;
 
my $fenetre_principale = MainWindow->new( -title => 'Test' );
my $widget_texte = $fenetre_principale->Scrolled('Text',
  -scrollbars => 'osoe',
  -background => '#F3EFFF',
)->pack( );
for (1..100) {
  $widget_texte->insert('end', "$_ : Ligne $_ : exemple\n");
}
 
MainLoop;