Discussion :

[dmganges]

Bonjour, et pardon me revoilà avec mes chaînes arabes

Pour simplifier je pars de l'exemple donné dans Perl/Tk de Nancy Walsh p176.
Dans la gestion des claviers sous Windows7 j'ai ajouté un clavier arabe (101) Égypte, mais peu importe lequel.
Constats :
- Lorsque je charge le fichier toto.txt :

- les chaînes utf8 sont correctes,
- la chaîne arabe est décalée vers la gauche,
- lorsque je place le focus de clavier en début de chaîne arabe (à droite) il semble y avoir des caractères intercalés, "de gestion ?"
- lorsque je clique sur la chaine arabe elle se trouve désorganisée, en cliquant en fin de chaîne (à gauche) elle retrouve sa forme correcte.

- Si je démarre avec un scrolled vide :

- lorsque je saisis des caractères avec le clavier arabe un "caractère de gestion ?" est ajouté sur la droite de la chaîne pour chaque caractère saisi,
- si je sauvegarde dans un fichier titi.txt et que je le lis avec Notepad ou Ultraedit il est correct ! pas de caractères supplémentaires !
- j'en déduis qu'il ne s'agit qu'un d'un problème d'affichage dans le scrolled.

Questions :
- existe t-il une possibilité d'afficher correctement des chaînes arabes dans un scrolled, éventuellement en gérant les indices ? mais là ce n'est pas de mon niveau, et ce doit être lourd...
ET/OU :
- est-il possible d'invalider (au moins) le clic gauche de la souris dans le scrolled ? TOUT en conservant la possibilité de scroller avec l’ascenseur vertical à tant que faire !

MERCI d'avance !

J'ai bien essayé avec çà trouvé sur le net :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
...
$mw->bind('<ButtonRelease-1>' => \&print_keysym);
$t->bindtags(undef);
...
MainLoop;
...
sub print_keysym {
    my($widget) = @_;
    my $e = $widget->XEvent;    # get event object
    my($keysym_text, $keysym_decimal) = ($e->K, $e->N);
    print "keysym=$keysym_text, numeric=$keysym_decimal\n";
#    $widget->bindtags(undef);
}

C'est OK sur une Listbox : le undef est brutal -> ET plus possible de scroller!.. mais sur un Scrolled ça fait QUE DALLE.

NB : Mon besoin est limité, je n'ai pas besoin de modifier le texte dans le scrolled. Un Scrolled en ROText ne résout aucun des deux pb. J'ai fait un essai avec une Listbox en remplacement d'un scrolled :
- là les chaînes arabes sont correctes, pas de scissions ni de caractères supplémentaires, mais :

- justification à gauche seulement
- en cas de chaînes longues il faut prévoir un scroll horizontal : pas terrible pour lire...

Voici les éléments du mini essai :

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
#!/usr/bin/perl
#
#	Saisie arabe
#
use warnings;
use strict;
use utf8;
use Encode;
use encoding 'utf8';
use Tk;
 
my ( $nom_fic, $t, $Ligne, $line, $texte, $info ) = ();
 
my $Wm = MainWindow->new;
my $IN_Fic  = "lolo.txt";
 
# Crée les widgets nécessaires
my $cadre =$Wm->Frame->pack(
	-side => 'top',
	-fill => 'x');
 
$cadre->Label(
	-text => "Nom du fichier : "
)->pack(-side => 'left', -anchor => 'w');
 
$cadre->Entry(
	-textvariable =>\$nom_fic
)->pack(-side => 'left', -anchor => 'w', -fill => 'x', -expand => 1);
 
$cadre->Button(
	-text => "Fin", -command => sub { exit; }
)->pack(-side => 'right');
 
$cadre->Button(
	-text => "Sauvegarder", -command => \&sauve_fic
)->pack(-side => 'right', -anchor => 'e');
 
$cadre->Button(
	-text => "Charger", -command => \&lire_fic
)->pack(-side => 'right', -anchor => 'e');
 
$cadre->Label(
	-textvariable =>\$info,
	-relief => 'ridge'
)->pack(-side => 'bottom', -fill => 'x');
 
$texte = $Wm->Scrolled("Text"
)->pack(-side => 'bottom', -fill => 'both', -expand => 1);
 
