Discussion :

[clmin]

Bonjour,
je cherche à transformer une cellule d'un tableau en "bouton".
En terme d’apparence aucun problème, mais je n'arrive pas à lier une commande à la cellule.
Je voudrai quelque chose comme:

Code :

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

1
2
3
4
5
$tableau->tagConfigure( 
	'commande_dans_cellule', 
	-command  => sub{print "test";}
);
$tableau->tagCell( 'commande_dans_cellule', "0,0");

Y aurait-il un moyen d'y arriver?

[djibril]

Bonjour,

Merci de déposer déjà un code fonctionnel que l'on pourrait par la suite modifier.

[clmin]

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
#!c:/strawberry/perl/bin/perl.exe## spreadsheet.tcl 
 
use warnings; 
use strict; 
use Tk; 
use Tk::TableMatrix; 
my $fenetre_principale = MainWindow->new; 
my $arrayVar = {}; 
for my $r ( 0 .. 7 ) { 
	for my $c ( 0 .. 7 ) { 
		$arrayVar->{"$r,$c"} = 'test'; 
	} 
} 
my $tableau = $fenetre_principale->Scrolled( 
	'TableMatrix', 
	-variable   => $arrayVar, 
	-selectmode => 'extended', 
); 
$tableau->tagConfigure( 
	'commande_dans_cellule',
	-bg=>'white'
	-command  => sub{print "test";}
);
$tableau->tagCell( 'commande_dans_cellule', "0,0");
$tableau->pack( -expand => 1, -fill => 'both' ); 
MainLoop;

Le but est d'écrire "test" lorsqu'on clique sur la première case.
seule la ligne

Code :

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

-command  => sub{print "test";}

ne fonctionne pas. Mais c'est la plus importante.

[djibril]

Il n'existe pas de méthode de type commande liée à une cellule.
Il existe -rowtagcommand et -coltagcommand comme options de l'objet TableMatrix.
Sinon, tu as -browsecommand qui s'applique à chaque changement de statut de la cellule.

Pour ces trois, tu dois jongler si tu ne souhaites appeler un traitement uniquement pour une cellule et pas tous.

Une autre solution consiste à mettre un vrai bouton dans une cellule :

Code :

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

1
2
3
4
5
6
my $buttonTest = $fenetre_principale->Button(
	-text    => "test",
	-command => sub { print "hello, vous avez appuez sur le bouton\n"; }
);
 
$tableau->windowConfigure( "3,3", -window => $buttonTest );

Bref, il est indispensable de savoir ce que tu souhaites concrètement faire.