Sorry, i forgot to say I want to change the FONT color.
this is the complete code:
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Tk;
die unless $^O=~/linux/i;
my $mainframe = new MainWindow;
$mainframe->configure (-width=>"640",-height=>"480");
my $listbox = $mainframe->Listbox(
-relief => 'sunken',
-width => -1, # -1 == Shrink to fit
-setgrid => 1,
-selectmode => 'single',
)->grid(
-row=>0,
-column=>0
);
my $scroll = $mainframe->Scrollbar(-command => [ 'yview', $listbox ]);
$listbox->configure(-yscrollcommand => [ 'set', $scroll ]);
$scroll->grid(-column=>1, -row=>0, -rowspan=>2, -sticky =>'nes');
$listbox->bind('<Double-1>', sub{
my $temp = $listbox->get($listbox->curselection());
if( -d $temp){
$listbox->delete(0, $listbox->size());
opendir(DIR, "./$temp");
readDir();
close(DIR);
chdir("$temp");
}else{
`xdg-open "$temp"`;
}
});
opendir(DIR, "./");
readDir();
close DIR;
$mainframe->Button(
-text=>"Exit",
-command=>sub{
exit;
})->grid(
-row=>1,
-column=>0
);
MainLoop();
sub readDir{
my @all = readdir(DIR);
for my $x (sort (@all)){
next if($x =~ /^\.$/);
$listbox->insert('end', $x);
if(-d $x){
print "$x\n";
$listbox->itemconfigure($listbox->size()-1, -foreground=>"
+#F00");
}
}
}
| 