$texte->tagConfigure('gras',
	-font => "{Simplified Arabic} 24 {bold}", -justify => 'right',);
 
 
MainLoop;
 
# Lire
sub lire_fic {
my	$info = "Chargement du fichier '$IN_Fic...";
#my 	$texte->delete("1.0", "end");
	if (!open(FIC, "$nom_fic")) {
		$t->insert("end", "ERREUR : Impossible d'ouvrir $nom_fic\n");
		return;
	}
	while (<FIC>) {
		$line = $_ ;
		$texte->insert("end", $line ,'gras');
		$texte->insert("end","\n");
	}
	close (FIC);
	$info = "Fichier '$IN_Fic' charg.";
}
 
# Sauve
sub sauve_fic {
	$info = "Sauvegarde de '$IN_Fic'...";
	open (FIC, ">$IN_Fic");
	binmode(FIC, ":utf8");
	print FIC $texte->get("1.0", "end");
	$info = "Fichier '$IN_Fic' sauvegard.";
}

Dans un fichier toto.txt en utf8 j'ai les 3 chaînes suivantes :

Farid se lève.
فَرِيد يَشْرَبُ الْمَاء
Farid boit de l'eau.

[djibril]

Il serait utile que tu nous mettes des captures d'écran pour que l'on puisse voir également ce qu'il se produit chez toi.

Un conseil, évite l'utilisation du code use encoding 'utf8';, je recommande de n'utiliser que le module Encode, puis de jouer avec l'encodage au moment voulu en utilisant UTF-8 et non utf8, ce n'est pas pareil. utf8 = encodage de Perl. Néanmoins, il faut tout de même conserver use utf8;.

De plus, prends toujours l'habitude d'utiliser la fonction open avec 3 arguments.

Sinon voici ton code un légèrement modifié :

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
#!/usr/bin/perl
#
#	Saisie arabe
#
use warnings;
use strict;
use utf8;
use Encode;
use Tk;
 
my ( $nom_fic, $t, $Ligne, $line, $texte, $info ) = ();
 
my $Wm = MainWindow->new;
my $IN_Fic = 'lolo.txt';
 
# Crée les widgets nécessaires
my $cadre =$Wm->Frame->pack(
	-side => 'top',
	-fill => 'x'
);
 
$cadre->Label(
	-text => 'Nom du fichier : '
)->pack(-side => 'left', -anchor => 'w');
 
$cadre->Entry(
	-textvariable =>\$nom_fic
)->pack(-side => 'left', -anchor => 'w', -fill => 'x', -expand => 1);
 
$cadre->Button(
	-text => 'Fin', -command => sub { exit; }
)->pack(-side => 'right');
 
$cadre->Button(
	-text => 'Sauvegarder', -command => \&sauve_fic
)->pack(-side => 'right', -anchor => 'e');
 
$cadre->Button(
	-text => 'Charger', -command => \&lire_fic
)->pack(-side => 'right', -anchor => 'e');
 
$cadre->Label(
	-textvariable =>\$info,
	-relief => 'ridge'
)->pack(-side => 'bottom', -fill => 'x');
 
$texte = $Wm->Scrolled('Text'
)->pack(-side => 'bottom', -fill => 'both', -expand => 1);
 
$texte->tagConfigure('gras',
	-font => '{Simplified Arabic} 24 {bold}', 
  -justify => 'right',
);
 
 
MainLoop;
 
# Lire
sub lire_fic {
my	$info = "Chargement du fichier $IN_Fic...";
 	$texte->delete('1.0', 'end');
  $nom_fic = $texte->getOpenFile();
 
  # Je lis un fichier de type UTF-8
	open FIC, '<:encoding(UTF-8)', $nom_fic or $t->insert('end', "ERREUR : Impossible d'ouvrir $nom_fic\n"), return;
	while ( <FIC> ) {
		$texte->insert('end', $_ ,'gras');
		$texte->insert('end',"\n");
	}
	close FIC;
	$info = "Fichier '$IN_Fic' charg.";
 
	return;
}
 
