Thread TableMatrix::Spreadsheet Zeile markieren (1 answers)
Opened by pktm at 2007-08-29 14:29

pktm
 2007-08-29 14:29
#98814 #98814
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Hallo!

Ich glaube ich hatte das schonmal, finde es aber nleider nicht mehr :-/

Wie kann ich vernünftig eine Zeile in einer TableMatrix::Spreadsheet markieren?
In einer solchen Tabelle liste ich eine Reihe von Daten auf. Je eine Zeile = 1 Datensatz. Wenn man auf einen Datensatz klickt sollen die Informationen daraus aufbereitet werden.

Mein bisheriger Code, auszugsweise, aber sollte funktionieren:
Code: (dl )
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
87
88
#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use DBI;
use Carp;
use SQL::Abstract;
use Tk;
use Tk::TableMatrix::Spreadsheet;
use Perl6::Say;

my $mw = tkinit();

my %gui = ();

my %table = ();
my $t = $mw->Scrolled(
'Spreadsheet',
-cols => 5,
-rows => 500,
-width => 5,
-height => 6,

-titlerows => 1,
-titlecols => 0,

-variable => \%table,

-selectmode => 'extended',
-selecttype => 'row',
-selecttitle => 0,

-state => 'disabled',
-bg => 'white',
-scrollbars => 'se',
);

$t->configure(-state => 'normal',);
$t->set('0,0', "IdNum");
$t->set('0,1', "Word");
$t->set('0,2', "Mann");
$t->set('0,3', "IdNumLemma");
$t->set('0,4', "FlectType");
$t->configure(-state => 'disabled',);

$t->pack(-fill => 'x');

# - Initialisierung
initFuelleTabelle($t);

# Jetzt die passenden Kommandos einbauen
$t->configure(
-rowtagcommand => sub{
my $row = shift;

say '-' x 40;
say localtime() . "";
say "Zeile: $row";
},
);

$mw->MainLoop();

=head1 METHODEN

=head2 initFuelleTabelle($t)

Füllt die Tabelle zum Programmstart mit Daten.

=cut

sub initFuelleTabelle {
my $table = shift;

# das jetzt nur mal so zum Testen für euch

for ( my $row = 1; $row < 10; $row++ ) {
$t->configure(-state => 'normal',);
$t->set("$row,0", "IdNum");
$t->set("$row,1", "Word");
$t->set("$row,2", "Mann");
$t->set("$row,3", "IdNumLemma");
$t->set("$row,4", "FlectType");
$t->configure(-state => 'disabled',);
} # /for

} # /initFuelleTabelle


Ich habe das Problem, dass manchmal die falsche Zeile zurück geliefert wird, oder scheinbar arbiträr mehrfach selektiert wird. das nervt natürlich unheimlich.
Ich könnte jetzt anfangen mir zu merken, welche Zeile gerade markeirt ist und Selektionen auf die bereits markeirte Zeile ausschließen.
Aber das behebt noch nicht das Problem, dass manchmal, wenn ich z.B. die 3. Zeile markiert habe und dann auf die Zeile darüber klicke (nicht die Titelzeile!) die Selektion trotzdem Zeile 3 zurück liefert.

Hat da jemand eine gute Lösung? Oder Ideen wie man das vernünftig in den Griff bekommt?
Ich möchte unbedingt diese tabellarische Form beibehalten, allerdings nicht zwangsweise mit diesem Widget, da die Inhalte ohnehin nicht verändert werden können sollen. Was ich aber auch nciht möchte ist mir eine Tabelle mittels grid und Labels zusammen bauen, das sehe ich anbetracht der Vielzahl an Modulen auf CPAN nicht ein :)

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread TableMatrix::Spreadsheet Zeile markieren