App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iBottomMute.pl view on Meta::CPAN
my $h = $mw->screenheight();
my $w = $mw->screenwidth();
print("width and height of screen are $w,$h\n\n");
print("geometry of screen is $geom\n\n");
=cut
$mw = MainWindow->new;
$mw->geometry("400x50+40+0");
$mw->title("Interactive Bottom Mute");
$mw->configure( -background => $var->{_my_purple} );
$calc_rb = $mw->Radiobutton(
-text => 'CALC',
-background => $var->{_my_yellow},
-value => 'calc',
-variable => \$rb_value,
-command => [ \&set_calc ]
)->pack( -side => 'left' );
$next_rb = $mw->Radiobutton(
-text => 'NEXT',
-background => $var->{_my_yellow},
-value => 'next',
-variable => \$rb_value,
-command => [ \&set_next ]
)->pack( -side => 'left' );
$pick_rb = $mw->Radiobutton(
-text => 'PICK',
-background => $var->{_my_yellow},
-value => 'pick',
-variable => \$rb_value,
-command => [ \&set_pick ]
)->pack( -side => 'left' );
$saveNcont_rb = $mw->Radiobutton(
-text => 'Save and Continue',
-background => $var->{_my_yellow},
-value => 'saveNcont',
-variable => \$rb_value,
-command => [ \&set_saveNcont ]
)->pack( -side => 'left' );
$exit_rb = $mw->Radiobutton(
-text => 'EXIT',
-background => $var->{_my_yellow},
-value => 'exit',
-variable => \$rb_value,
-command => [ \&set_exit ]
)->pack( -side => 'left' );
MainLoop; # for Tk widgets
} # for new data
=head2 Set the prompt
lib/App/SeismicUnixGui/big_streams/iPick.pl view on Meta::CPAN
my $w = $mw->screenwidth();
print("width and height of screen are $w,$h\n\n");
print("geometry of screen is $geom\n\n");
=cut
$mw = MainWindow->new;
$mw->geometry("400x50+40+0");
$mw->title("Interactive Picking");
$mw->configure( -background => $var->{_my_purple} );
$calc_rb = $mw->Radiobutton(
-text => 'CALC',
-background => $var->{_my_yellow},
-value => 'calc',
-variable => \$rb_value,
-command => [ \&set_calc ]
)->pack( -side => 'left' );
$next_rb = $mw->Radiobutton(
-text => 'NEXT',
-background => $var->{_my_yellow},
-value => 'next',
-variable => \$rb_value,
-command => [ \&set_next ]
)->pack( -side => 'left' );
$pick_rb = $mw->Radiobutton(
-text => 'PICK',
-background => $var->{_my_yellow},
-value => 'pick',
-variable => \$rb_value,
-command => [ \&set_pick ]
)->pack( -side => 'left' );
$saveNcont_rb = $mw->Radiobutton(
-text => 'Save and Continue',
-background => $var->{_my_yellow},
-value => 'saveNcont',
-variable => \$rb_value,
-command => [ \&set_saveNcont ]
)->pack( -side => 'left' );
$exit_rb = $mw->Radiobutton(
-text => 'EXIT',
-background => $var->{_my_yellow},
-value => 'exit',
-variable => \$rb_value,
-command => [ \&set_exit ]
)->pack( -side => 'left' );
MainLoop; # for Tk widgets
} # for new data
=head2 Set the prompt
lib/App/SeismicUnixGui/big_streams/iSave_picks.pm view on Meta::CPAN
# Main Window
my $mw = MainWindow->new();
my $arial_14 = $mw->fontCreate(
'arial_14',
-family => 'arial',
-weight => 'bold',
-size => -14
);
$mw->configure( -background => $var->{_my_purple} );
use App::SeismicUnixGui::messages::message_director;
my $iPick_message = message_director->new();
my $message = $iPick_message->iPick(0);
$mw->messageBox(
-title => "iPick geopsy",
-font => $arial_14,
-message => $message,
-background => $var->{_my_yellow},
-default => 'oK',
);
print("iSave_picks,calc, $message\n");
}
}
# CASE 2 - normal case
elsif ( not defined $iSave_picks->{_purpose}
|| $iSave_picks->{_purpose} eq $empty_string )
{
lib/App/SeismicUnixGui/big_streams/iSpectralAnalysis.pl view on Meta::CPAN
=cut
$mw = MainWindow->new;
$mw->geometry("200x50+40+0");
$mw->title("Spectra");
$mw->configure(
-highlightcolor => 'blue',
#-borderwidth => $var->{_no_borderwidth},
-background => $var->{_my_purple},
);
=head2 Display
data first time
=cut
print("NEW PICKS\n");
lib/App/SeismicUnixGui/big_streams/iSpectralAnalysis.pl view on Meta::CPAN
configuration
my @config = $mw->configure();
print Pretty @config;
=cut
$calc_rb = $mw->Radiobutton(
-text => 'CALC',
-background =>,
$var->{_my_yellow},
-value => 'calc',
-variable => \$rb_value,
-command => [ \&set_calc ]
)->pack( -side => 'left' );
$pick_rb = $mw->Radiobutton(
-text => 'PICK',
-background => $var->{_my_yellow},
-value => 'pick',
-variable => \$rb_value,
-command => [ \&set_pick ]
)->pack( -side => 'left' );
$exit_rb = $mw->Radiobutton(
-text => 'EXIT',
-background =>,
$var->{_my_yellow},
-value => 'pick',
-variable => \$rb_value,
-command => [ \&set_exit ]
)->pack( -side => 'left' );
MainLoop; # for Tk widgets
=head2 Set the prompt
lib/App/SeismicUnixGui/big_streams/iTopMute.pl view on Meta::CPAN
my $h = $mw->screenheight();
my $w = $mw->screenwidth();
print("width and height of screen are $w,$h\n\n");
print("geometry of screen is $geom\n\n");
=cut
$mw = MainWindow->new;
$mw->geometry("400x50+40+0");
$mw->title("Interactive Top Mute");
$mw->configure( -background => $var->{_my_purple} );
$calc_rb = $mw->Radiobutton(
-text => 'CALC',
-background => $var->{_my_yellow},
-value => 'calc',
-variable => \$rb_value,
-command => [ \&set_calc ]
)->pack( -side => 'left' );
$next_rb = $mw->Radiobutton(
-text => 'NEXT',
-background => $var->{_my_yellow},
-value => 'next',
-variable => \$rb_value,
-command => [ \&set_next ]
)->pack( -side => 'left' );
$pick_rb = $mw->Radiobutton(
-text => 'PICK',
-background => $var->{_my_yellow},
-value => 'pick',
-variable => \$rb_value,
-command => [ \&set_pick ]
)->pack( -side => 'left' );
$saveNcont_rb = $mw->Radiobutton(
-text => 'Save and Continue',
-background => $var->{_my_yellow},
-value => 'saveNcont',
-variable => \$rb_value,
-command => [ \&set_saveNcont ]
)->pack( -side => 'left' );
$exit_rb = $mw->Radiobutton(
-text => 'EXIT',
-background => $var->{_my_yellow},
-value => 'exit',
-variable => \$rb_value,
-command => [ \&set_exit ]
)->pack( -side => 'left' );
MainLoop; # for Tk widgets
} # for new data
=head2 Set the prompt
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
=head2 Establish Main Window
=cut
$mw->deiconify();
$mw->raise();
$mw->geometry("430x280+40+100");
$mw->title("immodpg2");
$mw->configure(
-highlightcolor => 'blue',
-background => $var_L_SU->{_my_purple},
);
$mw->focusFollowsMouse;
=head2 top_settings frame
Contains:
(1) working layer
(2) z inc and V inc in m/s
help goes to superflow bindings
=cut
my $Vlayer_frame = $mw->Frame(
-borderwidth => $var_L_SU->{_no_borderwidth},
-background => $var_L_SU->{_my_purple},
-relief => 'groove',
);
=head2 Create
font types
=cut
my $arial_14 = $mw->fontCreate(
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
=cut
=head2 VbotEntry
=cut
my $VbotEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vbot,
);
# print("main,VbotEntry= $VbotEntry\n");
=head2 VbotEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-invalidcommand => sub { print "VbotEntry_box,ERROR.\n" },
);
=head2 Vbot_upper_layerEntry
=cut
my $Vbot_upper_layerEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vbot_upper_layer,
);
=head2 Vbot_upper_layerEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-invalidcommand => sub { print "Vbot_upper_layerEntry_box,ERROR.\n" },
);
=head2 VincrementEntry
=cut
my $VincrementEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vincrement_mps,
);
=head2 VincrementEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validatecommand => \&_setVincrement,
-invalidcommand => sub { print "Vincrement_box,ERROR.\n" },
);
=head2 VtopEntry
=cut
my $VtopEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vtop,
);
=head2 VtopEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-invalidcommand => sub { print "Vtop_box,ERROR.\n" },
);
=head2 VbotNtop_factorEntry
=cut
my $VbotNtop_factorEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$VbotNtop_factor,
);
=head2 VbotNtop_factorEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-invalidcommand => sub { print "VtopNbit_box,ERROR.\n" },
);
=head2 Vtop_lower_layerEntry
=cut
my $Vtop_lower_layerEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vtop_lower_layer,
);
=head2 Vtop_lower_layerEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-invalidcommand => sub { print "Vtop_lower_layerEntry_box,ERROR.\n" },
);
=head2 clip4plotEntry
=cut
my $clip4plotEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$clip4plot,
);
=head2 clip4plotEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
);
=head2 layerEntry
=cut
my $layerEntry = $mw->Entry(
-font => $arial_18,
-justify => 'center',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$layer,
);
=head2 layerEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
);
=head2 lower_layerLabel
=cut
my $lower_layerLabel = $mw->Label(
-font => $arial_18,
-justify => 'center',
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$lower_layer,
);
=head2 lower_layerLabel widget will be updated
in immodpg
=cut
$immodpg_Tk->{_lower_layerLabel} = $lower_layerLabel;
=head2 Entry _thickness_increment_mEntryEntry
=cut
my $thickness_increment_mEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$thickness_increment_m,
);
=head2 thickness_increment_mEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-invalidcommand => sub { print "thickness_increment_box,ERROR.\n" },
);
=head2 thickness_mEntry
=cut
my $thickness_mEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$thickness_m,
);
=head2 thickness_mEntry
MUST first be created before it can be used by
a callback subroutine
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
);
=head2 thickness_mLabel
=cut
my $thickness_mLabel = $mw->Label(
-font => $arial_18_italic,
-justify => 'right',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
-text => ' thickness (m)',
);
=head2 upper_layerLabel
=cut
my $upper_layerLabel = $mw->Label(
-font => $arial_18,
-justify => 'center',
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$upper_layer,
);
=head2 upper_layerLabel widget will be update
in immodpg
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
=cut
$exit_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
-border => 0,
-padx => 0,
-pady => 0,
-text => 'Exit',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_yellow},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_black},
-activeforeground => $var_L_SU->{_my_black},
-activebackground => $var_L_SU->{_my_yellow},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_exit ],
);
=head2
row index
=cut
$move_down_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
-border => 0,
-padx => 0,
-pady => 0,
-text => 'down',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_move_down ],
);
=head2
row index
=cut
$move_left_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '<--',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_move_left ],
);
=head2
row index
=cut
$move_right_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-->',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_move_right ],
);
=head2
row index
=cut
$move_up_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => 'up',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_move_up ],
);
=head2
row index 1-2 col 3
=cut
$VtopNVbot_upper_layer_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVtopNVbot_upper_layer_plus ],
);
=head2
row index 3-4 col 4
=cut
$VtopNVbot_upper_layer_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVtopNVbot_upper_layer_minus ],
);
=head2
row index 2, col 6
=cut
$Vtop_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVtop_plus ],
);
=head2
row index
=cut
$VbotNtop_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVbotNtop_plus ],
);
=head2
row index
=cut
$Vbot_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
# -takefocus => 1,
-command => [ \&_setVbot_plus ],
);
=head2
row index
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
$VbotNVtop_lower_layer_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVbotNVtop_lower_layer_plus ],
);
=head2
row index
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
$VbotNVtop_lower_layer_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVbotNVtop_lower_layer_minus ],
);
=head2 VbotNtop_multiply_button
row index = 1 col 2
=cut
$VbotNtop_multiply_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => 'x',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVbotNtop_multiply ],
);
=head2
row index = 1 col 2
=cut
$VbotNtop_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVbotNtop_minus ],
);
=head2
row index = 2 col 7
=cut
$Vtop_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVtop_minus ],
);
=head2
row index = 3 col 7
=cut
$Vbot_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_setVbot_minus ],
);
=head2
row index
=cut
$thickness_m_minus_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_thickness_m_minus ],
);
=head2
row index
=cut
$thickness_m_plus_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_thickness_m_plus ],
);
=head2
row index=5
=cut
$update_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
-border => 0,
-padx => 0,
-pady => 0,
-text => 'Update',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_yellow},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_black},
-activeforeground => $var_L_SU->{_my_black},
-activebackground => $var_L_SU->{_my_yellow},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_update ],
);
=head2 zoom_minus_button
row index 1-2 col 3
=cut
$zoom_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_zoom_minus ],
);
=head2 zoom_plus_button
row index 1-2 col 3
=cut
$zoom_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
-activebackground => $var_L_SU->{_my_dark_grey},
-relief => 'flat',
-state => 'active',
-command => [ \&_set_zoom_plus ],
);
=head2 Label widgets
=cut
=head2 Label
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
=cut
my $Vbot_upper_label = $mw->Label(
-font => $arial_18,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vbot',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Vincrement
=cut
my $Vincrement_label = $mw->Label(
-font => $arial_16_italic,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vinc (m/s)',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
#widget box for Vtop
=cut
my $Vtop_label = $mw->Label(
-font => $arial_18_bold,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vtop',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Vtop of lower layer
=cut
my $Vtop_lower_layer_label = $mw->Label(
-font => $arial_18,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vtop',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Vbot
=cut
my $Vbot_label = $mw->Label(
-font => $arial_18_bold,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vbot',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
factor
=cut
my $VbotNtop_factor_label = $mw->Label(
-font => $arial_16_italic,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vfactor',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
clip4plot
=cut
my $clip4plot_label = $mw->Label(
-font => $arial_16_italic,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'clip',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for thicknes increment
=cut
my $thickness_increment_m_label = $mw->Label(
-font => $arial_16_italic,
-padx => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'inc (m)',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
empty
=cut
my $empty_label = $mw->Label(
-font => $arial_14,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => '',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_my_purple},
);
=head2 Label
widget box for Layer number
=cut
my $layerLabel = $mw->Label(
-font => $arial_18_italic,
-justify => 'left',
# -padx => $var_L_SU->{_3_pixels},
# -height => $var_L_SU->{_1_character},
# -width => $var_L_SU->{_2_characters},
-text => 'layer',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Layer number
=cut
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
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
-size => -14
);
=head2 message box
withdraw temporarily while filling
with widgets
=cut
$immodpg->{_message_box_w} =
$immodpg->{_mw}->Toplevel( -background => $var_L_SU->{_my_yellow}, );
$immodpg->{_message_box_w}->withdraw;
$immodpg->{_message_box_w}->geometry( $var_L_SU->{_message_box_geometry} );
$immodpg->{_message_upper_frame} = $immodpg->{_message_box_w}->Frame(
-borderwidth => $var_L_SU->{_no_borderwidth},
-background => $var_L_SU->{_my_yellow},
);
$immodpg->{_message_lower_frame} = $immodpg->{_message_box_w}->Frame(
-borderwidth => $var_L_SU->{_no_borderwidth},
-background => $var_L_SU->{_my_yellow},
-height => '10',
);
$immodpg->{_message_label_w} = $immodpg->{_message_upper_frame}->Label(
-background => $var_L_SU->{_my_yellow},
-font => $arial_14_b,
-justify => 'left',
);
$immodpg->{_message_box_wait} = $var_L_SU->{_yes};
$immodpg->{_message_ok_button} = $immodpg->{_message_box_w}->Button(
-text => "ok",
-font => $arial_14_b,
-command => sub {
$immodpg->{_message_box_w}->grabRelease;
lib/App/SeismicUnixGui/developer/Stripped/NMO_Vel_Stk/suvelan.su.main.velocity_analysis view on Meta::CPAN
j=0
where n is the number of non-zero samples after muting.
Smoothing (nsmooth) is applied separately to the numerator and denominator
before computing this semblance quotient.
Then, the semblance is set to the power of the parameter pwr. With pwr > 1
the difference between semblance values is stretched in the upper half of
the range of semblance values [0,1], but compressed in the lower half of
it; thus, the few large semblance values are enhanced. With pwr < 1 the
many small values are enhanced, thus more discernible against background
noise. Of course, always at the expanse of the respective other feature.
Input traces should be sorted by cdp - suvelan outputs a group of
semblance traces every time cdp changes. Therefore, the output will
be useful only if cdp gathers are input.
Credits:
CWP, Colorado School of Mines:
Dave Hale (everything except ...)
Bjoern Rommel (... the quartic term)
lib/App/SeismicUnixGui/developer/Stripped/datum/sukdmdcr.su.main.datuming view on Meta::CPAN
SUKDMDCR - 2.5D datuming of receivers for prestack, common source
data using constant-background data mapping formula.
(See selfdoc for specific survey requirements.)
sukdmdcr infile= outfile= [parameters]
Required file parameters:
infile=stdin file for input seismic traces
outfile=stdout file for output
ttfile= file for input traveltime tables
Required parameters describing the traveltime tables:
lib/App/SeismicUnixGui/developer/Stripped/datum/sukdmdcs.su.main.datuming view on Meta::CPAN
SUKDMDCS - 2.5D datuming of sources for prestack common receiver
data, using constant-background data-mapping formula.
(See selfdoc for specific survey geometry requirements.)
sukdmdcs infile= outfile= [parameters]
Required parameters:
infile=stdin file for input seismic traces
outfile=stdout file for output
ttfile=file for input traveltime tables
Required parameters describing the traveltime tables:
fzt= first depth sample in traveltime table
lib/App/SeismicUnixGui/developer/Stripped/model/sukdsyn2d.su.main.synthetics_waveforms_testpatterns view on Meta::CPAN
aperx=nxt*dxt/2 modeling lateral aperature
angmax=60 modeling angle aperature from vertical
v0=1500(m/s) reference velocity value at surface
dvz=0.0 reference velocity vertical gradient
ls=1 flag for line source
jpfile=stderr job print file name
mtr=100 print verbal information at every mtr traces
Notes:
This program takes a migrated seismic section and a set of travel time
tables generated using rayt2d for a specific background velocity model
and generates synthetic seismic data in the form of common shot gathers.
(Common offset gathers may be generated by using nxo=1.) (Demigration.)
This program is a tool which may be used for the migration residual
statics estimation technique of Tjan, Audebert, and Larner 1994.
1. The traveltime tables are generated by program rayt2d (or other ones)
on relatively coarse grids, with dimension ns*nxt*nzt. In the
modeling process, traveltimes are interpolated into shot/geophone
positions and migration section grids.
lib/App/SeismicUnixGui/developer/Stripped/plot/psimage.psplot.main view on Meta::CPAN
curve=curve1,curve2,... file(s) containing points to draw curve(s)
npair=n1,n2,n2,... number(s) of pairs in each file
curvecolor=black,.. color of curve(s)
curvewidth=axeswidth width (in points) of curve(s)
curvedash=0 solid curve(s), dash indices 1,...,11 produce
curve(s) with various dash styles
infile=none filename of second attribute n1xn2 array
values must be from range 0.0 - 1.0
(plain unformatted C-style file)
bckgr=0.5 background gray value
NOTES:
The curve file is an ascii file with the points specified as x1 x2
pairs, one pair to a line. A "vector" of curve files and curve
colors may be specified as curvefile=file1,file2,etc.
and curvecolor=color1,color2,etc, and the number of pairs of values
in each file as npair=npair1,npair2,... .
You may eliminate the blocky appearance of psimages by adjusting the
d1s= and d2s= parameters, so that psimages appear similar to ximages.
lib/App/SeismicUnixGui/developer/Stripped/plot/pslabel.psplot.main view on Meta::CPAN
PSLABEL - output PostScript file consisting of a single TEXT string
on a specified background. (Use with psmerge to label plots.)
pslabel t= [t=] [optional parameters] > epsfile
Required Parameters (can have multiple specifications to mix fonts):
t= text string to write to output
Optional Parameters:
f=Times-Bold font for text string
(multiple specifications for each t)
size=30 size of characters in points (72 points/inch)
tcolor=black color of text string
bcolor=white color of background box
nsub=0 number of characters to subtract when
computing size of background box (not all
characters are the same size so the
background box may be too big at times.)
Example:
pslabel t="(a) " f=Times-Bold t="h" f=Symbol t="=0.04" nsub=3 > epsfile
This example yields the PostScript equivalent of the string
(written here in LaTeX notation) $ (a)\\; \\eta=0.04 $
Notes:
This program produces a (color if desired) PostScript text string that
can be positioned and pasted on a PostScript plot using psmerge
lib/App/SeismicUnixGui/developer/Stripped/plot/pswigp.psplot.main view on Meta::CPAN
perc=100.0 percentile for determining clip
clip=(perc percentile) data values < bias+clip and > bias-clip are clipped
xcur=1.0 wiggle excursion in traces corresponding to clip
fill=1 =0 for no fill;
>0 for pos. fill;
<0 for neg. fill
=2 for pos. fill solid, neg. fill grey
=-2for neg. fill solid, pos. fill grey
SHADING: 2<=abs(fill)<=5 2=lightgrey 5=black
linewidth=1.0 linewidth in points (0.0 for thinest visible line)
tracecolor=black color of traces; should contrast with background
backcolor=none color of background; none means no background
verbose=1 =1 for info printed on stderr (0 for no info)
xbox=1.5 offset in inches of left side of axes box
ybox=1.5 offset in inches of bottom side of axes box
wbox=6.0 width in inches of axes box
hbox=8.0 height in inches of axes box
x1beg=x1min value at which axis 1 begins
x1end=x1max value at which axis 1 ends
d1num=0.0 numbered tic interval on axis 1 (0.0 for automatic)
f1num=x1min first numbered tic on axis 1 (used if d1num not 0.0)
n1tic=1 number of tics per numbered tic on axis 1
lib/App/SeismicUnixGui/fortran/src/immodpg.for view on Meta::CPAN
! xa2
! xa3
! xa4
! xout
! output distance of distance,time calculated pairs
! va
! za
! xmax maximum plotting distance
! Should be greater than maximum offset in
! order to allow V-Z plot to show on black
! background ; in km
! tmax maximum time of data
! tmin minimum time of data
! xinc increment for km/s in modeling or thickness in modelign
! DEFAULT PARAMETERS
! OLD values for big-scale marine work
! pmin = 0.0
! pmax = 3.0
! pmax = .6
km2m = 1000.
lib/App/SeismicUnixGui/fortran/src/immodpg.for view on Meta::CPAN
a1_prior = a1
a2_prior = a2
va_prior = va
za_prior = za
! STEP 4: Draw the current model
! ****** descomentar para trabajo con OBS ***
! dz(1) = dz(1)/2.0
! ***********************
! set color index: 3 = green
! white on black background =1
call pgsci(3)
VPlotMax=a2*VPlotScale
ZPlotMax=a1*1.0
! print*,'L711,a1,a2',a1,a2
call pgvport(0.8,0.98,0.15,0.9)
call pgwindow(0.0,VPlotMax,ZPlotMax,0.0)
call pgbox('BCTN',0.0,0,'BCNST',0.0,0)
call pglabel('V(km/s)','Z(km)','')
! call pgslw(5)
call pgline(2*current_layer_number,va,za)
lib/App/SeismicUnixGui/fortran/src/mmodpg4L_SU_Aug27_20_emilio/pgplot.inc view on Meta::CPAN
LOGICAL PGROWS(PGMAXD)
C-----------------------------------------------------------------------
C Attributes (indexed by device identification).
C-----------------------------------------------------------------------
C PGCLP clipping enabled/disabed
C PGFAS fill-area style
C PGCHSZ character height
C PGAHS arrow-head fill style
C PGAHA arrow-head angle
C PGAHV arrow-head vent
C PGTBCI text background color index
C PGMNCI lower range of color indices available to PGGRAY/PGIMAG
C PGMXCI upper range of color indices available to PGGRAY/PGIMAG
C PGITF type of transfer function used by PGGRAY/PGIMAG
C PGHSA hatching line angle
C PGHSS hatching line separation
C PGHSP hatching line phase
C
INTEGER PGCLP (PGMAXD)
INTEGER PGFAS (PGMAXD)
REAL PGCHSZ(PGMAXD)
lib/App/SeismicUnixGui/geopsy/dinver.pm view on Meta::CPAN
additional styles as plugins these will be
available to the -style command line option
-session <session> Restore the application from an earlier session
-reverse Sets the application's layout direction to right to
left
-display <display> Sets the X display (default is $DISPLAY)
-geometry <geometry> Sets the client geometry of the first window that
is shown
-fn, -font <font> Defines the application font. The font should be
specified using an X logical font description
-bg, -background <color> Sets the default background color and an
application palette (light and dark shades are
calculated)
-fg, -foreground <color> Sets the default foreground color
-btn, -button <color> Sets the default button color
-name <name> Sets the application name
-title <title> Sets the application title
-visual TrueColor Forces the application to use a TrueColor visual on
an 8-bit display
-ncols <count> Limits the number of colors allocated in the color
cube on an 8-bit display, if the application is
lib/App/SeismicUnixGui/geopsy/gpviewdcreport.pm view on Meta::CPAN
windows
platinum
If you compiled Qt with additional styles or have additional styles as
plugins these will be available to the -style command line option
-session <session> Restore the application from an earlier session
-reverse Sets the application's layout direction to right to left
-display <display> Sets the X display (default is $DISPLAY)
-geometry <geometry> Sets the client geometry of the first window that is shown
-fn, -font <font> Defines the application font. The font should be specified using an X logical
font description
-bg, -background <color> Sets the default background color and an application palette (light and dark
shades are calculated)
-fg, -foreground <color> Sets the default foreground color
-btn, -button <color> Sets the default button color
-name <name> Sets the application name
-title <title> Sets the application title
-visual TrueColor Forces the application to use a TrueColor visual on an 8-bit display
-ncols <count> Limits the number of colors allocated in the color cube on an 8-bit display,
if the application is using the QApplication::ManyColor color specification.
If count is 216 then a 6x6x6 color cube is used (i.e. 6 levels of red, 6 of
green, and 6 of blue); for other values, a cube approximately proportional to
lib/App/SeismicUnixGui/messages/immodpg_messages.pm view on Meta::CPAN
package App::SeismicUnixGui::messages::immodpg_messages;
use Moose;
our $VERSION = '0.0.1';
sub get {
my ( $self) = @_;
my @message;
$message[0] = ("Warning: Interactive Fortran should not run in
background. Is SeismicUnixGui running in the foreground? \n
If it is not, on command line
(1) enter: 'fg', return, return,
or
(2) run SeismicUnixGui again, but without '&' \n
(immodpg_message=0)\n");
$message[1] =("Warning: Corrupt layer in model.
Possible solutions: \n
(1) Copy backup file .immodpg.out to
'immodpg.out'
lib/App/SeismicUnixGui/misc/check_buttons.pm view on Meta::CPAN
# print("check_buttons,make, variable is $variable[$i]\n");
$button_w[$i] = $$frame_aref->Checkbutton(
-onvalue => $on,
-offvalue => $off,
-command => [ \&private_test, $i, \$variable[$i] ],
-variable => \$variable[$i],
-borderwidth => $var->{_no_borderwidth},
-text => '',
-selectcolor => 'green',
-activebackground => 'red',
-background => 'red',
-relief => 'flat',
);
}
$check_buttons->{_buttons_w_aref} = \@button_w;
}
# -command => [\&private_error_check_labelsNparams],
sub private_error_check_labelsNparams {
# print("check_buttons,private_error_check_labelsNparams, check button changed\n")
lib/App/SeismicUnixGui/misc/conditions4big_streams.pm view on Meta::CPAN
} else {
print("conditions4big_streams, set4start_of_flow_item_up_arrow_button, no color: $color\n");
}
return ();
}
#=head2
#
# when the lightning cartoon that mzamps background images is clicked
#
#=cut
#
#sub set4start_of_wipe_plots_button {
# my ( $self, $color ) = @_;
#
# if ($color) {
# _reset();
#
# $conditions4big_streams->{_is_wipe_plots_button} = $true;
lib/App/SeismicUnixGui/misc/conditions4flows.pm view on Meta::CPAN
} else {
print("conditions4flows, set4start_of_flow_item_up_arrow_button, no color: $color\n");
}
return ();
}
#=head2
#
# when the lightning cartoon that mzamps background images is clicked
#
#=cut
#
#sub set4start_of_wipe_plots_button {
# my ( $self, $color ) = @_;
#
# if ($color) {
# _reset();
#
# $conditions4flows->{_is_wipe_plots_button} = $true;
lib/App/SeismicUnixGui/misc/label_boxes.pm view on Meta::CPAN
$first = $label_boxes->{_first_entry_idx};
$last = $label_boxes->{_length};
$frame_ref = $label_boxes->{_frame};
for ( my $i = $first ; $i < $last ; $i++ ) {
$labels_w[$i] = $$frame_ref->Label(
-height => $var->{_one_character},
-width => $var->{_thirty_five_characters},
-text => @$label_array_ref[$i],
-borderwidth => $var->{_one_pixel_borderwidth},
-background => $var->{_light_gray},
);
}
$label_boxes->{_labels_w_aref} = \@labels_w;
}
=head2 get_aref
in future
use the get_w_aref version instead
=cut
lib/App/SeismicUnixGui/misc/param_widgets.pm view on Meta::CPAN
# print("2. param_widgets,redisplay_check_buttons,length: $length\n");
if ( $button_w_aref && $settings_aref ) {
for ( my $i = $first ; $i < $length ; $i++ ) {
@$button_w_aref[$i]->configure(
-onvalue => 'on',
-offvalue => 'off',
-selectcolor => 'green',
-activebackground => 'red',
-background => 'red',
-variable => \@$settings_aref[$i],
);
}
}
else {
print("param_widgets, redisplay_check_buttons missing parameters\n");
}
return ();
}
lib/App/SeismicUnixGui/misc/param_widgets4pre_built_streams.pm view on Meta::CPAN
# print("2. param_widgets4pre_built_streams,redisplay_check_buttons,length: $length\n");
if ( $button_w_aref && $settings_aref ) {
for ( my $i = $first; $i < $length; $i++ ) {
@$button_w_aref[$i]->configure(
-onvalue => 'on',
-offvalue => 'off',
-selectcolor => 'green',
-activebackground => 'red',
-background => 'red',
-variable => \@$settings_aref[$i],
);
}
}
else {
print("param_widgets4pre_built_streams, redisplay_check_buttons missing parameters\n");
}
return ();
}
lib/App/SeismicUnixGui/misc/param_widgets_blue.pm view on Meta::CPAN
# print("2. param_widgets_color,redisplay_check_buttons,length: $length\n");
if ( $button_w_aref && $settings_aref ) {
for ( my $i = $first ; $i < $length ; $i++ ) {
@$button_w_aref[$i]->configure(
-onvalue => 'on',
-offvalue => 'off',
-selectcolor => 'green',
-activebackground => 'red',
-background => 'red',
-variable => \@$settings_aref[$i],
);
}
}
else {
print(
"param_widgets_color, redisplay_check_buttons missing parameters\n"
);
}
return ();
lib/App/SeismicUnixGui/misc/param_widgets_green.pm view on Meta::CPAN
# print("2. param_widgets_color,redisplay_check_buttons,length: $length\n");
if ( $button_w_aref && $settings_aref ) {
for ( my $i = $first ; $i < $length ; $i++ ) {
@$button_w_aref[$i]->configure(
-onvalue => 'on',
-offvalue => 'off',
-selectcolor => 'green',
-activebackground => 'red',
-background => 'red',
-variable => \@$settings_aref[$i],
);
}
}
else {
print(
"param_widgets_color, redisplay_check_buttons missing parameters\n"
);
}
return ();
lib/App/SeismicUnixGui/misc/param_widgets_grey.pm view on Meta::CPAN
# print("2. param_widgets_color,redisplay_check_buttons,length: $length\n");
if ( $button_w_aref && $settings_aref ) {
for ( my $i = $first ; $i < $length ; $i++ ) {
@$button_w_aref[$i]->configure(
-onvalue => 'on',
-offvalue => 'off',
-selectcolor => 'green',
-activebackground => 'red',
-background => 'red',
-variable => \@$settings_aref[$i],
);
}
}
else {
print(
"param_widgets_color, redisplay_check_buttons missing parameters\n"
);
}
return ();
lib/App/SeismicUnixGui/misc/param_widgets_neutral.pm view on Meta::CPAN
# print("2. param_widgets_neutral,redisplay_check_buttons,length: $length\n");
if ( $button_w_aref && $settings_aref ) {
for ( my $i = $first; $i < $length; $i++ ) {
@$button_w_aref[$i]->configure(
-onvalue => 'on',
-offvalue => 'off',
-selectcolor => 'green',
-activebackground => 'red',
-background => 'red',
-variable => \@$settings_aref[$i],
);
}
}
else {
print("param_widgets_neutral, redisplay_check_buttons missing parameters\n");
}
return ();
}
( run in 0.937 second using v1.01-cache-2.11-cpan-f56aa216473 )