view release on metacpan or  search on metacpan

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

		if ( $color eq 'grey' ) {
			$flow_listbox_grey_w    = $conditions4big_streams->{$flow_listbox_color_w_key};
			$is_flow_listbox_grey_w = $true;

		} elsif ( $color eq 'pink' ) {
			$flow_listbox_pink_w    = $conditions4big_streams->{$flow_listbox_color_w_key};
			$is_flow_listbox_pink_w = $true;

		} elsif ( $color eq 'green' ) {
			$flow_listbox_green_w    = $conditions4big_streams->{$flow_listbox_color_w_key};
			$is_flow_listbox_green_w = $true;

		} elsif ( $color eq 'blue' ) {
			$flow_listbox_blue_w    = $conditions4big_streams->{$flow_listbox_color_w_key};
			$is_flow_listbox_blue_w = $true;
		}

		#   				print("conditions4big_streams, set4start_of_delete_from_flow_button, conditions4big_streams->$is_flow_listbox_color_w_key: $is_flow_listbox_color_w\n");
		#   				print("conditions4big_streams, set4start_of_delete_from_flow_button, conditions4big_streams->$flow_listbox_color_w_key: $flow_listbox_color_w\n");
		#   				print("conditions4big_streams, set4start_of_delete_from_flow_button, _is_flow_listbox_color_w_key: $is_flow_listbox_color_w_key\n");
		#   				print("conditions4big_streams, set4start_of_delete_from_flow_button, flow_listbox_color_w_key: $flow_listbox_color_w_key\n");

	} else {
		print("conditions4big_streams, set4start_of_delete_from_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();

		$conditions4big_streams->{_is_flow_item_up_arrow_button} = $true;
		_set_flow_color($color);
		my $is_flow_listbox_color_w_key = '_is_flow_listbox_' . $color . '_w';
		$conditions4big_streams->{$is_flow_listbox_color_w_key} = $true;
		$conditions4big_streams->{_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("conditions4big_streams, 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();
#
#		$conditions4big_streams->{_is_wipe_plots_button} = $true;
#		_set_flow_color($color);
#		my $is_flow_listbox_color_w_key = '_is_flow_listbox_' . $color . '_w';
#		$conditions4big_streams->{$is_flow_listbox_color_w_key} = $true;
#		$conditions4big_streams->{_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(
#			"conditions4big_streams, set4start_of_wipe_plots_button, no color: $color\n"
#		);
#	}
#
#	return ();
#}

=head2

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

WARNING, _reset may make color disappear

=cut

sub set4start_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     = $conditions4big_streams->{$flow_listbox_color_w_key};

		# print("conditions4big_streams, set4start_of_flow_select, color:$color; flow_listbox_color_w =$conditions4big_streams->{$flow_listbox_color_w_key}\n");

		_set_flow_listbox_last_touched_txt($flow_listbox_color_w_txt);
		_set_gui_widgets();
		_set_flow_listbox_last_touched_w($flow_listbox_color_w);

		# print("conditions4big_streams, set4start_of_flow_select, _set_flow_listbox_last_touched_w\n");

		# location within GUI