Tk::DirTree n'affiche pas les dossiers dont le nom contient une lettre accentuée

**nibroc** · 31/07/2009, 11h29

Bonjour,
J'utilise ActivePerl 5.8 sous Windows XP (édition familiale service Pack3)
mon programme commence par :

Code :

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

1
2
3
4
5
#!/perl/bin/perl -w
use utf8;
use strict ;
use Tk;
use Tk::DirTree;

Les caractères accentués s'affichent correctement dans la Listbox que
j'utilise, mais les dossiers (répertoires) dont le nom comporte une lettre accentuée ou un c cédille (ex: "Fichiers reçus") ne sont pas affichés dans
le DirTree, c'est comme s'ils n'existaient pas.
Si j'enlève la ligne "use utf8" et si j'utilise l'encodage "Windows classique" cela ne change absolument rien au problème !
Merci d'avance.
Nibroc.

**djibril** · 31/07/2009, 12h05

Salut,

Bienvenu sur le forum.
L'idéal serait de proposer un code plus complet afin que les forumeurs puissent le tester sans avoir à le réécrire.

Merci

**djibril** · 31/07/2009, 12h17

Voici un exemple de script testé, mais je n'ai pas de soucis avec mes répertoires avec accents ou c cédille.

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
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::DirTree;
 
my $mw = MainWindow->new();
 
my $dl = $mw->Scrolled(
  'DirTree',
  -scrollbars       => 'osoe',
  -width            => 35,
  -height           => 20,
  -selectmode       => 'browse',
  -exportselection  => 1,
  -background       => 'white',
  -selectforeground => 'white',
  -selectbackground => '#8C97F5',
  -directory        => 'C:/',
)->pack( -expand => 1, -fill => 'both' );
 
MainLoop();

**nibroc** · 31/07/2009, 12h54

Merci pour la réponse,
Voici mon ébauche de programme dans l'état actuel :
(J'ai fait un copier-coller et les indentations ont disparues et le ::
entre Tk et DirTree est devenu un smiley !)

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
#!/perl/bin/perl -w
use utf8;
use strict ;
use Tk;
use Tk::DirTree;
my $mw=MainWindow->new(-title=>'Tree');
my $dt=$mw->Scrolled("DirTree",-scrollbars=>'e',-directory=>"C:/",
    -command=>\&change)->pack(-fill=>'both',-expand=>1,-ipadx=>150,-ipady=>100,-padx=>5,-pady=>5);
$dt->configure(-background =>"#ccffcc", -showhidden=>1) ;
$dt->Subwidget("yscrollbar")->configure(-background => "lightgreen",-troughcolor => "blue") ;
$mw->Label(-text=>"Répertoire sélectionné :")->pack;
my $repertoire="Aucun répertore sélectionné !" ;
$mw->Label(-textvariable=>\$repertoire,-font=>[-size=>7,-weight=>"bold"])->pack ;
my @files ;
my $lb=$mw->Scrolled("Listbox",-scrollbars=>"e")->pack(-fill=>'both',-expand=>1);
$mw->Button(-text=>'Quitter',-command=>sub {exit})->pack(-side=>'bottom',-padx=>5,-pady=>5);
 
 
MainLoop;
sub change
{
  my $nd=shift;chdir $nd; $repertoire=$nd;
  @files=() ; $lb->delete(0,'end') ;
  my @allfiles=() ;
  opendir DH,$nd ;
  @allfiles=readdir DH ;
  closedir DH ;
  foreach (@allfiles)
  {
    if(-f $_)
    {
      push(@files,$_) ;
      $lb->insert('end',$_) ;
    }
  }
}

Envoyé par djibril

Salut,

Bienvenu sur le forum.
L'idéal serait de proposer un code plus complet afin que les forumeurs puissent le tester sans avoir à le réécrire.

Merci

**djibril** · 31/07/2009, 12h56

Veuillez utiliser la prochaine fois les balises codes afin d'améliorer la lisibilité du code sur le forum.
Pour cela, sélectionner votre code et cliquer sur #

Merci

**nibroc** · 31/07/2009, 12h58

Très curieux, j'ai moi ça ne marche pas !

Envoyé par djibril

