view release on metacpan or  search on metacpan

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

my $move_label = $mw->Label(
	-font    => $arial_14_italic,
	-justify => 'center',

	#	-padx		 => $var_L_SU->{_3_pixels},
	#	-height      => $var_L_SU->{_1_character},
	#	-width       => $var_L_SU->{_2_characters},
	-text        => 'move',
	-borderwidth => $var_L_SU->{_1_pixel},
	-background  => $var_L_SU->{_light_gray},
);

=head2 Label 
widget box for velocity m/s

=cut

my $velocity_label = $mw->Label(
	-font    => $arial_18_italic,
	-justify => 'center',

	#	-padx		 => $var_L_SU->{_3_pixels},
	#	-height      => $var_L_SU->{_1_character},
	#	-width       => $var_L_SU->{_2_characters},
	-text        => 'Vp m/s',
	-borderwidth => $var_L_SU->{_1_pixel},
	-background  => $var_L_SU->{_light_gray},
);

=head2 Label 
widget box for Layer number

=cut

my $zoom_label = $mw->Label(
	-font    => $arial_14_italic,
	-justify => 'center',

	#	-padx		 => $var_L_SU->{_3_pixels},
	#	-height      => $var_L_SU->{_1_character},
	#	-width       => $var_L_SU->{_2_characters},
	-text        => 'zoom',
	-borderwidth => $var_L_SU->{_1_pixel},
	-background  => $var_L_SU->{_light_gray},
);

=pod GRID STARTS HERE 

=cut

=head2
row index = 0 col8

=cut

$Vlayer_frame->grid(
	$velocity_label,
	-row        => 0,
	-column     => 8,
	-columnspan => 1,
	-sticky     => 'ew',
);

=head2
row index = 0 col 9

=cut

$Vlayer_frame->grid(
	$layerLabel,
	-row        => 0,
	-column     => 9,
	-columnspan => 1,
	-sticky     => 'ew',
);

=head2
row index = 0 col 10

=cut

$Vlayer_frame->grid(
	$thickness_mLabel,
	-row        => 0,
	-column     => 10,
	-columnspan => 2,
	-sticky     => 'ew',
);

=head2
row index = 1-2 col 3

=cut

$Vlayer_frame->grid(
	$VtopNVbot_upper_layer_plus_button,
	-row     => 1,
	-column  => 3,
	-rowspan => 2,
	-sticky  => 'nsew',
);

=head2
row index = 1-2 col4

=cut

$Vlayer_frame->grid(
	$VtopNVbot_upper_layer_minus_button,
	-row     => 1,
	-column  => 4,
	-rowspan => 2,
	-sticky  => 'nsew',
);

=head2
row index = 1 col 8

=cut

$Vlayer_frame->grid(
	$Vbot_upper_layerEntry,
	-row     => 1,
	-column  => 8,
	-rowspan => 1,
	-sticky  => 'nsew',
);

=head2
row index = 1 col 9

=cut

$Vlayer_frame->grid(
	$upper_layerLabel,
	-row     => 1,
	-column  => 9,
	-rowspan => 1,
	-sticky  => 'nsew',
);

=head2
row index = 2 col 8

=cut

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

	-column  => 7,
	-rowspan => 1,
);

=head2
row index 3 col5

=cut

$Vlayer_frame->grid(
	$Vbot_label,
	-row     => 3,
	-column  => 5,
	-rowspan => 1,
);

=head2
row index 3 col 6

=cut

$Vlayer_frame->grid(
	$Vbot_plus_button,
	-row     => 3,
	-column  => 6,
	-rowspan => 1,
);

=head2
row index 3 col 7

=cut

$Vlayer_frame->grid(
	$Vbot_minus_button,
	-row     => 3,
	-column  => 7,
	-rowspan => 1,
);

=head2
row index 4 col 5
=cut

$Vlayer_frame->grid(
	$Vtop_lower_layer_label,
	-row     => 4,
	-column  => 5,
	-rowspan => 1,
	-sticky  => 'nsew',
);

