diff --git a/ChangeLog b/ChangeLog index ab0dba3..0e3a625 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,8 @@ Fri Sep 17 2004 H. Wade Minter (minter@lunenburg.org) * Get the move_tank function working with the HList. Thanks to Kyle at sickduck.org for the help. * Move the CWX-specific functions to their own branch. + * Use a white background for the "Invalid" songs, too. + * Apply the red color style to invalid songs in the holding tank, too. Mon Sep 13 2004 H. Wade Minter (minter@lunenburg.org) * Make nice white backgrounds by default for listboxes and entry diff --git a/mrvoice.pl b/mrvoice.pl index 3ab855f..668dcd8 100755 --- a/mrvoice.pl +++ b/mrvoice.pl @@ -2614,6 +2614,18 @@ sub move_tank $direction, $neighbor ); + my $info = get_info_from_id($target); + if ( !-e catfile( $config{'filepath'}, $info->{filename} ) ) + { + my $style = $tankbox->ItemStyle( + 'text', + -foreground => 'red', + -background => 'white', + -selectforeground => 'red' + ); + $h->entryconfigure( $target, -style => $style ); + } + #...and assumedly we want the newly re-inserted item to be selected... $h->anchorSet($target); @@ -3076,6 +3088,7 @@ sub do_search my $style = $mainbox->ItemStyle( 'text', -foreground => 'red', + -background => 'white', -selectforeground => 'red' ); $mainbox->entryconfigure( $row_hashref->{id}, -style => $style ); @@ -3403,6 +3416,17 @@ sub Tank_Drop my $text = $parent->itemCget( $index, 0, '-text' ); my $id = $parent->info( 'data', $index ); $tankbox->add( $id, -data => $id, -text => $text ); + my $info = get_info_from_id($id); + if ( !-e catfile( $config{'filepath'}, $info->{filename} ) ) + { + my $style = $tankbox->ItemStyle( + 'text', + -foreground => 'red', + -background => 'white', + -selectforeground => 'red' + ); + $tankbox->entryconfigure( $id, -style => $style ); + } } if ( $#indices > 1 ) {