#!/usr/bin/perl -w
use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
use EFIS::Needle;
use Tk;


my $mw = new MainWindow;
my $needle = $mw->Needle(
	-width		=> 128,
	-label0		=> 'N1',
	-label1		=> 'N2',
)->pack(
	-side		=> 'top',
);

my $value0 = 0;
my $value1 = 0;

$needle->set( 0 => $value0 );
$needle->warning( 0, 'red' );

$mw->bind( '<Key-j>', sub { $needle->set( 0 => --$value0 ) } );
$mw->bind( '<Key-k>', sub { $needle->set( 0 => ++$value0 ) } );
$mw->bind( '<Key-J>', sub { $needle->set( 1 => --$value1 ) } );
$mw->bind( '<Key-K>', sub { $needle->set( 1 => ++$value1 ) } );

MainLoop;

