Discussion :

[Invité]

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;