view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/specs/plot/suximage_spec.pm  view on Meta::CPAN

sub set_good_labels {
	my ( $self, $good_labels_aref ) = @_;

	$suximage_spec->{_good_labels_aref} = $good_labels_aref;

	return ();
}

=head2 sub find_incompatibles
	not_compatible for the following cases
	is_absclip && (is_loclip || is_hiclip)
	     1             1         
	 
	set value labels that are good

=cut

sub set_incompatibles {
	my ($self) = @_;

lib/App/SeismicUnixGui/specs/plot/suximage_spec.pm  view on Meta::CPAN

#
#
#	return($params);
#
#}
#
#
# }
#
#=head2 sub get_incompatibles
#	not_compatible for the following cases
#	is_absclip && (is_loclip || is_hiclip)
#	     1             1
#
#	set value labels that are good
#
#=cut
#
#sub get_incompatibles {
#
#	my ($self) 	= @_;