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

DOCUMENTATION

SYNOPSIS

PERL PACKAGE 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

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}

}