Discussion :

[clmin]

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 :

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

-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

[dmganges]

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 :

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
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 !";
		}
	},
);

[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.

[dmganges]

OK, vu, bonne continuation...

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

Code :

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

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 :

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

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},
);

[dmganges]

Petit exemple :

Couleurs.pl :

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
#!/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 :

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

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