Thread Perl::Tk 2 Listboxen auf Benutzeroberfläche (4 answers)
Opened by Bourne at 2005-12-12 11:58

Bourne
 2005-12-12 15:07
#45100 #45100
User since
2005-12-12
3 Artikel
BenutzerIn
[default_avatar]
ich korrigiere mich
er speichert alle Infos das Problem ist bloß, wenn ich von einer Listbox zur anderen wechsele und dort etwas anklicke, dann verschwinden die ausgewählten elemente in der ersten listbox. Also die Markierung welche anzeigt dass es ausgewählt ist verschwindet, nicht die ganzen Elemente.

Speichern kann ich die daten aber trotzdem. Der User würde bloß nicht mehr sehen was er in der ersten listbox ausgewählt hat.


Codesegment:

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
$lb_products = $mw_full->Scrolled("Listbox", -scrollbars => "e",
                                              -selectmode => "multiple",
                                              -width => 0)->pack(-side => 'top',
                                                                 -in => $label_h4_1_v1);
$lb_products->insert('end', @products);


 $lb_products->bind('<Button-1>',
                    sub { @lb_product = ();
                          @lb_product = $lb_products->curselection();
                          chomp @lb_product; } );



$lb_costcenters = $mw_full->Scrolled("Listbox", -scrollbars => "e",
                                            -selectmode => "multiple",
                                            -width => 20)->pack(-side => 'top',
                                                                -in => $label_h4_1_v2);
                                                                           
 $lb_costcenters->insert('end', @costcenters);


 $lb_costcenters->bind('<Button-1>',
                       sub { @lb_costcenter = ();
                             @lb_costcenter = $lb_costcenters->curselection();
                             chomp @lb_costcenter; } );


Ich hoffe es ist in etwa verständlich.
In der einen Listbox wähle ich bestimmte Software-Produkte aus und in der anderen verschiedene Kostenstellen.
Die Daten werden in 2 Arrays gespeichert.

Wie man allerdings die Auswahl "festhalten" kann ist jetzt die Frage :(

View full thread Perl::Tk 2 Listboxen auf Benutzeroberfläche