view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/immodpg.pl  view on Meta::CPAN

	}
	
#	if( $time_passed > $var_immodpg->{_time_delay_s} ) {
#	 	   print("usecs_now  = $usecs_now\n");
#           print("time_passed=$time_passed\n");
#	}
	
	return();
	 }

=head2 sub _setVincrement
_setVincrement sets
interaction with immodpg.for
writes out Vincrement for immodpg to read
 return(1) validates command for Entry
 
=cut

sub _setVincrement {

	# print("immodpg.pl,_Vincrement,$immodpg_Tk->{_VincrementEntry}\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVincrement();
	return (1);
}

=head2 sub _setVbotNtop_factor
_setVbotNtop_factor sets
interaction with immodpg.for
writes out VbotNtop_factor for immodpg to read
 return(1) validates command for Entry
 
=cut

sub _setVbotNtop_factor {

	# print("immodpg.pl,_setVbotNtop_factor,$immodpg_Tk->{_VbotNtop_factorEntry}\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbotNtop_factor();
	return (1);
}

=head2 sub _set_clip
_set_clip sets
interaction with immodpg.for
writes out clip for immodpg to read
return(1) validates command for Entry'

=cut

sub _set_clip {

	#	print("immodpg.pl,_set_clip,$immodpg_Tk->{_clip4plotEntry}\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->set_clip();
	return (1);
}

=head2 sub _set_layer
 callbacks
 write out message for mmodpg.f
 writes out layer for immodpg to read
 return(1) validates command for Entry
 
=cut

sub _set_layer {

	#	print("immodpg.pl,_set_layer,$immodpg_Tk->{_layerEntry}\n");
	#	print("\nimmodpg.pl,_set_layer,layer=$layer\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->set_layer();
	return (1);
}

=head2 sub _setVbot
 callbacks:
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry
 
=cut

sub _setVbot {

	# print("main,_setVbot, Vbot_opt=$Vbot_opt\n");
	# print("main,_setVbot, immodpg_Tk->{_VbotEntry}= $immodpg_Tk->{_VbotEntry}\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbot();
	return (1);
}

=head2 sub _setVbot_upper_layer
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry
 
=cut

sub _setVbot_upper_layer {

	my ($self) = @_;

	#	print("main,_setVbot_upper_layer, Vbot_upper_layer_opt=$Vbot_upper_layer_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbot_upper_layer();
	return (1);
}

=head2 sub _setVtop
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry

=cut

sub _setVtop {

	# print("main,_setVtop, Vtop_opt=$Vtop_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop();
	return (1);
}

=head2 sub _setVtop_lower_layer
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry
 
=cut

sub _setVtop_lower_layer {

	my ($self) = @_;

	#	print("main,_setVtop_lower_layer, Vtop_lower_layer_opt=$Vtop_lower_layer_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop_lower_layer();
	return (1);
}

=head2 sub _setVbotNtop_multiply
 callbacks:
 - provide widgets to immodpg
 -refocus allows other Entries to update (focus)
 -update the gui for factor (_setVbotNtop_factor)
 _setVbotNtop_factor ALSO provides widgets to immodpg
 -update gui velocities (->setVbotNtop_multiply)
 -write out message for mmodpg.f:
 	set_option
 	set_change
 	set interactions with immodpg.f

=cut

sub _setVbotNtop_multiply {

	# print("main,_setVbotNtop_multiply, VbotNtop_multiply_opt=$VbotNtop_multiply_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbotNtop_multiply();

}

=head2 sub _setVbot_minus

 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbot_minus {

	$immodpg->set_widgets($immodpg_Tk);

	# print("write Vbot_minus_opt -, $Vbot_minus_opt\n");
	$immodpg->setVbot_minus();

}


=head2 sub _setVbotNVtop_lower_layer_minus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbotNVtop_lower_layer_minus {

	$immodpg->set_widgets($immodpg_Tk);

	#	print("write VbotNVtop_lower_layer_minus -, $VbotNVtop_lower_layer_minus_opt \n");
	$immodpg->setVbotNVtop_lower_layer_minus();

}

=head2 sub _setVbotNVtop_lower_layer_plus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbotNVtop_lower_layer_plus {

	$immodpg->set_widgets($immodpg_Tk);

	# print("write VbotNVtop_lower_layer_plus +, $VbotNVtop_lower_layer_plus_opt \n");
	$immodpg->setVbotNVtop_lower_layer_plus();

}

