[Perl TK] Module Tk::TableMatrix - Commande dans une cellule

Version imprimable

21/01/2015, 14h58
clmin

[Perl TK] Module Tk::TableMatrix - Commande dans une cellule
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:

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?
21/01/2015, 15h07
djibril

Bonjour,

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

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
#!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:

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

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

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:

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.