ADDED: Selection box ignores arrows

arrows selection in selection box dragging is changed to not selected

the new default behavior can be changed by:

- setting option DRAG_SELECTS_ARROWS in setup/asciio_object/basic.pl
	or setup/Text/asciio_object/basic.pl

- dynamically in action group arrow (a) then 'drag_selects_arrows' (Alt-s)

Author: nkh

lib/App/Asciio/Actions/Arrow.pm

@@ -12,6 +12,10 @@ use App::Asciio::Actions::Multiwirl ;
 
 #----------------------------------------------------------------------------------------------
 
+sub drag_selects_arrows { my ($self) = @_ ; $self->{DRAG_SELECTS_ARROWS} ^= 1 ; $self->update_display() ; }
+
+#----------------------------------------------------------------------------------------------
+
 sub interactive_change_arrow_direction
 {
 my ($self) = @_ ;

lib/App/Asciio/Actions/Mouse.pm

@@ -353,7 +353,17 @@ if($self->{PREVIOUS_X} != $x || $self->{PREVIOUS_Y} != $y)
 	{
 	if    ($self->{DRAGGING} eq 'move')   { $self->move_elements_event($x, $y) ; }
 	elsif ($self->{DRAGGING} eq 'resize') { $self->resize_element_event($x, $y) ; }
-	elsif ($self->{DRAGGING} eq 'select') { $self->select_element_event($x, $y) ; }
+	elsif ($self->{DRAGGING} eq 'select') 
+		{
+		if($self->{DRAG_SELECTS_ARROWS})
+			{
+			$self->select_element_event($x, $y) ; 
+			}
+		else
+			{
+			$self->select_element_event($x, $y, sub { my $element = shift ; ref($_) !~ /arrow/ ;}) ; 
+			}
+		}
 
 	($self->{PREVIOUS_X}, $self->{PREVIOUS_Y}) = ($x, $y) ;
 	}

setup/Text/actions/vim_bindings.pl

@@ -184,6 +184,7 @@
 	'Remove last section from multi_wirl'     => ['A-C-s'],
 	'Start no disconnect'                     => ['C-d'],
 	'End no disconnect'                       => ['A-D'],
+	'Flip drag selects arrows'                => ['A-s'],
 	},
 
 '<< debug leader >>' => 

setup/Text/asciio_object/basic.pl

@@ -10,6 +10,7 @@
 
 TAB_AS_SPACES => '    ',
 USE_BINDINGS_COMPLETION => 0,
+DRAG_SELECTS_ARROWS => 0,
 
 # use ANSI colors
 COLOR_SCHEMES =>

setup/actions/default_bindings.pl

@@ -210,6 +210,7 @@
 	'Remove last section from multi_wirl' => ['CA0-s', \&App::Asciio::Actions::Multiwirl::remove_last_section_from_section_wirl_arrow ],
 	'Start no disconnect'                 => ['C00-d', \&App::Asciio::Actions::Multiwirl::disable_arrow_connector, 0                  ],
 	'End no disconnect'                   => ['0A0-d', \&App::Asciio::Actions::Multiwirl::disable_arrow_connector, 1                  ],
+	'Flip drag selects arrows'            => ['0A0-s', \&App::Asciio::Actions::Arrow::drag_selects_arrows                             ],
 	},
 
 '<< debug leader >>' => 

setup/asciio_object/basic.pl

@@ -25,6 +25,7 @@
 MOUSE_X => 0,
 MOUSE_Y => 0,
 ACTION_VERBOSE => undef,
+DRAG_SELECTS_ARROWS => 0,
 
 COLORS => {},