anonymous hashes to common variables

sub file

$LSU->{_file}= $hash_ref;
print("redisp my name is $LSU->{_file} in\n");

sub range

 #foreach  my $key(sort keys %$entries){ 
  #       my $values  		= $entries->{$key}; 
  #       print("parameter $key has value of $entries->{$key} \n\n");  
  #       }
#print("redisp self is $self hash ref is $ref_hash\n\n");
 #print("redisp  final: $entries->{_final_entry_num}\n");
 #print("redisp  prev final: $entries->{_prev_final_entry_num}\n");
 #print("redisp  max $entries->{_max_entry_num}\n");

sub

  print("ref label redisplay @$ref_label_array, refframe2 $ref_frame\n");
  note this is an LABEL widget
DB
 print("1. redisplay, labels, text is @{$label_array_ref}[$i]\n");
 print("redisplay, labels, i is $i\n");
 print("2. redisplay, labels, text is @{$LSU->{_label_array_ref}}[$i]\n");

sub values

i/p: 2 array references
o/p: array reference

N.B. This is an ENTRY widget
textvariables must be a reference in order
for -validatecommand to work. BEWARE!

DB
print("redisplay, values, i is $i\n");
print("redisplay, values, entry is @{$LSU->{_entry_array_ref}}[$i]\n");

sub collect_new_values

sub new_entry

When original value of Entry widget (package create, sub valuesc) 
is modified, test the new value
Now can test for integers or decimal values as follows:

 if (($test =~ /^-?\d+/) || ($test =~ /^-?\d+\.\d+/)) {
 print ("Error: Entered an integer (First check)\n");
 print ("or a decimal (2nd check)\n");

TODO multiple values

NB.
 Dereference one scalar reference 
 within an array of references 
 First ascertain values are not blank
 as during initialization of GUI. 

DB
print("redisplay,new_entry,new_entry_index is  $index\n");
print("redisplay,new_entry,new_entry is @{$LSU->{_entry_array_ref}}[$index]\n");

sub error_check

When entry values are not 
decimals or numbers 
used if new_entry returns a "$false" = 0
must return 1

sub

my $on  = 'on';

redisplay will require another input array of
on and off buttons