Tk::Dial - Tachometer für die GUI

Ein leider schlecht dokumentiertes Modul ist Tk::Dial welches einen Tachometer (engl. speedometer) darstellt. Wer also einen Geschwindigkeitsmesser braucht, ist hier potentiell richtig.

Nachfolgender Code zeigt das Widget in Aktion. In das enthaltene Entry-Widget kann auch eine Zahl eingetragen und mit Enter bestätigt werden. Der Tachometer-Zeiger passt sich dann entsprechend an. Der Zeiger kann mit der Maus verschoben werden. In diesem Falle wird der Wert des Entrys angepasst.

#!perl

use strict;
use warnings;
use Tk;
use Tk::Dial;

my $mw = tkinit();
 
my $dial = $mw->Dial(
	-margin =>  20,
	-radius =>  48,
	-min    =>   0,
	-max    => 100,
	-value  =>   0,
	-format => '%d',
)->pack();

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