Images fournies par tk

Version imprimable

16/01/2015, 14h58
clmin

Images fournies par tk

Bonjour,
je suis en train de faire une barre menu et pour une fois j'aimerai avoir des images avec le texte des sous-menu.
Je sais qu'il faut ajouter

Code:

-image => $fenetre->Getimage("nomdelimage")

mais je me demandais s'il existait quelque part le recensement des images fournies par défaut avec tk. Parce qu'à moins d'être dans un tuto, je ne connais pas les nom des images, ni à quoi elles ressemblent.
Idéalement un tableau nom/image comme il en existe pour les couleurs
(celui que j'utilise tout le temps: http://www.rtapo.com/notes/named_colors.html )

Merci

Bonjour,
Pour Tk tu as un sous-forum spécifique ICI

Sinon ton pb en dessous est-il réglé ?

Enfin pour ta question :

Perso dans mon appli :
1) j'ai un répertoire qui contient les images
Et dans le pgm ça donne :

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
use Tk::Photo;
...

my $RepBase    = 'E:/_APPLI/Regex/';
my $Bulb       = 'E:/_APPLI/Regex/Images/Bulb.gif';
my $Plus       = 'E:/_APPLI/Regex/Images/Plus.gif';
my $Moins      = 'E:/_APPLI/Regex/Images/Moins.gif';
my $Insert     = 'E:/_APPLI/Regex/Images/Insert.gif';

##Et par exemple pour avoir une image sur des boutons :

#############
# Regex Moins
$Moins = $Wm->Photo( -file => $Moins );
my $bouton_regMoins = $cadre_gestion->Button(
	-image    => $Moins,
	-text    => "  -  ",
	-command => sub {
		confirmation($Wm, "Faut-il supprimer la regex  $RegEdit  de la liste d'option ?") if ( $config{GLOBAL}{confirm} eq 'OUI');
		if ($Reponse eq "OUI") {
			#push @LesRegex, $RegEdit;
			my @RegTemp;
			foreach my $Reg ( @LesRegex ) {
				if ( $Reg ne $VarReg ) {
					push @RegTemp, $Reg;
				}
			}
			@LesRegex = @RegTemp;
			$option_regex->configure(
				-options      => \@LesRegex,
			);
			$FlagSave++;
			$LabMessage = "Regex  $RegEdit  supprimée !";
		} else {
			$LabMessage = "Liste des regex non modifiée !";
		}
	},
);

# Regex Plus
$Plus = $Wm->Photo( -file => $Plus );
my $bouton_regPlus = $cadre_gestion->Button(
	-image    => $Plus,
	#-text    => "  +  ",
	-command => sub {
		confirmation($Wm, "Faut-il ajouter la regex  $RegEdit  à la liste d'option ?") if ( $config{GLOBAL}{confirm} eq 'OUI');
		if ($Reponse eq "OUI") {
			push @LesRegex, $RegEdit;
			$option_regex->configure(
				-options      => \@LesRegex,
			);
			$FlagSave++;
			$LabMessage = "Regex  $RegEdit  ajoutée !";
		} else {
			$LabMessage = "Liste des regex non modifiée !";
		}
	},
);


#############
# Regex Moins
$Moins = $Wm->Photo( -file => $Moins );
my $bouton_regMoins = $cadre_gestion->Button(
	-image    => $Moins,
	-text    => "  -  ",
	-command => sub {
		confirmation($Wm, "Faut-il supprimer la regex  $RegEdit  de la liste d'option ?") if ( $config{GLOBAL}{confirm} eq 'OUI');
		if ($Reponse eq "OUI") {
			#push @LesRegex, $RegEdit;
			my @RegTemp;
			foreach my $Reg ( @LesRegex ) {
				if ( $Reg ne $VarReg ) {
					push @RegTemp, $Reg;
				}
			}
			@LesRegex = @RegTemp;
			$option_regex->configure(
				-options      => \@LesRegex,
			);
			$FlagSave++;
			$LabMessage = "Regex  $RegEdit  supprimée !";
		} else {
			$LabMessage = "Liste des regex non modifiée !";
		}
	},
);

16/01/2015, 15h47
clmin

Je vois, je vais copier tout les nom du dossier et me les lire en boucle dans un fichier. Ça me fera mon tableau.
Merci, et désolé pour l'erreur de forum!

Au passage, j'ai marqué "résolu" pour ma question précédente. Pas sûre d'où venait le problème, mais bon maintenant ça marche.

OK, vu, bonne continuation...

Éventuellement fais-en un hash que tu utilises pour initialiser ce qui va bien...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
###############################
# Scrolled qui affiche le texte
my $widget_input = $Wm->Scrolled(
  'Text',
  -scrollbars => 'e',
  -takefocus  => 0,
  -font       => '{Simplified Arabic} 14 {bold}',
  -height     => '6',
  -wrap       => 'word',
  -relief     => 'groove',
  -background => '#ABFAA3',
);

Code:

1
2
3
4
5
6
7
8
9
10
11
12
###############################
# Scrolled qui affiche le texte
my $widget_input = $Wm->Scrolled(
  'Text',
  -scrollbars => 'e',
  -takefocus  => 0,
  -font       => '{Simplified Arabic} 14 {bold}',
  -height     => '6',
  -wrap       => 'word',
  -relief     => 'groove',
  -background => $Couleur{MidnightBlue},
);

Petit exemple :

Couleurs.pl :

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
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use Tk;
use Config::Std;													# Lecture/ecriture d'un fichier .ini
 
my $RepBase    = 'E:/_DEV/clmin/';
 
# Lecture du fichier des couleurs
my $fichier_couleurs = File::Spec->catfile( $RepBase, 'Couleurs.ini' );
my %Couleurs;
if ( -e $fichier_couleurs ) {
 	read_config $fichier_couleurs => %Couleurs;
}
else {
 	%Couleurs = (
   	'GLOBAL' => {
   		Debug	=> 'OUI',
   	},
   	'COULEUR' => {
   		'MidnightBlue' => '#191970',
   		'DarkGreen'    => '#006400',
   		'purple4'      => '#5d478b',
		},
 	);
}
 
# Creation du widget principal
my $Wm = MainWindow->new(
	-width			=> 250,
	-height			=> 150,
	-title      => "Couleurs",
  -background => $Couleurs{COULEURS}{purple4},
);
 
MainLoop;

Couleurs.ini :

Code:

1
2
3
4
5
6
7
8
9
[GLOBAL]
Debug: OUI
 
[COULEURS]
MidnightBlue: #191970
DarkGreen: #006400
purple4: #5d478b
 
[FIN]