Voici un exemple de script testé, mais je n'ai pas de soucis avec mes répertoires avec accents ou c cédille.

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
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::DirTree;
 
my $mw = MainWindow->new();
 
my $dl = $mw->Scrolled(
  'DirTree',
  -scrollbars       => 'osoe',
  -width            => 35,
  -height           => 20,
  -selectmode       => 'browse',
  -exportselection  => 1,
  -background       => 'white',
  -selectforeground => 'white',
  -selectbackground => '#8C97F5',
  -directory        => 'C:/',
)->pack( -expand => 1, -fill => 'both' );
 
MainLoop();

**djibril** · 31/07/2009, 13h01

Utiliser

Code :

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

use utf8;

ne suffit pas, il faut que votre script soit également en utf8. Cela se règle via votre éditeur de texte.

**djibril** · 31/07/2009, 13h04

Votre script suivant fonctionne très bien :

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
#!/perl/bin/perl
use warnings;
use strict;
use utf8;
use Tk;
use Tk::DirTree;
my $mw = MainWindow->new( -title => 'Tree' );
my $dt = $mw->Scrolled(
    "DirTree",
    -scrollbars => 'e',
    -directory  => "C:/",
    -command    => \&change
    )->pack(
    -fill   => 'both',
    -expand => 1,
    -ipadx  => 150,
    -ipady  => 100,
    -padx   => 5,
    -pady   => 5
    );
$dt->configure( -background => "#ccffcc", -showhidden => 1 );
$dt->Subwidget("yscrollbar")
    ->configure( -background => "lightgreen", -troughcolor => "blue" );
$mw->Label( -text => "Répertoire sélectionné :" )->pack;
my $repertoire = "Aucun répertore sélectionné !";
$mw->Label(
    -textvariable => \$repertoire,
    -font         => [ -size => 7, -weight => "bold" ]
)->pack;
my @files;
my $lb = $mw->Scrolled( "Listbox", -scrollbars => "e" )
    ->pack( -fill => 'both', -expand => 1 );
$mw->Button(
    -text    => 'Quitter',
    -command => sub {exit}
)->pack( -side => 'bottom', -padx => 5, -pady => 5 );
 
MainLoop;
 
sub change {
    my $nd = shift;
    chdir $nd;
    $repertoire = $nd;
    @files      = ();
    $lb->delete( 0, 'end' );
    my @allfiles = ();
    opendir DH, $nd;
    @allfiles = readdir DH;
    closedir DH;
 
    foreach (@allfiles) {
        if ( -f $_ ) {
            push( @files, $_ );
            $lb->insert( 'end', $_ );
        }
    }
}

**nibroc** · 31/07/2009, 13h20

Je croyais avoir sauver mon script en utf8 avec PSPad, mais comme ça ne fonctionne pas correctement j'ai des doutes. Dans le menu "Format", j'ai bien coché "utf-8".
Comment être sûr que le fichier est sauver en utf8 ?

Envoyé par djibril

Utiliser

Code :

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

use utf8;

ne suffit pas, il faut que votre script soit également en utf8. Cela se règle via votre éditeur de texte.

**djibril** · 31/07/2009, 13h25

J'utilise aussi PSPAD

.
Format => clique sur utf8 => et sauvegarde du fichier et moi ça suffit.

**nibroc** · 31/07/2009, 16h21

Envoyé par djibril

J'utilise aussi PSPAD

.
Format => clique sur utf8 => et sauvegarde du fichier et moi ça suffit.

C'est ce que je fais, mais chez moi, ça ne marche pas.
Ça vient peut-être des choix dans "Options régionales et linguistiques" du panneau de configuration ? Je vais regarder de ce côté.
Merci pour l'aide.
Nibroc

**nibroc** · 20/08/2009, 23h27

Je viens de désinstaller entièrement Perl 5.8.6, puis j'ai installé Perl 5.10 (et tous les modules que j'avais avant) et là : tout marche bien, DirTree affiche tous les répertoires comme "Mes vidéos" ou encore "Mes fichiers reçus" etc.
Le problème venait donc de la version de Perl.
Merci pour l'aide.

Tk::DirTree n'affiche pas les dossiers dont le nom contient une lettre accentuée

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager