Thread Update der Anzeige einer Listbox (2 answers)
Opened by alex74 at 2006-10-25 12:54

renee
 2006-10-25 13:09
#45895 #45895
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Nur weil das Array geändert wird, wird noch lange nicht die Anzeige geändert. Du musst also die bisherigen Einträge löschen und die neuen Einträge in die Liste schreiben...
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Listbox;

my @array = qw(1 2 3 4);
my $mw = tkinit();
my $list = $mw->Scrolled('Listbox',
-scrollbars => 'osoe')->pack();
my $bt = $mw->Button(-text => 'Aenderung',
-command => \&change_array)->pack();
$list->insert('end',@array);

MainLoop;

sub change_array{
@array = qw(7 8 9 10 11 12 13 15 16);
$list->delete(0,'end');
$list->insert('end',@array);
}


Oder Du arbeitest mit CPAN:Tie::Tk::Listbox. Aber das musst Du erst Wiki:installieren.\n\n

<!--EDIT|renee|1161767402-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Update der Anzeige einer Listbox