use Tk;
my $mw = MainWindow -> new(-title => 'ola' );
sub cam {
system "ls $dirr";
}
$mw->Entry(-textvariable => \$dirr)->pack;
$mw->Button(-text => 'mostrar', -command => \&cam)->pack;
MainLoop;
..................................................................................................................
well this script can get de entry of the user, but if his puts:
/home/maça/temp
this script do not work because the character"ç" in maça.
how can i do it work with accents and characters like this: ç, í, á, ã...?
thanks
--
Ricardo
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
