use strict;
use warnings;
use Tk;
use Tk::Pane;

my $mw = MainWindow->new;
$mw->geometry(q/+100+100/);
$mw->title("Test Script");





my %lbhash;

# you want to use the listbox to hold your
# data, so store the widget's actual object
# with the name you want to give it

my @choices = ('afg', 'dfg', 'erty');
my @divisional_unit =('Division Unit Left','Division Unit Middle','Div
+ision Unit Right');
my $text="";
my $count = 0;
my $num=$count++;
my $count1 = 0;
my $num1=$count1++;
my $count2 = 0;
my $num2=$count2++;
my $count3 = 0;
my $num3=$count3++;
my @labels=("Left Text Header", "Middle Text Header", "Right Text Head
+er");
my @labels1=("LC", "MC", "RC");
my @list =  ("LC", "MC", "RC");

my %entry;
my $inbox;
my %checkbox;
my $settings;

for (1..2)  {

foreach my $choice(@divisional_unit){
    
    
    my $pane = $mw->Scrolled('Pane')->pack(-side => 'left');
    #create a has for the entry widget
  

    
$entry{$labels[$num++]} = $mw->Entry(-textvariable=>$text)->pack(-side
+=>'left');

my $checkbox = $mw -> Checkbutton(-text=>$labels1[$num2++],
    -variable=>\$settings->{checkbuttons}->{$list[$num3++]},-offvalue=
+>0,-onvalue=>1)->pack(-side=>'left');

        
        
        

    my $label = $pane->Label(-text=> $choice, -bg=>'lightseagreen')
                    ->pack(-side=>'top');
    
    $lbhash{ $choice }{'widget'} = $pane->Listbox(-bg => 'white',
                       -selectmode => 'extended',
                       -exportselection=> 0 )->pack(-side=>'bottom');

   #my @random_data;
   #for(1..20){push @random_data ,int rand(100) } 
  
     $lbhash{ $choice }{'widget'} ->insert( 'end', @choices);
       
   #}

}
}

$mw->Button( -text => "Selections", -command =>
     sub{ 
           
           foreach my $key( sort keys %lbhash ){
             
              my @selects = $lbhash{ $key }{'widget'}->curselection;
           
              print "$key: ";
           
              foreach my $select (@selects){ 
              
                 print  $lbhash{ $key }{'widget'}->get($select),' '; 
           
                }
               print "\n\n";
               
               
               
           
          }
      
          
            foreach my $key1( sort keys %entry ){
             
                    my @selects2 = $entry{$key1}->get();
                   
               print "$key1:";
               
              foreach my $s (@selects2) {
            
                   print $s,"\n";
            }
          
            }
            
             print join( "\n", grep { $settings->{checkbuttons}->{$_} 
+} @list );
            
            
          
       }    
           )->pack( -side => 'bottom' );

$mw->Button( -text => "Done", -command => \&exit )->pack(-side=>'botto
+m');

MainLoop;
[download]

Use of uninitialized value within @labels in hash element at C:\Users\
+Ettore Vecchione\Desktop\FAO ORG CHART APP\grid3.pl line 58.
Use of uninitialized value within @list in hash element at C:\Users\Et
+tore Vecchione\Desktop\FAO ORG CHART APP\grid3.pl line 60.
Use of uninitialized value within @labels in hash element at C:\Users\
+Ettore Vecchione\Desktop\FAO ORG CHART APP\grid3.pl line 58.
Use of uninitialized value within @list in hash element at C:\Users\Et
+tore Vecchione\Desktop\FAO ORG CHART APP\grid3.pl line 60.
Use of uninitialized value within @labels in hash element at C:\Users\
+Ettore Vecchione\Desktop\FAO ORG CHART APP\grid3.pl line 58.
Use of uninitialized value within @list in hash element at C:\Users\Et
+tore Vecchione\Desktop\FAO ORG CHART APP\grid3.pl line 60.
[download]

:)

Read more... (582 Bytes)

What should I be doing to correct the problem?

In short, put every part of your program into named subs (relatively small ones), and pass all variables used as arguments, and use good var names; do this it shouldn't take long, and post what you get ... it will probably work the way you want it, but if it doesn't , I'll more than willing to help you fix that version

Read more... (628 Bytes)

See non-tk (the above linked are tk) example of how many subs there are for each part Re^5: I need help with displaying newline or paragraph using perl on my website (pass arguments more subs)

anyway , before you get a chance to do this, zentara will probably step in to spoil my agenda :)