view release on metacpan or  search on metacpan

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

	}
	elsif ( $flow_type eq $flow_type_h->{_pre_built_superflow} ) {

		#		print("save_button, director, is superflow_type:$flow_type\n");

	  #		 print("save_button, director, save_dialog_type: $save_dialog_type\n");

		if ( $save_dialog_type eq $file_dialog_type->{_Save} ) {
			_Save_pre_built_superflow();

		}
		elsif ( $save_dialog_type eq $file_dialog_type->{_SaveAs} ) {

			# do nothing ... superflows are not saved under a pseudonym
		}
		else {
			print(
				"save_button, director has superflow Save or SaveAs problem\n");
		}

	}
	else {
		print("save_button, director has a flow-type problem\n");
	}
}

=head2 sub get_all_hash_ref

	return ALL values of the private hash, supposedly
	improtant external widgets have not been reset.. only conditions
	are reset
	TODO: perhaps it is better to have a specific method
		to return one specific widget address at a time?
	}
	
=cut

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

	if ($save_button) {

# print("save_button, get_hash_ref , save_button->{_flow_color}: $save_button->{_flow_color}\n");
		return ($save_button);

	}
	else {
		print("save_button, get_hash_ref , missing hsave_button hash_ref\n");
	}
}

=head2 sub _save_button_sub_ref

=cut

sub set_save_button_sub_ref {
	my ( $self, $sub_ref ) = @_;

	if ($sub_ref) {
		print("binding  set_save_button_sub_ref, $sub_ref\n");
		$save_button->{_sub_ref} = $sub_ref;

	}
	else {
		print("save_button, set_save_button_sub_ref, missing sub ref\n");
	}
	return ();
}

=head2 sub set_dialog_type

 save can be of 3 generic types:
 
 dialog type can be save  (Main menu)
 or SaveAs (FileDialog_button function)
 
 i.e. 'either'
 
 or
 	save  (perl program of user-built flow
 or
 	saveas perl program of user-built flow
 or	
 	save pre-built superflow configuration files
		
	
=cut

sub set_dialog_type {
	my ( $self, $topic ) = @_;

	if ($topic) {
		$save_button->{_dialog_type} = $topic;

	  # print("save_button, set_dialog_type , $save_button->{_dialog_type} \n");

	}
	else {
		print("save_button, set_dialog_type , missing topic\n");
	}
	return ();
}

=head2 sub set_flow_type

	user_built_flow
	or
	pre_built_superflow
	
=cut

sub set_flow_type {
	my ( $self, $how_built ) = @_;

	if ($how_built) {
		$save_button->{_flow_type} = $how_built;

		# print("save_button, set_flow_type : $save_button->{_flow_type}\n");

	}