view release on metacpan or  search on metacpan

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

		if ( $color eq 'grey' ) {

			$flow_listbox_grey_w    = $conditions4flows->{$flow_listbox_color_w_key};
			$is_flow_listbox_grey_w = $true;

		} elsif ( $color eq 'pink' ) {

			$flow_listbox_pink_w    = $conditions4flows->{$flow_listbox_color_w_key};
			$is_flow_listbox_pink_w = $true;

		} elsif ( $color eq 'green' ) {

			$flow_listbox_green_w    = $conditions4flows->{$flow_listbox_color_w_key};
			$is_flow_listbox_green_w = $true;

		} elsif ( $color eq 'blue' ) {

			$flow_listbox_blue_w    = $conditions4flows->{$flow_listbox_color_w_key};
			$is_flow_listbox_blue_w = $true;
		}

	} else {
		print("conditions4flows, set_defaults4start_of_delete_whole_flow_button, no color: $color\n");
	}

	return ();
}

=head2

	when the arrow that moves flow items up a list is clicked

=cut

sub set4start_of_flow_item_up_arrow_button {
	my ( $self, $color ) = @_;

	if ($color) {
		_reset();

		$conditions4flows->{_is_flow_item_up_arrow_button} = $true;
		_set_flow_color($color);
		my $is_flow_listbox_color_w_key = '_is_flow_listbox_' . $color . '_w';
		$conditions4flows->{$is_flow_listbox_color_w_key} = $true;
		$conditions4flows->{_is_user_built_flow} = $true;

		# set up for get_hash_ref call from outside module
		$is_user_built_flow      = $true;
		$is_flow_listbox_color_w = $true;

	} 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;
#		_set_flow_color($color);
#		my $is_flow_listbox_color_w_key = '_is_flow_listbox_' . $color . '_w';
#		$conditions4flows->{$is_flow_listbox_color_w_key} = $true;
#		$conditions4flows->{_is_user_built_flow} = $true;
#
#		# set up for get_hash_ref call from outside module
#		$is_user_built_flow      = $true;
#		$is_flow_listbox_color_w = $true;
#
#	}
#	else {
#		print(
#			"conditions4flows, set4start_of_wipe_plots_button, no color: $color\n"
#		);
#	}
#
#	return ();
#}

=head2 sub set_defaults_4start_of_flow_select

take focus of the first Entry button/Value
for all listboxes
returns only a few parameters
All others have been reset to false

dynamically change the color
and associated logical hash values

WARNING, _reset may make color disappear

=cut

sub set_defaults_4start_of_flow_select {
	my ( $self, $color ) = @_;

	_reset();

	if ($color) {
		_set_flow_color($color);
		my $flow_listbox_color_w_key = '_flow_listbox_' . $color . '_w';
		my $flow_listbox_color_w_txt = 'flow_listbox_' . $color . '_w';
		my $flow_listbox_color_w     = $conditions4flows->{$flow_listbox_color_w_key};

		my $value2 = '_is_flow_listbox_' . $color . '_w';
		$conditions4flows->{$value2} = $true;
		$conditions4flows->{_is_flow_listbox_color_w} = $true;

		# print("conditions4flows, set_defaults_4start_of_flow_select , color:$color; flow_listbox_color_w =$conditions4flows->{$flow_listbox_color_w_key}\n");
		_set_flow_listbox_last_touched_txt($flow_listbox_color_w_txt);