Discussion :

[viking1404]

Bonjour,

je dois développer une application qui sera utilisée depuis un écran tactile. Les personnes qui vont utiliser mon programme ne sont "pas très habille". J'ai donc décidé de mettre tout mes widget en gros, très gros !
(J'ai eu du mal à faire rentrer un clavier sur un ecran 17" tellement les touches sont grosses)

Maintenant je dois faire une liste de boutons avec une scrollbar pour les faire défiler. J'ai commencé à lire la doc pour faire une liste de bouton. A priori pas trop de problèmes mais, concernant la taille de la scrollbar je ne vois pas trop comment faire.
En fait je voudrais que la largeur de la scrollbar soit au moins doublée.
J'ai essayé ceci sans résultat :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $fenetre = $fenetre->Scrolled
(	
		'Button',
#modification de la taille
		-height => 50, 
		-width => 50,
		-scrollbars => 'ne'
);

A quel endroit je peux modifier ma scrollbar ?

[djibril]

La méthode la plus simple pour créer une barre de défilement est celle que tu utilise, c'est à dire utiliser Scrolled, plus l'option -scrollbars.
Par contre, dès qu'on souhaite faire des choses moins classique, l'idéal de créer soi même sa barre de défilement en utilisant la méthode Scrollbar.

Ainsi, tu pourras modifier la largeur de la barre.

[djibril]

ex:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/perl
use Tk;
use warnings;
use strict;
use Tk::Pane;
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
    -title      => "Fenetre grid",
    -background => "white",
);
 
my $BarreHor = $fenetre->Scrollbar( -orient => 'horizontal');
my $BarreVer = $fenetre->Scrollbar( -width => 50 );
 
my $FramePane = $fenetre->Pane(
  -height => 500,
  -width => 500,
  -yscrollcommand => ['set',$BarreVer],
  -xscrollcommand => ['set',$BarreHor],
);
 
$BarreHor->configure( -command => ['xview', $FramePane], );
$BarreVer->configure( -command => ['yview', $FramePane], );
 
$BarreVer->pack( qw/-side right -fill y/ );
$BarreHor->pack( qw/-side bottom -fill x/ );
$FramePane->pack( qw/ -fill both -expand 1/ );
 
# 6 boutons
my $Bouton1 = $FramePane->Button( -text => "Num1", -height => 50, -width => 50,);
my $Bouton2 = $FramePane->Button( -text => "Num2", -height => 50, -width => 50, );
my $Bouton3 = $FramePane->Button( -text => "Num3", -height => 50, -width => 50, );
my $Bouton4 = $FramePane->Button( -text => "Num4", -height => 50, -width => 50, );
my $Bouton5 = $FramePane->Button( -text => "Num5", -height => 50, -width => 50, );
my $Bouton6 = $FramePane->Button( -text => "Num6", -height => 50, -width => 50, );
 
$Bouton1->grid($Bouton2, $Bouton3);
$Bouton4->grid($Bouton5,$Bouton6);
 
MainLoop();

[viking1404]

J'ai testé le code que tu as fourni mais, ca ne fonctionne pas.
Enfin la scrollbar est toujours de la même largeur que par défaut.
Pourtant si je comprend bien le code, la scrollbar doit avoir une largeur de 50 ?

[djibril]

en fait il fonctionne mais il y a un bug.
si tu teste ce code, tu as l'impression que le scrollbar ne change pas de taille. Si tu augmente la taille de la fenêtre avec la souris, tu verras qu'il sera mis à jour.

Pour contourner le bug, rajoute ceci avant mainloop

Code :

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

1
2
$fenetre->update;
$fenetre->geometry( $fenetre->width+1 . "x" . $fenetre->height . "+0+0" );

[viking1404]

Exacte ça fonctionne maintenant !

Merci beaucoup

[viking1404]

Désolé mais, j'ai encore une question.
Si je mets les boutons et la scrollbar dans une Frame, j'ai le même problème qu'avant. Il faut modifier la taille de la fenêtre pour que le scrollbar prenne la bonne taille.
Voici ton code que j'ai repris :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
#!/usr/bin/perl
use Tk;
use warnings;
use strict;
use Tk::Pane;
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
    -title      => "Fenetre grid",
    -background => "white",
);
$fenetre->geometry("1023x710+0+0");
 
my $uneFrame = $fenetre->Frame(); 
 
my $BarreHor = $uneFrame->Scrollbar( -orient => 'horizontal');
my $BarreVer = $uneFrame->Scrollbar( -width => 50 );
 
my $FramePane = $uneFrame->Pane(
  -height => 500,
  -width => 500,
  -yscrollcommand => ['set',$BarreVer],
  -xscrollcommand => ['set',$BarreHor],
);
 
$BarreHor->configure( -command => ['xview', $FramePane], );
$BarreVer->configure( -command => ['yview', $FramePane], );
 
$BarreVer->pack( qw/-side right -fill y/ );
$BarreHor->pack( qw/-side bottom -fill x/ );
$FramePane->pack( qw/ -fill both -expand 1/ );
 
# 6 boutons
my $Bouton1 = $FramePane->Button( -text => "Num1", -height => 50, -width => 50,);
my $Bouton2 = $FramePane->Button( -text => "Num2", -height => 50, -width => 50, );
my $Bouton3 = $FramePane->Button( -text => "Num3", -height => 50, -width => 50, );
my $Bouton4 = $FramePane->Button( -text => "Num4", -height => 50, -width => 50, );
my $Bouton5 = $FramePane->Button( -text => "Num5", -height => 50, -width => 50, );
my $Bouton6 = $FramePane->Button( -text => "Num6", -height => 50, -width => 50, );
 
$Bouton1->grid($Bouton2, $Bouton3);
$Bouton4->grid($Bouton5,$Bouton6);
 
$uneFrame->pack(
	-pady => 50,
	-padx => 50,
	-ipadx => 50,
	-ipady => 50,
);
$uneFrame->update; #j'ai teste ca mais ca ne fonctionne pas ...
$fenetre->update;
$fenetre->geometry( $fenetre->width+1 . "x" . $fenetre->height . "+0+0" );
 
MainLoop();

[djibril]

vire

Code :

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

$fenetre->geometry("1023x710+0+0");

en debut de code et tu le mets à la fin de la sorte :

Code :

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

1
2
3
4
5
6
7
8
9
10
$uneFrame->pack(
	-pady => 50,
	-padx => 50,
	-ipadx => 50,
	-ipady => 50,
);
 
$fenetre->update;
$fenetre->geometry("1023x710+0+0"); 
MainLoop();

Et là ça fonctionne

[viking1404]

Exacte ca fonctionne .
Pour l'application que je dois faire je suis obligé de rajouter 1 pixel en largeur et en hauteur pour que ça fonctionne.
C'est un peu "crade" comme solution mais bon : it works !

Merci !