Help for this page

Select Code to Download


  1. or download this
    use strict;
use Tk;

...
    ($idnum,$tags) = (123,'tag1 tag2');
    $viewbox->insert('end', "$idnum\t$tags");
    }
  2. or download this
    my $entry = $viewbox->curselection;
print $viewbox->get($entry)."\n";
  3. or download this
    $viewbox->delete('active')
  4. or download this
    my @contents = $viewbox->get('0','end');
foreach (@contents) {print "$_\n";}