Leser: 1
5 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
sub such{
$verz = $eingabe->get;
chdir "$verz" or die "Es konnte nicht in das verzeichnis gewaechselt werden: $!";
@inhalt =();
for(@inhalt){
$list->insert('end',$_);
}
@inhalt = <$verz/*.*>;
for(@inhalt){
$list->insert('end',$_);
}
}
Tk::Listbox,perldoc$listbox->delete(first, ?last?)
Deletes one or more elements of the listbox. First and last are indices specifying the
first and last elements in the range to delete. If last isn't specified it defaults to
first, i.e. a single element is deleted.
5 Einträge, 1 Seite |