view release on metacpan or  search on metacpan

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

=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,

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

);

=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);