#!/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;