fragen zur Listbox in Tk (Graphische Oberflächen)

Mako

2007-10-16 15:30

User since
2007-10-05
31 Artikel
BenutzerIn
[default_avatar]

hi,
wie kann ich denn eine Listbox komplett leeren.
habs mit

Code (perl): (dl )

$liste->clear();

probiert aber das geht nicht.

kann mir einer helfen?

danke

renee

2007-10-16 15:40

User since
2003-08-04
14371 Artikel
ModeratorIn

Code (perl): (dl )

$liste->delete(0,'end');

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/

Mako

2007-10-18 15:14

User since
2007-10-05
31 Artikel
BenutzerIn
[default_avatar]

kann ich eigentlich auch eine Listbox dynamisch verwalten?

ich habe einen hash
%h
0 {X1 => value
Y1 => value
X2 => value
Y2 => value
}
1 {X1 => value
Y1 => value
X2 => value
Y2 => value
}
.....
so und ich möchte immer wieder neue Werte hinzufügen.
Diese würde ich dann ganz gern in verschiedenen Listboxen anzeigen lassen.
Also eine Listbox für den Index und vier weitere für die Werte.

Aber ich krieg irgend wie keine lösung heraus wie ich das schreiben soll.

Code (perl): (dl )

$indexlist->insert("end", sort keys %h);

geht nicht.

kann mir mal wieder ein helfen? (ich weiß, so langsam dreht sich das Forum nur um mich sorry!)

renee

2007-10-18 16:33

User since
2003-08-04
14371 Artikel
ModeratorIn

Meinst Du so etwas:

Code (perl): (dl )

#!/usr/bin/perl

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

my $mw = tkinit;

my %h = (
    0 =>  { 
        X1 => 'value1',
        Y1 => 'value2',
        X2 => 'value3',
        Y2 => 'value4',
    },
    1 => {
        X1 => 'value5',
        Y1 => 'value6',
        X2 => 'value7',
        Y2 => 'value8',
    },
);

my $i_liste = $mw->Listbox->pack(-side => 'left', -anchor => 'w');
my $k_liste = $mw->Listbox->pack(-side => 'left', -anchor => 'w');
my $v_liste = $mw->Listbox->pack(-side => 'left', -anchor => 'w');

for my $key ( sort keys %h ){
    for my $key2 ( sort keys %{ $h{$key} } ){
        $i_liste->insert('end',$key);
        $k_liste->insert('end',$key2);
        $v_liste->insert('end',$h{$key}->{$key2});
    }
}

MainLoop;

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/

Mako

2007-10-23 18:20

User since
2007-10-05
31 Artikel
BenutzerIn
[default_avatar]

Ja, sowas in die Richtung.
Aber ich erklär glaub ich besse mal genau was ich brauche.

Also habe mir den Hash %h erstellt um alle Daten verwalten.
Ich habe eine Listbox die den Index enthält, und vier weitere die für diesen Index jeweil die Punkte (X1 Y1 X2 Y2) enthalten. Jetzt möchte ich je nachdem welche Aktion ich ausführe in die Listen Punkte einfügen (am anfang, am Ende oder mittendrin).
Des weiteren möchte ich diese Punkte dann später auf eine Platine laden.

Und deswegen benutze ich einen Hash (jedem Index sind vier punkte zugewiesen).

Ich möchte mir aber immer anzeigen lassen was momentan in meinem Hash steht, und da kommen eben die Listboxen ins Spiel.
Die Lösnug mit der Forschleife habe ich zwar schon eingebaut, aber wenn ich jetzt in der Mitte einen Punkt neu hinzufüge muss ich in meiner Lösung die Boxen alle erst einmal löschen und dann neu beschreiben.

Ich hatte gehofft es gibt eine lösung bei der ich wie bei einem "Entry" mit Textvariablen arbeiten kann.
Das ich dem inhalt der Listbox nur eine Referenz zuweise und diese sich dann selbstständig aktualisiert.

Ich hoffe jetzt is meine Problem etwas deutlicher formuliert.

Danke!

ptk

2007-10-23 23:04

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Schau dir mal "TIED INTERFACE" in der Tk::Listbox-Doku an.