78c78,79
<  $mw->bind($class,'<Left>',['SetCursor',Ev('index','insert-1c')]);
---
> # $mw->bind($class,'<Left>',['SetCursor',Ev('index','insert-1c')]);
>  $mw->bind($class,'<Left>',['LeftNumLock', Ev('A')]);
83c84,85
<  $mw->bind($class,'<Right>',['SetCursor',Ev('index','insert+1c')]);
---
> # $mw->bind($class,'<Right>',['SetCursor',Ev('index','insert+1c')]);
>  $mw->bind($class,'<Right>',['RightNumLock', Ev('A')]);
88c90,91
<  $mw->bind($class,'<Up>',['SetCursor',Ev('UpDownLine',-1)]);
---
> # $mw->bind($class,'<Up>',['SetCursor',Ev('UpDownLine',-1)]);
>  $mw->bind($class,'<Up>',['UpNumLock', Ev('A')]);
93c96,97
<  $mw->bind($class,'<Down>',['SetCursor',Ev('UpDownLine',1)]);
---
> # $mw->bind($class,'<Down>',['SetCursor',Ev('UpDownLine',1)]);
>  $mw->bind($class,'<Down>',['DownNumLock', Ev('A')]);
153a158,213
> sub LeftNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha) {
>     $widget->Insert($alpha);
>   } else {
>     $widget->SetCursor($widget->index('insert-1c'));
>   }
> }
> 
> sub RightNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha) {
>     $widget->Insert($alpha);
>   } else {
>     $widget->SetCursor($widget->index('insert+1c'));
>   }
> }
> 
> sub UpNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha) {
>     $widget->Insert($alpha);
>   } else {
>     $widget->SetCursor($widget->UpDownLine(-1));
>   }
> }
> 
> sub DownNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha) {
>     $widget->Insert($alpha);
>   } else {
>     $widget->SetCursor($widget->UpDownLine(1));
>   }
> }
> 
> sub DeleteNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha eq '.') {
>     $widget->Insert($alpha);
>   } else {
>     $widget->Delete;
>   }
> }
> 
> sub DoReturn
> {
> 	my ($widget) = @_;
> 	$widget->eventGenerate('<Return>');
> }
> 
200c260,262
<  $mw->bind($class,'<Delete>','Delete');
---
> # $mw->bind($class,'<Delete>','Delete');
>  $mw->bind($class,'<Delete>', ['DeleteNumLock', Ev('A')]);
>  $mw->bind($class,'<KP_Enter>', 'DoReturn');