DOCUMENTATION

SYNOPSIS

PERL PERL PROGRAM NAME: neutral_flow.pm
AUTHOR: 	Juan Lorenzo
DATE: 		June 8 2018 

DESCRIPTION 
    
    Is used only to inspect labels/names of different available
    sunix programs 
    'neutral' refers to that no colored box is available to build a flow
    from these selections

BASED ON:
previous versions of the main userBuiltFlow.pl
 

USE

NOTES

  Provides in-house macros/superflows
  1. Find widget you have selected


    . Disable the following widgets:
      delete_from_flow_button
     (sunix) flow_listbox
   
   sunix_listbox   		-choice of listed sunix modules in a listbox
   

Examples

SEISMIC UNIX NOTES

CHANGES and their DATES refactoring of 2017 version of L_SU.pl

V 0.0.2 Aug 12 2018 
include multi-"colored" flows

V 0.0.3 Oct. 11 2019
refactored

V0.0.4 Sept. 19, 2022
 changes to get_help
     error check
     find module path

Notes from bash

share the following parameters in same name 
space

private anonymous hash

to share variable values easily

sub FileDialog_button

select the right method related to FileDialog button in upper class

sub FileDialog_button_Delete

sub get_hash_ref

Exports private hash

sub get_flow_color

Exports private hash value

sub get_prog_name_sref Exports private hash value

sub get_help

Callback sequence following MB3 click activation of a sunix (Listbox) item program name is a scalar reference

Let help decide whether it is a superflow or a user-created flow

Show a window with the perldoc to the user

sub set_hash_ref Copies with simplified names are also kept (40) so later the hash can be returned to a calling module

sub sunix_select (subroutine is only active in neutral_flow) Pick Seismic Unix modules

 foreach my $key (sort keys %$color_flow_href) {
  print (" neutral_flowkey is $key, value is $color_flow_href->{$key}\n");
 }
 TODO: encapsulate better
 
 set
 	$param_sunix
 	$param_widgets
 	
 get
 	$color_flow_href_messages
 	$whereami					->set4sunix_listbox()
 	$param_widgets
 	$param_sunix
 	
 call:
   $gui_history			->set4start_of_sunix_select;
   $gui_history	->set4end_of_sunix_select() ;
    $color_flow_href 			= $gui_history->get_hash_ref();