diff options
| -rw-r--r-- | ivybanner | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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; |