#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Spinbox;

#see also JComboBox

my $mw = MainWindow->new;
$mw->title("Spinner");

$mw->fontCreate('big',
        -family=>'courier',
        -weight=>'bold',
        -size=>int(-18*18/14));
       
my $dtm_unit = 'm';
my $dtm_old = 'm';       
my $sp1 = $mw->Spinbox(-width => 2, 
              -font => 'big',
              -textvariable=>\$dtm_unit,
              -command => sub{ &show_set },
	      -value => ['m','cm','mm','in'])->pack (-side=>'left');


MainLoop;
###########################################################3

sub show_set{
   print "@_\n";


   print "$dtm_unit\n";

   print "old-> $dtm_old\n";

   $dtm_old = $dtm_unit;
}