view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iBottomMute.pl view on Meta::CPAN
value according
to which button is pressed
then exit the MainLoop
destroy the main window after the prompt
is properly set
=cut
=head2 sub set_pick
callbacks
send gather number to $iBM
delete output of previous semblance
plus more callbacks following...
=cut
sub set_pick {
my $pick = 'pick';
$pick_rb->configure( -state => 'normal' );
$iBM_Tk->{_prompt} = $pick;
print("Picking...\n");
lib/App/SeismicUnixGui/big_streams/iBottomMute.pl view on Meta::CPAN
}
=head2 sub set_next
In this case the $variable is empty
1. increment gather
Exit if beyond last gather
2. reset prompt
3. Otherwise display the first semblance
4 ... see following callbacks
=cut
sub set_next {
print("Next...\n");
$next_rb->configure( -state => 'normal' );
my $next = '';
$iBM_Tk->{_prompt} = $next;
$gather = $gather + $gather_inc;
lib/App/SeismicUnixGui/big_streams/iPick.pl view on Meta::CPAN
value according
to which button is pressed
then exit the MainLoop
destroy the main window after the prompt
is properly set
=cut
=head2 sub set_pick
callbacks
send gather number to $iPick
delete output of previous displays
=cut
sub set_pick {
my ($self) = @_;
my $pick = 'pick';
lib/App/SeismicUnixGui/big_streams/iPick.pl view on Meta::CPAN
}
=head2 sub set_next
In this case $self is empty
1. increment gather
Exit if beyond last gather
2. reset prompt
3. Otherwise display the first semblance
4 ... see following callbacks
=cut
sub set_next {
my ($self) = @_;
print("Next...\n");
$next_rb->configure( -state => 'normal' );
my $next = '';
$iPick_Tk->{_prompt} = $next;
lib/App/SeismicUnixGui/big_streams/iSpectralAnalysis.pl view on Meta::CPAN
value according
to which button is pressed
then exit the MainLoop
destroy the main window after the prompt
is properly set
=cut
=head2 sub set_pick
callbacks
send gather number to $iSA
delete output of previous semblance
plus more callbacks following...
=cut
sub set_pick {
my $pick = 'pick';
$pick_rb->configure( -state => 'normal' );
$iSA_Tk->{_prompt} = $pick;
print("Picking...\n");
$iSA->select();
lib/App/SeismicUnixGui/big_streams/iTopMute.pl view on Meta::CPAN
value according
to which button is pressed
then exit the MainLoop
destroy the main window after the prompt
is properly set
=cut
=head2 sub set_pick
callbacks
send gather number to $iTM
delete output of previous semblance
plus more callbacks following...
=cut
sub set_pick {
my $pick = 'pick';
$pick_rb->configure( -state => 'normal' );
$iTM_Tk->{_prompt} = $pick;
print("Picking...\n");
lib/App/SeismicUnixGui/big_streams/iTopMute.pl view on Meta::CPAN
}
=head2 sub set_next
In this case $self is empty
1. increment gather
Exit if beyond last gather
2. reset prompt
3. Otherwise display the first semblance
4 ... see following callbacks
=cut
sub set_next {
print("Next...\n");
$next_rb->configure( -state => 'normal' );
my $next = '';
$iTM_Tk->{_prompt} = $next;
$gather = $gather + $gather_inc;
lib/App/SeismicUnixGui/big_streams/iVelocityAnalysis.pl view on Meta::CPAN
MainLoop; # for Tk widgets
} # for new data
=pod sub set_pick
A callback to:
send cdp number to $iVA
delete output of previous semblance
plus more callbacks following...
=cut
sub set_pick {
my $pick = 'pick';
$next_rb->configure( -state => 'disabled' );
#$pick_rb->configure(-state => 'normal');
$calc_rb->configure( -state => 'normal' );
lib/App/SeismicUnixGui/big_streams/iVelocityAnalysis.pl view on Meta::CPAN
}
=pod sub set_next
In this case the $variable is empty
1. increment cdp
Exit if beyond last cdp
2. reset prompt
3. Otherwise display the first sembance
4 ... see following callbacks
=cut
sub set_next {
print("Next...\n");
$next_rb->configure( -state => 'normal' );
$calc_rb->configure( -state => 'disabled' );
my $next = '';
$iVA_Tk->{_prompt} = $next;
lib/App/SeismicUnixGui/big_streams/pre_built_big_stream.pm view on Meta::CPAN
$param_widgets->set_current_program($prog_name_sref);
$param_widgets->redisplay_labels();
$param_widgets->redisplay_values();
$param_widgets->redisplay_check_buttons();
# Focus on first entry field (no highlighting)
my @Entry_widget = @{ $param_widgets->get_values_w_aref() };
$Entry_widget[0]->focus;
# Bind callbacks and actions
my $run_name = $internal_name;
$binding->set_prog_name_sref( \$run_name );
$binding->set_values_w_aref( $param_widgets->get_values_w_aref );
$binding->setFileDialog_button_sub_ref($pre_built_big_stream_href_sub_ref);
$binding->set();
# Update reference data for export
$values_aref = $pre_built_big_stream_href->{_values_aref};
gui_history->set_hash_ref($pre_built_big_stream_href);
gui_history->set4end_of_superflow_select();