/ 
App-SeismicUnixGui-0.87.2
River stage zero No dependents
/ App::SeismicUnixGui::misc::whereami2

DOCUMENTATION

SYNOPSIS

PERL PERL PROGRAM NAME: whereami.pm 
AUTHOR: Juan Lorenzo
DATE: June 22 2017 

DESCRIPTION 
    
BASED ON:

USE

NOTES only sets values internally does not modify values outside the package use to locate the user within the gui

Examples

CHANGES and their DATES

9-25-19 extended into a gui_history

private hash references

16 off

sub _reset

16 off

sub get4All

 foreach my $key (sort keys %$here) {
 		print("1. whereami,get4All,key $key, value: $here->{$key}\n");
}

sub reset4All

 foreach my $key (sort keys %$here) {
 		print("1. whereami,get4All,key $key, value: $here->{$key}\n");
}

sub get4add2flow

sub get4add2flow_button

sub get4check_code_button

sub get4delete_from_flow_button

sub get4dragNdrop

sub _get_flow_color

sub get4flow_listbox

TODO: distinguihs between listboxes --grey,pink,green and blue... 4 off

sub get4moveNdrop_in_flow

sub get4run_button

sub get4flow_select_button

sub get4Save_button

sub get4SaveAs_button

sub get4superflow_select_button

sub get4sunix_listbox

sub set4add2flow

sub set4add2flow_button

sub set4check_code_button

sub set4delete_from_flow_button

sub set4dragNdrop

sub _set_flow_color

sub set4flow_listbox

	TODO: distinguish between listboxes grey,pink,green or blue
   	foreach my $key (sort keys %$whereami) {
  			print (" grey_flow key is $key, value is $whereami->{$key}\n");
 		}

sub set4flow_select

sub set4moveNdrop_in_flow

sub set4run_button

sub set4Save_button

sub set4SaveAs_button

sub set4sunix_listbox

sub set4superflow_select_button

sub widget_type

# print(" self:$self widget: $widget\n");
  my @fields         = split (/\./,$widget->PathName());    
  my $widget_name    = $fields[-1];
  print ( "whereami, widget_type, widget name is $fields[-1]\n");
  print(" reference: $reference\n");

sub in_gui

screen location by using part of the widget name
   print(" currently  focus lies in: $screen_location\n");
   print(" 2. widget is $i\n");
   my $screen_location = $widget->focusCurrent;
   my $reference       = ref $screen_location;
   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}

}