#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my @cm_tools = ( "CVS", "VSS", "PVCS", "RCS", "Start Team" );

my $mw =  MainWindow->new(); 
$mw->title("ZenSOFT Configuration Tool"); 
$mw->Label(-text => "Top", -background => "red")->pack(); 
$mw->Label(-text=>"CM Tool")-> pack(-expand => '1'); 

my @fruits0 = ('Apple','Banana','Cherry','Date','Elderberry','Fig');
my @fruits1 = ('Apple','Banana');
my @fruits = @fruits1;
my $cm_tool = 'CVS';
my $vss_path = '';

$mw->Optionmenu(
        -options=> \@cm_tools,
        -textvariable=>\$cm_tool,
        -width=>'25',
        -command => sub{
           #print "$cm_tool\n";
           if( $cm_tool eq 'VSS'){ @fruits = @fruits0 } 
            else{ @fruits = @fruits1   }
         },
        )->pack(-expand => '1'); 

 
my $fruit_list = $mw->Listbox(
       -listvariable => \@fruits,
       )->pack();; 

$fruit_list -> bind("<Double-Button-1>",\&display);

my $EndFrame= $mw ->Frame(-width => '40')->pack(-side => "bottom"); 

my $OkButton = $EndFrame->Button(-text => "Next", -width=>'10', 
     -command => sub{$mw->destroy()})->pack(-padx=>'10',-pady=>'5', -s
+ide=>'left'); 

my $CancelButton = $EndFrame->Button(-text => "Cancel", -width=>'10', 
     -command => sub {exit })->pack(-padx=>'10',-pady=>'5', -side=>'ri
+ght'); 

my $LoginBox = $EndFrame->Entry(-textvariable=>\$vss_path,
   -width=>'25')->pack(-expand => '1'); 

MainLoop();

sub display {
  $vss_path = $fruit_list -> get($fruit_list -> curselection);
  
 # $fruit_list->selectionClear(0, 'end');
}
[download]