[Tk] Longueur d'un text box

Version imprimable

25/05/2006, 19h06
etranger

[Tk] Longueur d'un text box

Bonjour :)

Je suis en train de developper une sorte de "Crypto" notpad, un editeur de base pour resoudre des cryptogrammes.

Je souhait afficher dans un text box une ligne de texte chiffrer et en dessou un "-" pour chaque caractere encore non deviné, ou sinon la lettre qui lui correspond.

Pour cela, je dois recuperer la largeur du textbox en caracteres, pour afficher la ligne de text puis la ligne du genre "---e-- --e-".

j'aurait surement encore d'autres question j'espert ne pas vous deranger.

PS : a ba tien, en voila encore une :
Perl 6 va normalement bientot sortir, est ce que mes script seront encore fonctionnels (et de la meme maniere) ?
26/05/2006, 03h17
Jedai

Citation:

Envoyé par etranger

Bonjour :)

Je suis en train de developper une sorte de "Crypto" notpad, un editeur de base pour resoudre des cryptogrammes.

Je souhait afficher dans un text box une ligne de texte chiffrer et en dessou un "-" pour chaque caractere encore non deviné, ou sinon la lettre qui lui correspond.

Pour cela, je dois recuperer la largeur du textbox en caracteres, pour afficher la ligne de text puis la ligne du genre "---e-- --e-".

j'aurait surement encore d'autres question j'espert ne pas vous deranger.

PS : a ba tien, en voila encore une :
Perl 6 va normalement bientot sortir, est ce que mes script seront encore fonctionnels (et de la meme maniere) ?

Il y aura un traducteur de Perl 5 à Perl 6, par ailleurs Perl 6 aura un mode de compatibilité je crois, dans lequel tu pourras faire tourner du Perl 5.

--
Jedaï
26/05/2006, 10h38
etranger

Merci :lol:

Et a propos de ma premiere question (trouver la largeur d'un text box en unitees de caracteres), quelqun a une idee ?
26/05/2006, 20h17
etranger

Voila en fait ce que je veu faire : (voir piece jointe, ici j'ai choisi 80 comme valeure pour diviser le texte, ensuite j'ai ajuster la taille de la fenetre)

Maintenant j'ai bien chercher, il me semble qu'aucune fonction puisse me donner la largeur de mon text box en unites de caracteres.

J'en constate donc que je devrait essayer de tirer des info a travers la largeur en pixels, mais là, 2 question se posent :

1- Comment faire ? :aie: (je vais essayer de trouver, mais comme beaucoup de choses entrent en compte (taille des caracteres, font, espace entre chaque caracteres, largeur des bords et du scrollbar), toute aide serait la bienvenue :mrgreen:)

2- Ma solution serat elle portable d'un ordinateure a l'autre, mais surtout, d'un Os a l'autre ?

d'habitude je n'aime pas insister, mais comme je ne trouve rien :arf:

Merci

Une âme charitable à fini par me trouver une solution, qui finalement n'etait pas si obscure, je la poste à fin que tout le monde puisse en béneficier :

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
use Tk;
use Tk::Dialog;
use Tk::Text;
use Tk::Font;
 
my $mw = MainWindow->new(-title => "Essai");
my $text = $mw->Text(-height => 20,
     -width => 40,
     -wrap => 'char',
     -font => "courier")->pack(qw/-expand 1 -fill both/);
my $font = $text->cget('-font');
my $bw = $text->cget('-borderwidth');
my $padx = $text->cget('-padx');
$mw->Button(-text => "Show",
    -command => sub {
      print "Width: ", $text->width, "\n";
      my $size = 0;
      my $cont = 1;
      while ($cont) {
$size++;
my $twi = $font->measure("0" x $size);
$cont = ($twi < $text->width - 2 * $bw - 2 * $padx);
      }
      $size--;
      print "Largeur: $size\n";
    })->pack;
$mw->Button(-text => "Quit", -command => sub { exit })->pack;
MainLoop;

encore merci pour ceux qui se sont pancher sur mon probleme :)