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.

  1. #!perl
  2. use strict;
  3. use warnings;
  4. use Tk;
  5. use Tk::SpinBox;
  6. my $mw = Tk::MainWindow->new();
  7. my $zahl = 42;
  8. my $spinbox = $mw->Spinbox(
  9. -from => 0,
  10. -to => 100,
  11. -textvariable => \$zahl,
  12. -increment => 1,
  13. );
  14. $spinbox->pack();
  15. $mw->MainLoop();
  16. exit(0);
Top