Perl Tk Chaînes arabes dans un Scrolled Text

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

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 :

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 :

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/

[djibril]

Peux-tu me donner un fichier avec du texte arabe à l'intérieur ?

[dmganges]

Voici une exécution sur linux mdv, l'exemple O'REILLY, le mien comme le tien donne le même résultat :

http://cjoint.com/?ALhoNYnoQm4

!!! Seulement lorsque tu as du temps de libre !!!

[djibril]

À mon avis, c'est tout bête, mais reste à trouver !
C'est une histoire d'encodage, mais je ne sais pas où chercher.

[dmganges]

Fichier avec 5 petites phrases arabes :

http://cjoint.com/?ALhoU2PZpYl

ou :

مَاذَا يَشْرَبُ عَفِيف ؟
عَفِيف يَشْرَبُ الْحَلِيب
مَاذَا يَشْرَبُ فَرِيد ؟
فَرِيد يَشْرَبُ الْمَاء
يَشْرَبُ الْحَلِيب


Edit:

Déjà le fait qu'on ait pas tout à fait la même chose me rassure, çe ne devrait pas être un dysfonctionnement du scrolled...

Traduction quand même :

Que boit Afif ?
Afif boit du lait.
Que boit Farid ?
Farid boit de l'eau.
Boire du lait.

Le tout avec les signes diacritiques, rarement écrits.
Enfin j'espère, un vrai arabophone me corrigera !!!

MERCI !

[djibril]

c'est dingue, j'ai un affichage différent de celui que je devrais avoir.

[dmganges]

Je te promets, ce n'est pas pour profiter de tes compétences, j'y ai passé des nuits !!! c'est pour cette raison qu'au départ je passais par cp1256...

[djibril]

Parce qu'en cp1252 c'est ok ?

[dmganges]

Non même pb en cp1256 sur les 3 environnements.
C'était le meilleurs affichage que j'avais trouvé, avant tes info sur l'utf8 !

[djibril]

C'est fou, j'ai le même souci dans des éditeurs de textes, sous Vi, etc. Ce n'est pas juste un souci Tk je pense.

[dmganges]

En éditeur sous linux j'ai dû jongler avec K-Write et les encodages...
J'ai dû me passer en l’occurrence de VI qui est mon éditeur préféré compte tenu de mes origines...
Sous XP, Window7 Avec Notepad il faut avoir soins de sauvegarder en utf8.
Ultraedit reconnait et sauvegarde automatiquement le utf8, mais la taille des caractères n'est pas convenable pour mes yeux d’ancêtres !

[djibril]

J'ai essayé notepad++ ou pspad sous XP, l'affichage est pourri.

[dmganges]

BlocNotes de Windows7 :
http://cjoint.com/?ALhpFbYNEuZ

Question subsidiaire : comment joindre des images miniatures sur le forum sans passer par cijoint ?

J'ai bien essayer l'icone image mais il me demande une @/http

[djibril]

Quand tu écris ton message, tu as un bouton plus bas, gérer les pièces jointes, tu cliques dessus et sélectionnes tes images .

[dmganges]

OK VU MERCI !