FIXED: TUI display

Author: nkh

lib/App/Asciio.pm

@@ -750,6 +750,8 @@ sub button_release_event
 {
 my ($self, $event) = @_ ;
 
+undef $self->{DRAGGING} ;
+
 my $button = $event->{BUTTON} ;
 my $modifiers = $event->{MODIFIERS} ;
 
@@ -793,7 +795,6 @@ my $modifiers = $event->{MODIFIERS} ;
 if($self->{PREVIOUS_X} != $x || $self->{PREVIOUS_Y} != $y)
 	{
 	delete $self->{BINDINGS_COMPLETION} ;
-	$self->update_display ;
 
 	if($self->exists_action("${modifiers}motion_notify"))
 		{

lib/App/Asciio/Actions.pm

@@ -132,7 +132,6 @@ for my $action (@actions)
 			unless ($self->{KEEP_BINDINGS_COMPLETION})
 				{
 				delete $self->{BINDINGS_COMPLETION} ;
-				$self->update_display() ;
 				}
 
 			delete $self->{KEEP_BINDINGS_COMPLETION} ;
@@ -171,7 +170,6 @@ for my $action (@actions)
 			}
 
 		delete $self->{BINDINGS_COMPLETION} ;
-		$self->update_display() ;
 		}
 	}
 

lib/App/Asciio/Elements.pm

@@ -727,7 +727,7 @@ if($height < 0)
 	$start_y -= $height ;
 	}
 
-my $is_under = 1 ;
+my $is_within = 1 ;
 
 for my $strip (@{$element->get_stripes()})
 	{
@@ -745,12 +745,12 @@ for my $strip (@{$element->get_stripes()})
 		}
 	else
 		{
-		$is_under = 0 ;
+		$is_within = 0 ;
 		last
 		}
 	}
 
-return($is_under) ;
+return($is_within) ;
 }
 
 #-----------------------------------------------------------------------------

script/tasciio

@@ -47,6 +47,11 @@ $asciio->setup($setup_paths) ;
 $asciio->set_title($title) if defined $title ;
 
 STDERR->autoflush(1) ;
+
+# open my $fh, ">&=", 5 or die "can't open fh 5: $!\n" ; 
+# $fh->autoflush(1) ;
+# $asciio->{ACTION_VERBOSE} = sub { $counter++ ; print $fh "$counter - $_[0]\n" ; } ;
+
 # $asciio->{ACTION_VERBOSE} = sub { print STDERR "\e[?25l\e[H" ."$_[0]\n" ; } ;
 # $asciio->{ACTION_VERBOSE} = sub { ; } ;
 
@@ -93,17 +98,22 @@ while (1)
 			$last_mouse_update = $float_seconds ;
 
 			my ($ev, $button, $line, $col) = $tk->interpret_mouse( $key );
-			
 			my $modifiers = '' ;
 
 			$modifiers .= $key->modifier_ctrl ? 'C' : '0' ;
 			$modifiers .= $key->modifier_alt ? 'A' : '0' ;
 			$modifiers .= '0' ; # shift blocks mouse events
 
-			$asciio->motion_notify_event($modifiers, $button, $col - 1, $line - 1) if ($ev == 3) ; # 3 ?
 			$asciio->motion_dragging_event($modifiers, $button, $col - 1, $line - 1) if ($ev == MOUSE_DRAG) ;
-			$asciio->button_press_event($modifiers, $button, $col - 1, $line - 1) if ($ev == MOUSE_PRESS) ;
-			$asciio->button_release_event($modifiers, $button, $col - 1, $line - 1) if ($ev == MOUSE_RELEASE) ;
+			$asciio->button_press_event($modifiers, $button, $col - 1, $line - 1)    if ($ev == MOUSE_PRESS) ;
+			
+			# mmouse release or moved without a key pressed ?
+			if ($ev == MOUSE_RELEASE)
+			{
+				$asciio->motion_notify_event($modifiers, $button, $col - 1, $line - 1) ;
+				$asciio->update_display() if $asciio->{DRAGGING} ;
+			}
+			
 			# $asciio->button_scroll_event($modifiers, $button, $col - 1, $line - 1) if ($ev == MOUSE_???) ;
 			}
 		}