bonjour à tous,
 
je veux ouvrir un fichier à l'aide d'un menu ouvrir et afficher son continu ds une zone de texte :
 
voici le code que je fai :  
 

 
malheureusement il m'affiche tjrs : ERREUR : Impossible d'ouvrir < ARRAY(0x88f4340) >  
 

-multiple   => 1 ça veut donc dire que vous allez pouvoir sélectionner plusieurs fichiers, et donc que c'est un array qui va être retourné
Donc soit vous faites -multiple   => 0, soit vous faites my @selected_files = $fenetre->getOpenFile(... avec multiple a 1
 
A+,

oui gilou merci je resolu le pblme , cependant si le fichier est en arabe alors on fait :  
open FIC, '<:encoding(UTF-8)', $selected_file or $txt->insert('end', "ERREUR : Impossible d'ouvrir $selected_file\n" ), return;
 
si nn si le fichier contient des caractère arabe et français au mme temps l'affichage ds ce cas est erroné !!!!

l'affichage de quoi?
Tout cela n'est pas très clair.
A+,

si le fichier est en arabe alors l'affichage de son continu n'est pas juste ar exemple  
au lieu d'afficher :  
 
اَ هَاكَ هَذَاكَ هُوَ
ثَمَّاشِي وَاحِدْ آخِرْ بَعْدُو  
ثَمَّ الحْدَاشْ مْتَاعْ اللِيلْ
سَلَامُ عَلَيْكُمْ بِاللَهْ تِكَايْ لْتُونِسْ بْقَدَاهْ  
 il m'affiche des caractères séparés

en effet l'affichage n'est pas bon de tout ce comme indique cette phote :  
 
[url]
 
 
http://www.developpez.net/forums/a [...] al_tk.png/
 
[/url]

Postez cette photo ici avec ce serveur dédié: http://reho.st/ afin que je puisse voir de quoi il s'agit.
A+,

Je crois que j'ai compris: les text panels de tk ne supportent pas le sens droite gauche et les ligatures.
Le plus simple serait de
- prendre le texte utf8 ligne a ligne
- passer une ligne a un arabjoin ( http://czyborra.com/arabjoin/arabjoin ) modifié pour retourner le texte, et non l'imprimer
- envoyer la ligne recodée par arabjoin au panneau texte tk
et ça devrait marcher (espérons le).
 
Sinon, il faut voir si ce qui es fait en tcl/tk ici: http://www2.tcl.tk/38244 est transposable en perl/tk
 
A+,

[url]
http://reho.st/upload
[/url]