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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager