Hi monks, I have written a perl tk script to display the current select value in text-scroll. Here is my problem whenever i make double click on list box the selected value should display and previous value should be removed , i tried to delete the previous selected value but it is not working, can any one give me the solution .

#!/usr/bin/perl -w
use strict;
use warnings;

use Tk;
use Tk::LabFrame;
use Tk::ROText;
my $lb ;
my $txt_scroll;

my $mw = MainWindow->new();
$mw->geometry("500x400");
my $f1 = $mw -> LabFrame(
        -label      => "List-box-selection",
        -font       => 'ukai',
        -labelside  => "acrosstop",
        )->pack();

my @list = (qw/test1 test2 test3 test4 test5/);

$lb = $f1 -> Scrolled("Listbox",
        -scrollbars    => "e",
        -selectmode    => "extended",
        -font          => 'ukai',
        -activestyle   => "dotbox",
        )->pack();
$lb->insert('end',@list);

$lb -> bind('<Double-1>'=> sub {
        my $current_ip =  $_[0]->get($_[0]->curselection),;
        $txt_scroll->insert('end',"SELECTED IP : $current_ip\n");
                },
        );
$f1 -> place ( -x => 100 , -y => 55, -width =>"170", -height => "120")
+;
my $f2 = $mw -> LabFrame(
        -label      => "Commands Info",
        -font       => 'ukai',
        -labelside  => "acrosstop",
        )->pack();

my $frame_info = $mw -> Frame();
$txt_scroll = $frame_info->Text();
$txt_scroll = $f2 -> Scrolled( 'ROText',
        -scrollbars  => 'osoe',
        -height      => 6 ,
        -width       => 25,
        -font        => 'ukai',
)->pack();$mw->update();

$f2 -> place(
        -x      => 100,
        -y      => 200,
        -width  => 180,
        -height => 100,
        );
MainLoop;

[download]

In reply to Displaying selected value from Listbox in perl tk by vr786

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.