view release on metacpan or  search on metacpan

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

	-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

$immodpg_Tk->{_clip4plotEntry} = $clip4plotEntry;

$clip4plotEntry->configure(
	-validate        => 'focus',
	-validatecommand => \&_set_clip,
	-invalidcommand  => sub { print "clip_box,ERROR.\n" },
);

=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

$immodpg_Tk->{_layerEntry} = $layerEntry;

$layerEntry->configure(
	-validate        => 'focus',
	-validatecommand => \&_set_layer,
	-invalidcommand  => sub { print "layer_box,ERROR.\n" },
);

=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

$immodpg_Tk->{_thickness_increment_mEntry} = $thickness_increment_mEntry;

$thickness_increment_mEntry->configure(
	-validate        => 'focus',
	-validatecommand => \&_set_thickness_increment_m,
	-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

$immodpg_Tk->{_thickness_mEntry} = $thickness_mEntry;

$thickness_mEntry->configure(
	-validate        => 'focus',
	-validatecommand => \&_set_thickness_m,
	-invalidcommand  => sub { print "thickness_increment_box,ERROR.\n" },
);

=head2 thickness_mLabel