Eingabe für Integer - Tk::NumEntry

Das Tk::NumEntry ist ein Entry-Widget in das nur ganze Zahlen eingetragen werden dürfen. Neben dem numerischen Entry können Buttons zum inkrementieren und dekrementieren der Zahl hinterlegt werden. Der Wertebereich kann spezifiziert werden. Außerdem ist es möglich einen Sound abzuspielen, wenn die Eingabe ungültig ist.

Tk::NumEntry ist Bestandteil des Paketes Tk::GBARR. Dieses Paket enthält diverse Widgets, die alle als Alpha-Version anzusehen sind. Tests und Kommentare sind hier laut Autor willkommen.


Perl-Beispiel (Quellcode)

#!/Perl/bin/perl

use strict;
use warnings;
use Tk;
use Tk::NumEntry;

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

my $ne = $mw->NumEntry(
    -buttons    => 1,
    -readonly   => 1,
    -minvalue   => 2,
    -bell       => 1,
)->pack();

$mw->MainLoop();
Top