Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: Perl Tk Hash and listbox question

by reneeb (Chaplain)
on Mar 14, 2008 at 10:07 UTC ( #674171=note: print w/replies, xml ) Need Help??

in reply to Perl Tk Hash and listbox question

You should use strict!

This code prints the selected entry when you double click on the entry:
#!/usr/bin/perl use strict; use warnings; use Tk; # Variables my $bx_w = 80; my %hash = ( "Test1" => [qw/a b c d/], "Test2" => [qw/e f g h/], ); my $mw = MainWindow->new(); $mw->title("test"); $mw->minsize(qw/79 4/); #$mw->maxsize(qw/79 4/); my $lz_f = $mw->Frame()->pack(-side =>'top',); #&creation; foreach my $label(keys %hash) { my $lngth = $#{$hash{$label}}; my $lbl = $lz_f->Label( -text => $label, -bg => 'white', -width => $bx_w, )->pack( -side => 'top', -expand => 'both', ); my $lstbx = $lz_f->Listbox( -bg=>'lightgrey', -relief=>'flat', -height=>$lngth, -width=>$bx_w, )->pack( -side=>'top', ); foreach my $i ( 0 .. $#{ $hash{$label}} ) { $lstbx->insert($i, $hash{$label}[$i]); } $lstbx->bind( '<Double-1>' => sub{ my ($index) = $lstbx->curselect +ion; print $lstbx->get($index) } ); } MainLoop();

Replies are listed 'Best First'.
Re^2: Perl Tk Hash and listbox question
by kayinstorm (Initiate) on Mar 14, 2008 at 18:46 UTC
    Thanks!! That is what I needed!!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://674171]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (2)
As of 2017-04-30 23:23 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (543 votes). Check out past polls.