My Gui is starting to come around, yet I still do not know how to add multiple units of the same widgets row-by-row and then to collect the data en-masse row-by-row. I have been able to pick up all the data from just one row. I am almost there. Here is the code:

Why don't you know?

For example, if I place the Gui code in a for loop that does two iterations as follows:

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]

and proceed press the Selection button, the program will only capture the data from the second iteration and not the first. I also get the following message from the debugger:

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]

The array variables the debugger is reporting are uninitialised and are at the top of the program. See previous post in thread (i.e my @list,@labels). What should I be doing to correct the problem? Is it a problem with local vs. global scoping or is it a garbage collection issue? Thanks again.

:)

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 :)