When in doubt, just start stuffing selections into a global hash, then the selections will always be available. You get your data out by looping thru the hash keys. Every new widget gets a new hash entry, so you can add to your heart's content, keeping everything in a hash.

An example would be appreciated of growing a dynamic hash for every new widget. The hash will need to store the same data set, yet, is treated uniquely by the GUI even if the selected item(s) is/are the same value. I was thinking of something along these lines:

my $count = 0;

my %division{$_} = (
1 => 'AF',
2 => 'CSS',
);

my $addbutton = $f->Button(-text => "Add Chart Blocks", 
    -command => [\&addwidget,$division{$count++}], )->pack(-anchor => 
+'s');
[download]

This way the hash would come in as division1, division2, etc. The counter would increment every time the button is pressed and thus creating a unique hash name based on the event. Does this make some sense? Thanks for all the patience and help thus far.

You sort of have the right idea, but there is one thing to watch out for: do not try to use the widget as a hashkey, as it will result in an error. You are doing it right by assigning a counter. Here is an example based on my code example above. P.S. To make your code look better, put your listboxes into Scrolled Panes. This example needs some work to make it look right, but it demonstrates the hash idea quite nicely.

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

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

#need exportselection=>0 for using multiple selection boxes

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', 'etc');

foreach my $choice(@choices){
    my $pane = $mw->Scrolled('Pane')->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', @random_data );
       
   }



$mw->Button( -text => "Selections", -command =>
     sub{ 
           
           foreach my $key( keys %lbhash ){
             
              my @selects = $lbhash{ $key }{'widget'}->curselection;
           
              print "$key: ";
           
              foreach my $select (@selects){ 
              
                 print  $lbhash{ $key }{'widget'}->get($select),' '; 
           
                }
               print "\n\n";
          }           
       }    
           )->pack( -side => 'left' );

$mw->Button( -text => "Done", -command => \&exit )->pack;

MainLoop;
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Why are you calling addtextbox() without arguments?

Do it like this, write code this way, pass arguments all over, keep track of the life cycle of your variables, its coping with scoping, only use variables you declare pass, never any others

sub GoTkGui {
    my $mw = tkinit;
    my @stackOfEntries; ## or %division or %meaningfulName
    SetUpTheCheeze( $mw, \@stackOfEntries );
}
sub SetUpTheCheeze {
   my( $mw, $entriesRef ) = @_;
   ...
   $mw->Button(-text => 'Add Field',  -command => [ \&addtextbox, $mw,
+ $entriesRef ], );
   ...
}
sub addtextbox {
    my( $mw, $entriesRef ) = @_;
    ...
## you decide what you need want
##    push @$entriesRef, $ent;
##    push @$entriesRef, $entry_1;
}
[download]

Re: Tk: Creating label in hash Re: TK Submenus (Tk::Menu , global variables/ spirit of strict), Re: widget box problem in tk