# Sauve
sub sauve_fic {
	$info = "Sauvegarde de '$IN_Fic'...";
	open FIC, '>', $IN_Fic;
	binmode FIC, encoding('UTF-8');
	print FIC $texte->get('1.0', 'end');
	close FIC;
	$info = "Fichier '$IN_Fic' sauvegard.";
 
	return;
}

Voici ce que j'obtiens :

• à l'ouverture du fichier (affichage_normal.png) ;
• pointeur sur la gauche du texte arabe (affichage_normal_souris_gauche.png) ;
• pointeur sur la droite du texte arabe (affichage_normal_souris_droite.png).

Je n'ai donc pas de changement d'affichage du texte et je suis sous XP.
Le texte est justifié à droite (normal vu qu'en arabe on lit de droite à gauche). Je ne vois pas ce que tu sous entends par caractères intercalés.
Quand je clique sur le texte arabe, Tk me sélectionne une portion de texte, ce qui est logique, le texte n'est pas déformé (affichage_normal_clic.png).

[dmganges]

Encore et toujours MERCI djibril de te pencher sur mes problèmes !
ATTENTION ...

Merci aussi pour tes conseils, pour le Open c'est OK !

En lançant ton code modifié :
1 - je n'obtiens pas la même chose que toi, chez moi les caractères arabes sont correctement liés entre eux alors que chez toi ils sont tous dissociés, Un peu comme si on écrivait en français en caractères d'imprimerie majuscules.
2 - à l'ouverture du fichier, j'ai un écran Windows pour choisir mon fichier, je ne souhaite pas passer par cette étape. Mais çà ce n'est pas important.

Voici ce que j'obtiens chez moi :

Chaîne arabe décalée sur la gauche :
http://cjoint.com/?ALhkhJX7q4F

Chaîne arabe désorganisée lorsque je clique dessus :
http://cjoint.com/?ALhkjtDo2Hd
فَرِيد
est passé en fin de phrase, complètement à gauche et le reste c'est du n'importe quoi !

En arabe il n'y a pas la notion Majuscule/Minuscule mais à l'intérieur d'un mot les lettres se lient comme en français minuscule. Un mot est constitué de lettres plus ou moins liées, comme ceci :

فَرِيد يَشْرَبُ الْمَاء

cà c'est ce qu'on doit obtenir, cadré à droite sans rien devant, ni derrière d'ailleurs.
Et surtout lorsqu'on clique dessus il ne faut pas que les lettres changent de place, c'est ce qui se passe chez moi !

Je suis étonné que tu n'aies pas la même chose que moi, au moins des lettres liées...

[djibril]

Ah là c'est plus clair et en effet, on a pas du tout le même affichage !
Je vais tester ton programme sous un Linux pour voir.

[djibril]

Je pense que mon suci est dû à la police interne sur mon poste Windows. Pour créer le fichier toto.txt, j'ai fait un copié -coller de la phrase arabe que tu as mise sur le forum et j'obtiens au coller une phrase arabe avec chaque caractère séparé au lieu de :

Farid se lève.
فَرِيد يَشْرَبُ الْمَاء
Farid boit de l'eau.

Donc, là déjà je coince !

[dmganges]

Concernant le programme original, sur linux il te faudra supprimer tout ce qui concerne le son et en particulier :
use Win32::MediaPlayer;
Pour l'instant j'ai abandonné l'idée de le faire fonctionner sous linux.

Mais depuis le début de mes piètres essais, au niveau de l'affichage j'ai le même comportement du scrolled tant sous XP, que Windows7 que Linux Mdv :
décalage vers la gauche + scission quand je clique avec la souris sur la chaîne.

Je me cantonnais à ne pas cliquer dans la zone de texte !

Mais depuis que tu m'as fait une superbe interface, je rage d'avoir le joli et pas le fonctionnel !!!
Alors j'ai reprit mes investigations avec le petit module inspiré de O'REILLY pour me cantonner sur le scolled text, et t'en fait profiter

Ce n'est pas faute d'avoir chercher, mais visiblement dès qu'il s'agit d'afficher de l'arabe ou des chaînes sémitiques (droite à gauche + liaisons spécifiques des caractères) il y a beaucoup de soucis et peu de solution...
Ceci dit, ça fonctionne en HTML sur les sites arabes : http://www.aljazeera.net/portal/