=head2
row index 5 col 8
=cut

$Vlayer_frame->grid(
	$update_button,
	-row        => 5,
	-column     => 8,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 5 col 4

=cut

$Vlayer_frame->grid(
	$empty_label,
	-row        => 5,
	-column     => 4,
	-columnspan => 2,
	-rowspan    => 1,
	-pady       => 1,
	-sticky     => 'nsew',
);

=head2
row index = 0 col 0

=cut

$Vlayer_frame->grid(
	$exit_button,
	-row        => 0,
	-column     => 0,
	-columnspan => 2,
	-rowspan    => 1,
	-pady       => 1,
	-sticky     => 'nsew',
);

=head2
row index = 8 col 1

=cut

$Vlayer_frame->grid(
	$move_down_button,
	-row        => 8,
	-column     => 1,
	-columnspan => 2,
	-rowspan    => 1,
	-pady       => 1,
	-sticky     => 'nsew',
);

=head2
row index = 7 col 0

=cut

$Vlayer_frame->grid(
	$move_left_button,
	-row        => 7,
	-column     => 0,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 7 col 3

=cut

$Vlayer_frame->grid(
	$move_right_button,
	-row        => 7,
	-column     => 3,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 6 col 1

=cut

$Vlayer_frame->grid(
	$move_up_button,
	-row        => 6,
	-column     => 1,
	-columnspan => 2,
	-pady       => 0,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 7 col 1

=cut

$Vlayer_frame->grid(
	$move_label,
	-row        => 7,
	-column     => 1,
	-columnspan => 2,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 7 col 5

=cut

$Vlayer_frame->grid(
	$zoom_label,
	-row        => 7,
	-column     => 5,
	-columnspan => 2,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 6 col 5

=cut

$Vlayer_frame->grid(
	$zoom_plus_button,
	-row        => 6,
	-column     => 5,
	-columnspan => 2,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 8 col 5

=cut

$Vlayer_frame->grid(
	$zoom_minus_button,
	-row        => 8,
	-column     => 5,
	-columnspan => 2,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 6 col 8

=cut

$Vlayer_frame->grid(
	$Vincrement_label,
	-row        => 6,
	-column     => 8,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 7 col 8

=cut

$Vlayer_frame->grid(
	$thickness_increment_m_label,
	-row        => 7,
	-column     => 8,        #
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 8 col 8

=cut

$Vlayer_frame->grid(
	$VbotNtop_factor_label,
	-row        => 8,
	-column     => 8,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 9 col 9

=cut

$Vlayer_frame->grid(
	$clip4plot_label,
	-row        => 9,
	-column     => 8,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 9 col 8

=cut

$Vlayer_frame->grid(
	$clip4plotEntry,
	-row        => 9,
	-column     => 9,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 6 col 9

=cut

$Vlayer_frame->grid(
	$VincrementEntry,
	-row        => 6,
	-column     => 9,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 7 col 9

=cut

$Vlayer_frame->grid(
	$thickness_increment_mEntry,
	-row        => 7,
	-column     => 9,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

=head2
row index = 9 col 8

=cut

$Vlayer_frame->grid(
	$VbotNtop_factorEntry,
	-row        => 8,
	-column     => 9,
	-columnspan => 1,
	-rowspan    => 1,
	-sticky     => 'nsew',
);

MainLoop;    # for Tk widgets

sub _delay {
	my ($self) = @_;
	
	my ($time_passed, $usecs_now,$usecs_start);
	my ($secs_now,$secs_start);
	
	($secs_start,$usecs_start) = gettimeofday(); 
	$time_passed = $var_immodpg->{_time_passed_us_default};
	
	while ( $time_passed < $var_immodpg->{_time_delay_us} ) {

		($secs_now,$usecs_now) = gettimeofday();
	    $time_passed = $usecs_now - $usecs_start;

	}
	
#	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);