Tk::Spinbox

Die Spinbox ist ein Entry-Widget mit Buttons (genauer: kleinen Pfeiltasten) zum Verändern des Wertes. Alle Optionen des Entrys (z.B. das Binden einer Variable über -textvariable sind für dieses Widget verfügbar. Dokumentiert sind die Entry-Optionen allerdings in der Manpage von Tk::Entry. Zudem gibt es noch eine spezifische optionen, mit denen beispielsweise Wertebereich oder Schrittgröße definiert werden können.

Link: Tk::Spinbox auf CPAN.

Eine grafisch anders geartete Spinbox ist Tk::Dial. Statt der Änderung über Pfeiltasten kann dort ein Tachometer-artiger Zeiger verschoben werden.

#!perl

use strict;
use warnings;
use Tk;
use Tk::SpinBox;

my $mw = Tk::MainWindow->new();

my $zahl = 42;
my $spinbox = $mw->Spinbox(
    -from => 0,
    -to => 100,
    -textvariable => \$zahl,
    -increment => 1,
);
$spinbox->pack();

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