Opened by Gast at 2007-02-07 20:58
Hallo,
ich möchte gerne eine Art "Tabelle" erstellen.
Diese Tabelle besteht aus Listbox mit Scrollbar sowie Entry und Label Widgets.
Die Widgets sollten nebeneinander und je Zeile der Datei untereinander stehen. (Spalten und Zeilen)
Hier einmal mein Versuch.....Leider stehen die Widgets nicht nebeneinander und schon gar nicht untereinander.
Beispiel 25 Zeilen.
Bin leider bei TK Anfänger.
Danke
worst_case
ich möchte gerne eine Art "Tabelle" erstellen.
Diese Tabelle besteht aus Listbox mit Scrollbar sowie Entry und Label Widgets.
Die Widgets sollten nebeneinander und je Zeile der Datei untereinander stehen. (Spalten und Zeilen)
Hier einmal mein Versuch.....Leider stehen die Widgets nicht nebeneinander und schon gar nicht untereinander.
Beispiel 25 Zeilen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
foreach $i (0..25)
{
$name[$i] = $top->Listbox(-height=> 1, -width=> 30)->pack(-side=>'left');
$scroll_name[$i] = $top->Scrollbar(-command => [ 'yview', $name[$i]])->pack(-side=>'left');
$name[$i]->configure(-yscrollcommand => [ 'set', $scroll_name[$i]])->pack(-side=>'left');
$nummer[$i] = $top->Listbox(-height=> 1, -width=> 3)->pack(-side=>'left');
$scroll_nummer[$i] = $top->Scrollbar(-command => [ 'yview', $nummer[$i]])->pack(-side=>'left');
$nummer[$i]->configure(-yscrollcommand => [ 'set', $scroll_nummer[$i]])->pack(-side=>'left');
$format[$i] = $top->Entry(-width=> 20)->pack(-side=>'left');
$istwert[$i] = $top->Label(-text => 'Labeltext', -relief => 'ridge', -borderwidth => '5', -width=> 30)->pack(-side=>'left');
$name[$i] -> insert('end',@test);
$nummer[$i] -> insert(0,1,2,3,4,5);
}
Bin leider bei TK Anfänger.
Danke
worst_case