Bug fix concernant l'affichage du champ de saisie du port ivy

1 files changed, 3 insertions, 2 deletions

diff --git a/ivybanner b/ivybanner
index 47115f8..0d59e93 100644
--- a/ivybanner
+++ b/ivybanner
@@ -364,7 +364,7 @@ sub demosframe {
     $fm_port[2] = $fm2->Frame(@frameattr)->place(-x => $x+2*$w+2*$dx, -y => $y);
     $fm_port[3] = $fm2->Frame(@frameattr)->place(-x => $x, -y => $y+$dy+$h);
     my $fm_ownport = $fm2->Frame(@frameattr,
-				 width => 2*$w+$dx)->place(-x => $x+$w+$dx,
+				 -width => 2*$w+$dx)->place(-x => $x+$w+$dx,
 							   -y => $y+$h+$dy);
      my $en_ownport =
 	 $fm_ownport->Entry(@entryattr)->place(@lab_placeattr);
@@ -385,7 +385,7 @@ sub demosframe {
 				   $en_ownport->configure(-state => 'normal',
 							  -background => $fg)},
 			      -text => "other\nport")->place(@placeattr);
-    
+     
     &subdirframe($fm2, $path, $x, $y, $dx, $dy);
 
     # control buttons bottom frame
@@ -579,6 +579,7 @@ sub subdirframe {
 			  });
 	} else {
 	    $b->configure(-bg => 'gray20',
+			  -activebackground => 'gray20',
 			  -text => ($file eq '..') ? "Up" : $file,
 			  -command => sub {
 			      &off;