$u1 = $mw->Spinbox(-values => [qw/Mil MM Inch/],-exportselection=>STRING, -textvariable=>\$dtm_unit,  -width => 5,-command=>\&change_unit )->grid(-row=>1,-column=>2 ,-sticky=>"ew");