Tk::PathEntry - Verzeichnis-Autovervollständigung

Wie ein Auto-Complete-Feld verhält sich Tk::PathEntry. Die Inhalte eines Verzeichnisses werden zur Auto-Vervollständigung angeboten, wenn der Nutzer im Eingabefeld die entsprechende Taste drückt (z.B. Pfeil-nach-unten). Es klappt dann eine Liste mit Möglichkeiten zur Auto-Vervollständigung auf.

#!perl

use strict;
use warnings;
use Tk;
use Tk::PathEntry;
use Cwd;

my $path = cwd();

my $mw = MainWindow->new(
	-padx => 3,
	-pady => 3,
);

$mw->PathEntry(
	-textvariable => \$path,
)->pack(
	-fill => 'x',
);

$mw->Label(
	-textvariable => \$path,
	-foreground => 'blue',
)->pack;

$mw->Button(
	-text => 'Quit',
	-command => sub{ exit },
)->pack;

$mw->MainLoop;
exit(0);
Top