=head2 sub _setVbot_plus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbot_plus {

	#	print("main  _setVbot_plus,Vbot_plus_opt +=$Vbot_plus_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbot_plus();

}

=head2 sub _setVtop_minus
 callbacks
 setVtop_minus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtop_minus {

	# print("write Vtop_minus_opt -, $Vtop_minus_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop_minus();

}

=head2 sub _setVtop_plus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtop_plus {

	# print("write Vtop_plus_opt +,$Vtop_plus_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop_plus();

}

=head2 sub _setVbotNtop_minus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f
 
 create pause between Vbot and Vtop changes

=cut

sub _setVbotNtop_minus {
	my ($self) = @_;
    
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbotNtop_minus();
	
}

=head2 sub _setVbotNtop_plus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 
=cut

sub _setVbotNtop_plus {

	# print("write VbotNVtop_plus +\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbotNtop_plus();

}


=head2 sub _setVtopNVbot_upper_layer_minus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtopNVbot_upper_layer_minus {

	$immodpg->set_widgets($immodpg_Tk);
	# print("main,_setVtopNVbot_upper_layer_minus, write VtopNVbot_upper_layer_minus -,$VtopNVbot_upper_layer_minus_opt \n");
	$immodpg->setVtopNVbot_upper_layer_minus();
}

=head2 sub _setVtopNVbot_upper_layer_plus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtopNVbot_upper_layer_plus {

	$immodpg->set_widgets($immodpg_Tk);

	#	print("write VtopNVbot_upper_layer_plus +, $VtopNVbot_upper_layer_plus_opt \n");
	$immodpg->setVtopNVbot_upper_layer_plus();

}

=head2 sub _set_exit

 callbacks
 write out message for mmodpg.f
 write out
  saying goodbye
  clear old images
  kill window
  stop script

=cut

sub _set_exit {

	my ($self) = @_;

	# print("write_set_exit\n");
	#	$exit_button->focus;
	$immodpg->set_option($exit_opt);
	$immodpg->set_change($yes);
	
	# kill pgxwin_server
	$immodpg->exit();

	# kill mw window
	$mw->destroy() if Tk::Exists($mw);

}

=head2 sub _set_move_down
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_down {

	#	$move_down_button->focus;
	# print("write _set_move_down -\n");
	$immodpg->set_option($move_down_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_move_left
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_left {

	#	$move_left_button->focus;
	# print("write_set_move_left -\n");
	$immodpg->set_option($move_left_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_move_right
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_right {

	#	$move_right_button->focus;
	# print("write_set_move_right -\n");
	$immodpg->set_option($move_right_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_move_up
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_up {

	# print("write_set_move_up -\n");
	#	$move_up_button->focus;
	$immodpg->set_option($move_up_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_update
New focus is needed within set_update,
specifically:
 immodpg,_check_update
=cut

sub _set_update {

	my ($self) = @_;

	#print("immodpg.pl,_set_update\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->set_update();
	return ();
}

=head2 sub _set_zoom_minus
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_zoom_minus {

	# print("write_set_zoom_minus -\n");
	$immodpg->set_option($zoom_minus_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_zoom_plus
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_zoom_plus {

	# print("write _set_zoom_plus +\n");
	$immodpg->set_option($zoom_plus_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_thickness_m

=cut

sub _set_thickness_m {

	# print("main,_set_thickness_m, change_thickness_m_opt=$change_thickness_m_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->set_thickness_m();
	return (1);

}

=head2 sub _set_thickness_m_minus

=cut

sub _set_thickness_m_minus {

	$immodpg->set_widgets($immodpg_Tk);

	# print("write _set_thickness_m_minus - \n");
	$immodpg->set_thickness_m_minus();

}

=head2 sub _set_thickness_m_plus

=cut

sub _set_thickness_m_plus {

	$immodpg->set_widgets($immodpg_Tk);

	# print("write _set_thickness_m_plus -\n");
	$immodpg->set_thickness_m_plus();

}

=head2 sub _set_thickness_increment_m

=cut

sub _set_thickness_increment_m {

	# print("immodpg.pl,_thickness_increment_m,$immodpg_Tk->{_thickness_increment_mEntry}\n");
	$immodpg->set_widgets($immodpg_Tk);