redimensionner un checkbutton avec image

[chalu133]

Bonjour,
Je débute en Tk/Perl et j'ai un problème avec des checkbutton.
J'affecte des images a des checkbutton .

Je voudrais diminuer la taille de la patie "bouton" du checkbutton mais an gardant une grande taille de l'image du bouton.

Actuellement la partie bouton à la même taille que l'image et c'est pas terrible au niveau graphique...
Les images font 10cmx10cm et je voudrais que la partie qui représente la validation du bouton fasse environ 2cm
Est-ce possible , car j'arrive uniquement à changer la taille de l'image
Merci.

[djibril]

Il faudrait nous montrer un exemple de ton code.

[chalu133]

Bonsoir,
Jai refait la partie du code qui utilise les checkbutton, car je ne peux pas transférer celui de mon systeme Linux du boulot...(voir ci dessous)

En executant le code sur PC Window XP (ActivePerl) je me rends compte que je n'est pas le problème comme sur mon systeme Linux !

Sur PC: Petite cases à cochet et grandes images=> Bon Rendu visuel=>OK
Sous Linux: Grandes cases a cochet , de la taille de l'image==>ce qui me pose problème ==> Pas OK!!

Y a t-il une solution pour ne pas avoir ce problème sous Linux ?
Merci ..
===================

Code :

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
57
58
59
60
61
62
63
64
65
66
67
68
69
#!C:\perl -w
use strict;
use warnings;
use Tk;
use Tk::Photo;
use Tk::PNG;
use Tk::JPEG;
use Tk::Pane;
# Programme principal
# Creation de la fenetre
my $fenetre = new MainWindow(
  -title      => "button image",
  -background => "white",
);    
 
my $widget_photo = $fenetre->Scrolled('Frame',
  -scrollbars => 'se',
  -width => 600,
  -height => 600,
)->grid( );
 
 
 
 
my $MessageAccueil = "Image selection for report\n";
$fenetre->Label( 
  -text => $MessageAccueil,
  -background => "blue",  
)->grid();
 
my $i=1;
my $r_cnt=1;
my $c_cnt=1;
my @selected_picture;
for (1..8) {
 
 
my $ObjImage="image".$i;
my $picture="img".$i.".jpg";
$ObjImage = $widget_photo->Photo( -file => "$picture" );
 
my $bouton2 = $widget_photo-> Checkbutton (
    -image => $ObjImage,
		-command => [\&Actionbouton],
		-onvalue => $picture,
		-offvalue=>0,
)->grid(-row => $r_cnt,
		-column =>$c_cnt,
 
);
$bouton2->select();
$i++;
$r_cnt++;
	if ($i eq 3) {
		$c_cnt++;
		$r_cnt=1;
		}
 
}
my $bt3=$fenetre->Button (
	- text=>"Sortie",
	-foreground => "red",
	-command => sub {exit;},
	)->grid();
MainLoop();
sub Actionbouton {
print "Run the action command ....\n";
print "Select\n";
}

===================

[chalu133]

Salut,
Quelqu un à t il une idée pour mon problème de checkbutton sous Linux?
Merci..

[djibril]

Peux-tu nous faire une capture d'écran du rendu sous Linux et sous Windows ?

[chalu133]

Voila 2 JPG., montrant le rendu sous window et sous Linux.
Comme tu vois, sous Linux, en vert les boutons sont mis a la taille de l'image, alors que sous window ils reste de taille petite.
Peut-on changer la taille , sous Linux ?

[djibril]

Je viens de tester sous Windows et Linux et en effet, y a un souci. Je n'ai pas trouvé de solution dans la documentation. Je te recommande de ne pas utiliser d'images ! C'est radical, mais au moins, tu ne seras plus embêté.

N.B. J'ai fait remonter le bogue au concepteur du module Tk.

[chalu133]

Merci pour l'info
Je vais voir comment modifier le code car il faut vraiment que j'affiche les images et que l'utilisateur puisse choisir lesquelles seront mises dans son rapport...peut-etre utiliser du texte sue les boutons et afficher a coté les images correspondantes . il faudra ensuite faire le lien entre le bouton et l'image. Je vais étudier cela ...

[djibril]

Dans ce cas, tu fais deux widgets collés. Un checkboutton sans image et un widget label contenant l'image à coté.