Perl TK : Bug avec scrolled dans notebook
Bonjour ,
J'ai un problème lorsque j'utilise Scrolled dans une page de NoteBook
Lorsque la dernière ligne dépasse la taille horizontale de la page , l'ascenseur s'affiche mais
Mais il recouvre la dernière ligne , il n'y a donc plus de ligne qui dépasse la taille max
L'ascenseur horizontal disparaît , et le phénomène part en boucle , bloquant l'application
Voici ci-dessous un exemple
Est-ce que quelqu'un à une solution pour régler ce problème ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| #!/usr/bin/perl
use Tk;
use Tk::NoteBook;
$main = MainWindow->new();
$main->geometry("200x100");
$book = $main->NoteBook()->pack(-fill=>'both',-expand=>1);
$page = $book->add( "page",-label=>"Page");
$frame = $page->Scrolled('Text',-scrollbars=>'osoe',-wrap=>'none')->pack(-fill=>'both',-expand=>1);
$frame->insert('end',"1\n2\n3\n4\n555555555555555555555555555");
MainLoop; |
