DOCUMENTATION

SYNOPSIS

PERL PROGRAM NAME: param_widgets_pink
AUTHOR:  Juan Lorenzo

CHANGES and their DATES

DATE: V 0.0.1 May 6 2018

DESCRIPTION

manages the parameter labels, values and their
checkboxes in the guis

USE

Examples

STEPS

NOTES V 0.0.2 Sept. 24 2019 uses gui_history

Declare local variables

sub get_hash_ref

bring gui history parameters in to share
and update
# initialize default parameter values from gui_history
# needed herein

sub set_hash_ref

bring gui history parameters in to share
and update

We keep track of whether user is entering or leaving a 
widget: _check_value_changes

changes are only allowed for those sunix programs whose spec files
have a max_index defined

currently changes in param_widgets_pink package only works with regular flows 
and not with pre-built superflows

index = parameter line index of the Entry widget in the flow

sub _check_value_changes

locate change index for Entry widget
off = 0
on = 1

Second case applies when we are using project_selector project_selector does not yet have a max_index defined in a separate module

sub _update_value_changes

locate change index for Entry widget

sub _error_check

When entry values are in error

sub get_check_buttons_w_aref

sub

sub get_entry_change_status

sub get_labels_w_aref

sub get_length_check_buttons_on

sub get_index_check_buttons_on

get_values_w_aref

return an array widget references

sub _max_length_in_gui

sub _set_length_in_gui

sub gui_full_clear

clear the gui completely of 61 parameter values 61 = current defaulted maximum number of variables in a list box

sub _set_entry_change_status

sub _update_check_button_setting

update for one parameter index 
in currently active program

Entry widget uses textvariables

sub _set_index_on_entry

sub get_current_widget_name

screen location by using part of the widget name
   print(" self:$self widget: $widget\n");
   print(" currently  focus lies in: $screen_location\n");
   print(" reference: $reference\n");
  foreach my $i (@fields) {
   print(" 2. widget is $i\n");
   my $screen_location = $widget->focusCurrent;
   my $reference       = ref $screen_location;
   print(" 1. widget is $a\n");
   print ( "widget is $fields[-1]\n");
   name is in the last element of the split array 

 if widget_name= frame then we have flow
             $var->{_flow}
 if widget_name= menubutton we have superflow 
             $var->{_tool}

sub get_check_buttons_settings_aref

sub _get_check_buttons_settings_aref

sub get_entry_button_chosen_index

sub get_label4entry_button_chosen

determine which Entry Button is chosen

   print("param is $entry_param;\n");
        print ("selected widget is # $LSU->{_parameter_value_index}\");
        print ("label is  $out\n");

sub get_value4entry_button_chosen

determine which Entry Button is chosen

   print("param is $entry_param;\n");
        print ("selected widget is # $LSU->{_parameter_value_index}\");
        print ("label is  $out\n");

sub get_values_aref

all the values for one program at a time
from the parameter list in the GUI

sub get_labels_aref

equivalent to get_naems_aref

sub get_names_aref

equivalent to get_labels_aref

sub initialize_check_buttons

same set of check buttons for all programs

sub initialize_labels

sub initialize_values

sub range

	establish the first and last
    indices of the array
  	  	 foreach my $key (sort keys %$ref_hash) {
  			print (" param_widgets_color,range, key is $key, value is $ref_hash->{$key}\n");
  		}

sub redisplay_check_buttons

update colors in check button boxes

sub redisplay_labels

print("1. redisplay, resdisplay_labels, text is @{$label_array_ref}[$i]\n");
print("redisplay, resdisplay_labels, i is $i\n");
print("2. redisplay, resdisplay_labels, text is @{$LSU->{_label_array_ref}}[$i]\n");

sub redisplay_values

 display parameter values without quotes
 although internally we always have quotes for strings
 and no quotes if the value looks like a number
 
 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!
 
 For the Entry widget do not alter the 
 textvariable directly while using
 validatecommand but instead
 indirectly delete the textvaribale and replace it using
 the insert method
 
 &_changes is invoked if
 there is a new selection after an entry change
 or even just if redisplay is selected
_changes returns a 0 to invoke an error check
 In main, focus is forced to follows the mouse
 so focus will change whenever mouse moves to a new
 widget. That means the _changes will be invoked at every
 shift of the mouse to a new widget.
 
 use App::SeismicUnixGui::misc::control '0.0.3' to remove terminal quotes for values, only for display purposes;
 when later read again the values will be given quotes if they
 do not look like a number-- this occurs in a superclass
 
 my $length 				= $param_widgets_color_href->{_length};
 print("param_widgets_color, redisplay_values, length is $length\n");

sub set_check_buttons_w_aref

sub set_current_program

used in main by
flow_select, 
sunix_select 
and delete_from_flow_button

sub set_first_idx

=0

sub set_focus_on_Entry_w

put focus on a widget Entry_w

sub set_index

sub set_labels_frame

a widget reference

sub set_length

override default length values

set_labels_w_aref

sub set_values_frame

a widget reference

set_values_w_aref

sub show_values

packing

sub set_check_buttons_frame

set check_buttons by user from outside

sub set_entry_change_status

sub set_labels

set labels by user from outside

sub set_prog_name_sref set prog_name by user from outside

sub set_value

set single value in widget array index required separately

sub set_values

set values by user from outside

sub show_check_buttons