App-SeismicUnixGui

 view release on metacpan or  search on metacpan

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

	}
	else {
		print("header_values,set_base_file_name, missing base file name\n");
	}

	return ();

}

=head2 sub set_change
verify another lock file does not exist and
only then:

create another lock file
while change file is written.
that revents fortran file from reading
Then delete lock file
Aavoids crash between asynchronous 
reading (fortran) and
writing (Perl) of files

lib/App/SeismicUnixGui/doc/FAQ_SeismicUnixGui  view on Meta::CPAN

  my @names = ("data_in", 
            "data_out", 
            "suximage", 
            "suxgraph", 
            "suxwigb",
            "sugain",
            "suwind",
            "supef",
            );
            
9. verify by adding to flow in L_SU

10. when the new module has an internal call for a data set, modify the *_spec.pm file

e.g., for segyread_spec.pm

sub binding_index_aref {

	my $self 	= @_;

	my @index;

lib/App/SeismicUnixGui/misc/blue_flow.pm  view on Meta::CPAN

			# flow_color is in 'color'_flow namespace
			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			if (    $index == 0
				and $param_flow_color_pkg->get_num_items() == 1 )
			{

				# CASE: LAST ITEM in listbox is deleted
				# extra checking includes verifying number of items

				# For Run and Save button
				$flow_widgets->delete_selection($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

lib/App/SeismicUnixGui/misc/blue_flow.pm  view on Meta::CPAN

			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			# print("color_flow, delete_whole_flow_button index=$index\n");

			if (    $index >= 0
				and $param_flow_color_pkg->get_num_items() >= 1 )
			{

				# CASE: DELETE ALL ITEMS in listbox
				# extra checking includes verifying number of items
				# For Run and Save button
				$flow_widgets->clear($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

				# delete stored programs and all the stored flow parameters

lib/App/SeismicUnixGui/misc/green_flow.pm  view on Meta::CPAN

			# flow_color is in 'color'_flow namespace
			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			if (    $index == 0
				and $param_flow_color_pkg->get_num_items() == 1 )
			{

				# CASE: LAST ITEM in listbox is deleted
				# extra checking includes verifying number of items

				# For Run and Save button
				$flow_widgets->delete_selection($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

lib/App/SeismicUnixGui/misc/green_flow.pm  view on Meta::CPAN

			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			# print("color_flow, delete_whole_flow_button index=$index\n");

			if (    $index >= 0
				and $param_flow_color_pkg->get_num_items() >= 1 )
			{

				# CASE: DELETE ALL ITEMS in listbox
				# extra checking includes verifying number of items
				# For Run and Save button
				$flow_widgets->clear($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

				# delete stored programs and all the stored flow parameters

lib/App/SeismicUnixGui/misc/grey_flow.pm  view on Meta::CPAN

			# flow_color is in 'color'_flow namespace
			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			if (    $index == 0
				and $param_flow_color_pkg->get_num_items() == 1 )
			{

				# CASE: LAST ITEM in listbox is deleted
				# extra checking includes verifying number of items

				# For Run and Save button
				$flow_widgets->delete_selection($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

lib/App/SeismicUnixGui/misc/grey_flow.pm  view on Meta::CPAN

			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			# print("color_flow, delete_whole_flow_button index=$index\n");

			if (    $index >= 0
				and $param_flow_color_pkg->get_num_items() >= 1 )
			{

				# CASE: DELETE ALL ITEMS in listbox
				# extra checking includes verifying number of items
				# For Run and Save button
				$flow_widgets->clear($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

				# delete stored programs and all the stored flow parameters

lib/App/SeismicUnixGui/misc/manage_files_by.pm  view on Meta::CPAN

	}

	#	answer=1 if existent and =0 if non-existent
	#verified by JL
	return ($answer);
}

sub is_one {

	# find out if a special file's content ==1
	# thereby verifying the existence of a second file
	my ($ref_file) = shift @_;

	# default situation is to have a file that is empty
	my $answer = 0;
	my $line;

	#print ("\nFor is_one the input file is called $$ref_file\n");

	# open the file of interest
	open( FILE, $$ref_file ) || print("Can't open file_name, $!\n");

lib/App/SeismicUnixGui/misc/pink_flow.pm  view on Meta::CPAN

			# flow_color is in 'color'_flow namespace
			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			if (    $index == 0
				and $param_flow_color_pkg->get_num_items() == 1 )
			{

				# CASE: LAST ITEM in listbox is deleted
				# extra checking includes verifying number of items

				# For Run and Save button
				$flow_widgets->delete_selection($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

lib/App/SeismicUnixGui/misc/pink_flow.pm  view on Meta::CPAN

			my $index =
			  $flow_widgets->get_flow_selection($_flow_listbox_color_w);

			# print("color_flow, delete_whole_flow_button index=$index\n");

			if (    $index >= 0
				and $param_flow_color_pkg->get_num_items() >= 1 )
			{

				# CASE: DELETE ALL ITEMS in listbox
				# extra checking includes verifying number of items
				# For Run and Save button
				$flow_widgets->clear($_flow_listbox_color_w);

				# Blank out the names of the programs in the GUI
				_set_flow_name_color_w($flow_color);
				$flow_name_color_w->configure( -text => $var->{_clear_text} );
				$color_flow_href->{_flowNsuperflow_name_w}
				  ->configure( -text => $var->{_clear_text} );

				# delete stored programs and all the stored flow parameters